baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
<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> </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"); out <<EOF; <TR><TD VALIGN='top'> <TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0> <TR><TD ALIGN='right'>Datum: </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 : </TD><TD><INPUT TYPE="text" NAME="nw_titel=" SIZE=60 VALUE=""></TD></TR> <TR><TD ALIGN='right'>Text : </TD><TD><TEXTAREA NAME="nw_text=" COLS=60 ROWS=4 wrap=virtual> </TEXTAREA></TD></TR> <TR><TD ALIGN='right'>Bild : </TD><TD><INPUT TYPE="text" NAME="nw_bild=" SIZE=25 VALUE=""></TD></TR> <TR><TD ALIGN='right'>Autor : </TD><TD><INPUT TYPE="text" NAME="nw_autor=" SIZE=25 VALUE=""> www <INPUT TYPE="text" NAME="nw_autorurl=" SIZE=25 VALUE=""></TD></TR> <TR><TD ALIGN='right'>Quelle : </TD><TD><INPUT TYPE="text" NAME="nw_quelle=" SIZE=25 VALUE=""> www <INPUT TYPE="text" NAME="nw_quellurl=" SIZE=25 VALUE=""></TD></TR> <TR><TD ALIGN='right'>Status : </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'> <INPUT CLASS='button' TYPE='reset' VALUE='Eingabe löschen'><BR> </TD></TR> </FORM>
EOF &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">
<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0> <TR><TD ALIGN='right'>Datum: </TD><TD> EOF 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 : </TD><TD><INPUT TYPE="text" NAME="nw_titel=" SIZE=60 VALUE="$nw_titel"></TD></TR> <TR><TD ALIGN='right'>Text : </TD><TD><TEXTAREA NAME="nw_text=" COLS=60 ROWS=4 wrap=virtual>$nw_text</TEXTAREA></TD></TR> <TR><TD ALIGN='right'>Bild : </TD><TD><INPUT TYPE="text" NAME="nw_bild=" SIZE=25 VALUE="$nw_bild"></TD></TR> <TR><TD ALIGN='right'>Autor : </TD><TD><INPUT TYPE="text" NAME="nw_autor=" SIZE=25 VALUE="$nw_autor"> www <INPUT TYPE="text" NAME="nw_autorurl=" SIZE=25 VALUE="$nw_autorurl"></TD></TR> <TR><TD ALIGN='right'>Quelle : </TD><TD><INPUT TYPE="text" NAME="nw_quelle=" SIZE=25 VALUE="$nw_quelle"> www <INPUT TYPE="text" NAME="nw_quellurl=" SIZE=25 VALUE="$nw_quellurl"></TD></TR> <TR><TD ALIGN='right'>Status : </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\"> <INPUT CLASS=button TYPE=reset VALUE=\"Formular leeren\"> <BR> </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> </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>
|
Alle Einträge zum Thema: | Zur Liste |
"
<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> </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: </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 : </TD><TD><INPUT TYPE="text" NAME="nw_titel=" SIZE=60 VALUE=""></TD></TR> <TR><TD ALIGN='right'>Text : </TD><TD><TEXTAREA NAME="nw_text=" COLS=60 ROWS=4 wrap=virtual> </TEXTAREA></TD></TR> <TR><TD ALIGN='right'>Bild : </TD><TD><INPUT TYPE="text" NAME="nw_bild=" SIZE=25 VALUE=""></TD></TR> <TR><TD ALIGN='right'>Autor : </TD><TD><INPUT TYPE="text" NAME="nw_autor=" SIZE=25 VALUE=""> www <INPUT TYPE="text" NAME="nw_autorurl=" SIZE=25 VALUE=""></TD></TR> <TR><TD ALIGN='right'>Quelle : </TD><TD><INPUT TYPE="text" NAME="nw_quelle=" SIZE=25 VALUE=""> www <INPUT TYPE="text" NAME="nw_quellurl=" SIZE=25 VALUE=""></TD></TR> <TR><TD ALIGN='right'>Status : </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'> <INPUT CLASS='button' TYPE='reset' VALUE='Eingabe löschen'><BR> </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: </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 : </TD><TD><INPUT TYPE="text" NAME="nw_titel=" SIZE=60 VALUE="$nw_titel"></TD></TR> <TR><TD ALIGN='right'>Text : </TD><TD><TEXTAREA NAME="nw_text=" COLS=60 ROWS=4 wrap=virtual>$nw_text</TEXTAREA></TD></TR> <TR><TD ALIGN='right'>Bild : </TD><TD><INPUT TYPE="text" NAME="nw_bild=" SIZE=25 VALUE="$nw_bild"></TD></TR> <TR><TD ALIGN='right'>Autor : </TD><TD><INPUT TYPE="text" NAME="nw_autor=" SIZE=25 VALUE="$nw_autor"> www <INPUT TYPE="text" NAME="nw_autorurl=" SIZE=25 VALUE="$nw_autorurl"></TD></TR> <TR><TD ALIGN='right'>Quelle : </TD><TD><INPUT TYPE="text" NAME="nw_quelle=" SIZE=25 VALUE="$nw_quelle"> www <INPUT TYPE="text" NAME="nw_quellurl=" SIZE=25 VALUE="$nw_quellurl"></TD></TR> <TR><TD ALIGN='right'>Status : </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\"> <INPUT CLASS=button TYPE=reset VALUE=\"Formular leeren\"> <BR> </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> </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>
<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> </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"); out <<EOF; <TR><TD VALIGN='top'> <TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0> <TR><TD ALIGN='right'>Datum: </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 : </TD><TD><INPUT TYPE="text" NAME="nw_titel=" SIZE=60 VALUE=""></TD></TR> <TR><TD ALIGN='right'>Text : </TD><TD><TEXTAREA NAME="nw_text=" COLS=60 ROWS=4 wrap=virtual> </TEXTAREA></TD></TR> <TR><TD ALIGN='right'>Bild : </TD><TD><INPUT TYPE="text" NAME="nw_bild=" SIZE=25 VALUE=""></TD></TR> <TR><TD ALIGN='right'>Autor : </TD><TD><INPUT TYPE="text" NAME="nw_autor=" SIZE=25 VALUE=""> www <INPUT TYPE="text" NAME="nw_autorurl=" SIZE=25 VALUE=""></TD></TR> <TR><TD ALIGN='right'>Quelle : </TD><TD><INPUT TYPE="text" NAME="nw_quelle=" SIZE=25 VALUE=""> www <INPUT TYPE="text" NAME="nw_quellurl=" SIZE=25 VALUE=""></TD></TR> <TR><TD ALIGN='right'>Status : </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'> <INPUT CLASS='button' TYPE='reset' VALUE='Eingabe löschen'><BR> </TD></TR> </FORM>
EOF &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">
<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0> <TR><TD ALIGN='right'>Datum: </TD><TD> EOF 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 : </TD><TD><INPUT TYPE="text" NAME="nw_titel=" SIZE=60 VALUE="$nw_titel"></TD></TR> <TR><TD ALIGN='right'>Text : </TD><TD><TEXTAREA NAME="nw_text=" COLS=60 ROWS=4 wrap=virtual>$nw_text</TEXTAREA></TD></TR> <TR><TD ALIGN='right'>Bild : </TD><TD><INPUT TYPE="text" NAME="nw_bild=" SIZE=25 VALUE="$nw_bild"></TD></TR> <TR><TD ALIGN='right'>Autor : </TD><TD><INPUT TYPE="text" NAME="nw_autor=" SIZE=25 VALUE="$nw_autor"> www <INPUT TYPE="text" NAME="nw_autorurl=" SIZE=25 VALUE="$nw_autorurl"></TD></TR> <TR><TD ALIGN='right'>Quelle : </TD><TD><INPUT TYPE="text" NAME="nw_quelle=" SIZE=25 VALUE="$nw_quelle"> www <INPUT TYPE="text" NAME="nw_quellurl=" SIZE=25 VALUE="$nw_quellurl"></TD></TR> <TR><TD ALIGN='right'>Status : </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\"> <INPUT CLASS=button TYPE=reset VALUE=\"Formular leeren\"> <BR> </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> </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>
$nw_titel=convert_html($nw_titel); out <<EOF; </TD></TR> <TR><TD ALIGN='right'>Titel : </TD><TD><INPUT TYPE="text" NAME="nw_titel=" SIZE=60 VALUE="$nw_titel"></TD></TR> <TR><TD ALIGN='right'>Text : </TD><TD><TEXTAREA NAME="nw_text=" COLS=60 ROWS=4 wrap=virtual>$nw_text</TEXTAREA></TD></TR> <TR><TD ALIGN='right'>Bild : </TD><TD><INPUT TYPE="text" NAME="nw_bild=" SIZE=25 VALUE="$nw_bild"></TD></TR> <TR><TD ALIGN='right'>Autor : </TD><TD><INPUT TYPE="text" NAME="nw_autor=" SIZE=25 VALUE="$nw_autor"> www <INPUT TYPE="text" NAME="nw_autorurl=" SIZE=25 VALUE="$nw_autorurl"></TD></TR> <TR><TD ALIGN='right'>Quelle : </TD><TD><INPUT TYPE="text" NAME="nw_quelle=" SIZE=25 VALUE="$nw_quelle"> www <INPUT TYPE="text" NAME="nw_quellurl=" SIZE=25 VALUE="$nw_quellurl"></TD></TR> <TR><TD ALIGN='right'>Status : </TD><TD><INPUT TYPE="text" NAME="nw_status=" SIZE=1 VALUE="$nw_status"></TD></TR> </TABLE></TD></TR> EOF
Liste der Einträge von 43200 bis 43350: | 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 |