NACH OBEN
RUB » IT.SERVICES » A-Z » Schlagwortsuche

clearlist(); filemask('^*\.html.de'); ireaddir('/services'); ireaddir('/support/faqs'); ireaddir('/a-z/links'); $count = 0; my @treffer=(); foreach my $file (@FILELIST) { my $dire = $FILE_META_INFO{$file}->getValues('directory'); if ($dire eq "/a-z/links") { $url = $FILE_META_INFO{$file}->getValues('title'); } else { $url = $FILE_META_INFO{$file}->getValues('directory').'/'.$FILE_META_INFO{$file}->getValues('filename'); } # print $dire.":".$url."
"; my @schlagwort = $FILE_META_INFO{$file}->getValues('schlagwort'); for (my $i=0; $i<=10; $i++) { if ($schlagwort[$i] ne "") { my @sw = ($schlagwort[$i],$url); $treffer[$count] = \@sw; $count++; } } } my @srt = sort { lcfirst $a->[0] cmp lcfirst $b->[0] } @treffer; my $anz = @treffer; my $spaltenlaenge = int($anz / 3); my $spaltenwechsel = 1; my $spalte = 0; my $worte = 0; my $altbs = "0"; print "\n\n"; print "\n
\n"; foreach my $wert (@srt) { if (uc(substr($wert->[0],0,1)) ne $altbs) { if ((substr($wert->[0],0,1) eq "I") or (substr($wert->[0],0,1) eq "R")) { # ($worte >= $spaltenlaenge) { $spaltenwechsel = 1; $worte = 0; } if ($altbs ne "0") { print "
\n"; print "
\n"; print "
\n"; } $altbs = uc(substr($wert->[0],0,1)); print "\n\n"; if ($spaltenwechsel == 1) { if ($spalte > 0) { print "
\n"; print "
\n"; } $spaltenwechsel = 0; $spalte++; print "
\n"; print "
\n"; } else { print "\n"; } print "
\n"; print "
\n"; print "
\n"; print " \n"; print "
$altbs
\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; print " \n"; print "
\n"; print "
\n"; print "
\n"; print "
\n";