Re: [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2 - 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 Sander (8133 Beiträge) am Mittwoch, 11.Juli.2001, 00:35.
    Re: [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2

      so passts ohne Fehlermeldung:

      <html>
      <body bgcolor=808080 text=000000>
      <table width=100% bgcolor=008080>
      <tr><td width=130><a href="/cgi-bin/baseportal.pl?htx=/Breitfeld/Start">HOME</a></td><td><h2>REDAKTION</h2></td></tr>
      </table>
      <perl>
      #######Linkliste Seite ################
      sub Linkliste
      {
      

      &navigation;
      $Seite_rechte=$user_recht{$Work}; # Die Rechte Des Nutzers für diese Seite speichern
        if($cmd eq "add"){
          put ["Name", $in_Name, "Beschreibung", $in_Beschreibung, "URL", $in_URL, "Nutzer", $Nr], "$Work";
          out "<table width=100%><tr><td><b>Neuen Eintrag hinzugefügt...</b></td></tr></table>";
          $cmd = "Liste";
        } elsif($cmd eq "mod"){
          get "Id==$id", "$Work";
          &Linkliste_form("<b>Eintrag Ändern.</b>","do_mod","$_id") ;
        } elsif($cmd eq "do_mod"){
          mod "Id==$id", ["Name", $in_Name, "Beschreibung", $in_Beschreibung, "URL", $in_URL], "$Work";
          out "<table width=100%><tr><td><b>Eintrag geändert...</b></td></tr></table>";
          $cmd = "Liste";
          $Name=$Beschreibung=$URL="";
        } elsif($cmd eq "del"){
          del "Id==$id", "$Work";
          out "<table width=100%><tr><td><b>Eintrag gelöscht...</b></td></tr></table>";
          $cmd = "Liste";
           $Name=$Beschreibung=$URL="";
        }
        if($cmd eq "Liste"){
          &Linkliste_form("<b>Neuer Eintrag.</b>","add") ;
          if($Seite_rechte =~ "u"){
            get "Nutzer==$Nr", "$Work";
          } elsif($Seite_rechte =~ "x"){
            get "Id==*", "$Work";
          }
      
          while (get_next("$Work")){       $buttons=" <a href='/cgi-bin/baseportal.pl?htx=$htx&Work=$Work&login_name=$login_name&cmd=mod&id=$_id'>Ändern</a>" if $Seite_rechte =~ "m";       $buttons=$buttons." <a href='/cgi-bin/baseportal.pl?htx=$htx&Work=$Work&login_name=$login_name&cmd=del&id=$_id'>Löschen</a>" if $Seite_rechte =~ "d";       $Beschreibung=convert_br($Beschreibung); out <<EOF; <hr> <table width=100% bgcolor=ffffff> <tr><td bgcolor=cfcfcf><b>$Name</b> $buttons</td></tr> <tr><td><ul>$Beschreibung</ul></td></tr> <tr><td bgcolor=cfcfcf>$URL</td></tr> </table>

      EOF
      }
        }
      }
      

      #### Linkliste Formular #################
      sub Linkliste_form
      {
      

      my ($msg,$to_do,$id) = @_;
      if($Seite_rechte =~ "w"){
          if($to_do eq "do_mod"){
            $ds="<input type='hidden' name='id=' value='$id'>";
          } elsif($to_do eq "add"){
            $ds="<input type='hidden' name='in_Nutzer=' value='$Nr'>";
                }
      out <<Formular;
      <form action="/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
      <input type="hidden" name="htx=" value="$htx">
      <input type="hidden" name="Work=" value="$Work">
      <input type="hidden" name="login_name=" value="$login_name">
      <input type="hidden" name="cmd=" value="$to_do">
      $ds
      <table width=90% align=center bgcolor=cfcfcf cellpadding=4 cellspacing=0 border=0>
      <tr><td colspan=2>$msg</td></tr>
      <tr><td>Name:</td><td><input type="Text" name="in_Name=" value="$Name"></td></tr>
      <tr><td>Beschreibung:</td><td><textarea name="in_Beschreibung=" cols="50" rows="12">$Beschreibung</textarea></td></tr>
      <tr><td>URL:</td><td><INPUT type="text" value=http://        name="URL:=" size="50"></td></tr>
      <tr><td> </td><td><input type="Submit" name="" value="Speichern"></td></tr>
      </table>
      </form>
      

      Formular
      }
      }
      ####### Presse Seite ################
      sub Presse
      {
      

      &navigation;
      $Seite_rechte=$user_recht{$Work}; # Die Rechte Des Nutzers für diese Seite speichern
        if($cmd eq "add"){
          put ["Zeitung", "$in_Zeitung", "Titel", "$in_Titel", "Text", "$in_Text", "Autor", "$in_Autor", "User", "$in_User", "Nutzer", "$Nr"], "$Work";
          out "<table width=100%><tr><td><b>Neuen Eintrag hinzugefügt...</b></td></tr></table>";
          $cmd = "Liste";
        } elsif($cmd eq "mod"){
          get "Id==$id", "$Work";
          &Presse_form("<b>Eintrag Ändern.</b>","do_mod","$_id") ;
        } elsif($cmd eq "do_mod"){
          mod "Id==$id", ["Zeitung", "$in_Zeitung", "Titel", "$in_Titel", "Text", "$in_Text", "Autor", "$in_Autor", "User", "$in_User"], "$Work";
          out "<table width=100%><tr><td><b>Eintrag geändert...</b></td></tr></table>";
          $cmd = "Liste";
          $Titel=$Text="";
        } elsif($cmd eq "del"){
          del "Id==$id", "$Work";
          out "<table width=100%><tr><td><b>Eintrag gelöscht...</b></td></tr></table>";
          $cmd = "Liste";
          $Titel=$Text="";
        }
        if($cmd eq "Liste"){
          &Presse_form("<b>Neuer Eintrag.</b>","add") ;
          if($Seite_rechte =~ "u"){
            get "Nutzer==$Nr", "$Work";
          } elsif($Seite_rechte =~ "x"){
            get "Id==*", "$Work";
          }
      
          while (get_next("$Work")){       $buttons=" <a href='/cgi-bin/baseportal.pl?htx=$htx&Work=$Work&login_name=$login_name&cmd=mod&id=$_id'>Ändern</a>" if $Seite_rechte =~ "m";       $buttons=$buttons." <a href='/cgi-bin/baseportal.pl?htx=$htx&Work=$Work&login_name=$login_name&cmd=del&id=$_id'>Löschen</a>" if $Seite_rechte =~ "d";       $Datum = datum($Datum,"Tag0.Monat0.Jahr");       $Text=convert_br($Text); out <<EOF; <hr> <table width=100% align=center bgcolor=ffffff> <tr><td bgcolor=cfcfcf>$Datum <b>$Zeitung</b> $buttons</td></tr> <tr><td><b><u>$Titel</u></b></td></tr> <tr><td><ul><p align="justify">$Text</p></ul></td></tr> <tr><td bgcolor=cccccc><font size=1>$Autor gefunden von $User</font></td></tr> </table>

      EOF
      }
        }
      }
      #### News Formular #################
      sub Presse_form
      {
      

      my ($msg,$to_do,$id) = @_;
      if($Seite_rechte =~ "w"){
          if($to_do eq "do_mod"){
            $ds="<input type='hidden' name='id=' value='$id'>";
          } elsif($to_do eq "add"){
            $ds="<input type='hidden' name='in_Nutzer=' value='$Nr'>";
            $User=$Vorname." ".$Name;
          }
      out <<Formular;
      <form action="/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
      <input type="hidden" name="htx=" value="$htx">
      <input type="hidden" name="Work=" value="$Work">
      <input type="hidden" name="login_name=" value="$login_name">
      <input type="hidden" name="cmd=" value="$to_do">
      $ds
      <table width=90% align=center bgcolor=cfcfcf cellpadding=4 cellspacing=0 border=0>
      <tr><td colspan=2>$msg</td></tr>
      <tr><td>Zeitschrift:</td><td><input type="Text" name="in_Zeitung=" value="$Zeitung"></td></tr>
      <tr><td>Titel:</td><td><input type="Text" name="in_Titel=" value="$Titel"></td></tr>
      <tr><td>Text:</td><td><textarea name="in_Text=" cols="50" rows="12">$Text</textarea></td></tr>
      <tr><td>Autor:</td><td><input type="Text" name="in_Autor=" value="$Autor"></td></tr>
      <tr><td>Ihr Name:</td><td><input type="Text" name="in_User=" value="$User"></td></tr>
      <tr><td> </td><td><input type="Submit" name="" value="Speichern"></td></tr>
      </table>
      </form>
      

      Formular
      }
      }
      ####### Navigation ausgeben #########
      sub navigation
      {
      

      my $links="";
      &get_rechte;
      get "Redaktion==* sort=LinkPos","subnavig";
      

      while(get_next("subnavig")){
      $links=$links."<tr><td><a href='/cgi-bin/baseportal.pl?htx=$htx&login_name=$login_name&Work=$Seite&cmd=Liste'>$LinkTitel</a></td></tr>" if $user_recht{$Seite};
        }
      out <<EOF;
      <table width=100% height=100%>
      <tr><td width=130 height=100% valign=top bgcolor=cfcfcf>
      <table width=120>
      $links
      </table>
      </td><td valign=top>
      EOF
      }
      ####### Rechte des Nutzers aus der Datenbank auslesen und in Variable speichern.
      sub get_rechte
      {
      

      get "nutzer_name==$login_name", "Nutzer";
      %user_recht=split(/,/,$nutzer_rechte); # in diesem Hashe stehen die rechte des nutzers.


      }
      

      </perl>
      </td></tr></table>
      </body>
      </html>
      


      Sander


    Antworten

 Alle Einträge zum Thema: Zur Liste 
    Beitrag von peter (192 Beiträge) am Dienstag, 10.Juli.2001, 19:35.
    [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2

     Antworten

    Beitrag von Sander (8133 Beiträge) am Dienstag, 10.Juli.2001, 21:15.
    Re: [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2

      zeig auch mal den code

      Sander

     Antworten

    Beitrag von peter (192 Beiträge) am Dienstag, 10.Juli.2001, 23:36.
    Re: [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2

      Sorry hab ich irgendwie verschusselt

      <html>
      <body bgcolor=808080 text=000000>
      <table width=100% bgcolor=008080>
      <tr><td width=130><a href="/cgi-bin/baseportal.pl?htx=/Breitfeld/Start">HOME</a></td><td><h2>REDAKTION</h2></td></tr>
      </table>
      <perl>
      #######Linkliste Seite ################
      sub Linkliste
      {
        &navigation;
        $Seite_rechte=$user_recht{$Work};  # Die Rechte Des Nutzers für diese Seite speichern
        if($cmd eq "add"){
          put ["Name", $"in_Name", "Beschreibung", "in_Beschreibung", "URL", "in_URL", "Nutzer", "$Nr"], "$Work";
          out "<table width=100%><tr><td><b>Neuen Eintrag hinzugefügt...</b></td></tr></table>";
          $cmd = "Liste";
        } elsif($cmd eq "mod"){
          get "Id==$id", "$Work";
          &Linkliste_form("<b>Eintrag Ändern.</b>","do_mod","$_id") ;
        } elsif($cmd eq "do_mod"){
          mod "Id==$id", ["Name", $"in_Name", "Beschreibung", "in_Beschreibung", "URL", "in_URL], "$Work";
          out "<table width=100%><tr><td><b>Eintrag geändert...</b></td></tr></table>";
          $cmd = "Liste";
          $Name=$Beschreibung=$URL="";
        } elsif($cmd eq "del"){
          del "Id==$id", "$Work";
          out "<table width=100%><tr><td><b>Eintrag gelöscht...</b></td></tr></table>";
          $cmd = "Liste";
           $Name=$Beschreibung=$URL="";
        }
        if($cmd eq "Liste"){
          &Linkliste_form("<b>Neuer Eintrag.</b>","add") ;
          if($Seite_rechte =~ "u"){
            get "Nutzer==$Nr", "$Work";
          } elsif($Seite_rechte =~ "x"){
            get "Id==*", "$Work";
          }
      
          while (get_next("$Work")){       $buttons=" <a href='/cgi-bin/baseportal.pl?htx=$htx&Work=$Work&login_name=$login_name&cmd=mod&id=$_id'>Ändern</a>" if $Seite_rechte =~ "m";       $buttons=$buttons." <a href='/cgi-bin/baseportal.pl?htx=$htx&Work=$Work&login_name=$login_name&cmd=del&id=$_id'>Löschen</a>" if $Seite_rechte =~ "d";
            
            $Beschreibung=convert_br($Beschreibung);
      out <<EOF;
      <hr>
      <table width=100% bgcolor=ffffff>
      <tr><td bgcolor=cfcfcf><b>$Name</b> $buttons</td></tr>
      <tr><td><ul>$Beschreibung</ul></td></tr>
      <tr><td bgcolor=cfcfcf>$URL</td></tr>
      </table>
      EOF
          }
        }
      }
      

      #### Linkliste Formular #################
      sub Linkliste_form
      {
      my ($msg,$to_do,$id) = @_;
        if($Seite_rechte =~ "w"){
          if($to_do eq "do_mod"){
            $ds="<input type='hidden' name='id=' value='$id'>";
          } elsif($to_do eq "add"){
            $ds="<input type='hidden' name='in_Nutzer=' value='$Nr'>";
                }
      out <<Formular;
      <form action="/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
      <input type="hidden" name="htx=" value="$htx">
      <input type="hidden" name="Work=" value="$Work">
      <input type="hidden" name="login_name=" value="$login_name">
      <input type="hidden" name="cmd=" value="$to_do">
      $ds
      <table width=90% align=center bgcolor=cfcfcf cellpadding=4 cellspacing=0 border=0>
      <tr><td colspan=2>$msg</td></tr>
      <tr><td>Name:</td><td><input type="Text" name="in_Name=" value="$Name"></td></tr>
      <tr><td>Beschreibung:</td><td><textarea name="in_Beschreibung=" cols="50" rows="12">$Beschreibung</textarea></td></tr>
      <tr><td>URL:</td><td><INPUT type="text" value=http://
              name="URL:=" size="50"></td></tr>
      

      <tr><td> </td><td><input type="Submit" name="" value="Speichern"></td></tr>
      </table>
      </form>
      Formular
        }
      }

      ####### Presse Seite ################
      sub Presse
      {
        &navigation;
        $Seite_rechte=$user_recht{$Work};  # Die Rechte Des Nutzers für diese Seite speichern
        if($cmd eq "add"){
          put ["Zeitung", "$in_Zeitung", "Titel", "$in_Titel", "Text", "$in_Text", "Autor", "$in_Autor", "User", "$in_User", "Nutzer", "$Nr"], "$Work";
          out "<table width=100%><tr><td><b>Neuen Eintrag hinzugefügt...</b></td></tr></table>";
          $cmd = "Liste";
        } elsif($cmd eq "mod"){
          get "Id==$id", "$Work";
          &Presse_form("<b>Eintrag Ändern.</b>","do_mod","$_id") ;
        } elsif($cmd eq "do_mod"){
          mod "Id==$id", ["Zeitung", "$in_Zeitung", "Titel", "$in_Titel", "Text", "$in_Text", "Autor", "$in_Autor", "User", "$in_User"], "$Work";
          out "<table width=100%><tr><td><b>Eintrag geändert...</b></td></tr></table>";
          $cmd = "Liste";
          $Titel=$Text="";
        } elsif($cmd eq "del"){
          del "Id==$id", "$Work";
          out "<table width=100%><tr><td><b>Eintrag gelöscht...</b></td></tr></table>";
          $cmd = "Liste";
          $Titel=$Text="";
        }
        if($cmd eq "Liste"){
          &Presse_form("<b>Neuer Eintrag.</b>","add") ;
          if($Seite_rechte =~ "u"){
            get "Nutzer==$Nr", "$Work";
          } elsif($Seite_rechte =~ "x"){
            get "Id==*", "$Work";
          }
      
          while (get_next("$Work")){       $buttons=" <a href='/cgi-bin/baseportal.pl?htx=$htx&Work=$Work&login_name=$login_name&cmd=mod&id=$_id'>Ändern</a>" if $Seite_rechte =~ "m";       $buttons=$buttons." <a href='/cgi-bin/baseportal.pl?htx=$htx&Work=$Work&login_name=$login_name&cmd=del&id=$_id'>Löschen</a>" if $Seite_rechte =~ "d";       $Datum = datum($Datum,"Tag0.Monat0.Jahr");       $Text=convert_br($Text);
      out <<EOF;
      <hr>
      <table width=100% align=center bgcolor=ffffff>
      <tr><td bgcolor=cfcfcf>$Datum <b>$Zeitung</b> $buttons</td></tr>
      <tr><td><b><u>$Titel</u></b></td></tr>
      <tr><td><ul><p align="justify">$Text</p></ul></td></tr>
      <tr><td bgcolor=cccccc><font size=1>$Autor gefunden von $User</font></td></tr>
      </table>
      EOF
          }
        }
      }
      

      #### News Formular #################
      sub Presse_form
      {
      my ($msg,$to_do,$id) = @_;
        if($Seite_rechte =~ "w"){
          if($to_do eq "do_mod"){
            $ds="<input type='hidden' name='id=' value='$id'>";
          } elsif($to_do eq "add"){
            $ds="<input type='hidden' name='in_Nutzer=' value='$Nr'>";
            $User=$Vorname." ".$Name;
          }
      out <<Formular;
      <form action="/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
      <input type="hidden" name="htx=" value="$htx">
      <input type="hidden" name="Work=" value="$Work">
      <input type="hidden" name="login_name=" value="$login_name">
      <input type="hidden" name="cmd=" value="$to_do">
      $ds
      <table width=90% align=center bgcolor=cfcfcf cellpadding=4 cellspacing=0 border=0>
      <tr><td colspan=2>$msg</td></tr>
      <tr><td>Zeitschrift:</td><td><input type="Text" name="in_Zeitung=" value="$Zeitung"></td></tr>
      <tr><td>Titel:</td><td><input type="Text" name="in_Titel=" value="$Titel"></td></tr>
      <tr><td>Text:</td><td><textarea name="in_Text=" cols="50" rows="12">$Text</textarea></td></tr>
      <tr><td>Autor:</td><td><input type="Text" name="in_Autor=" value="$Autor"></td></tr>
      <tr><td>Ihr Name:</td><td><input type="Text" name="in_User=" value="$User"></td></tr>
      <tr><td> </td><td><input type="Submit" name="" value="Speichern"></td></tr>
      </table>
      </form>
      Formular
        }
      }

      ####### Navigation ausgeben #########
      sub navigation
      {
      my $links="";
      &get_rechte;
      get "Redaktion==* sort=LinkPos","subnavig";
      while(get_next("subnavig")){
         $links=$links."<tr><td><a href='/cgi-bin/baseportal.pl?htx=$htx&login_name=$login_name&Work=$Seite&cmd=Liste'>$LinkTitel</a></td></tr>" if $user_recht{$Seite};
        }
      out <<EOF;
      <table width=100% height=100%>
      <tr><td width=130 height=100% valign=top bgcolor=cfcfcf>
      <table width=120>
      $links
      </table>
      </td><td valign=top>
      EOF
      }
      

      ####### Rechte des Nutzers aus der Datenbank auslesen und in Variable speichern.
      sub get_rechte
      {
        get "nutzer_name==$login_name", "Nutzer";
        %user_recht=split(/,/,$nutzer_rechte); # in diesem Hashe stehen die rechte des nutzers.
      }
      

      </perl>
      </td></tr></table>
      </body>
      </html>
      

      einzige Änderung ist bisher der bereich linkliste ansonsten basiert das ganze auf fb s Redaktionssystem

      wenn es fertig ist soll es eine immo verwaltung werden

      ach ja ?? gibt es eine vorlage für ein glossar , wenn möglich sollte nur der admin Änderiungen machen können am besten auch innnerhalb des Redaktionssystems

      sorry bin BP neuling

      peter

     Antworten

    Beitrag von Sander (8133 Beiträge) am Mittwoch, 11.Juli.2001, 00:35.
    Re: [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2

      so passts ohne Fehlermeldung:

      <html>
      <body bgcolor=808080 text=000000>
      <table width=100% bgcolor=008080>
      <tr><td width=130><a href="/cgi-bin/baseportal.pl?htx=/Breitfeld/Start">HOME</a></td><td><h2>REDAKTION</h2></td></tr>
      </table>
      <perl>
      #######Linkliste Seite ################
      sub Linkliste
      {
      

      &navigation;
      $Seite_rechte=$user_recht{$Work}; # Die Rechte Des Nutzers für diese Seite speichern
        if($cmd eq "add"){
          put ["Name", $in_Name, "Beschreibung", $in_Beschreibung, "URL", $in_URL, "Nutzer", $Nr], "$Work";
          out "<table width=100%><tr><td><b>Neuen Eintrag hinzugefügt...</b></td></tr></table>";
          $cmd = "Liste";
        } elsif($cmd eq "mod"){
          get "Id==$id", "$Work";
          &Linkliste_form("<b>Eintrag Ändern.</b>","do_mod","$_id") ;
        } elsif($cmd eq "do_mod"){
          mod "Id==$id", ["Name", $in_Name, "Beschreibung", $in_Beschreibung, "URL", $in_URL], "$Work";
          out "<table width=100%><tr><td><b>Eintrag geändert...</b></td></tr></table>";
          $cmd = "Liste";
          $Name=$Beschreibung=$URL="";
        } elsif($cmd eq "del"){
          del "Id==$id", "$Work";
          out "<table width=100%><tr><td><b>Eintrag gelöscht...</b></td></tr></table>";
          $cmd = "Liste";
           $Name=$Beschreibung=$URL="";
        }
        if($cmd eq "Liste"){
          &Linkliste_form("<b>Neuer Eintrag.</b>","add") ;
          if($Seite_rechte =~ "u"){
            get "Nutzer==$Nr", "$Work";
          } elsif($Seite_rechte =~ "x"){
            get "Id==*", "$Work";
          }
      
          while (get_next("$Work")){       $buttons=" <a href='/cgi-bin/baseportal.pl?htx=$htx&Work=$Work&login_name=$login_name&cmd=mod&id=$_id'>Ändern</a>" if $Seite_rechte =~ "m";       $buttons=$buttons." <a href='/cgi-bin/baseportal.pl?htx=$htx&Work=$Work&login_name=$login_name&cmd=del&id=$_id'>Löschen</a>" if $Seite_rechte =~ "d";       $Beschreibung=convert_br($Beschreibung); out <<EOF; <hr> <table width=100% bgcolor=ffffff> <tr><td bgcolor=cfcfcf><b>$Name</b> $buttons</td></tr> <tr><td><ul>$Beschreibung</ul></td></tr> <tr><td bgcolor=cfcfcf>$URL</td></tr> </table>

      EOF
      }
        }
      }
      

      #### Linkliste Formular #################
      sub Linkliste_form
      {
      

      my ($msg,$to_do,$id) = @_;
      if($Seite_rechte =~ "w"){
          if($to_do eq "do_mod"){
            $ds="<input type='hidden' name='id=' value='$id'>";
          } elsif($to_do eq "add"){
            $ds="<input type='hidden' name='in_Nutzer=' value='$Nr'>";
                }
      out <<Formular;
      <form action="/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
      <input type="hidden" name="htx=" value="$htx">
      <input type="hidden" name="Work=" value="$Work">
      <input type="hidden" name="login_name=" value="$login_name">
      <input type="hidden" name="cmd=" value="$to_do">
      $ds
      <table width=90% align=center bgcolor=cfcfcf cellpadding=4 cellspacing=0 border=0>
      <tr><td colspan=2>$msg</td></tr>
      <tr><td>Name:</td><td><input type="Text" name="in_Name=" value="$Name"></td></tr>
      <tr><td>Beschreibung:</td><td><textarea name="in_Beschreibung=" cols="50" rows="12">$Beschreibung</textarea></td></tr>
      <tr><td>URL:</td><td><INPUT type="text" value=http://        name="URL:=" size="50"></td></tr>
      <tr><td> </td><td><input type="Submit" name="" value="Speichern"></td></tr>
      </table>
      </form>
      

      Formular
      }
      }
      ####### Presse Seite ################
      sub Presse
      {
      

      &navigation;
      $Seite_rechte=$user_recht{$Work}; # Die Rechte Des Nutzers für diese Seite speichern
        if($cmd eq "add"){
          put ["Zeitung", "$in_Zeitung", "Titel", "$in_Titel", "Text", "$in_Text", "Autor", "$in_Autor", "User", "$in_User", "Nutzer", "$Nr"], "$Work";
          out "<table width=100%><tr><td><b>Neuen Eintrag hinzugefügt...</b></td></tr></table>";
          $cmd = "Liste";
        } elsif($cmd eq "mod"){
          get "Id==$id", "$Work";
          &Presse_form("<b>Eintrag Ändern.</b>","do_mod","$_id") ;
        } elsif($cmd eq "do_mod"){
          mod "Id==$id", ["Zeitung", "$in_Zeitung", "Titel", "$in_Titel", "Text", "$in_Text", "Autor", "$in_Autor", "User", "$in_User"], "$Work";
          out "<table width=100%><tr><td><b>Eintrag geändert...</b></td></tr></table>";
          $cmd = "Liste";
          $Titel=$Text="";
        } elsif($cmd eq "del"){
          del "Id==$id", "$Work";
          out "<table width=100%><tr><td><b>Eintrag gelöscht...</b></td></tr></table>";
          $cmd = "Liste";
          $Titel=$Text="";
        }
        if($cmd eq "Liste"){
          &Presse_form("<b>Neuer Eintrag.</b>","add") ;
          if($Seite_rechte =~ "u"){
            get "Nutzer==$Nr", "$Work";
          } elsif($Seite_rechte =~ "x"){
            get "Id==*", "$Work";
          }
      
          while (get_next("$Work")){       $buttons=" <a href='/cgi-bin/baseportal.pl?htx=$htx&Work=$Work&login_name=$login_name&cmd=mod&id=$_id'>Ändern</a>" if $Seite_rechte =~ "m";       $buttons=$buttons." <a href='/cgi-bin/baseportal.pl?htx=$htx&Work=$Work&login_name=$login_name&cmd=del&id=$_id'>Löschen</a>" if $Seite_rechte =~ "d";       $Datum = datum($Datum,"Tag0.Monat0.Jahr");       $Text=convert_br($Text); out <<EOF; <hr> <table width=100% align=center bgcolor=ffffff> <tr><td bgcolor=cfcfcf>$Datum <b>$Zeitung</b> $buttons</td></tr> <tr><td><b><u>$Titel</u></b></td></tr> <tr><td><ul><p align="justify">$Text</p></ul></td></tr> <tr><td bgcolor=cccccc><font size=1>$Autor gefunden von $User</font></td></tr> </table>

      EOF
      }
        }
      }
      #### News Formular #################
      sub Presse_form
      {
      

      my ($msg,$to_do,$id) = @_;
      if($Seite_rechte =~ "w"){
          if($to_do eq "do_mod"){
            $ds="<input type='hidden' name='id=' value='$id'>";
          } elsif($to_do eq "add"){
            $ds="<input type='hidden' name='in_Nutzer=' value='$Nr'>";
            $User=$Vorname." ".$Name;
          }
      out <<Formular;
      <form action="/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
      <input type="hidden" name="htx=" value="$htx">
      <input type="hidden" name="Work=" value="$Work">
      <input type="hidden" name="login_name=" value="$login_name">
      <input type="hidden" name="cmd=" value="$to_do">
      $ds
      <table width=90% align=center bgcolor=cfcfcf cellpadding=4 cellspacing=0 border=0>
      <tr><td colspan=2>$msg</td></tr>
      <tr><td>Zeitschrift:</td><td><input type="Text" name="in_Zeitung=" value="$Zeitung"></td></tr>
      <tr><td>Titel:</td><td><input type="Text" name="in_Titel=" value="$Titel"></td></tr>
      <tr><td>Text:</td><td><textarea name="in_Text=" cols="50" rows="12">$Text</textarea></td></tr>
      <tr><td>Autor:</td><td><input type="Text" name="in_Autor=" value="$Autor"></td></tr>
      <tr><td>Ihr Name:</td><td><input type="Text" name="in_User=" value="$User"></td></tr>
      <tr><td> </td><td><input type="Submit" name="" value="Speichern"></td></tr>
      </table>
      </form>
      

      Formular
      }
      }
      ####### Navigation ausgeben #########
      sub navigation
      {
      

      my $links="";
      &get_rechte;
      get "Redaktion==* sort=LinkPos","subnavig";
      

      while(get_next("subnavig")){
      $links=$links."<tr><td><a href='/cgi-bin/baseportal.pl?htx=$htx&login_name=$login_name&Work=$Seite&cmd=Liste'>$LinkTitel</a></td></tr>" if $user_recht{$Seite};
        }
      out <<EOF;
      <table width=100% height=100%>
      <tr><td width=130 height=100% valign=top bgcolor=cfcfcf>
      <table width=120>
      $links
      </table>
      </td><td valign=top>
      EOF
      }
      ####### Rechte des Nutzers aus der Datenbank auslesen und in Variable speichern.
      sub get_rechte
      {
      

      get "nutzer_name==$login_name", "Nutzer";
      %user_recht=split(/,/,$nutzer_rechte); # in diesem Hashe stehen die rechte des nutzers.


      }
      

      </perl>
      </td></tr></table>
      </body>
      </html>
      


      Sander

     Antworten

    Beitrag von Peter (141 Beiträge) am Mittwoch, 11.Juli.2001, 08:44.
    Re: [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2

      thanks aber jetzt kommt diese Meldung

      [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \240 at (eval 3034) line 203.
      ]

      habe den code koppiert aber irgendwie war es das nicht

      Peter

     Antworten

    Beitrag von Peter (141 Beiträge) am Mittwoch, 11.Juli.2001, 12:08.
    Re: [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2

       


      Re: [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2
      thanks aber jetzt kommt diese Meldung
      [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \240 at (eval 3034) line 203.
      ]
      habe den code koppiert aber irgendwie war es das nicht
      Peter

     Antworten

    Beitrag von Sander (8133 Beiträge) am Mittwoch, 11.Juli.2001, 14:45.
    Re: [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2

      ich kann nix weiteres finden.

     Antworten

    Beitrag von Christoph Bergmann (8110 Beiträge) am Mittwoch, 11.Juli.2001, 00:27.
    Re: [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2

      Ich tippe auf ein falsch gesetztes oder vergessenes " oder '

      Die Fehlermeldung gibt Dir die Zeile an: 202, da "in der Gegend" rum müsstest Du suchen.

      Um die fehlerhafte Zeile zu finden, kannst Du so vorgehen: Unterteile den kompletten Code mit
      ... out "ok1...";</perl><perl> ...

      mehrmals (ok1, ok2 etc.) - dann siehst du wo das problem auftritt...

     Antworten

    Beitrag von Grisu (1 Beitrag) am Dienstag, 9.April.2002, 10:18.
    Re: [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2

     Antworten


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