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
my(@path)=$url->path_components;
splice @path, 0-$up;
$url->path_components(@path);
- $url->as_string;
+ my $x = $url->as_string;
+ $x .= '/' unless $x =~ /\/$/;
+ $x;
+}
+
+=item table
+
+Returns HTML tag for beginning a table.
+
+=cut
+
+sub table {
+ "<TABLE BORDER=1>";
}
=back
pod ivan@sisd.com 98-sep-12
$Log: CGI.pm,v $
-Revision 1.9 1998-11-09 08:51:49 ivan
+Revision 1.12 1998-12-23 02:23:16 ivan
+popurl always has trailing slash
+
+Revision 1.11 1998/11/12 07:43:54 ivan
+*** empty log message ***
+
+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