#!/usr/local/bin/perl
use warnings;
use 5.012;
use CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use JSON;

my $ref = [     [ 1, 'eins', '12/11/10', 'sn' ],
                [ 2, 'zwei', '11/12/09', 'cp' ],
                [ 3, 'drei', '04/09/11', 'cp' ], ];
my @radio_values;
for my $el ( @$ref ) {
        push @radio_values, encode_json $el;
}

my $cgi = new CGI();
my $step = $cgi->param('step') // 0;
my @functions = ( \&eins, \&zwei, \&drei );
my $function = $functions[$step] or die "invalid $step";
my $hidden = $cgi->hidden( -name => 'step', -value => $step+1 );
$function->();

sub eins {
        print $cgi->header();
        print $cgi->start_html();
        print $cgi->startform();
        print $cgi->radio_group( -name          => 'choice',
                                 -values        => [ @radio_values ],
                                 -linebreak     => 'true' );
        print $hidden;
        print $cgi->submit( 'OK' );
        print $cgi->endform();       
        print $cgi->end_html();
}

sub zwei {
        my $choice = $cgi->param('choice');
        print $cgi->header();
        print $cgi->start_html();
        print $cgi->startform();
        print $cgi->h2( "Rating: $choice" );
        print $cgi->popup_menu( -name           => 'rating',
                                -values         => [ '+++', '++', '+', '0', '-', '--', '---' ],
                                -default        => '0' );
        print $cgi->br();
        print $cgi->hidden( -name => 'choice', -value => $choice );
        print $hidden;
        print $cgi->submit( 'OK' );
        print $cgi->endform();   
        print $cgi->end_html();
}

sub drei {
        my $choice = $cgi->param('choice');
        my $rating = $cgi->param('rating');
        my $a_ref = decode_json $choice;
        my $name = $a_ref->[1];
        my $table = $a_ref->[-1];
        print $cgi->header();
        print $cgi->start_html();
        print $cgi->p( "Table: $table<br />Name: $name<br />RATING: $rating" );
        print $cgi->end_html();
}