####### News Seite ################
sub News
{
&navigation;
$Seite_rechte=$user_recht{$Work}; # Die Rechte Des Nutzers für diese Seite speichern
if($cmd eq "add"){
put ["Staffel", "$in_Staffel", "Datum", "$in_Datum", "Team_H", "$in_Team_H", "Team_G", "$in_Team_G", "Ergebnis", "$in_Ergebnis", "Titel", "$in_Titel", "Aufmacher", "$in_Aufmacher", "Text", "$in_Text", "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";
&News_form("<b>Eintrag Ändern.</b>","do_mod","$_id") ;
} elsif($cmd eq "do_mod"){
mod "Id==$id",
["Staffel", "$in_Staffel", "Datum", "$in_Datum", "Team_H", "$in_Team_H", "Team_G", "$in_Team_G", "Ergebnis", "$in_Ergebnis", "Titel", "$in_Titel", "Aufmacher", "$in_Aufmacher", "Text", "$in_Text", "Nutzer", "$Nr"], "$Work";
out "<table width=100%><tr><td><b>Eintrag geändert...</b></td></tr></table>";
$cmd = "Liste";
$Staffel=$Datum=$Team_H=$Team_G=$Ergebnis=$Titel=$Aufmacher=$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";
$Staffel=$Datum=$Team_H=$Team_G=$Ergebnis=$Titel=$Aufmacher=$Text="";
}
if($cmd eq "Liste"){
&News_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($Vom,"Tag0.Monat0.Jahr Stunde:Minute");
$Text=convert_br($Text);
sub News_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'>";
$Autor=$Vorname." ".$Name;
$Antwort=$nutzer_email;
}
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>Staffel:</td><td><input type="Text" name="in_Staffel" value="$Staffel"></tr></tr>
<tr><td>Datum:</td><td><input type="Text" name="in_Datum" value="$Datum"></tr></tr>
<tr><td>Heimmannschaft:</td><td><input type="Text" name="in_Team_H" value="$Team_H"></tr></tr>
<tr><td>Gastmannschaft:</td><td><input type="Text" name="in_Team_G" value="$Team_G"></tr></tr>
<tr><td>Ergebnis (N : N):</td><td><input type="Text" name="in_Ergebnis" value="$Ergebnis"></tr></tr>
<tr><td>Titel:</td><td><input type="Text" name="in_Titel=" value="$Titel"></td></tr>
<tr><td>Aufmacher:</td><td><textarea name="in_Aufmacher=" cols="50" rows="3">$Aufmacher</textarea></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>Antwort Email:</td><td><input type="Text" name="in_Antwort=" value="$Antwort"></td></tr>
<tr><td> </td><td><input type="Submit" name="" value="Speichern"></td></tr>
</table>
</form>
Formular
}
