diff options
| author | ivan <ivan> | 1998-11-12 01:53:47 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1998-11-12 01:53:47 +0000 |
| commit | 8299d91d82411736a782df35df2f30ad2efe2b0d (patch) | |
| tree | c1138adcf28922204808e2bc131deaa3901c12e2 /site_perl/CGI.pm | |
| parent | 4f16a1997d44c4440bdf2f60d6a9dc4d1c7818c8 (diff) | |
added table command
Diffstat (limited to 'site_perl/CGI.pm')
| -rw-r--r-- | site_perl/CGI.pm | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/site_perl/CGI.pm b/site_perl/CGI.pm index 780f54123..a51066eae 100644 --- a/site_perl/CGI.pm +++ b/site_perl/CGI.pm @@ -9,7 +9,7 @@ use CGI::Carp qw(fatalsToBrowser); use FS::UID; @ISA = qw(Exporter); -@EXPORT_OK = qw(header menubar idiot eidiot popurl); +@EXPORT_OK = qw(header menubar idiot eidiot popurl table); =head1 NAME @@ -137,6 +137,16 @@ sub popurl { $url->as_string; } +=item table + +Returns HTML tag for beginning a table. + +=cut + +sub table { + "<TABLE BORDER>"; +} + =back =head1 BUGS @@ -161,7 +171,10 @@ lose the background, eidiot ivan@sisd.com 98-sep-2 pod ivan@sisd.com 98-sep-12 $Log: CGI.pm,v $ -Revision 1.9 1998-11-09 08:51:49 ivan +Revision 1.10 1998-11-12 01:53:47 ivan +added table command + +Revision 1.9 1998/11/09 08:51:49 ivan bug squash Revision 1.7 1998/11/09 06:10:59 ivan |