baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
<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 } } }
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>
</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);
<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 } } }
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 }
sub get_rechte { get "nutzer_name==$login_name", "Nutzer"; %user_recht=split(/,/,$nutzer_rechte); # in diesem Hashe stehen die rechte des nutzers. }
</td></tr></table> </body> </html>
Alle Einträge zum Thema: | Zur Liste |
<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 } } }
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>
</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);
<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 } } }
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 }
sub get_rechte { get "nutzer_name==$login_name", "Nutzer"; %user_recht=split(/,/,$nutzer_rechte); # in diesem Hashe stehen die rechte des nutzers. }
</td></tr></table> </body> </html>
<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 {
$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>
} } }
sub Linkliste_form {
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>
} } ####### Presse Seite ################ sub Presse {
$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>
} } } #### News Formular ################# sub Presse_form {
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>
} } ####### Navigation ausgeben ######### sub navigation {
&get_rechte; get "Redaktion==* sort=LinkPos","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 {
}
</td></tr></table> </body> </html>
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 |
© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |