Beitrag von Michael Koch (344 Beiträge) am Donnerstag, 23.August.2001, 20:35.  
Suchwörter in Extra Datenbank speichern.
Hallo,
ich möchte gern wissen was in meiner Datenbank gesucht wird.
Ist es möglich die einegebenen Suchwörter auch gleich in eine Extra Datenbank zu schreiben ?
Und wenn ja wie?
Hier der Quelltext der such Seite:
<html>
<head>
<title>Hier kann gezielt nach Brücken gesucht werden</title>
<link href="http://www.brueckenbau-links.de/bblinks.css" rel=styleSheet type=text/css>
</head>
<body>
<form action="bbeta.pl?htx=/brueckenbau/suchergebnis&cmd=search" method="post" enctype="multipart/form-data" name="suche">
<input type=hidden name="htx=" value="/brueckenbau/suchergebnis">
<input type=hidden name="cmd=" value="search">
<input type=hidden name="range=" value="0,10">
<table border="0" width="600" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" colspan="2">
<h2>Hier kann gezielt nach Brücken gesucht werden.</h2>
</td>
</tr>
<tr>
<td colspan="2"></td>
</tr>
<tr>
<td align="right" width="200">Brückenname :  </td>
<td width="400"><input type="text" name="Brueckenname~=" size=40 value=""></td>
</tr>
<tr>
<td align="right" width="200">Land :  </td>
<td width="400"><input type="text" name="Land~=" size=40 value=""></td>
</tr>
<tr>
<td align="right" width="200">Stadt :  </td>
<td width="400"><input type="text" name="Stadt~=" size=40 value=""></td>
</tr>
<tr>
<td align="right" width="200">Verkehrsweg oben :  </td>
<td width="400"><input type="text" name="VerkehrswegOben~=" size=40 value=""></td>
</tr>
<tr>
<td align="right" width="200">Verkehrsweg unten :  </td>
<td width="400"><input type="text" name="VerkehrswegUnten~=" size=40 value=""></td>
</tr>
<tr>
<td align="right" width="200">Seiten Eigentümer :  </td>
<td width="400"><input type="text" name="SeitenEigentuemer~=" size=40 value=""></td>
</tr>
<tr>
<td align="right" width="200"> </td>
<td width="400"> </td>
</tr>
<tr>
<td align="right" width="200">Volltext Suche :  </td>
<td width="250" colspan="2"><input type="text" name="_fullsearch==" size=40 value=""></td>
</tr>
<tr>
<td align="right" width="200">  </td>
<td width="400">  </td>
</tr>
<tr>
<td align="right" width="200">Ausgabe :  </td>
<td width="400">
<table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#E1E1E1">
  <tr>
    <td><input type="radio" name="mode=" value="nopictures" checked
    onclick="document.suche.elements['range='].value='0,10'">Tabelarisch</td>
    <td>10 Datensätze / Seite</td>
  </tr>
  <tr>
    <td><input type="radio" name="mode=" value="pictures"
    onclick="document.suche.elements['range='].value='0,5'">Mit Bildvorschau</td>
    <td> 5 Datensätze / Seite</td>
  </tr>
  <tr>
    <td><input type="radio" name="mode=" value="bigpictures"
    onclick="document.suche.elements['range='].value='0,1'">Größte Bild der Brücke</td>
    <td> 1 Datensatz / Seite</td>
  </tr>
</table>
</td>
</tr>
<tr>
<td align="right" width="200">  </td>
<td width="400">  </td>
</tr>
<tr>
<td align="center" width="600" colspan="2">
<input type=submit value="Suchen">
<input type=reset value="Zurücksetzen">
</td>
</tr>
</table>
</form>
<p align="center"> </p>
<include src=links>
<include src=hinweis>
</body>
</html>
  Antworten
Beitrag von Sander  (32 Beiträge) am Donnerstag, 23.August.2001, 22:36.  
Re: Suchwörter in Extra Datenbank speichern.
  Antworten
