X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=htdocs%2Fview%2Fcust_pkg.cgi;h=b394da591293e0baba25ea0cd8ebbf6cbbd6d671;hb=d51c41b94bfa87d6c779ac666495151bf6fc3913;hp=d7269281f2f9f2582abd548cd027f561d36f0af7;hpb=0bf5ad9ff0a65195db88ed0bac3aa11c33ec1ad3;p=freeside.git diff --git a/htdocs/view/cust_pkg.cgi b/htdocs/view/cust_pkg.cgi index d7269281f..b394da591 100755 --- a/htdocs/view/cust_pkg.cgi +++ b/htdocs/view/cust_pkg.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# cust_pkg.cgi: View a package +# $Id: cust_pkg.cgi,v 1.5 1998-12-23 03:11:40 ivan Exp $ # # Usage: cust_pkg.cgi pkgnum # http://server.name/path/cust_pkg.cgi?pkgnum @@ -26,7 +26,13 @@ # no FS::Search ivan@sisd.com 98-mar-7 # # $Log: cust_pkg.cgi,v $ -# Revision 1.2 1998-11-13 09:56:49 ivan +# Revision 1.5 1998-12-23 03:11:40 ivan +# *** empty log message *** +# +# Revision 1.3 1998/12/17 09:57:22 ivan +# s/CGI::(Base|Request)/CGI.pm/; +# +# Revision 1.2 1998/11/13 09:56:49 ivan # change configuration file layout to support multiple distinct databases (with # own set of config files, export, etc.) # @@ -36,8 +42,13 @@ use Date::Format; use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup); -use FS::CGI qw(url); +use FS::CGI qw(popurl header); use FS::Record qw(qsearch qsearchs); +use FS::part_svc; +use FS::cust_pkg; +use FS::part_pkg; +use FS::pkg_svc; +use FS::cust_svc; my($cgi) = new CGI; cgisuidsetup($cgi); @@ -45,25 +56,14 @@ cgisuidsetup($cgi); my(%uiview,%uiadd); my($part_svc); foreach $part_svc ( qsearch('part_svc',{}) ) { - $uiview{$part_svc->svcpart} = url(1). "/view/". $part_svc->svcdb . ".cgi"; - $uiadd{$part_svc->svcpart}= url(1). "/edit/". $part_svc->svcdb . ".cgi"; + $uiview{$part_svc->svcpart} = popurl(2). "view/". $part_svc->svcdb . ".cgi"; + $uiadd{$part_svc->svcpart}= popurl(2). "edit/". $part_svc->svcdb . ".cgi"; } -SendHeaders(); # one guess. -print < - - Package View - - - -

Package View

- - -END +print $cgi->header, header('Package View', ''); -#untaint pkgnum -$QUERY_STRING =~ /^(\d+)$/; +my($query) = $cgi->keywords; +$query =~ /^(\d+)$/; my($pkgnum)=$1; #get package record