package Widget;
use base 'CGI::Application';
use strict;

sub setup {
  my $self = shift;
  $self->mode_param( 'rm' );
  $self->start_mode('mode1');
  $self->run_modes(
    'mode1' => 'showform',
    'mode2' => 'showlist',
  );
}

sub showform {
  my $self = shift;

  my $q = $self->query();
  my $output = '';
  $output .= $q->start_html(-title => 'First');
  $output .= $q->start_form(-name => "first");
  $output .= $q->textfield(-name => 'widgetcode');
  $output .= $q->hidden(-name => 'rm', -value => 'mode2');
  $output .= $q->submit();
  $output .= $q->end_form();
  $output .= $q->end_html();
  return $output;
}

sub showlist {
  my $self = shift;

  my $q = $self->query();
  my $output = '';
  $output .= $q->start_html(-title => 'Second');
  $output .= $q->start_form(-name => "second");
  $output .= $q->hidden(-name => 'rm', -value => 'mode1');
  $output .= $q->submit();
  $output .= $q->end_form();
  $output .= $q->end_html();
  return $output;
}

1;