1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
#!/usr/bin/perl -Tw
#
# cust_pkg.cgi: Add/edit packages (output form)
#
# this is for changing packages around, not editing things within the package
#
# Usage: cust_pkg.cgi custnum
# http://server.name/path/cust_pkg.cgi?custnum
#
# Note: Should be run setuid freeside as user nobody
#
# started with /sales/add/cust_pkg.cgi, which added packages
# ivan@voicenet.com 97-jan-5, 97-mar-21
#
# Rewrote for new API
# ivan@voicenet.com 97-jul-7
#
# FS::Search is no more, &cgisuidsetup needs $cgi, ivan@sisd.com 98-mar-7
#
# Changes to allow page to work at a relative position in server
# Changed to display packages 2-wide in a table
# bmccane@maxbaud.net 98-apr-3
#
# fixed a pretty cool bug from above which caused a visual glitch ivan@sisd.com
# 98-jun-1
use strict;
use CGI::Base qw(:DEFAULT :CGI); # CGI module
use CGI::Carp qw(fatalsToBrowser);
use FS::UID qw(cgisuidsetup getotaker);
use FS::Record qw(qsearch qsearchs);
my($cgi) = new CGI::Base;
$cgi->get;
&cgisuidsetup($cgi);
my(%pkg,%comment);
foreach (qsearch('part_pkg', {})) {
$pkg{ $_ -> getfield('pkgpart') } = $_->getfield('pkg');
$comment{ $_ -> getfield('pkgpart') } = $_->getfield('comment');
}
#untaint custnum
$QUERY_STRING =~ /^(\d+)$/;
my($custnum)=$1;
my($otaker)=&getotaker;
SendHeaders();
print <<END;
<HTML>
<HEAD>
<TITLE>Add/Edit Packages</TITLE>
</HEAD>
<BODY>
<CENTER>
<H1>Add/Edit Packages</H1>
</CENTER>
<FORM ACTION="process/cust_pkg.cgi" METHOD=POST>
<HR>
END
#custnum
print qq!<INPUT TYPE="hidden" NAME="new_custnum" VALUE="$custnum">!;
#current packages (except cancelled packages)
my(@cust_pkg) = grep ! $_->getfield('cancel'),
qsearch('cust_pkg',{'custnum'=>$custnum});
if (@cust_pkg) {
print <<END;
<CENTER><FONT SIZE="+2">Current packages</FONT></CENTER>
These are packages the customer currently has. Select those packages you
wish to remove (if any).<BR><BR>
END
my ($count) = 0 ;
print qq!<CENTER><TABLE>! ;
foreach (@cust_pkg) {
print qq!<TR>! if ($count ==0) ;
my($pkgnum,$pkgpart)=( $_->getfield('pkgnum'), $_->getfield('pkgpart') );
print qq!<TD><INPUT TYPE="checkbox" NAME="remove_pkg" VALUE="$pkgnum">!,
#qq!$pkgnum: $pkg{$pkgpart} - $comment{$pkgpart}</TD>\n!,
#now you've got to admit this bug was pretty cool
qq!$pkgnum: $pkg{$pkgpart} - $comment{$pkgpart}</TD>\n!;
$count ++ ;
if ($count == 2)
{
$count = 0 ;
print qq!</TR>\n! ;
}
}
print qq!</TABLE></CENTER>! ;
print "<HR>";
}
print <<END;
<CENTER><FONT SIZE="+2">New packages</FONT></CENTER>
These are packages the customer can purchase. Specify the quantity to add
of each package.<BR><BR>
END
my($cust_main)=qsearchs('cust_main',{'custnum'=>$custnum});
my($agent)=qsearchs('agent',{'agentnum'=> $cust_main->agentnum });
my($type_pkgs);
my ($count) = 0 ;
print qq!<CENTER><TABLE>! ;
foreach $type_pkgs ( qsearch('type_pkgs',{'typenum'=> $agent->typenum }) ) {
my($pkgpart)=$type_pkgs->pkgpart;
print qq!<TR>! if ($count == 0) ;
print <<END;
<TD>
<INPUT TYPE="text" NAME="pkg$pkgpart" VALUE="0" SIZE="2" MAXLENGTH="2">
$pkgpart: $pkg{$pkgpart} - $comment{$pkgpart}</TD>\n
END
$count ++ ;
if ($count == 2)
{
print qq!</TR>\n! ;
$count = 0 ;
}
}
print qq!</TABLE></CENTER>! ;
#otaker
print qq!<INPUT TYPE="hidden" NAME="new_otaker" VALUE="$otaker">\n!;
#submit
print qq!<P><CENTER><INPUT TYPE="submit" VALUE="Order"></CENTER>\n!;
print <<END;
</FORM>
</BODY>
</HTML>
END
|
