view release on metacpan or  search on metacpan

CGI/CGI.pm  view on Meta::CPAN

		      -value => $row->{$columns[$f]});
	    $self->add_request( $q->textfield($tf));
	}
	else {
	    ### value list ###
	    my $fvalues = $self->field_values($f);
	    # Set the param
	    $q->param(-name  => $columns[$f],
		      -value => $row->{$columns[$f]});
	    # PopUp
	    $self->add_request( $q->popup_menu(
				-name     => $columns[$f],
				-values   => $fvalues,
				-default  => $row->{$columns[$f]},
				));
	}
	$self->add_request(
			   $q->end_td,"\n",$q->end_Tr
			   );
    }
    # Editor

examples/DemoDBIxBrowse  view on Meta::CPAN

	      'resource' => 'Labels',
	      'locale'   => 'Languages');

my $table = $q->param('Table');
my $debug = $q->param('Debug');
$table = 'message' unless $table;
$debug = '0'       unless $debug;
print
    $q->start_multipart_form(  -name => 'Browser', -method => 'POST' ),
    $q->p({-class => 'Bar'},
	  $q->popup_menu(
			  -name     => 'Table',
			  -values   => [keys %Tables],
			  -labels   => \%Tables,
			  -default  => "$table",
			  -onChange => 'this.form.submit()'
			  ),
	  ),
    $q->p({-class => 'Bar'},
	  $q->checkbox(
		       -name    => 'Debug',