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
|
<!-- mason kludge -->
<%
# <!-- $Id: REAL_cust_pkg.cgi,v 1.7 2003-11-19 12:21:09 ivan Exp $ -->
my $error ='';
my $pkgnum = '';
if ( $cgi->param('error') ) {
$error = $cgi->param('error');
$pkgnum = $cgi->param('pkgnum');
} else {
my($query) = $cgi->keywords;
$query =~ /^(\d+)$/ or die "no pkgnum";
$pkgnum = $1;
}
#get package record
my $cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
die "No package!" unless $cust_pkg;
my $part_pkg = qsearchs('part_pkg',{'pkgpart'=>$cust_pkg->getfield('pkgpart')});
if ( $error ) {
#$cust_pkg->$_(str2time($cgi->param($_)) foreach qw(setup bill);
$cust_pkg->setup(str2time($cgi->param('setup')));
$cust_pkg->bill(str2time($cgi->param('bill')));
}
#my $custnum = $cust_pkg->getfield('custnum');
print header('Package Edit'); #, menubar(
# "View this customer (#$custnum)" => popurl(2). "view/cust_main.cgi?$custnum",
# 'Main Menu' => popurl(2)
#));
%>
<LINK REL="stylesheet" TYPE="text/css" HREF="../elements/calendar-win2k-2.css" TITLE="win2k-2">
<SCRIPT TYPE="text/javascript" SRC="../elements/calendar_stripped.js"></SCRIPT>
<SCRIPT TYPE="text/javascript" SRC="../elements/calendar-en.js"></SCRIPT>
<SCRIPT TYPE="text/javascript" SRC="../elements/calendar-setup.js"></SCRIPT>
<%
#print info
my($susp,$cancel,$expire)=(
$cust_pkg->getfield('susp'),
$cust_pkg->getfield('cancel'),
$cust_pkg->getfield('expire'),
);
my($pkg,$comment)=($part_pkg->getfield('pkg'),$part_pkg->getfield('comment'));
my($setup,$bill)=($cust_pkg->getfield('setup'),$cust_pkg->getfield('bill'));
my $otaker = $cust_pkg->getfield('otaker');
print '<FORM NAME="formname" ACTION="process/REAL_cust_pkg.cgi" METHOD="POST">', qq!<INPUT TYPE="hidden" NAME="pkgnum" VALUE="$pkgnum">!;
print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: $error</FONT>!
if $error;
#my $format = "%c %z (%Z)";
my $format = "%m/%d/%Y %T %z (%Z)";
print ntable("#cccccc",2),
'<TR><TD ALIGN="right">Package number</TD><TD BGCOLOR="#ffffff">',
$pkgnum, '</TD></TR>',
'<TR><TD ALIGN="right">Package</TD><TD BGCOLOR="#ffffff">',
$pkg, '</TD></TR>',
'<TR><TD ALIGN="right">Comment</TD><TD BGCOLOR="#ffffff">',
$comment, '</TD></TR>',
'<TR><TD ALIGN="right">Order taker</TD><TD BGCOLOR="#ffffff">',
$otaker, '</TD></TR>',
'<TR><TD ALIGN="right">Setup date</TD><TD>'.
'<INPUT TYPE="text" NAME="setup" SIZE=32 ID="setup_text" VALUE="',
( $setup ? time2str($format, $setup) : "" ), '">'.
' <IMG SRC="../images/calendar.png" ID="setup_button" STYLE="cursor: pointer" TITLE="Select date">'.
'</TD></TR>';
print '<TR><TD ALIGN="right">Last bill date</TD><TD>',
'<INPUT TYPE="text" NAME="last_bill" SIZE=32 ID="last_bill_text" VALUE="',
( $cust_pkg->last_bill
? time2str($format, $cust_pkg->last_bill)
: "" ),
'">'.
' <IMG SRC="../images/calendar.png" ID="last_bill_button" STYLE="cursor: pointer" TITLE="Select date">'.
'</TD></TR>'
if $cust_pkg->dbdef_table->column('last_bill');
print '<TR><TD ALIGN="right">Next bill date</TD><TD>',
'<INPUT TYPE="text" NAME="bill" SIZE=32 ID="bill_text" VALUE="',
( $bill ? time2str($format, $bill) : "" ), '">'.
' <IMG SRC="../images/calendar.png" ID="bill_button" STYLE="cursor: pointer" TITLE="Select date">'.
'</TD></TR>';
print '<TR><TD ALIGN="right">Suspension date</TD><TD BGCOLOR="#ffffff">',
time2str($format, $susp), '</TD></TR>'
if $susp;
#print '<TR><TD ALIGN="right">Expiration date</TD><TD BGCOLOR="#ffffff">',
# time2str("%D",$expire), '</TD></TR>'
# if $expire;
print '<TR><TD ALIGN="right">Expiration date'.
'</TD><TD>',
'<INPUT TYPE="text" NAME="expire" SIZE=32 ID="expire_text" VALUE="',
( $expire ? time2str($format, $expire) : "" ), '">'.
' <IMG SRC="../images/calendar.png" ID="expire_button" STYLE="cursor: pointer" TITLE="Select date">'.
'<BR><FONT SIZE=-1>(will <b>cancel</b> this package'.
' when the date is reached)</FONT>'.
'</TD></TR>';
print '<TR><TD ALIGN="right">Cancellation date</TD><TD BGCOLOR="#ffffff">',
time2str($format, $cancel), '</TD></TR>'
if $cancel;
%>
</TABLE>
<SCRIPT TYPE="text/javascript">
<%
my @cal = qw( setup bill expire );
push @cal, 'last_bill'
if $cust_pkg->dbdef_table->column('last_bill');
foreach my $cal (@cal) {
%>
Calendar.setup({
inputField: "<%= $cal %>_text",
ifFormat: "%m/%d/%Y",
button: "<%= $cal %>_button",
align: "BR"
});
<% } %>
</SCRIPT>
<BR><INPUT TYPE="submit" VALUE="Apply Changes">
</FORM>
</BODY>
</HTML>
|
