From b6869885e52ea0e18009350bf59d4eca8aafb0eb Mon Sep 17 00:00:00 2001 From: ivan Date: Thu, 17 Dec 1998 06:17:12 +0000 Subject: fix double // in relative URLs, s/CGI::Base/CGI/; --- htdocs/edit/cust_pkg.cgi | 32 ++++++++++++++++---------------- 1 file changed, 16 insertions(+), 16 deletions(-) (limited to 'htdocs/edit/cust_pkg.cgi') diff --git a/htdocs/edit/cust_pkg.cgi b/htdocs/edit/cust_pkg.cgi index d7f143db4..68abf9698 100755 --- a/htdocs/edit/cust_pkg.cgi +++ b/htdocs/edit/cust_pkg.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# cust_pkg.cgi: Add/edit packages (output form) +# $Id: cust_pkg.cgi,v 1.2 1998-12-17 06:17:04 ivan Exp $ # # this is for changing packages around, not editing things within the package # @@ -23,15 +23,21 @@ # # fixed a pretty cool bug from above which caused a visual glitch ivan@sisd.com # 98-jun-1 +# +# $Log: cust_pkg.cgi,v $ +# Revision 1.2 1998-12-17 06:17:04 ivan +# fix double // in relative URLs, s/CGI::Base/CGI/; +# use strict; -use CGI::Base qw(:DEFAULT :CGI); # CGI module +use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup getotaker); use FS::Record qw(qsearch qsearchs); +use FS::CGI qw(header popurl); +use FS::part_pkg; -my($cgi) = new CGI::Base; -$cgi->get; +my($cgi) = new CGI; &cgisuidsetup($cgi); my(%pkg,%comment); @@ -41,22 +47,16 @@ foreach (qsearch('part_pkg', {})) { } #untaint custnum -$QUERY_STRING =~ /^(\d+)$/; + +my($query) = $cgi->keywords; +$query =~ /^(\d+)$/; my($custnum)=$1; my($otaker)=&getotaker; -SendHeaders(); -print < - - Add/Edit Packages - - - -

Add/Edit Packages

- -