X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=site_perl%2FCGI.pm;h=b21a88837b1d2c0111d698ec2f939fc9cb3d9055;hb=09a5eb8c6c43659d31fc043f556e404dcf322b13;hp=a51066eae8cfe8a4f6923c34f425e40d86f1b89c;hpb=8299d91d82411736a782df35df2f30ad2efe2b0d;p=freeside.git

diff --git a/site_perl/CGI.pm b/site_perl/CGI.pm
index a51066eae..b21a88837 100644
--- a/site_perl/CGI.pm
+++ b/site_perl/CGI.pm
@@ -134,7 +134,9 @@ sub popurl {
   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
@@ -144,7 +146,7 @@ Returns HTML tag for beginning a table.
 =cut
 
 sub table {
-  "<TABLE BORDER>";
+  "<TABLE BORDER=1>";
 }
 
 =back
@@ -171,7 +173,13 @@ lose the background, eidiot ivan@sisd.com 98-sep-2
 pod ivan@sisd.com 98-sep-12
 
 $Log: CGI.pm,v $
-Revision 1.10  1998-11-12 01:53:47  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