#! /usr/bin/perl -w

use strict;
use CGI qw(:standard :netscape escapeHTML);
use CGI::Carp qw(fatalsToBrowser);
use WebDB;

print header (),
        "<script LANGUAGE=\"JavaScript\">

<!-- Begin
function go(loc) {
window.location.href = loc;
}
//  End -->
</script>",
        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');"
                                        ),
               "<br>",
               radio_group (-name => "optionsschalter",
                             -values => ["b"],
                             -labels => {"b" => "Täglich"},
                             -onClick=>"go('');"
                                        ),
               "<br>",
               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")
    }
}