get "News_Nr==#", "News";
my $Newnews_Nr=$News_Nr +1;

####### News Seite ################
sub News
{
  &navigation;
  $Seite_rechte=$user_recht{$Work};  # Die Rechte Des Nutzers für diese Seite speichern
  if($cmd eq "add"){
    put ["News_Nr", "$in_News_Nr", "rubrik", "$in_rubrik", "Titel", "$in_Titel", "Text", "$in_Text", "Preis", "$in_Preis", "Antwort", "$in_Antwort", "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", ["News_Nr", "$in_News_Nr", "rubrik", "$in_rubrik", "Titel", "$in_Titel", "Text", "$in_Text", "Preis", "$in_Preis", "Antwort", "$in_Antwort"], "$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"){
    &News_form("<h4><b>Neuer Eintrag in die Anzeigendatenbank.</b></h4><br>","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);
out <<EOF;
<br>
<table width=100% bgcolor=1e7218>
<tr><td>
<table width=100% bgcolor=ffffff>
<tr><td bgcolor=83b180><b>$News_Nr $Titel</b></td></tr>
<tr><td>$Text<br><br><b>$Preis</b><br><br></td></tr>
<tr><td bgcolor=83b180>$Datum | $Antwort</td></tr>
</table>
</td></tr>
</table>
$buttons<br><br>
EOF
    }
  }
}

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

<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">
<input type="hidden" name="in_News_Nr=" value="$Newnews_Nr">
<input type="hidden" name="in_Antwort=" value="$Antwort">
$ds
<table width=90% align=center bgcolor=1e7218 cellpadding=4 cellspacing=0 border=0>
<tr><td colspan=2 class="txt11w"><b>$msg</b></td></tr>
<tr><td class="txt11w">Rubrik:</td><td><select name="in_rubrik=" value="$rubrik">
    <option>Alte Grafik</option>
    <option>Aquarelle & Zeichnungen</option>
    <option>Bronzen & Skulpturen</option>
    <option>Bücher</option>
    <option>Gemälde - Renaissance</option>
    <option>Gemälde - Barock & Rokoko</option>
    <option>Gemälde - Neoklassizismus</option>
    <option>Gemälde - Romantik</option>
    <option>Gemälde - Realismus</option>
    <option>Gemälde - Impressionismus</option>
    <option>Gemälde - Postimpressionismus</option>
    <option>Gemälde - Jugendstil</option>
    <option>Gemälde - Expressionismus</option>
    <option>Gemälde - Kubismus</option>
    <option>Gemälde - Dadaismus</option>
    <option>Gemälde - Surrealismus</option>
    <option>Gemälde - Pop Art</option>
    <option>Glas</option>
    <option>Militaria</option>
    <option>Möbel - Barock & Rokoko</option>
    <option>Möbel - Empire</option>
    <option>Möbel - Biedermeier</option>
    <option>Möbel - Gründerzeit</option>
    <option>Möbel - Jugendstil</option>
    <option>Neue Grafik</option>
    <option>Porzellan</option>
    <option>Reklame</option>
    <option>Sakrale Kunst & Ikonen</option>
    <option>Schmuck</option>
    <option>Silber</option>
    <option>Spielzeug</option>
    <option>Uhren</option>
    <option>Zinn</option>
    <option>Sonstiges</option>
</select>
<td></tr>
<tr><td class="txt11w">Titel:</td><td><input type="Text" name="in_Titel=" value="$Titel"></td></tr>
<tr><td class="txt11w">Text:</td><td><textarea name="in_Text=" cols="40" rows="12">$Text</textarea></td></tr>
<tr><td class="txt11w">Preis:</td><td><input type="Text" name="in_Preis=" value="$Preis"></td></tr>
<tr><td> </td><td><input type="Submit" name="" value="Speichern"></td></tr>
</table>
</form>
Formular
  }