summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rwxr-xr-xhtdocs/browse/agent.cgi9
-rwxr-xr-xhtdocs/browse/agent_type.cgi9
-rwxr-xr-xhtdocs/browse/cust_main_county.cgi9
-rwxr-xr-xhtdocs/browse/part_pkg.cgi9
-rwxr-xr-xhtdocs/browse/part_referral.cgi9
-rwxr-xr-xhtdocs/browse/part_svc.cgi9
-rwxr-xr-xhtdocs/browse/svc_acct_pop.cgi9
-rwxr-xr-xhtdocs/edit/cust_main.cgi15
-rwxr-xr-xhtdocs/edit/cust_main_county.cgi9
-rwxr-xr-xhtdocs/edit/part_svc.cgi9
-rwxr-xr-xhtdocs/search/cust_main.cgi9
-rwxr-xr-xhtdocs/search/svc_acct_sm.cgi9
-rwxr-xr-xhtdocs/view/cust_main.cgi21
-rwxr-xr-xhtdocs/view/cust_pkg.cgi11
14 files changed, 94 insertions, 52 deletions
diff --git a/htdocs/browse/agent.cgi b/htdocs/browse/agent.cgi
index 4ec472c33..c6e7da5f1 100755
--- 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 5b090abff..76aafa80b 100755
--- 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 0e899f246..5d7e77573 100755
--- 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 413a108cf..ecf10e059 100755
--- 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 e3360567c..1b6ebf6cd 100755
--- 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 5112f5120..b47cfd143 100755
--- 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 5f4126137..d0a51b323 100755
--- 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 233fff2a2..d144beba6 100755
--- 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 3c2efec5b..3d2b0e263 100755
--- 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 57811a0b6..8a9018a25 100755
--- 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 03f02e4be..1a9c591a1 100755
--- 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 cade20e86..fedbaa0dc 100755
--- 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 58c1323a4..4bde0be28 100755
--- 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 bf7f29bc1..6bb294836 100755
--- 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
generated by cgit v1.2.1 (git 2.18.0) at 2025-06-14 20:55:57 +0000