--- /dev/null
+#!/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