-%
-%
-%my $error = '';
-%
-%#untaint custnum
-%$cgi->param('custnum') =~ /^(\d+)$/;
-%my $custnum = $1;
-%
-%my @remove_pkgnums = map {
-% /^(\d+)$/ or die "Illegal remove_pkg value!";
-% $1;
-%} $cgi->param('remove_pkg');
-%
-%my $error_redirect;
-%my @pkgparts;
-%if ( $cgi->param('new_pkgpart') =~ /^(\d+)$/ ) { #came from misc/change_pkg.cgi
-% $error_redirect = "misc/change_pkg.cgi";
-% @pkgparts = ($1);
-%} else { #came from edit/cust_pkg.cgi
-% $error_redirect = "edit/cust_pkg.cgi";
-% foreach my $pkgpart ( map /^pkg(\d+)$/ ? $1 : (), $cgi->param ) {
-% if ( $cgi->param("pkg$pkgpart") =~ /^(\d+)$/ ) {
-% my $num_pkgs = $1;
-% while ( $num_pkgs-- ) {
-% push @pkgparts,$pkgpart;
-% }
-% } else {
-% $error = "Illegal quantity";
-% last;
-% }
-% }
-%}
-%
-%$error ||= FS::cust_pkg::order($custnum,\@pkgparts,\@remove_pkgnums);
-%
-%if ($error) {
-% $cgi->param('error', $error);
-% print $cgi->redirect(popurl(3). $error_redirect. '?'. $cgi->query_string );
-%} else {
-% print $cgi->redirect(popurl(3). "view/cust_main.cgi?$custnum");
-%}
-%
-%
+% if ($error) {
+% $cgi->param('error', $error);
+% $cgi->redirect(popurl(3). $error_redirect. '?'. $cgi->query_string );
+% } elsif ( $action eq 'change' ) {
+ <% header("Package changed") %>
+ <SCRIPT TYPE="text/javascript">
+ window.top.location.reload();
+ </SCRIPT>
+ </BODY>
+ </HTML>
+
+% } elsif ( $action eq 'bulk' ) {
+% $cgi->redirect(popurl(3). "view/cust_main.cgi?$custnum");
+% } else {
+% die "guru exception #5: action is neither change nor bulk!";
+% }
+<%init>
+
+my $error = '';
+
+#untaint custnum
+$cgi->param('custnum') =~ /^(\d+)$/;
+my $custnum = $1;
+
+my @remove_pkgnums = map {
+ /^(\d+)$/ or die "Illegal remove_pkg value!";
+ $1;
+} $cgi->param('remove_pkg');
+
+my( $action, $error_redirect );
+my @pkgparts = ();
+if ( $cgi->param('new_pkgpart') =~ /^(\d+)$/ ) { #came from misc/change_pkg.cgi
+ $action = 'change';
+ $error_redirect = "misc/change_pkg.cgi";
+ @pkgparts = ($1);
+} else { #came from edit/cust_pkg.cgi
+ $action = 'bulk';
+ $error_redirect = "edit/cust_pkg.cgi";
+ foreach my $pkgpart ( map /^pkg(\d+)$/ ? $1 : (), $cgi->param ) {
+ if ( $cgi->param("pkg$pkgpart") =~ /^(\d+)$/ ) {
+ my $num_pkgs = $1;
+ while ( $num_pkgs-- ) {
+ push @pkgparts,$pkgpart;
+ }
+ } else {
+ $error = "Illegal quantity";
+ last;
+ }
+ }
+}
+
+$error ||= FS::cust_pkg::order($custnum,\@pkgparts,\@remove_pkgnums);
+
+</%init>
include( '/elements/select-table.html',
#required
- 'table' => 'table_name',
- 'name_col' => 'name_column',
+ 'table' => 'table_name',
+ 'name_col' => 'name_column',
#strongly recommended (you want your forms to be "sticky" on errors, right?)
- 'value' => 'current_value',
+ 'curr_value' => 'current_value',
+ #'value' => #deprecated form of 'curr_value',
#opt
- 'empty_label' => '', #better specify it though, the default might change
- 'hashref' => {},
- 'extra_sql' => '',
- 'records' => \@records, #instead of hashref
- 'pre_options' => [ 'value' => 'option' ], #before normal options
- 'element_name ' => '', #HTML element name, defaults to the name of
- # the primary key column
- 'field' => '', #synonym for element_name
- 'element_etc' => '', #additional attributes (i.e. "DISABLED") for the
- #<SELECT> element
- 'multiple' => 0, # bool
- 'disable_empty' => 0, # bool (implied by multiple)
- 'debug' => 0, #set true to enable
-
+ 'empty_label' => '', #better specify it though, the default might change
+ 'hashref' => {},
+ 'extra_sql' => '',
+ 'records' => \@records, #instead of hashref
+ 'pre_options' => [ 'value' => 'option' ], #before normal options
+ 'element_name' => '', #HTML element name, defaults to the name of
+ # the primary key column
+ 'field' => '', #synonym for element_name
+ 'element_etc' => '', #additional attributes (i.e. "DISABLED") for the
+ #<SELECT> element
+ 'onchange' => '', #javascript code
+ 'multiple' => 0, # bool
+ 'disable_empty' => 0, # bool (implied by multiple)
+ 'debug' => 0, #set true to enable
+ 'label_callback' => sub { my $record = shift; return "label"; },
)
</%doc>
-<SELECT <% $opt{'multiple'} ? 'MULTIPLE' : '' %> NAME="<% $opt{'element_name'} || $opt{'field'} || $key %>" <% $opt{'element_etc'} %>>
+<SELECT <% $opt{'multiple'} ? 'MULTIPLE' : '' %>
+ NAME = "<% $opt{'element_name'} || $opt{'field'} || $key %>"
+ <% $onchange %>
+ <% $opt{'element_etc'} %>
+>
% while ( @pre_options ) {
<OPTION VALUE="<% shift(@pre_options) %>"><% shift(@pre_options) %>
<% ref($value) && $value->{$recvalue} || $value == $recvalue
? ' SELECTED' : ''
%>
- ><% $record->$name_col() %>
+ ><% $opt{'label_callback'}
+ ? &{ $opt{'label_callback'} }( $record )
+ : $record->$name_col()
+ %>
% }
</SELECT>
warn "elements/select-table.html: \n". Dumper(%opt)
if exists $opt{debug} && $opt{debug};
+my $onchange = $opt{'onchange'}
+ ? 'onChange="'. $opt{'onchange'}. '(this)"'
+ : '';
+
my $key = dbdef->table($opt{'table'})->primary_key; #? $opt{'primary_key'} ||
my $name_col = $opt{'name_col'};
-<% include('/elements/header.html', "Change Package") %>
+<% include('/elements/header-popup.html', "Change Package") %>
% if ( $cgi->param('error') ) {
<FONT SIZE="+1" COLOR="#ff0000">Error: <% $cgi->param('error') %></FONT>
<BR><BR>
% }
-<% small_custview( $cust_main, $conf->config('countrydefault') || '' , '',
- "${p}view/cust_main.cgi")
-%>
-
<FORM ACTION="<% $p %>edit/process/cust_pkg.cgi" METHOD=POST>
<INPUT TYPE="hidden" NAME="custnum" VALUE="<% $custnum %>">
<INPUT TYPE="hidden" NAME="remove_pkg" VALUE="<% $pkgnum %>">
-<BR>
-Current package: <% $part_pkg->pkg %> - <% $part_pkg->comment %>
+<% ntable('#cccccc') %>
+
+ <TR>
+ <TD>Current package: </TD>
+ <TD>
+ <B><% $part_pkg->pkgpart %>: <% $part_pkg->pkg %> - <% $part_pkg->comment %></B>
+ </TD>
+ </TR>
+
+ <TR>
+ <TD>New package: </TD>
+ <TD><% include('/elements/select-cust-part_pkg.html',
+ 'cust_main' => $cust_main,
+ 'element_name' => 'new_pkgpart',
+ 'extra_sql' => ' AND pkgpart != '. $cust_pkg->pkgpart,
+ 'curr_value' => ( $cgi->param('error')
+ ? scalar($cgi->param('new_pkgpart'))
+ : ''
+ ),
+ )
+ %>
+ </TD>
+ </TR>
+
+</TABLE>
<BR>
-New package: <SELECT NAME="new_pkgpart"><OPTION VALUE=0></OPTION>
-
-%foreach my $part_pkg (
-% grep { ! $_->disabled && $_->pkgpart != $cust_pkg->pkgpart }
-% map { $_->part_pkg } $agent->agent_type->type_pkgs
-%) {
-% my $pkgpart = $part_pkg->pkgpart;
-
- <OPTION VALUE="<% $pkgpart %>" <% ( $cgi->param('error') && $cgi->param('new_pkgpart') == $pkgpart ) ? ' SELECTED' : '' %>>
- <% $pkgpart %>: <% $part_pkg->pkg %> - <% $part_pkg->comment %>
- </OPTION>
+<INPUT TYPE="submit" VALUE="Change package">
-%}
-
-</SELECT>
-<BR><BR><INPUT TYPE="submit" VALUE="Change package">
- </FORM>
- </BODY>
+</FORM>
+</BODY>
</HTML>
+
<%init>
+die "access denied"
+ unless $FS::CurrentUser::CurrentUser->access_right('Change customer package');
+
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 = ();
+ $pkgnum = $cgi->param('pkgnum');
}
+$pkgnum =~ /^(\d+)$/ or die "illegal pkgnum $pkgnum";
+$pkgnum = $1;
my $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } )
or die "unknown pkgnum $pkgnum";
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. ")";
<TR>
<TH ALIGN="right">Package</TH>
<TD>
- <SELECT NAME="pkgpart" onChange="enable_order_pkg()"><OPTION>Select package
-
-%foreach my $part_pkg (
-% qsearch( 'part_pkg', { 'disabled' => '' }, '',
-% ' AND 0 < ( SELECT COUNT(*) FROM type_pkgs '.
-% ' WHERE typenum = '. $cust_main->agent->typenum.
-% ' AND type_pkgs.pkgpart = part_pkg.pkgpart )'
-% )
-%) {
-
- <OPTION VALUE="<% $part_pkg->pkgpart %>"><% $part_pkg->pkg %> - <% $part_pkg->comment %>
-
-% }
-
- </SELECT>
+ <% include('/elements/select-cust-part_pkg.html',
+ 'cust_main' => $cust_main,
+ 'onchange' => 'enable_order_pkg',
+ )
+ %>
</TD>
</TR>
$strip;
}
-sub pkg_change_link { pkg_link('misc/change_pkg', 'Change package', @_ ); }
+sub pkg_change_link { pkg_popup_link('misc/change_pkg.cgi?dummy=value',
+ 'Change package',
+ 'Change',
+ '',
+ @_
+ );
+ }
sub pkg_suspend_link { pkg_popup_link( 'misc/cancel_pkg.html?method=suspend',
'Suspend now',
projects / freeside.git / commitdiff