X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fmisc%2Fchange_pkg.cgi;h=7c88876d4956c089443e722b875b2f92f698297d;hb=c648976f0b7975f2328ebd7ba8c711fad0ca4195;hp=7276f3256defc7a1bf139119823ae9d879a9f548;hpb=be10e7a1421c13eec4b1bb3676eaf5c84344e601;p=freeside.git
diff --git a/httemplate/misc/change_pkg.cgi b/httemplate/misc/change_pkg.cgi
index 7276f3256..7c88876d4 100755
--- a/httemplate/misc/change_pkg.cgi
+++ b/httemplate/misc/change_pkg.cgi
@@ -1,65 +1,69 @@
-
-%
-%
-%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!