Re: Mietversion / Doku: Volltextsuche: code falsch? - baseportal Forum - Web-Anwendungen einfach, schnell, leistungsfähig!
baseportal
English - Deutsch "Es gibt keine dummen Fragen - jeder hat einmal angefangen"

 baseportal-ForumDie aktuellsten 10, 30, 50, 100 Einträge anzeigen.  

 
 Ausgewählter Eintrag: Zur Liste 
    Beitrag von nezpercez (500 Beiträge) am Sonntag, 16.Februar.2003, 16:15.
    Re: Mietversion / Doku: Volltextsuche: code falsch?

      habs probiert:

      <form action="baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data"><input type="hidden" name="htx=" value="$htx">Volltextsuche: <input type="text" name="_fullsearch~~" value="$_fullsearch"><input type="submit" value="Volltextsuche"></form> </FONT>
      <perl>
      return if $_fullsearch eq "";
      

      get "fullsearch_match=10", "";
      while(get_next "DPLX")
      

      {
      $out= <<EOF;
      <b>$frueh_1</b><br>$spaet_4 - <p>
      EOF
      $out=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g;
      out $out;
      }
      my $newrange=$_fullsearch_range+$_fullsearch_range_length;
      my $txt;
      

      if($_fullsearch_match_pos<$newrange)
      {$txt="Suche nach weiteren Treffern";
      $newrange=$_fullsearch_match_pos;
      

      } else
      {out "<b>Kein Treffer.</b><p>" if $_fullsearch_amount<1;
      $txt="Suche in weiteren Datensätzen";
      

      }
      if($newrange<$_amount_all)
      {out "Es wurde noch nicht in allen Datensätzen gesucht: ";
          out "<a href=\"baseportal.pl?htx=$htx&_fullsearch~~".convert_url($_fullsearch). "&fullsearch_range=$newrange,$_fullsearch_range_length\">$txt</a>";
      

      } else
      {
      out "Die Datenbank wurde komplett durchsucht.";
      }
      </perl>
      



      ergibt leider nur:
      [ Fehler: (perl) in /lupara.org/clients/mercur/medizin_inland/Dienstplaene/VTSuche_dpl: Unrecognized character \xA0 at (eval 17) line 28. ]


    Antworten

 Alle Einträge zum Thema: Zur Liste 
    Beitrag von nezpercez (500 Beiträge) am Samstag, 15.Februar.2003, 20:18.
    Mietversion / Doku: Volltextsuche: code falsch?

      Guten Tag,

      der in der Doku der Mietversion angegebene Text scheint falsch zu sein.

      Abhängig davon, ob man das Zeichen # hinter regex durch das Zeichen / ersetzt, kommt die perl Fehlermeldung bei Zeile 16 bzw. Zeile 9 des scriptes.


      offenbar falsch:

      <form action="baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
      <input type="hidden" name="htx=" value="$htx">
      Freie Suche: <input type="text" name="_fullsearch~~" value="$_fullsearch">
      <input type="submit" value="Suchen">
      </form>
      <perl>
      return if $_fullsearch eq "";
      get "fullsearch_match=10";
      while(get_next)
      {
      $out= <<EOF;
      <b>$Titel</b><br>$Beschreibung - $Kommentar<p>
      EOF
      $out=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g;
      out $out;
      }
      my $newrange=$_fullsearch_range+$_fullsearch_range_length;
      my $txt;
      if($_fullsearch_match_pos<$newrange)
      {
          $txt="Suche nach weiteren Treffern";
          $newrange=$_fullsearch_match_pos;
      } else
      {
          out "<b>Kein Treffer.</b><p>" if $_fullsearch_amount<1;
          $txt="Suche in weiteren Datensätzen";
      }
      if($newrange<$_amount_all)
      {
          out "Es wurde noch nicht in allen Datensätzen gesucht: ";
          out "<a href=\"baseportal.pl?htx=$htx&_fullsearch~~".convert_url($_fullsearch). "&fullsearch_range=$newrange,$_fullsearch_range_length\">$txt</a>";
      } else
      {
          out "Die Datenbank wurde komplett durchsucht.";
      }
      </perl>
      
      --------

      offenbar zum Teil richtig ist folgender script, den ich versucht habe, anzupassen:

      <form action="baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data"><input type="hidden" name="htx=" value="$htx">Volltextsuche: <input type="text" name="_fullsearch~~" value="$_fullsearch"><input type="submit" value="Volltextsuche"></form> </FONT>
      

      <perl>
      return if $_fullsearch eq "";
      

      get "fullsearch_match=10", "hier muß man übrigens den Namen der Datenbank reinschreiben....;-)";

      while(get_next)
      {
      $out= <<EOF;
      <b>$Titel</b><br>$Beschreibung - <p>
      EOF
      $out=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g;
      out $out;
      }
      

      my $newrange=$_fullsearch_range+$_fullsearch_range_length;
      my $txt;
      

      if($_fullsearch_match_pos<$newrange)
      {
          $txt="Suche nach weiteren Treffern";
          $newrange=$_fullsearch_match_pos;
      } else
      {
          out "<b>Kein Treffer.</b><p>" if $_fullsearch_amount<1;
          $txt="Suche in weiteren Datensätzen";
      }
      

      if($newrange<$_amount_all)
      {
          out "Es wurde noch nicht in allen Datensätzen gesucht: ";
          out "<a href=\"baseportal.pl?htx=$htx&_fullsearch~~".convert_url($_fullsearch). "&fullsearch_range=$newrange,$_fullsearch_range_length\">$txt</a>";
      } else
      {
          out "Die Datenbank wurde komplett durchsucht.";
      }
      </perl>
      

      -----
      der letzte scirpt läuft zwar ohne Fehlermeldung, aber es werden aber charmanterweise keine gefundenen Datensätze dargestellt.

      lediglich das anschließende <do action = all..usw>
      zeigt die Ergebnisse. aber: weder die farbliche Hervorhebung der gefundenen datensätze noch die Anpassung der pro Durchgang limitiertnen zu findenden Datensätze (im script 10) läßt sich ändern.....

      oder: mache ich irgendetwas grundlegend falsch?

     Antworten

    Beitrag von Sander (8133 Beiträge) am Samstag, 15.Februar.2003, 22:58.
    Re: Mietversion / Doku: Volltextsuche: code falsch?

      get "fullsearch_match=10", "hier muß man übrigens den Namen der Datenbank reinschreiben....;-)";
       
      while(get_next "hier muß man übrigens den Namen der Datenbank reinschreiben....;-)")
      

      Sander

     Antworten

    Beitrag von nezpercez (500 Beiträge) am Sonntag, 16.Februar.2003, 16:15.
    Re: Mietversion / Doku: Volltextsuche: code falsch?

      habs probiert:

      <form action="baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data"><input type="hidden" name="htx=" value="$htx">Volltextsuche: <input type="text" name="_fullsearch~~" value="$_fullsearch"><input type="submit" value="Volltextsuche"></form> </FONT>
      <perl>
      return if $_fullsearch eq "";
      

      get "fullsearch_match=10", "";
      while(get_next "DPLX")
      

      {
      $out= <<EOF;
      <b>$frueh_1</b><br>$spaet_4 - <p>
      EOF
      $out=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g;
      out $out;
      }
      my $newrange=$_fullsearch_range+$_fullsearch_range_length;
      my $txt;
      

      if($_fullsearch_match_pos<$newrange)
      {$txt="Suche nach weiteren Treffern";
      $newrange=$_fullsearch_match_pos;
      

      } else
      {out "<b>Kein Treffer.</b><p>" if $_fullsearch_amount<1;
      $txt="Suche in weiteren Datensätzen";
      

      }
      if($newrange<$_amount_all)
      {out "Es wurde noch nicht in allen Datensätzen gesucht: ";
          out "<a href=\"baseportal.pl?htx=$htx&_fullsearch~~".convert_url($_fullsearch). "&fullsearch_range=$newrange,$_fullsearch_range_length\">$txt</a>";
      

      } else
      {
      out "Die Datenbank wurde komplett durchsucht.";
      }
      </perl>
      



      ergibt leider nur:
      [ Fehler: (perl) in /lupara.org/clients/mercur/medizin_inland/Dienstplaene/VTSuche_dpl: Unrecognized character \xA0 at (eval 17) line 28. ]

     Antworten

    Beitrag von Sander (8133 Beiträge) am Sonntag, 16.Februar.2003, 19:09.
    Re: Mietversion / Doku: Volltextsuche: code falsch?

      guck mal, ob hinter EOF noch irgendwelche Zeichen stecken, da darf nix dahinter und davor in der Zeile.

      Ausserdem hast du nun beim get kein datenbanknamen stehen.

      Sander

     Antworten

    Beitrag von nezpercez (500 Beiträge) am Dienstag, 11.März.2003, 15:25.
    @Sander Re: Mietversion / Doku: Volltextsuche: code falsch?

      Hi,
      EOF steht einsam und alleine in der Zeile...(s.u.)
      danke für den Tip mit dem Dateinamen bei get, (s.u) ich habe es eingetragen.....
      

      trotzdem Fehlermeldung:
      [ Fehler: (perl) in /lupara.org/clients/mercur/medizin_inland/Dienstplaene/VTSuche_dpl: Unrecognized character \xA0 at (eval 13) line 30. ]

      Was heißt eigendlich line 30? ab wo z#ählt die? anfang des templates von bp oder nach <perl> (werden leerzeilen mitgezählt?)

      große Verwirrung...

      danke, np

      <form action="baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data"><input type="hidden" name="htx=" value="$htx">Volltextsuche: <input type="text" name="_fullsearch~~" value="$_fullsearch"><input type="submit" value="Volltextsuche"></form> </FONT>
      

      <perl>
      return if $_fullsearch eq "";
      

      get "fullsearch_match=10", "DPLX";
      while(get_next "DPLX")
      

      {
      $out= <<EOF;
      <b>$frueh_1</b><br>$spaet_4 - <p>
      

      EOF

      $out=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g;
      out $out;
      }
      my $newrange=$_fullsearch_range+$_fullsearch_range_length;
      my $txt;
      

      if($_fullsearch_match_pos<$newrange)
      {$txt="Suche nach weiteren Treffern";
      $newrange=$_fullsearch_match_pos;
      

      } else
      {out "<b>Kein Treffer.</b><p>" if $_fullsearch_amount<1;
      $txt="Suche in weiteren Datensätzen";
      

      }
      if($newrange<$_amount_all)
      {out "Es wurde noch nicht in allen Datensätzen gesucht: ";
          out "<a href=\"baseportal.pl?htx=$htx&_fullsearch~~".convert_url($_fullsearch). "&fullsearch_range=$newrange,$_fullsearch_range_length\">$txt</a>";
      

      } else
      {
      out "Die Datenbank wurde komplett durchsucht.";
      }
      </perl>
      

     Antworten


     
 Liste der Einträge von 40500 bis 40650:Einklappen Zur Eingabe 
Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < Zur Eingabe  > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge


Zurück zur Homepage

© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen



powered in 0.05s by baseportal.de
Erstellen Sie Ihre eigene Web-Datenbank - kostenlos!