Korrekte Datumsausgabe in perl (Syntaxproblem) - 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 Micha Jost (347 Beiträge) am Dienstag, 30.April.2002, 12:07.
    Korrekte Datumsausgabe in perl (Syntaxproblem)

      Hallo,

      in diesem Template soll das Datum bei den Suchergebnissen mit der Variablen $Termin ausgegeben werden (Tag,Monat,Jahr).
      Nun geht das ja normalerweise mit
      <perl>
      out datum("$Termin", "Wochentag, Tag.Monat.Jahr")
      </perl>
      
      Ich bin aber im vorliegenden Fall bereits in einem Perl-Tag.
      Wie muss ich die Syntax da stricken?

      Danke
      Gruß
      Micha




      <html>
      <head>
      <title>Sizungen</title>
      </head>
      <body bgcolor=#ffffff>
      

      <include src=../style>

      <form action="baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
      <input type="hidden" name="htx=" value="$htx">
      <font size=2 face=verdana>Volltextsuche:</font> <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><ul><font size=2 face=verdana>$Name</b></font><br><font size=1 face=verdana,arial,helvetica>
      $Termin
      <br>$Tagesordnung<br><u>Protokoll:</u><br>$Protokoll
      <br><br>$Teilnehmer</font><br>
      <font size=1 face=verdana><a href="baseportal.pl?htx=/rathaus-buerstadt.de/sitzungsdienst/detailseite_sitzungen&Id=$_id">alle Details zur Sitzung</a></font></ul>
      <hr>
      EOF
      }
      $out=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g;
      




       
      if ($_fullsearch_amount<1)
      {
      out "<font size=2 face=verdana, arial><b>Ihre Suchabfrage ergab leider keinen Treffer.</b></font><p>";
      } else
      {
      out "<font size=2 face=verdana, arial><b>Ihre Suchanfrage ergab $_fullsearch_amount Treffer (rot markiert)</b></font><p><hr>";
      }
      

      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
      {
         
          $txt="Suche in weiteren Datensätzen";
      }
      

      if($newrange<$_amount_all)
      {
          out "<font size=2 face=verdana, arial>Es wurde noch nicht in allen Datensätzen gesucht:</font>";
          out "<a href=\"baseportal.pl?htx=$htx&_fullsearch~~".convert_url($_fullsearch). "&fullsearch_range=$newrange,$_fullsearch_range_length\">$txt</a>";
      } else
      {
          out "<font size=2 face=verdana, arial>Die Datenbank wurde komplett durchsucht.<br><br></font>";
      }
      $_fullsearch_amount;
      </perl>
            <table border="0" cellpadding="4" cellspacing="1" width=100%>
        <tr bgcolor="#ff9933">
          <td width="10%"><font face="Verdana,Arial" size="2" color="#000000"><div align="center"><b>Gremium</b></div></font></td>
          <td width="10%"><font face="Verdana,Arial" size="2" color="#000000"><div align="center"><b>Datum</b></div></font></td>
       <td width="10%"><font face="Verdana,Arial" size="2" color="#000000"><div align="center"><b>Bemerkung</b></div></font></td>
         
      </tr>
      <p align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Archiv öffentlicher Sitzungen städt. Gremien (chronologisch geordnet)</b></font></p>
      <loop db=sitzungen sort=-Termin PolitischesGremium~=1 Archiv~=1 range^=0,10>
      <tr bgcolor="#CCCCC"> 
         <td width="10%"><font face="Verdana,Arial" size="2">$Name</a> </font></td> 
       <td width="10%"><font face="Verdana,Arial" size="2">$Termin</a></td> 
        <td width="10%"><font face="Verdana,Arial" size="2"><a href="baseportal.pl?htx=/rathaus-buerstadt.de/sitzungsdienst/detailseite_sitzungen&Id=$_id">alle Details</a></td> 
            
      </tr>
      </loop>
      

      </table>
      <p align="center"> <font face="Verdana,Arial, Helvetica, sans-serif" size="2"><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\">Zurück</a> " if $oldrange>=0;
      out "<a href=\"$_link&range=$newrange,$_range_length\">Weiter</a> >>" if $newrange<$_amount_query;
      

      </perl>
      </font>
      </p>
      

      <include src=../footer>


      </body>
      </html>
      


    Antworten

 Alle Einträge zum Thema: Zur Liste 
    Beitrag von Micha Jost (347 Beiträge) am Dienstag, 30.April.2002, 12:07.
    Korrekte Datumsausgabe in perl (Syntaxproblem)

      Hallo,

      in diesem Template soll das Datum bei den Suchergebnissen mit der Variablen $Termin ausgegeben werden (Tag,Monat,Jahr).
      Nun geht das ja normalerweise mit
      <perl>
      out datum("$Termin", "Wochentag, Tag.Monat.Jahr")
      </perl>
      
      Ich bin aber im vorliegenden Fall bereits in einem Perl-Tag.
      Wie muss ich die Syntax da stricken?

      Danke
      Gruß
      Micha




      <html>
      <head>
      <title>Sizungen</title>
      </head>
      <body bgcolor=#ffffff>
      

      <include src=../style>

      <form action="baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
      <input type="hidden" name="htx=" value="$htx">
      <font size=2 face=verdana>Volltextsuche:</font> <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><ul><font size=2 face=verdana>$Name</b></font><br><font size=1 face=verdana,arial,helvetica>
      $Termin
      <br>$Tagesordnung<br><u>Protokoll:</u><br>$Protokoll
      <br><br>$Teilnehmer</font><br>
      <font size=1 face=verdana><a href="baseportal.pl?htx=/rathaus-buerstadt.de/sitzungsdienst/detailseite_sitzungen&Id=$_id">alle Details zur Sitzung</a></font></ul>
      <hr>
      EOF
      }
      $out=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g;
      




       
      if ($_fullsearch_amount<1)
      {
      out "<font size=2 face=verdana, arial><b>Ihre Suchabfrage ergab leider keinen Treffer.</b></font><p>";
      } else
      {
      out "<font size=2 face=verdana, arial><b>Ihre Suchanfrage ergab $_fullsearch_amount Treffer (rot markiert)</b></font><p><hr>";
      }
      

      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
      {
         
          $txt="Suche in weiteren Datensätzen";
      }
      

      if($newrange<$_amount_all)
      {
          out "<font size=2 face=verdana, arial>Es wurde noch nicht in allen Datensätzen gesucht:</font>";
          out "<a href=\"baseportal.pl?htx=$htx&_fullsearch~~".convert_url($_fullsearch). "&fullsearch_range=$newrange,$_fullsearch_range_length\">$txt</a>";
      } else
      {
          out "<font size=2 face=verdana, arial>Die Datenbank wurde komplett durchsucht.<br><br></font>";
      }
      $_fullsearch_amount;
      </perl>
            <table border="0" cellpadding="4" cellspacing="1" width=100%>
        <tr bgcolor="#ff9933">
          <td width="10%"><font face="Verdana,Arial" size="2" color="#000000"><div align="center"><b>Gremium</b></div></font></td>
          <td width="10%"><font face="Verdana,Arial" size="2" color="#000000"><div align="center"><b>Datum</b></div></font></td>
       <td width="10%"><font face="Verdana,Arial" size="2" color="#000000"><div align="center"><b>Bemerkung</b></div></font></td>
         
      </tr>
      <p align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Archiv öffentlicher Sitzungen städt. Gremien (chronologisch geordnet)</b></font></p>
      <loop db=sitzungen sort=-Termin PolitischesGremium~=1 Archiv~=1 range^=0,10>
      <tr bgcolor="#CCCCC"> 
         <td width="10%"><font face="Verdana,Arial" size="2">$Name</a> </font></td> 
       <td width="10%"><font face="Verdana,Arial" size="2">$Termin</a></td> 
        <td width="10%"><font face="Verdana,Arial" size="2"><a href="baseportal.pl?htx=/rathaus-buerstadt.de/sitzungsdienst/detailseite_sitzungen&Id=$_id">alle Details</a></td> 
            
      </tr>
      </loop>
      

      </table>
      <p align="center"> <font face="Verdana,Arial, Helvetica, sans-serif" size="2"><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\">Zurück</a> " if $oldrange>=0;
      out "<a href=\"$_link&range=$newrange,$_range_length\">Weiter</a> >>" if $newrange<$_amount_query;
      

      </perl>
      </font>
      </p>
      

      <include src=../footer>


      </body>
      </html>
      

     Antworten

    Beitrag von Oliver ;-) (439 Beiträge) am Dienstag, 30.April.2002, 13:29.
    Re: Korrekte Datumsausgabe in perl (Syntaxproblem)

      Versuch es mal so:

      ...
      <perl>
      return if $_fullsearch eq "";
      get "fullsearch_match=10";
      

      while(get_next)

      {
      $Termin=datum($Termin,"Wochentag, Tag.Monat.Jahr");
      $out.=<<EOF;
      

      <b><ul><font size=2 face=verdana>$Name</b></font><br><font size=1 face=verdana,arial,helvetica>
      $Termin
      

      ...

      Oliver ;-)

     Antworten

    Beitrag von Micha Jost (347 Beiträge) am Dienstag, 30.April.2002, 17:27.
    das war die Lösung !! - Danke Oliver


     Antworten


     
 Liste der Einträge von 47701 bis 47851: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.09s by baseportal.de
Erstellen Sie Ihre eigene Web-Datenbank - kostenlos!