explicit & for table/itable/ntable

diff --git a/htdocs/browse/agent.cgi b/htdocs/browse/agent.cgi
index 4ec472c..c6e7da5 100755 (executable)
--- a/htdocs/browse/agent.cgi
+++ b/htdocs/browse/agent.cgi
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: agent.cgi,v 1.11 1999-01-20 09:43:16 ivan Exp $
+# $Id: agent.cgi,v 1.12 1999-04-09 03:52:55 ivan Exp $
 #
 # ivan@sisd.com 97-dec-12
 #
@@ -15,7 +15,10 @@
 # lose background, FS::CGI ivan@sisd.com 98-sep-2
 #
 # $Log: agent.cgi,v $
-# Revision 1.11  1999-01-20 09:43:16  ivan
+# Revision 1.12  1999-04-09 03:52:55  ivan
+# explicit & for table/itable/ntable
+#
+# Revision 1.11  1999/01/20 09:43:16  ivan
 # comment out future UI code (but look at it, it's neat!)
 #
 # Revision 1.10  1999/01/19 05:13:24  ivan
@@ -83,7 +86,7 @@ print $cgi->header( '-expires' => 'now' ), header('Agent Listing', menubar(
 Agents are resellers of your service. Agents may be limited to a subset of your
 full offerings (via their type).<BR><BR>
 END
-print table, <<END;
+print &table, <<END;
       <TR>
         <TH COLSPAN=2>Agent</TH>
         <TH>Type</TH>

diff --git a/htdocs/browse/agent_type.cgi b/htdocs/browse/agent_type.cgi
index 5b090ab..76aafa8 100755 (executable)
--- a/htdocs/browse/agent_type.cgi
+++ b/htdocs/browse/agent_type.cgi
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: agent_type.cgi,v 1.6 1999-04-07 11:10:46 ivan Exp $
+# $Id: agent_type.cgi,v 1.7 1999-04-09 03:52:55 ivan Exp $
 #
 # ivan@sisd.com 97-dec-10
 #
@@ -11,7 +11,10 @@
 # lose background, FS::CGI ivan@sisd.com 98-sep-2
 #
 # $Log: agent_type.cgi,v $
-# Revision 1.6  1999-04-07 11:10:46  ivan
+# Revision 1.7  1999-04-09 03:52:55  ivan
+# explicit & for table/itable/ntable
+#
+# Revision 1.6  1999/04/07 11:10:46  ivan
 # harmless typo
 #
 # Revision 1.5  1999/01/19 05:13:25  ivan
@@ -48,7 +51,7 @@ $p = popurl(2);
 print $cgi->header( '-expires' => 'now' ), header("Agent Type Listing", menubar(
   'Main Menu' => $p,
 )), "Agent types define groups of packages that you can then assign to".
-    " particular agents.<BR><BR>", table, <<END;
+    " particular agents.<BR><BR>", &table, <<END;
       <TR>
         <TH COLSPAN=2>Agent Type</TH>
         <TH COLSPAN="2">Packages</TH>

diff --git a/htdocs/browse/cust_main_county.cgi b/htdocs/browse/cust_main_county.cgi
index 0e899f2..5d7e775 100755 (executable)
--- a/htdocs/browse/cust_main_county.cgi
+++ b/htdocs/browse/cust_main_county.cgi
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: cust_main_county.cgi,v 1.5 1999-01-19 05:13:26 ivan Exp $
+# $Id: cust_main_county.cgi,v 1.6 1999-04-09 03:52:55 ivan Exp $
 #
 # ivan@sisd.com 97-dec-13
 #
@@ -10,7 +10,10 @@
 # lose background, FS::CGI ivan@sisd.com 98-sep-2
 #
 # $Log: cust_main_county.cgi,v $
-# Revision 1.5  1999-01-19 05:13:26  ivan
+# Revision 1.6  1999-04-09 03:52:55  ivan
+# explicit & for table/itable/ntable
+#
+# Revision 1.5  1999/01/19 05:13:26  ivan
 # for mod_perl: no more top-level my() variables; use vars instead
 # also the last s/create/new/;
 #
@@ -48,7 +51,7 @@ print $cgi->header( '-expires' => 'now' ), header("Tax Rate Listing", menubar(
     <BR>Click on <u>expand state</u> to specify a state's tax rates by county.
     <BR><BR>
 END
-print table, <<END;
+print &table, <<END;
       <TR>
         <TH><FONT SIZE=-1>Country</FONT></TH>
         <TH><FONT SIZE=-1>State</FONT></TH>

diff --git a/htdocs/browse/part_pkg.cgi b/htdocs/browse/part_pkg.cgi
index 413a108..ecf10e0 100755 (executable)
--- a/htdocs/browse/part_pkg.cgi
+++ b/htdocs/browse/part_pkg.cgi
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: part_pkg.cgi,v 1.6 1999-01-19 05:13:27 ivan Exp $
+# $Id: part_pkg.cgi,v 1.7 1999-04-09 03:52:55 ivan Exp $
 #
 # ivan@sisd.com 97-dec-5,9
 #
@@ -10,7 +10,10 @@
 # lose background, FS::CGI ivan@sisd.com 98-sep-2
 #
 # $Log: part_pkg.cgi,v $
-# Revision 1.6  1999-01-19 05:13:27  ivan
+# Revision 1.7  1999-04-09 03:52:55  ivan
+# explicit & for table/itable/ntable
+#
+# Revision 1.6  1999/01/19 05:13:27  ivan
 # for mod_perl: no more top-level my() variables; use vars instead
 # also the last s/create/new/;
 #
@@ -49,7 +52,7 @@ print $cgi->header( '-expires' => 'now' ), header("Package Part Listing",menubar
   'Main Menu' => $p,
 )), "One or more services are grouped together into a package and given",
   " pricing information. Customers purchase packages, not services.<BR><BR>", 
-  table, <<END;
+  &table, <<END;
     <TABLE BORDER>
       <TR>
         <TH COLSPAN=2>Package</TH>

diff --git a/htdocs/browse/part_referral.cgi b/htdocs/browse/part_referral.cgi
index e336056..1b6ebf6 100755 (executable)
--- a/htdocs/browse/part_referral.cgi
+++ b/htdocs/browse/part_referral.cgi
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: part_referral.cgi,v 1.7 1999-01-19 05:13:28 ivan Exp $
+# $Id: part_referral.cgi,v 1.8 1999-04-09 03:52:55 ivan Exp $
 #
 # ivan@sisd.com 98-feb-23 
 #
@@ -10,7 +10,10 @@
 # lose background, FS::CGI ivan@sisd.com 98-sep-2
 #
 # $Log: part_referral.cgi,v $
-# Revision 1.7  1999-01-19 05:13:28  ivan
+# Revision 1.8  1999-04-09 03:52:55  ivan
+# explicit & for table/itable/ntable
+#
+# Revision 1.7  1999/01/19 05:13:28  ivan
 # for mod_perl: no more top-level my() variables; use vars instead
 # also the last s/create/new/;
 #
@@ -49,7 +52,7 @@ $p = popurl(2);
 print $cgi->header( '-expires' => 'now' ), header("Referral Listing", menubar(
   'Main Menu' => $p,
 #  'Add new referral' => "../edit/part_referral.cgi",
-)), "Where a customer heard about your service. Tracked for informational purposes.<BR><BR>", table, <<END;
+)), "Where a customer heard about your service. Tracked for informational purposes.<BR><BR>", &table, <<END;
       <TR>
         <TH COLSPAN=2>Referral</TH>
       </TR>

diff --git a/htdocs/browse/part_svc.cgi b/htdocs/browse/part_svc.cgi
index 5112f51..b47cfd1 100755 (executable)
--- a/htdocs/browse/part_svc.cgi
+++ b/htdocs/browse/part_svc.cgi
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: part_svc.cgi,v 1.9 1999-01-19 05:13:29 ivan Exp $
+# $Id: part_svc.cgi,v 1.10 1999-04-09 03:52:55 ivan Exp $
 #
 # ivan@sisd.com 97-nov-14, 97-dec-9
 #
@@ -10,7 +10,10 @@
 # lose background, FS::CGI ivan@sisd.com 98-sep-2
 #
 # $Log: part_svc.cgi,v $
-# Revision 1.9  1999-01-19 05:13:29  ivan
+# Revision 1.10  1999-04-09 03:52:55  ivan
+# explicit & for table/itable/ntable
+#
+# Revision 1.9  1999/01/19 05:13:29  ivan
 # for mod_perl: no more top-level my() variables; use vars instead
 # also the last s/create/new/;
 #
@@ -57,7 +60,7 @@ print $cgi->header( '-expires' => 'now' ), header('Service Part Listing', menuba
 )),<<END;
     Services are items you offer to your customers.<BR><BR>
 END
