X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fmisc%2Fchange_pkg.cgi;h=7276f3256defc7a1bf139119823ae9d879a9f548;hb=be10e7a1421c13eec4b1bb3676eaf5c84344e601;hp=5346fd9d89b75d24ab1405f37247ec8dfef22c62;hpb=0ebeec96313dd7edfca340f01f8fbbbac1f4aa1d;p=freeside.git
diff --git a/httemplate/misc/change_pkg.cgi b/httemplate/misc/change_pkg.cgi
index 5346fd9d8..7276f3256 100755
--- a/httemplate/misc/change_pkg.cgi
+++ b/httemplate/misc/change_pkg.cgi
@@ -1,66 +1,65 @@
-<%
+%
+%
+%my $pkgnum;
+%if ( $cgi->param('error') ) {
+% #$custnum = $cgi->param('custnum');
+% #%remove_pkg = map { $_ => 1 } $cgi->param('remove_pkg');
+% $pkgnum = ($cgi->param('remove_pkg'))[0];
+%} else {
+% my($query) = $cgi->keywords;
+% $query =~ /^(\d+)$/;
+% #$custnum = $1;
+% $pkgnum = $1;
+% #%remove_pkg = ();
+%}
+%
+%my $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } )
+% or die "unknown pkgnum $pkgnum";
+%my $custnum = $cust_pkg->custnum;
+%
+%my $conf = new FS::Conf;
+%
+%my $p1 = popurl(1);
+%
+%my $cust_main = $cust_pkg->cust_main
+% or die "can't get cust_main record for custnum ". $cust_pkg->custnum.
+% " ( pkgnum ". cust_pkg->pkgnum. ")";
+%my $agent = $cust_main->agent;
+%
+%print header("Change Package");
+%
+%print qq!Error: !, $cgi->param('error'),
+% "
"
+% if $cgi->param('error');
+%
+%my $part_pkg = $cust_pkg->part_pkg;
+%
+%print small_custview( $cust_main, $conf->config('countrydefault') || '' , '',
+% "${p}view/cust_main.cgi").
+% qq!