Beitrag von Michael Koch (344 Beiträge) am Donnerstag, 23.August.2001, 22:46.  
Re: Suchwörter in Extra Datenbank speichern.
Hallo,
das verstehe ich nicht.
Ich denke ich muß erst eine neue Datenbank eröffnen,
aber mit welchen Feldern:
Suchwort und Datum denke ich,
Hier der Quelltext der Ausgabedatei:
<html>
<head>
<title>Ausgabe mit oder ohne Bilder</title>
<link href="http://www.brueckenbau-links.de/bblinks.css" rel=styleSheet type=text/css>
</head>
<body>
<perl>
if($mode eq "pictures") {
out <<EOF;
<p align="center"><b><span class="mengentext">Suchergebnisse, Ausgabe mit Bildern:</span></b></p>
EOF
}
   if($mode eq "nopictures") {
out <<EOF;
    <p align="center"><b><span class="mengentext">Suchergebnisse:</span></b></p>
    <table border="1" width="100%" cellpadding="2" cellspacing="1">
    <tr>
EOF
}
   if($mode eq "bigpictures") {
out <<EOF;
    <p align="center">
    <table border="1" width="100%" cellpadding="2" cellspacing="1">
    <tr>
EOF
}
</perl>
<perl>
if($mode eq "pictures") {
out <<EOF;
<table border="0" width="100%" cellpadding="2" cellspacing="1">
<tr>
<td width="100%" valign="top" colspan="1" valign="middle" align="center">
EOF
}
if($mode eq "bigpictures") {
out <<EOF;
<table border="0" width="100%" cellpadding="2" cellspacing="1">
<tr>
<td width="100%" valign="top" colspan="1" valign="middle" align="center">
EOF
}
if($mode eq "nopictures") {
out <<EOF;
<td width="100%" valign="top" colspan="6" valign="middle" align="center" >
EOF
}
</perl>
<perl>
$append = "&Brueckenname~=$Brueckenname" if $Brueckenname ne "";
      $append = $append."&Land~=$Land" if $Land ne "";
      $append = $append."&Stadt~=$Stadt" if $Stadt ne "";
      $append = $append."&VerkehrswegOben~=$VerkehrswegOben" if $VerkehrswegOben ne "";
      $append = $append."&VerkehrswegUnten~=$VerkehrswegUnten" if $VerkehrswegUnten ne "";
      $append = $append."&SeitenEigentuemer~=$SeitenEigentuemer" if $SeitenEigentuemer ne "";
      $append = $append."&BrueckenTyp~=$BrueckenTyp" if $BrueckenTyp ne "";
      $append = $append."&Baustoff~=$Baustoff" if $Baustoff ne "";
      $append = $append."&IDE~=$IDE" if $IDE ne "";
      $append = $append."&_fullsearch==$_sel{'_fullsearch'}" if $_sel{"_fullsearch"} ne ""; 
      $append = $append."&mode=$mode";
     </perl>
<loop code=perl db=brueckenbau>
out "";
</loop>
<perl>
 
my $newrange=$_range+$_range_length;
      my $oldrange=$_range-$_range_length;
      $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
      out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/links.gif\" width=\"40\" height=\"40\" border=0 alt=\"zurück\"></a> " if $oldrange>=0;
      out "<a href=\"$_link&range=$newrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/rechts.gif\" width=\"40\" height=\"40\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;
     </perl>
</td>
</tr>
<loop db=brueckenbau code=perl>
 
if($mode eq "nopictures") {
out <<EOF;
<tr align="center">
<td align=left >
<span class=mengentext><a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/bruecke&cmd=all&Id==$_id\">$Brueckenname</a></span>
</td>
<td align=left>
<span class=mengentext>$SeitenEigentuemer</span>
</td>
<td align=left>
<span class=mengentext>$Stadt</span>
</td>
<td align=left>
<span class=mengentext>$Land</span>
</td>
<td align=left>
<span class=mengentext>$VerkehrswegOben</span>
</td>
<td align=left>
<span class=mengentext>$VerkehrswegUnten</span>
</td>
</tr>
 
EOF
}
    if($mode eq "pictures") {
     out <<EOF;
<tr>
    <td width="100%"><div align="left"><table border="0"  valign="top" align="left">
 <tr>
<td>
EOF
out "<a href='$BildLink'>" if $BildLink ne "";
out "<img src='$BildvorschauLink' alt='$Brueckenname' border=0 align=left hspace=5 vspace=5>";
out "</a>" if $BildLink ne "";
out <<EOF;
</td>
</tr>
<tr>
<td width="100%" valign="top"><p align="left"><font size="1">Bild und Text von<br>
<a href="$EigentuemerLink" target="_blank">$SeitenEigentuemer</a></font>
<p><a href="$BildLinkSeite" target="_blank">Hier kommt das Bild her.</a>
</p></td>
</tr>
</table></div>
     <a valign="top"><strong><font size="4"><a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/bruecke&cmd=all&Id==$_id\">$Brueckenname</font></strong></a>, $Stadt, $Land, <p>$Beschreibung
  </tr>
<tr>
<td width="100%" colspan="1">
<hr noshade size="3" color="#008080">
</td>
</tr>
 
EOF
}
    if($mode eq "bigpictures") {
     out <<EOF;
<tr>
    <td width="100%">
EOF
$BildLink=$BildvorschauLink if $BildLink eq "";
out <<EOF;
<tr align="center">
<tr align="center">
<td> <a align="center" valign="top"><strong><font size="4"><a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/bruecke&cmd=all&Id==$_id\">$Brueckenname</font></strong></a><p> $Stadt, $Land </td>
</tr>
<tr>
<td><p align="center"> <a href="$BildLinkSeite">
<img src="$BildLink" alt="$Brueckenname" border="0"></a></td>
</tr>
<tr>
<td width="100%"><p align="center"><font size="1">Bild und Text von  <a href="$EigentuemerLink">$SeitenEigentuemer</a></font></td>
</tr><tr>
<td><p align="center"> $Beschreibung</td>
</tr></tr>
EOF
}
   </loop>