-print table, <<END;
+print &table, <<END;
       <TR>
         <TH COLSPAN=2>Service</TH>
         <TH>Table</TH>

diff --git a/htdocs/browse/svc_acct_pop.cgi b/htdocs/browse/svc_acct_pop.cgi
index 5f41261..d0a51b3 100755 (executable)
--- a/htdocs/browse/svc_acct_pop.cgi
+++ b/htdocs/browse/svc_acct_pop.cgi
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: svc_acct_pop.cgi,v 1.5 1999-01-19 05:13:30 ivan Exp $
+# $Id: svc_acct_pop.cgi,v 1.6 1999-04-09 03:52:55 ivan Exp $
 #
 # ivan@sisd.com 98-mar-8
 #
@@ -10,7 +10,10 @@
 # lose background, FS::CGI ivan@sisd.com 98-sep-2
 #
 # $Log: svc_acct_pop.cgi,v $
-# Revision 1.5  1999-01-19 05:13:30  ivan
+# Revision 1.6  1999-04-09 03:52:55  ivan
+# explicit & for table/itable/ntable
+#
+# Revision 1.5  1999/01/19 05:13:30  ivan
 # for mod_perl: no more top-level my() variables; use vars instead
 # also the last s/create/new/;
 #
@@ -42,7 +45,7 @@ $p = popurl(2);
 
 print $cgi->header( '-expires' => 'now' ), header('POP Listing', menubar(
   'Main Menu' => $p,
-)), "Points of Presence<BR><BR>", table, <<END;
+)), "Points of Presence<BR><BR>", &table, <<END;
       <TR>
         <TH></TH>
         <TH>City</TH>

