<perl>
    #------------------------------------------------#
    #--SR       Ausgabe Erfassungs-Formular          #
    #------------------------------------------------#
    sub fm_add
       {
        &do_content_o("770","","","",350);         # Ausgabe Content-Section
        &do_headline("Hinzufügen News");           # Ausgabe Content-Headline

        out "<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0>\n";
        out "<TR><TD COLSPAN=2 CLASS=alarm ALIGN=center> Eintrag bereits vorhanden ! </TD></TR>\n" if ($msg eq "NOADD");
        out "<TR><TD COLSPAN=2 CLASS=alarm ALIGN=center> Eintrag wurde hinzugefügt ! </TD></TR>\n" if ($msg eq "ADD");
        out "<TR><TD COLSPAN=2 CLASS=alarm ALIGN=center>&nbsp;</TD></TR>\n" if ($msg eq "");
        out "<FORM ACTION=\"baseportal.pl?htx=$htx\" METHOD=\"post\" encTYPE=\"multipart/form-data\" onReset=\"return confirm('Sind Sie sicher, dass Sie das Formular leeren wollen?')\" onSubmit=\"return formcheck()\">";
        &do_hidden("do_add");

        <TR><TD VALIGN='top'>
            <TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0>
            <TR><TD ALIGN='right'>Datum:&nbsp;        </TD><TD>
EOF
                        out "<select name='nw_datum_tt='>";
                        $arb = datum(jetzt, "Tag0");
                        &do_datum_options($arb, "%.2d", 1, 31);
                        out ".";
                        out "<select name='nw_datum_mm='>";
                        $arb = datum(jetzt, "Monat0");
                        &do_datum_options($arb, "%.2d", 1, 12);
                        out ".";
                        out "<select name='nw_datum_jjjj='>";
                        $arb = datum(jetzt, "Jahr");
                        &do_datum_options($arb, "%.4d", 2002, 2011);
out <<EOF;
              </TD></TR>
            <TR><TD ALIGN='right'>Titel :&nbsp;       </TD><TD><INPUT TYPE="text" NAME="nw_titel=" SIZE=60 VALUE=""></TD></TR>
            <TR><TD ALIGN='right'>Text :&nbsp;</TD><TD><TEXTAREA NAME="nw_text=" COLS=60 ROWS=4 wrap=virtual>&nbsp;</TEXTAREA></TD></TR>
            <TR><TD ALIGN='right'>Bild :&nbsp;        </TD><TD><INPUT TYPE="text" NAME="nw_bild=" SIZE=25 VALUE=""></TD></TR>
            <TR><TD ALIGN='right'>Autor :&nbsp;       </TD><TD><INPUT TYPE="text" NAME="nw_autor=" SIZE=25 VALUE="">&nbsp;www&nbsp;<INPUT TYPE="text" NAME="nw_autorurl=" SIZE=25 VALUE=""></TD></TR>
            <TR><TD ALIGN='right'>Quelle :&nbsp;      </TD><TD><INPUT TYPE="text" NAME="nw_quelle=" SIZE=25 VALUE="">&nbsp;www&nbsp;<INPUT TYPE="text" NAME="nw_quellurl=" SIZE=25 VALUE=""></TD></TR>
            <TR><TD ALIGN='right'>Status :&nbsp;      </TD><TD><INPUT TYPE="text" NAME="nw_status=" SIZE=1 VALUE=""></TD></TR>
            </TABLE></TD></TR>
        <TR><TD ALIGN='center' COLSPAN=2><BR><INPUT CLASS='button' TYPE='submit' VALUE='Eingabe senden'>&nbsp;<INPUT CLASS='button' TYPE='reset' VALUE='Eingabe löschen'><BR>&nbsp;</TD></TR>
        </FORM>

        </TD></TR></TABLE>

        &do_links;           # Ausgabe Programm-Links
        &do_content_u;       # Ausgabe Content-Section Unten
       }
    </perl>
 <perl>
    #------------------------------------------------#
    #--SR         Hinzufügen Datensatz               #
    #------------------------------------------------#
    sub do_add
       {
        $nw_datum = "";
        $nw_datum .= "$nw_datum_tt";
        $nw_datum .= ".";
        $nw_datum .= "$nw_datum_mm";
        $nw_datum .= ".";
        $nw_datum .= "$nw_datum_jjjj";

        put [ "nw_datum", "$nw_datum", "nw_titel", "$_get{nw_titel}", "nw_text", "$_get{nw_text}",
              "nw_bild", "$_get{nw_bild}", "nw_autor", "$_get{nw_autor}", "nw_autorurl", "$_get{nw_autorurl}",
              "nw_quelle", "$_get{nw_quelle}", "nw_quellurl", "$_get{nw_quellurl}", "nw_status", "$_get{nw_status}" ],
                    "../tfd/tfnews";
        $msg = "ADD";

        $cmd = "fm_add";
       }
    </perl>
