Textausgabe

[Roland Plank]

<b><font size=5>Es wurde gesucht nach: <i>$FORM{qry1}</i>

marke1

if ($FORM{qry2} ne "") {

$FORM{operator} =~ tr/a-z/A-Z/;
 print "$FORM{operator} $FORM{qry2}\n";
}

print <<marke2;
</b>
<p>
<font size=5>Fundstellen:<p>
<font size=3>

<ul>

marke2

foreach $FILE (@FILES) {
 if ($include{$FILE} eq 'yes') {
  $y++;
  $ausgabe = $FILE;
  $ausgabe =~ s/^$directory//;
  print "<a href="$url$ausgabe"><b>$titles{$FILE}</a></b><br>\n";

}
}
if ($y==0) {
 print "<b>Keine Entsprechungen gefunden!</b>\n";
}