[Bio] / FigKernelPackages / HTML.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/HTML.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16, Mon Jun 28 19:16:47 2004 UTC revision 1.17, Mon Jun 28 19:37:31 2004 UTC
# Line 289  Line 289 
289  }  }
290    
291  sub make_table {  sub make_table {
292      my($col_hdrs,$tab,$title) = @_;      my($col_hdrs,$tab,$title, %options ) = @_;
293      my(@tab);      my(@tab);
294    
295      push( @tab, "\n<table border>\n",      my $border = defined $options{border} ? "border=\"$options{border}\"" : "border";
296        push( @tab, "\n<table $border>\n",
297                  "\t<caption><b>$title</b></caption>\n",                  "\t<caption><b>$title</b></caption>\n",
298                  "\t<tr>\n\t\t<th>"                  "\t<tr>\n\t\t<th>"
299                . join( "</th>\n\t\t<th>", @$col_hdrs )                . join( "</th>\n\t\t<th>", @$col_hdrs )

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3