add svc_forward, depriciate svc_acct_sm

[freeside.git] / htdocs / view / cust_pkg.cgi

diff --git a/htdocs/view/cust_pkg.cgi b/htdocs/view/cust_pkg.cgi
index bf7f29b..0054ee0 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.11 1999-04-09 04:22:34 ivan Exp $
 #
 # Usage: cust_pkg.cgi pkgnum
 #        http://server.name/path/cust_pkg.cgi?pkgnum
@@ -24,7 +24,13 @@
 # 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.11  1999-04-09 04:22:34  ivan
+# also table()
+#
+# 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 +112,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,8 +145,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
   my $pkg_svc;