diff --git a/htdocs/edit/cust_main.cgi b/htdocs/edit/cust_main.cgi
index 233fff2..d144beb 100755 (executable)
--- a/htdocs/edit/cust_main.cgi
+++ b/htdocs/edit/cust_main.cgi
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: cust_main.cgi,v 1.12 1999-04-06 11:16:16 ivan Exp $
+# $Id: cust_main.cgi,v 1.13 1999-04-09 03:52:55 ivan Exp $
 #
 # Usage: cust_main.cgi custnum
 #        http://server.name/path/cust_main.cgi?custnum
@@ -38,7 +38,10 @@
 # fixed one missed day->daytime ivan@sisd.com 98-jul-13
 #
 # $Log: cust_main.cgi,v $
-# Revision 1.12  1999-04-06 11:16:16  ivan
+# Revision 1.13  1999-04-09 03:52:55  ivan
+# explicit & for table/itable/ntable
+#
+# Revision 1.12  1999/04/06 11:16:16  ivan
 # give a meaningful error message if you try to create a customer before you've
 # created an agent
 #
@@ -211,7 +214,7 @@ if ( $custnum ) {
   $cust_main->zip,
 );
 
-print "<BR><BR>Contact information", itable("#c0c0c0"), <<END;
+print "<BR><BR>Contact information", &itable("#c0c0c0"), <<END;
 <TR><TH ALIGN="right">${r}Contact name<BR>(last, first)</TH><TD COLSPAN=3><INPUT TYPE="text" NAME="last" VALUE="$last">, <INPUT TYPE="text" NAME="first" VALUE="$first"></TD><TD ALIGN="right">SS#</TD><TD><INPUT TYPE="text" NAME="ss" VALUE="$ss" SIZE=11></TD></TR>
 <TR><TD ALIGN="right">Company</TD><TD COLSPAN=5><INPUT TYPE="text" NAME="company" VALUE="$company" SIZE=70></TD></TR>
 <TR><TH ALIGN="right">${r}Address</TH><TD COLSPAN=5><INPUT TYPE="text" NAME="address1" VALUE="$address1" SIZE=70></TD></TR>
@@ -274,7 +277,7 @@ sub expselect {
   $return;
 }
 
-print "<BR>Billing information", itable("#c0c0c0"),
+print "<BR>Billing information", &itable("#c0c0c0"),
       qq!<TR><TD><INPUT TYPE="checkbox" NAME="tax" VALUE="Y"!;
 print qq! CHECKED! if $cust_main->tax eq "Y";
 print qq!>Tax Exempt</TD></TR>!;
@@ -288,7 +291,7 @@ print qq!<TR><TD>Email invoice <INPUT TYPE="text" NAME="invoicing_list" VALUE="$
 
 print "<TR><TD>Billing type</TD></TR>",
       "</TABLE>",