<perl>
    #------------------------------------------------#
    #--SR       Ausgabe Änderungs-Formular           #
    #------------------------------------------------#
    sub fm_mod
       {
        get "Id==$aktdatei_id", "../tfd/tfnews";
        convert_html($nw_titel);

        &do_content_o("770","","","",350);        # Ausgabe Content-Section
        &do_headline("Details News");             # Ausgabe Content-Headline
        out "<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0>\n";
        out "<FORM ACTION=\"baseportal.pl?htx=$htx\" method=\"post\" enctype=\"multipart/form-data\" onReset=\"return confirm('Sind Sie sicher, dass Sie das Formular leeren wollen?')\" onSubmit=\"return formcheck()\">\n";
        &do_hidden("do_mod");
out <<EOF;
        <INPUT TYPE=hidden NAME="Id=" VALUE="$aktdatei_id">

        <TR><TD VALIGN=top><BR>
            <TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0>
            <TR><TD ALIGN='right'>Datum:&nbsp;        </TD><TD>

            out "<SELECT NAME='nw_datum_tt='>";
               $arb = datum($nw_datum, "Tag0");
               &do_datum_options($arb, "%.2d", 1, 31);
               out ".";
               out "<SELECT NAME='nw_datum_mm='>";
               $arb = datum($nw_datum, "Monat0");
               &do_datum_options($arb, "%.2d", 1, 12);
               out ".";
               out "<SELECT NAME='nw_datum_jjjj='>";
               $arb = datum($nw_datum, "Jahr");
               &do_datum_options($arb, "%.4d", 2002, 2011);
out <<EOF;
            </TD></TR>
            <TR><TD ALIGN='right'>Titel :&nbsp;       </TD><TD><INPUT TYPE="text" NAME="nw_titel=" SIZE=60 VALUE="$nw_titel"></TD></TR>
            <TR><TD ALIGN='right'>Text :&nbsp;</TD><TD><TEXTAREA NAME="nw_text=" COLS=60 ROWS=4 wrap=virtual>$nw_text</TEXTAREA></TD></TR>
            <TR><TD ALIGN='right'>Bild :&nbsp;        </TD><TD><INPUT TYPE="text" NAME="nw_bild=" SIZE=25 VALUE="$nw_bild"></TD></TR>
            <TR><TD ALIGN='right'>Autor :&nbsp;       </TD><TD><INPUT TYPE="text" NAME="nw_autor=" SIZE=25 VALUE="$nw_autor">&nbsp;www&nbsp;<INPUT TYPE="text" NAME="nw_autorurl=" SIZE=25 VALUE="$nw_autorurl"></TD></TR>
            <TR><TD ALIGN='right'>Quelle :&nbsp;      </TD><TD><INPUT TYPE="text" NAME="nw_quelle=" SIZE=25 VALUE="$nw_quelle">&nbsp;www&nbsp;<INPUT TYPE="text" NAME="nw_quellurl=" SIZE=25 VALUE="$nw_quellurl"></TD></TR>
            <TR><TD ALIGN='right'>Status :&nbsp;      </TD><TD><INPUT TYPE="text" NAME="nw_status=" SIZE=1 VALUE="$nw_status"></TD></TR>
            </TABLE></TD></TR>
EOF
        out "<TR><TD COLSPAN=2 ALIGN=center><BR><IMG SRC=http://www.ars-communicandi.de/kunden/tierfreunde/gfx/$li_bild ALT=\"$li_titel\" BORDER=0></TD></TR>\n" if ($li_bild);
        out "<TR><TD COLSPAN=2 ALIGN=center><BR><INPUT CLASS=button TYPE=submit VALUE=\"Datensatz ändern\">&nbsp;<INPUT CLASS=button TYPE=reset VALUE=\"Formular leeren\">&nbsp;&nbsp;<BR>&nbsp;</TD></TR>\n" if ($save_auth > "4"); # Ändern zugelassen
        out "</FORM>";

        if ($save_auth eq "16") # Löschen zugelassen
           {
            out "<FORM ACTION=\"baseportal.pl?htx=&htx\" method=\"post\" enctype=\"multipart/form-data\" onsubmit=\"return confirm('Diesen Eintrag wirklich löschen?')\">\n";
            &do_hidden("do_del");
            out "<INPUT type=hidden name='Id=' value='$aktdatei_id'>";
            out"<TR><TD COLSPAN=2 ALIGN=center><INPUT CLASS=button type=submit value=\"Datensatz löschen\"><BR>&nbsp;</TD></TR>\n";
            out "</FORM>\n";
           }
        out "</TD></TR></TABLE>\n";
        &do_links;           # Ausgabe Programm-Links
        &do_content_u;       # Ausgabe Content-Section Unten
       }
    </perl>
 <perl>
    #------------------------------------------------#
    #--SR            Ändern Datensatz                #
    #------------------------------------------------#
    sub do_mod
       {
        $nw_datum = "";
        $nw_datum .= "$nw_datum_tt";
        $nw_datum .= ".";
        $nw_datum .= "$nw_datum_mm";
        $nw_datum .= ".";
        $nw_datum .= "$nw_datum_jjjj";

        mod "Id==$aktdatei_id",[ "nw_datum", "$nw_datum", "nw_titel", "$_get{nw_titel}", "nw_text", "$_get{nw_text}",

                                 "nw_quelle", "$_get{nw_quelle}", "nw_quellurl", "$_get{nw_quellurl}", "nw_status", "$_get{nw_status}" ],
                                 "../tfd/tfnews";

        $cmd = "do_liste";
        $msg = "MOD";
       }
    </perl>