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