diff options
| author | ivan <ivan> | 1998-07-02 09:31:09 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1998-07-02 09:31:09 +0000 |
| commit | baba75d8568c152ee52ef5bab3c514c78468cf00 (patch) | |
| tree | 0006e994e1a66ff4579db372fa51a5bcc6e497bf | |
| parent | 5987e58401569636f78af5125d0d2acab1ed6d2a (diff) | |
Initial revision
| -rwxr-xr-x | htdocs/edit/cust_pkg.cgi | 137 |
1 files changed, 137 insertions, 0 deletions
diff --git a/htdocs/edit/cust_pkg.cgi b/htdocs/edit/cust_pkg.cgi new file mode 100755 index 000000000..d7f143db4 --- /dev/null +++ b/htdocs/edit/cust_pkg.cgi @@ -0,0 +1,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 |