legend results from the CPAN

legend

CGI-Listman

view release on metacpan or search on metacpan

24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44  
  my $decorated = undef;
 
  $decorated = $cell || '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;';
  $decorated = '<b>'.$decorated.'</b>' unless ($seen);
  $decorated = '<font color="blue">'.$decorated.'</font>' if ($exported);
 
  return $decorated;
}
 
sub print_legend {
  print "<table align=\"right\" nowrap=\"nowrap\" border=1 cellspacing=0 cellpadding=1><tbody><tr>\n";
  print "<td>Légende&nbsp;:</td><td>Normal</td><td><b>Nouveau</b></td>".
    "<td><font color=blue>Exporté</font></td></tr>";
  print "</tbody></table>\n";
}
 
sub check_uri_file {
  my $file = $ENV{'REQUEST_URI'};
 
  if (defined $script_name) {

examples/admin.pl view on Meta::CPAN

135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155  
      print "</tbody></table>\n";
      print '<table><tbody><tr>';
      print '<td><input type="submit" name="submit" value="Effacer"></td>';
      print '<td><input type="submit" name="submit" value="Exporter"></td>';
      #  print '<td nowrap=nowrap><input type="radio" name="export_fmt" value="CSV" checked=checked>&nbsp;CSV</td>';
      #  print '<td nowrap=nowrap><input type="radio" name="export_fmt" value="Excel">&nbsp;Excel</td>';
      print '<td><input type="reset" value="Recommencer"></td>';
      print '<td><input type="submit" name="submit" value="Dictionnaire"></td>';
      print "</form>\n";
      print_legend ();
      print "</body></html>\n";
    }
  }
}
 
# sub print_params {
#   my $cgi = shift;
 
#   print "<html><head><title>Param</title></head><body>";
#   foreach my $param ($cgi->param ()) {

( run in 1.029 second using v1.01-cache-2.11-cpan-49f99fa48dc )