-      table("#c0c0c0"), "<TR>";
+      &table("#c0c0c0"), "<TR>";
 
 ($payinfo, $payname)=(
   $cust_main->payinfo,
@@ -375,7 +378,7 @@ unless ( $custnum ) {
 
   if ( @part_pkg ) {
 
-    print "<BR><BR>First package", itable("#c0c0c0"),
+    print "<BR><BR>First package", &itable("#c0c0c0"),
           qq!<TR><TD COLSPAN=2><SELECT NAME="pkgpart_svcpart">!;
 
     print qq!<OPTION VALUE="">(none)!;

diff --git a/htdocs/edit/cust_main_county.cgi b/htdocs/edit/cust_main_county.cgi
index 3c2efec..3d2b0e2 100755 (executable)
--- a/htdocs/edit/cust_main_county.cgi
+++ b/htdocs/edit/cust_main_county.cgi
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: cust_main_county.cgi,v 1.6 1999-01-25 12:09:55 ivan Exp $
+# $Id: cust_main_county.cgi,v 1.7 1999-04-09 03:52:55 ivan Exp $
 #
 # ivan@sisd.com 97-dec-13-16
 #
@@ -11,7 +11,10 @@
 # lose background, FS::CGI ivan@sisd.com 98-sep-2
 # 
 # $Log: cust_main_county.cgi,v $
-# Revision 1.6  1999-01-25 12:09:55  ivan
+# Revision 1.7  1999-04-09 03:52:55  ivan
+# explicit & for table/itable/ntable
+#
+# Revision 1.6  1999/01/25 12:09:55  ivan
 # yet more mod_perl stuff
 #
 # Revision 1.5  1999/01/19 05:13:36  ivan
@@ -51,7 +54,7 @@ print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
   if $cgi->param('error');
 
 print qq!<FORM ACTION="!, popurl(1),
-    qq!process/cust_main_county.cgi" METHOD=POST>!, table, <<END;
+    qq!process/cust_main_county.cgi" METHOD=POST>!, &table, <<END;
       <TR>
         <TH><FONT SIZE=-1>Country</FONT></TH>
         <TH><FONT SIZE=-1>State</FONT></TH>

diff --git a/htdocs/edit/part_svc.cgi b/htdocs/edit/part_svc.cgi
index 57811a0..8a9018a 100755 (executable)
--- a/htdocs/edit/part_svc.cgi
+++ b/htdocs/edit/part_svc.cgi
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: part_svc.cgi,v 1.10 1999-04-08 13:01:50 ivan Exp $
+# $Id: part_svc.cgi,v 1.11 1999-04-09 03:52:55 ivan Exp $
 #
 # ivan@sisd.com 97-nov-14
 #
@@ -10,7 +10,10 @@
 # use FS::CGI, added inline documentation ivan@sisd.com 98-jul-12
 #
 # $Log: part_svc.cgi,v $
-# Revision 1.10  1999-04-08 13:01:50  ivan
+# Revision 1.11  1999-04-09 03:52:55  ivan
+# explicit & for table/itable/ntable
+#
+# Revision 1.10  1999/04/08 13:01:50  ivan
 #  [ AND DOCUMENT! ] all svc_acct services should have a default
 #  or fixed shell
 #
@@ -100,7 +103,7 @@ blank <B>slipip</B> as well as a fixed shell something like <B>/bin/true</B> or
 <B>/usr/bin/passwd</B>.
 <BR><BR>
 END
-print table, '<TR><TH>Table<SELECT NAME="svcdb" SIZE=1>',
+print &table, '<TR><TH>Table<SELECT NAME="svcdb" SIZE=1>',
       map '<OPTION'. ' SELECTED'x($_ eq $hashref->{svcdb}). ">$_\n", qw(
         svc_acct svc_domain svc_acct_sm
       );

diff --git a/htdocs/search/cust_main.cgi b/htdocs/search/cust_main.cgi
index 03f02e4..1a9c591 100755 (executable)
--- a/htdocs/search/cust_main.cgi
+++ b/htdocs/search/cust_main.cgi
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: cust_main.cgi,v 1.9 1999-02-28 00:03:55 ivan Exp $
+# $Id: cust_main.cgi,v 1.10 1999-04-09 03:52:55 ivan Exp $
 #
 # Usage: post form to:
 #        http://server.name/path/cust_main.cgi
@@ -17,7 +17,10 @@
 # display total, use FS::CGI ivan@sisd.com 98-jul-17
 #
 # $Log: cust_main.cgi,v $
-# Revision 1.9  1999-02-28 00:03:55  ivan
+# Revision 1.10  1999-04-09 03:52:55  ivan
+# explicit & for table/itable/ntable
+#
+# Revision 1.9  1999/02/28 00:03:55  ivan
 # removed misleading comments
 #
 # Revision 1.8  1999/02/07 09:59:36  ivan
@@ -93,7 +96,7 @@ if ( scalar(@cust_main) == 1 ) {
   my($total)=scalar(@cust_main);
   print $cgi->header( '-expires' => 'now' ), header("Customer Search Results",menubar(
     'Main Menu', popurl(2)
-  )), "$total matching customers found<BR>", table, <<END;
+  )), "$total matching customers found<BR>", &table, <<END;
       <TR>
         <TH></TH>
         <TH>Contact name</TH>

diff --git a/htdocs/search/svc_acct_sm.cgi b/htdocs/search/svc_acct_sm.cgi
index cade20e..fedbaa0 100755 (executable)
--- a/htdocs/search/svc_acct_sm.cgi
+++ b/htdocs/search/svc_acct_sm.cgi
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: svc_acct_sm.cgi,v 1.7 1999-02-28 00:03:56 ivan Exp $
+# $Id: svc_acct_sm.cgi,v 1.8 1999-04-09 03:52:55 ivan Exp $
 #
 # Usage: post form to:
 #        http://server.name/path/svc_domain.cgi
@@ -17,7 +17,10 @@
 #       bmccane@maxbaud.net     98-apr-3
 #
 # $Log: svc_acct_sm.cgi,v $
-# Revision 1.7  1999-02-28 00:03:56  ivan
+# Revision 1.8  1999-04-09 03:52:55  ivan
+# explicit & for table/itable/ntable
+#
+# Revision 1.7  1999/02/28 00:03:56  ivan
 # removed misleading comments
 #
 # Revision 1.6  1999/02/09 09:22:58  ivan
@@ -76,7 +79,7 @@ if ( scalar(@svc_acct_sm) == 1 ) {
 } elsif ( scalar(@svc_acct_sm) > 1 ) {
   print $cgi->header( '-expires' => 'now' ),
         header('Mail Alias Search Results'),
-        table, <<END;
+        &table, <<END;
       <TR>
         <TH>Mail to<BR><FONT SIZE=-1>(click to view mail alias)</FONT></TH>
         <TH>Forwards to<BR><FONT SIZE=-1>(click to view account)</FONT></TH>

diff --git a/htdocs/view/cust_main.cgi b/htdocs/view/cust_main.cgi
index 58c1323..4bde0be 100755 (executable)
--- a/htdocs/view/cust_main.cgi
+++ b/htdocs/view/cust_main.cgi
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: cust_main.cgi,v 1.14 1999-04-08 04:04:37 ivan Exp $
+# $Id: cust_main.cgi,v 1.15 1999-04-09 03:52:55 ivan Exp $
 #
 # Usage: cust_main.cgi custnum
 #        http://server.name/path/cust_main.cgi?custnum
@@ -31,7 +31,10 @@
 # lose background, FS::CGI ivan@sisd.com 98-sep-2
 #
 # $Log: cust_main.cgi,v $
-# Revision 1.14  1999-04-08 04:04:37  ivan
+# Revision 1.15  1999-04-09 03:52:55  ivan
+# explicit & for table/itable/ntable
+#
+# Revision 1.14  1999/04/08 04:04:37  ivan
 # eliminate double // in links
 #
 # Revision 1.13  1999/02/28 00:04:00  ivan
@@ -108,11 +111,11 @@ $cust_main = qsearchs('cust_main',{'custnum'=>$custnum});
 die "Customer not found!" unless $cust_main;
 $hashref = $cust_main->hashref;
 
-print itable(), '<TR><TD><A NAME="cust_main"></A>';
+print &itable(), '<TR><TD><A NAME="cust_main"></A>';
 
 print qq!<A HREF="!, popurl(2), 
       qq!edit/cust_main.cgi?$custnum">Edit this customer</A>!,
-      ntable("#c0c0c0"), "<TR><TD>", ntable("#c0c0c0",2),
+      &ntable("#c0c0c0"), "<TR><TD>", &ntable("#c0c0c0",2),
       '<TR><TD ALIGN="right">Customer number</TD><TD BGCOLOR="#ffffff">',
       $custnum, '</TD></TR>',
 ;
@@ -140,8 +143,8 @@ print '</TABLE></TD></TR></TABLE>';
 
 print '</TD><TD ROWSPAN=2>';
 
-print "Contact information", ntable("#c0c0c0"), "<TR><TD>",
-      ntable("#c0c0c0",2),
+print "Contact information", &ntable("#c0c0c0"), "<TR><TD>",
+      &ntable("#c0c0c0",2),
   '<TR><TD ALIGN="right">Contact name<BR>(last, first)</TD>',
     '<TD COLSPAN=3 BGCOLOR="#ffffff">',
     $cust_main->last, ', ', $cust_main->first,
@@ -181,7 +184,7 @@ print '</TD></TR><TR><TD>';
 @invoicing_list = $cust_main->invoicing_list;
 print "Billing information (",
       qq!<A HREF="!, popurl(2), qq!/misc/bill.cgi?$custnum">!, "Bill now</A>)",
-      ntable("#c0c0c0"), "<TR><TD>", ntable("#c0c0c0",2),
+      &ntable("#c0c0c0"), "<TR><TD>", &ntable("#c0c0c0",2),
       '<TR><TD ALIGN="right">Tax exempt</TD><TD BGCOLOR="#ffffff">',
       $cust_main->tax ? 'yes' : 'no',
       '</TD></TR>',
@@ -232,7 +235,7 @@ print qq!<BR><BR><A NAME="cust_pkg">Packages</A> !,
 #display packages
 
 #formatting
-print qq!!, table, "\n",
+print qq!!, &table, "\n",
       qq!<TR><TH COLSPAN=2 ROWSPAN=2>Package</TH><TH COLSPAN=5>!,
       qq!Dates</TH><TH COLSPAN=2 ROWSPAN=2>Services</TH></TR>\n!,
       qq!<TR><TH><FONT SIZE=-1>Setup</FONT></TH><TH>!,
@@ -349,7 +352,7 @@ foreach $credit (@credits) {
 }
 
         #formatting
-        print table(), <<END;
+        print &table(), <<END;
 <TR>
   <TH>Date</TH>
   <TH>Description</TH>

diff --git a/htdocs/view/cust_pkg.cgi b/htdocs/view/cust_pkg.cgi
index bf7f29b..6bb2948 100755 (executable)
--- a/htdocs/view/cust_pkg.cgi
+++ b/htdocs/view/cust_pkg.cgi
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: cust_pkg.cgi,v 1.9 1999-04-08 12:00:19 ivan Exp $
+# $Id: cust_pkg.cgi,v 1.10 1999-04-09 03:52:55 ivan Exp $
 #
 # Usage: cust_pkg.cgi pkgnum
 #        http://server.name/path/cust_pkg.cgi?pkgnum
@@ -24,7 +24,10 @@
 # no FS::Search ivan@sisd.com 98-mar-7
 # 
 # $Log: cust_pkg.cgi,v $
-# Revision 1.9  1999-04-08 12:00:19  ivan
+# Revision 1.10  1999-04-09 03:52:55  ivan
+# explicit & for table/itable/ntable
+#
+# Revision 1.9  1999/04/08 12:00:19  ivan
 # aesthetic update
 #
 # Revision 1.8  1999/02/28 00:04:01  ivan
@@ -106,7 +109,7 @@ print ' (<A HREF="'. popurl(2). 'misc/susp_pkg.cgi?'. $pkgnum.
 print ' (<A HREF="'. popurl(2). 'misc/cancel_pkg.cgi?'. $pkgnum.
       '">cancel</A>)' unless $cancel;
 
-print ntable("#c0c0c0"), '<TR><TD>', ntable("#c0c0c0",2),
+print &ntable("#c0c0c0"), '<TR><TD>', &ntable("#c0c0c0",2),
       '<TR><TD ALIGN="right">Package number</TD><TD BGCOLOR="#ffffff">',
       $pkgnum, '</TD></TR>',
       '<TR><TD ALIGN="right">Package</TD><TD BGCOLOR="#ffffff">',
@@ -139,7 +142,7 @@ print  '<TR><TD ALIGN="right">Order taker</TD><TD BGCOLOR="#ffffff">',
 unless ($cancel) {
 
   #services
-  print '<BR>Service Information', table,
+  print '<BR>Service Information', &table,
   ;
 
   #list of services this pkgpart includes