diff options
| author | ivan <ivan> | 1998-11-15 13:14:20 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1998-11-15 13:14:20 +0000 |
| commit | 2a7d9b79f305a57d84c49ee556242777bd739f74 (patch) | |
| tree | a4c5f91b3ca6860696d22c86e430a02f5f55ec43 /htdocs/view | |
| parent | d02ed4f82fa0394ee74ec92954524655ad605c8f (diff) | |
first pass as per-customer custom pricing
Diffstat (limited to 'htdocs/view')
| -rwxr-xr-x | htdocs/view/cust_main.cgi | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/htdocs/view/cust_main.cgi b/htdocs/view/cust_main.cgi index 5a660f23b..c39643d70 100755 --- a/htdocs/view/cust_main.cgi +++ b/htdocs/view/cust_main.cgi @@ -33,7 +33,10 @@ # lose background, FS::CGI ivan@sisd.com 98-sep-2 # # $Log: cust_main.cgi,v $ -# Revision 1.2 1998-11-13 11:28:08 ivan +# Revision 1.3 1998-11-15 13:14:20 ivan +# first pass as per-customer custom pricing +# +# Revision 1.2 1998/11/13 11:28:08 ivan # s/CGI-modules/CGI.pm/;, relative URL's with popurl # @@ -203,7 +206,12 @@ foreach $package (@packages) { $pref->{pkgnum}, qq!">!, $pref->{pkgnum}, qq!</A></FONT></TD>!, "<TD><FONT SIZE=-1>", $part_pkg->getfield('pkg'), " - ", - $part_pkg->getfield('comment'), "</FONT></TD>", + $part_pkg->getfield('comment'), + qq!<FORM ACTION="!, popurl(2), qq!/edit/part_pkg.cgi" METHOD=POST>!, + qq!<INPUT TYPE="hidden" NAME="clone" VALUE="!, $part_pkg->pkgpart, qq!">!, + qq!<INPUT TYPE="hidden" NAME="pkgnum" VALUE="!, $package->pkgnum, qq!">!, + qq!<INPUT TYPE="submit" VALUE="Customize Pricing">!, + "</FORM></FONT></TD>", "<TD><FONT SIZE=-1>", $pref->{setup} ? time2str("%D",$pref->{setup} ) : "" , "</FONT></TD>", |