view release on metacpan or  search on metacpan

DBIx/Frame.pm  view on Meta::CPAN

  
    my @codes = sort grep { $_ if /\S+/ } 
                  $self->select_fieldlist('Papers', 'TBCode');  
    unshift @codes, '';

  my @return = <<HTML;
  <div class="basetable">
   <div class="row2">
    <span class="label">TBCode</span>
    <span class="formw">
     @{[ $cgi->popup_menu('TBCode', \@codes, $$entry{TBCode} || "") ]} 
    </span>
    <span class="label">File Type</span>
    <span class="formw">
     @{[ $cgi->popup_menu('Type', \@types, $$entry{Type} || "") ]}
    </span>
   </div>
  
   <div class="row1">
    <span class="label">Location</span>
    <span class="formw">
     @{[ $cgi->textfield('Location', $$entry{Location} || "", 70, 1024) ]}
    </span>
   </div>
  

DBIx/Frame.pm  view on Meta::CPAN

       @{[ $cgi->textarea(-name=>'Description', 
                          -default=>$$entry{Description} || "",
                          -rows=>7, -cols=>60, -maxlength=>65535,
                          -wrap=>'physical') ]}
    </span>
   </div>
  
   <div class="row1">
    <span class="label">Restricted?</span>
    <span class="formw">
      @{[ $cgi->popup_menu('Restricted', [sort keys %public], 
                    $$entry{Restricted} || "", \%public) ]}
    </span>
   </div>
  
  
   <div class="submitbar"> @{[ $cgi->submit(-name=>"Submit") ]} </div>
  
  </div>
  
  HTML

DBIx/Frame/CGI.pm  view on Meta::CPAN

=cut

sub html_menu {
  my ($self, $table, @other) = @_;
  my $cgi = new CGI;

  my @return = $cgi->start_form;
  
  my @list = sort $self->tables;
  push @return, $cgi->popup_menu('table', \@list, $table);
  foreach ( @ACTIONS ) { 
    next unless $_; 
    push @return, $cgi->submit('action', ucfirst $_ ); }
  push @return, $cgi->end_form;

  wantarray ? @return : join("\n", @return);
}

=back