#! /usr/bin/perl -w
use strict;
use CGI qw(:standard :netscape escapeHTML);
use CGI::Carp qw(fatalsToBrowser);
use WebDB;
print header (),
"",
start_html (-title => "Terminserie",
-bgcolor => "white");
eingabe_formular_anzeigen(WebDB::trim (param ("link")));
print end_html ();
exit (0);
sub eingabe_formular_anzeigen{
my $radio = shift;
print $radio;
print fieldset(legend("Termin"),
radio_group (-name => "optionsschalter",
-values => ["a"],
-labels => {"a" => "Einzeltermin",},
-onClick=>"go('http://127.0.0.1/cgi-bin/prod_reg16.pl?link=one');"
),
"
",
radio_group (-name => "optionsschalter",
-values => ["b"],
-labels => {"b" => "Täglich"},
-onClick=>"go('');"
),
"
",
radio_group (-name => "optionsschalter",
-values => ["c"],
-labels => {"c" => "Wöchentlich"},
-onClick=>"go('');"
),
radio_extra($radio),
);
}
sub radio_extra{
my $radiobutton = shift;
if ($radiobutton == /one/){
textfield(-name => "datum")
}
}