X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fmisc%2Fchange_pkg.cgi;h=17dc8b85929942326f387652eb744a7750105ddd;hp=5346fd9d89b75d24ab1405f37247ec8dfef22c62;hb=3ce7691203a7737406bf2d4442f7fd84b81f847e;hpb=15e561850b61b10a92a46d8f3e316d53d4970087
diff --git a/httemplate/misc/change_pkg.cgi b/httemplate/misc/change_pkg.cgi
index 5346fd9d8..17dc8b859 100755
--- a/httemplate/misc/change_pkg.cgi
+++ b/httemplate/misc/change_pkg.cgi
@@ -1,66 +1,67 @@
-<%
+%
+%
+%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", menubar(
+% "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
+% 'Main Menu' => $p,
+%));
+%
+%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') ).
+% qq!