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);
<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
