http://koch.netpure.de/cgi-bin/baseportal.pl?htx=/koch/brueckenbau/linkliste&Rubrik~=Hochschule
hier der Quelltext.
Die Einfügung habe ich derzeit auskommentiert.
<html>
<head>
<title>Linkliste</title>
</head>
<LINK href="http://www.brueckenbau-links.de/bblinks.css" rel=styleSheet type=text/css>
<body>
<perl>
if (index($suchbegriffe,"+") == -1) {
@suchargumente=split(/ /, $suchbegriffe);
$suchbegriffe="+";
for (@suchargumente) {
$suchbegriffe=$suchbegriffe.$_.",+";
}
$suchbegriffe=substr($suchbegriffe,0,length($suchbegriffe)-2);
}
</perl>
<ul>
<loop db=links code=perl sort=Rubrik,SeitenEigentuemer fullsearch_match=200 _fullsearch==$suchbegriffe >
$Zahl=$_amount_query
</loop>
<loop db=links code=perl sort=Rubrik,SeitenEigentuemer fullsearch_match=200 _fullsearch==$suchbegriffe>
if ($Rubrik ne "" && $Rubrik ne $Rubrikmerken)
{
out "<h3>$Rubrik</h3><br>";
# get "Deutsch~=$Rubrik", "/_bib/dict_de_en/dict_de_en";
# out "$English<br>";
$Rubrikmerken=$Rubrik;
}
out <<EOF;
<li><font size="2"><a href="$EigentuemerLink" target="_blank">$SeitenEigentuemer</a></font><font color="#000080"> $Land $PLZ</font> - <font size=\"2\">$Beschreibung<br>
EOF
# Beginn des Abschneidens
$KeyWords_a = substr($KeyWords,0,100);
# Ende des Abschneidens
out "KeyWords: <strong><font color=\"#000080\">$KeyWords_a</font></strong></font><big><strong> . . .</strong></big>" if $KeyWords ne "";
get "IDE==$IDE range=0,1","brueckenbau"; #gucken, ob Eintrag da ist
out "<ul><font size=\"1\"><a href=\"http://koch.netpure.de/cgi-bin/baseportal.pl?htx=/koch/brueckenbau/ergebnis&range=0,5&IDE==$IDE&mode=pictures\" target=\"_blank\">zu den Brückenseiten</a> ($_amount_query)</ul></font>" if $_amount != 0;
out "</li>";
</loop>
</ul>
<perl>
out "Bei dieser Suchanfrage wurden $Zahl Datensätze gefundem";
if (%_sel || $_fullsearch)
{
$_put{_amount}=1;
$_put{Anzahl}=$Zahl;
$_put{SeitenEigentuemer}=$_sel{SeitenEigentuemer} if $_sel{SeitenEigentuemer};
$_put{PLZ}=$_sel{PLZ} if $_sel{PLZ};
$_put{Land}=$_sel{Land} if $_sel{Land};
$_put{Rubrik}=$_sel{Rubrik} if $_sel{Rubrik};
$_put{Volltext}=$_sel{'_fullsearch'} if $_sel{"_fullsearch"};
$_put{Datum}=datum("jetzt");
put undef,"suche_link";
</perl>
<p> </p>
</body>
</html>
