#! /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") } }