josch/yolanda
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

check for min tag length on upload

Browse source 
git-svn-id: http://yolanda.mister-muffin.de/svn@287 7eef14d0-6ed0-489d-bf55-20463b2d70db
This commit is contained in:
josch 2008-04-09 13:23:12 +00:00
parent 9d7fea9515
commit e0a88beb70
2 changed files with 12 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
trunk/tools/tagcloud.pl
View file

@ -20,7 +20,7 @@ while(($subject) = $sth->fetchrow_array())
{
#strip whitespaces
$val =~ s/^\s*(.*?)\s*$/$1/;
if(length($val) >= 4)
if(length($val) >= 3)
{
%hash->{$val}++;
}

8
trunk/upload.pl
View file

@ -22,18 +22,22 @@ if($userinfo->{'username'})
$page->{'uploadform'}->{'DC.License'} = $query->param('DC.License');
if($query->param('2'))
{
if($query->param('DC.Title')&&$query->param('DC.Subject')&&$query->param('DC.Description'))
{
#remove duplicates from tags
@subject = split(' ', $query->param('DC.Subject'));
@unique{ @subject } = ();
foreach $tag (keys %unique)
{
if(length($tag) >= 3)
{
$subject.=$tag." ";
}
}
$subject =~ s/\s*$//;
$page->{'uploadform'}->{'DC.Subject'} = $subject;
if($query->param('DC.Title')&&$query->param('DC.Subject')&&$query->param('DC.Description'))
{
$page->{'innerresults'} = [''];
my @args = ();