<perl>
if($mode eq "pictures") {
out <<EOF;
<td width="100%" valign="top" colspan="1" valign="middle" align="center">
EOF
}
if($mode eq "bigpictures") {
out <<EOF;
<td width="100%" valign="top" colspan="1" valign="middle" align="center">
EOF
}
     if($mode eq "nopictures") {
out <<EOF;
      <td width="100%" valign="top" colspan="6" valign="middle" align="center">
EOF
}
</perl>
<perl>
 
my $newrange=$_range+$_range_length;
      my $oldrange=$_range-$_range_length;
      $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
      out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/links.gif\" width=\"40\" height=\"40\" border=0 alt=\"zurück\"></a> " if $oldrange>=0;
      out "<a href=\"$_link&range=$newrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/rechts.gif\" width=\"40\" height=\"40\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;
     </perl>
</td>
</tr>
</table>
<div align="center">
<perl>
out "Bei dieser Suchanfrage wurden $_amount_query Datensätze gefundem";
</perl>
<include src=hinweis>
</div>
</body>
</html>
  Antworten
Beitrag von Sander (8134 Beiträge) am Donnerstag, 23.August.2001, 23:05.  
Re: Suchwörter in Extra Datenbank speichern.
  Antworten
Beitrag von Michael Koch (344 Beiträge) am Montag, 27.August.2001, 20:38.  
Re: Suchwörter in Extra Datenbank speichern.
  Antworten
Beitrag von Sander  (32 Beiträge) am Montag, 27.August.2001, 20:52.  
Re: Suchwörter in Extra Datenbank speichern.
dein code: $_put{Brueckenname} if $_sel {Brueckenname};
mein vorschlag war: $_put{Brueckenname}=$_sel{Brueckenname} if $_sel{Brueckenname};
was fällt dir auf? ;-)
Sander
  Antworten
Beitrag von Michael Koch (344 Beiträge) am Montag, 27.August.2001, 21:17.  
Re: Suchwörter in Extra Datenbank speichern.
  Antworten
Beitrag von Sander (8134 Beiträge) am Montag, 27.August.2001, 21:41.  
Re: Suchwörter in Extra Datenbank speichern.
lass dir mal $_sel{Brueckenname} vor if (%_sel) anzeigen, nachdem du danach gesucht hast.
Sander
  Antworten
Beitrag von Michael Koch (344 Beiträge) am Montag, 27.August.2001, 22:03.  
Re: Suchwörter in Extra Datenbank speichern.
  Antworten
Beitrag von Sander (8134 Beiträge) am Montag, 27.August.2001, 23:54.  
Re: Suchwörter in Extra Datenbank speichern.
Die Felder in der db heißen auch genauso? - dann wirds an der beta liegen.
Probiers mal so:
if (%_sel || $_fullsearch)
{
$speichern.="\"Brueckenname\",$_sel{Brueckenname}," if $_sel{Brueckenname};
$speichern.="\"SeitenEigentuemer\",$_sel{SeitenEigentuemer}," if $_sel {SeitenEigentuemer};
$speichern.="\"Land\",$_sel{Land}," if $_sel{Land};
$speichern.="\"Stadt\",$_sel{Stadt}," if $_sel{Stadt};
$speichern.="\"VerkehrswegUnten\",$_sel{VerkehrswegUnten}," if $_sel{VerkehrswegUnten};
$speichern.="\"VerkehrswegOben\",$_sel{VerkehrswegOben}," if $_sel{VerkehrswegOben};
$speichern.="\"Volltext\",$_fullsearch," if $_fullsearch;
$speichern.="\"Datum\",".datum("jetzt");
put [$speichern],"suche_bruecke";
hoffe mal, das das klappt - is nicht getestet
Sander
  Antworten
Beitrag von Michael Koch (344 Beiträge) am Dienstag, 28.August.2001, 18:13.  
Re: Suchwörter in Extra Datenbank speichern.
  Antworten
Beitrag von Sander  (32 Beiträge) am Dienstag, 28.August.2001, 22:15.  
Re: Suchwörter in Extra Datenbank speichern. - geht jetzt
  Antworten
Beitrag von Michael Koch (344 Beiträge) am Mittwoch, 29.August.2001, 19:00.  
Re: Suchwörter in Extra Datenbank speichern. - geht jetzt
Danke,
fast geschaft.
Das Suchwort bei Volltext Eingabe wird nicht abgespeichert.
Das krigst du bestimmt auch noch hin.
In der suche_bruecke Datenbank habe ich für das Suchwort für die Volltextsuche
"Volltext" vorgesehen.
  Antworten
Beitrag von Michael Koch (344 Beiträge) am Mittwoch, 29.August.2001, 19:46.  
Re: jetzt geht alles
  Antworten