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 #strip whitespaces
$val =~ s/^\s*(.*?)\s*$/$1/; $val =~ s/^\s*(.*?)\s*$/$1/;
if(length($val) >= 4) if(length($val) >= 3)
{ {
%hash->{$val}++; %hash->{$val}++;
} }

18
trunk/upload.pl
View file

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