projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
*** empty log message ***
[freeside.git]
/
htdocs
/
view
/
cust_pkg.cgi
diff --git
a/htdocs/view/cust_pkg.cgi
b/htdocs/view/cust_pkg.cgi
index
d726928
..
b394da5
100755
(executable)
--- a/
htdocs/view/cust_pkg.cgi
+++ b/
htdocs/view/cust_pkg.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/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
#
# 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 $
# 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.)
#
# 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 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::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);
my($cgi) = new CGI;
cgisuidsetup($cgi);
@@
-45,25
+56,14
@@
cgisuidsetup($cgi);
my(%uiview,%uiadd);
my($part_svc);
foreach $part_svc ( qsearch('part_svc',{}) ) {
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 <<END;
-<HTML>
- <HEAD>
- <TITLE>Package View</TITLE>
- </HEAD>
- <BODY>
- <CENTER>
- <H1>Package View</H1>
- </CENTER>
- <BASEFONT SIZE=3>
-END
+print $cgi->header, header('Package View', '');
-#untaint pkgnum
-$
QUERY_STRING
=~ /^(\d+)$/;
+my($query) = $cgi->keywords;
+$
query
=~ /^(\d+)$/;
my($pkgnum)=$1;
#get package record
my($pkgnum)=$1;
#get package record