From 3ce7691203a7737406bf2d4442f7fd84b81f847e Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 23 Aug 2006 22:25:39 +0000 Subject: Will things ever be the same again? It's the final masonize --- httemplate/misc/change_pkg.cgi | 129 +++++++++++++++++++++-------------------- 1 file changed, 65 insertions(+), 64 deletions(-) (limited to 'httemplate/misc/change_pkg.cgi') 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!
!. +% qq!!. +% qq!!. +% '
Current package: '. $part_pkg->pkg. ' - '. $part_pkg->comment. +% qq!
New package: +%
+% +% +%END +% -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!
!. - qq!!. - qq!!. - '
Current package: '. $part_pkg->pkg. ' - '. $part_pkg->comment. - qq!
New package: -
- - -END -%> -- cgit v1.2.1 From be10e7a1421c13eec4b1bb3676eaf5c84344e601 Mon Sep 17 00:00:00 2001 From: jeff Date: Wed, 17 Jan 2007 23:27:18 +0000 Subject: link to customer from manual payment screen (ticket 1414) --- httemplate/misc/change_pkg.cgi | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'httemplate/misc/change_pkg.cgi') diff --git a/httemplate/misc/change_pkg.cgi b/httemplate/misc/change_pkg.cgi index 17dc8b859..7276f3256 100755 --- a/httemplate/misc/change_pkg.cgi +++ b/httemplate/misc/change_pkg.cgi @@ -27,10 +27,7 @@ % " ( 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 header("Change Package"); % %print qq!Error: !, $cgi->param('error'), % "

" @@ -38,7 +35,8 @@ % %my $part_pkg = $cust_pkg->part_pkg; % -%print small_custview( $cust_main, $conf->config('countrydefault') ). +%print small_custview( $cust_main, $conf->config('countrydefault') || '' , '', +% "${p}view/cust_main.cgi"). % qq!
!. % qq!!. % qq!!. -- cgit v1.2.1 From 966e32b588916cb7f6208e075efcded5ff3620b0 Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 31 Jan 2007 02:08:40 +0000 Subject: this should be a popup too, but, until then, it shouldn't be missing the standard header --- httemplate/misc/change_pkg.cgi | 120 +++++++++++++++++++++-------------------- 1 file changed, 62 insertions(+), 58 deletions(-) (limited to 'httemplate/misc/change_pkg.cgi') diff --git a/httemplate/misc/change_pkg.cgi b/httemplate/misc/change_pkg.cgi index 7276f3256..cfa460964 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!!. -% qq!!. -% qq!!. -% '
Current package: '. $part_pkg->pkg. ' - '. $part_pkg->comment. -% qq!
New package: + + +
+Current package: <% $part_pkg->pkg %> - <% $part_pkg->comment %> + +
+New package: -% -% -% -%END -% + +

+ + + +<%init> + +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; + +my $part_pkg = $cust_pkg->part_pkg; + + -- cgit v1.2.1 From a099ad369951bea5e77d359cfbfe8dee4ae2d80e Mon Sep 17 00:00:00 2001 From: ivan Date: Fri, 9 Feb 2007 23:29:20 +0000 Subject: fix change package link --- httemplate/misc/change_pkg.cgi | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'httemplate/misc/change_pkg.cgi') diff --git a/httemplate/misc/change_pkg.cgi b/httemplate/misc/change_pkg.cgi index cfa460964..aef3746ea 100755 --- a/httemplate/misc/change_pkg.cgi +++ b/httemplate/misc/change_pkg.cgi @@ -9,9 +9,9 @@ "${p}view/cust_main.cgi") %> -
- - + + +
Current package: <% $part_pkg->pkg %> - <% $part_pkg->comment %> -- cgit v1.2.1 From 1eab936f24926c3f0ce408c508ea5cd378209374 Mon Sep 17 00:00:00 2001 From: ivan Date: Sat, 10 Feb 2007 00:42:44 +0000 Subject: REALLY fix the package changing this time --- httemplate/misc/change_pkg.cgi | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'httemplate/misc/change_pkg.cgi') diff --git a/httemplate/misc/change_pkg.cgi b/httemplate/misc/change_pkg.cgi index aef3746ea..655799fc1 100755 --- a/httemplate/misc/change_pkg.cgi +++ b/httemplate/misc/change_pkg.cgi @@ -25,7 +25,7 @@ New package: