Leser: 1
4 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
use CGI;
my $cgi = CGI->new();
my %params = $cgi->Vars();
if($params{hidden_id}){
&print_formular; # das Eingabeformular ausgeben
}
else{
&insert_into_DB; # Daten in DB eintragen
}
1
2
3
4
5
6
7
sub neu_laden
{
my $url;
reset ();
$url= "http://fotos.ronaldl.de/cgi-bin/art.pl";
print a ({-href => $url}, "<h5><u>Der Artikel wurde eingetragen.\n Bitte hier klicken um Ihren Eintrag anzusehen bzw einen neuen hinzuzufügen.</u></h5>");
}
4 Einträge, 1 Seite |