X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fmisc%2Fchange_pkg.cgi;h=e3ef4b7a85ed6bffd60194ed3ebde527151f9aec;hb=d02f1d8fb338e4dd1b401892b3408a65cad3b4d4;hp=17dc8b85929942326f387652eb744a7750105ddd;hpb=c8cccb4a92adceb943c635fe62dad0d034462ce0;p=freeside.git
diff --git a/httemplate/misc/change_pkg.cgi b/httemplate/misc/change_pkg.cgi
index 17dc8b859..e3ef4b7a8 100755
--- a/httemplate/misc/change_pkg.cgi
+++ b/httemplate/misc/change_pkg.cgi
@@ -1,67 +1,161 @@
-
-%
-%
-%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!