diff options
| author | ivan <ivan> | 2002-02-19 02:57:39 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-02-19 02:57:39 +0000 |
| commit | b500b9de7f863e1a54fe117a565c04ef917109d8 (patch) | |
| tree | 58d5f16587a12109b798b8b0a5d61a47f22a0242 /httemplate | |
| parent | 0ab8b21b9b39d9349c94e6cea10dbb006ff176a5 (diff) | |
allow custom packages to edit service quantities also
Diffstat (limited to 'httemplate')
| -rwxr-xr-x | httemplate/edit/part_pkg.cgi | 12 | ||||
| -rwxr-xr-x | httemplate/view/cust_main.cgi | 2 |
2 files changed, 10 insertions, 4 deletions
diff --git a/httemplate/edit/part_pkg.cgi b/httemplate/edit/part_pkg.cgi index ae268811a..8e7a6c5cf 100755 --- a/httemplate/edit/part_pkg.cgi +++ b/httemplate/edit/part_pkg.cgi @@ -110,7 +110,9 @@ my $thead = "\n\n". ntable('#cccccc', 2). <<END; <TR><TH BGCOLOR="#dcdcdc"><FONT SIZE=-1>Quan.</FONT></TH><TH BGCOLOR="#dcdcdc">Service</TH></TR> END -unless ( $cgi->param('clone') ) { +#unless ( $cgi->param('clone') ) { +#dunno why... +unless ( 0 ) { #print <<END, $thead; print <<END, itable(), '<TR><TD VALIGN="top">', $thead; <BR><BR>Enter the quantity of each service this package includes.<BR><BR> @@ -135,7 +137,9 @@ foreach my $part_svc ( @part_svc ) { push @fixups, "pkg_svc$svcpart"; - unless ( defined ($cgi->param('clone')) && $cgi->param('clone') ) { + #unless ( defined ($cgi->param('clone')) && $cgi->param('clone') ) { + #dunno why... + unless ( 0 ) { print '<TR>'; # if $count == 0 ; print qq!<TD><INPUT TYPE="text" NAME="pkg_svc$svcpart" SIZE=4 MAXLENGTH=3 VALUE="!, $cgi->param("pkg_svc$svcpart") || $pkg_svc->quantity || 0, @@ -153,7 +157,9 @@ foreach my $part_svc ( @part_svc ) { } } -unless ( $cgi->param('clone') ) { +#unless ( $cgi->param('clone') ) { +#dunno why... +unless ( 0 ) { print "</TR></TABLE></TD></TR></TABLE>"; #print "</TR></TABLE>"; } diff --git a/httemplate/view/cust_main.cgi b/httemplate/view/cust_main.cgi index 90299e4dd..34e99cf3e 100755 --- a/httemplate/view/cust_main.cgi +++ b/httemplate/view/cust_main.cgi @@ -302,7 +302,7 @@ foreach my $package (@packages) { qq!<TD ROWSPAN=$rowspan><FONT SIZE=-1>!, #qq!<A HREF="$pkgview">$pkg - $comment</A>!, qq!$pkg - $comment!, - qq! ( <A HREF="$pkgview">Edit</A> | <A HREF="$button_url">Customize pricing</A> )</FONT></TD>!, + qq! ( <A HREF="$pkgview">Edit</A> | <A HREF="$button_url">Customize</A> )</FONT></TD>!, ; for ( qw( setup bill susp expire cancel ) ) { print "<TD ROWSPAN=$rowspan><FONT SIZE=-1>", ( $package->getfield($_) |