X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fcust_pkg.cgi;h=4e4f4d2b2184bb57fea8321234ddffd7974a7f54;hb=90e15da7354b55cc5461b58ac087096ed47e0240;hp=88e9254601f2fcf11cda6844c7d062af6ac2e81d;hpb=f3e0ac2b009c4edd5692cb587ff709dac2223ebe;p=freeside.git diff --git a/httemplate/edit/cust_pkg.cgi b/httemplate/edit/cust_pkg.cgi index 88e925460..4e4f4d2b2 100755 --- a/httemplate/edit/cust_pkg.cgi +++ b/httemplate/edit/cust_pkg.cgi @@ -1,115 +1,207 @@ -<% include('/elements/header.html', "Add/Edit Packages", '') %> +<%doc> + Bulk package Edit Page + + +<& /elements/header-cust_main.html, + view => 'packages', + cust_main => $cust_main, + include_selectize => 1, +&> <% include('/elements/error.html') %> -
- - - -%#current packages -%if (@cust_pkg) { - - Current packages - select to remove (services are moved to a new package below) - - - - - -

-% -% foreach ( @main_pkgs ) { -% my($pkgnum,$pkgpart)=( $_->getfield('pkgnum'), $_->getfield('pkgpart') ); -% my $checked = $remove_pkg{$pkgnum} ? ' CHECKED' : ''; -% -% - - - - - - - -% foreach my $supp_pkg ( @{ $supp_pkgs_of{$pkgnum} } ) { - - - - - + + + + + + +

+ + <% include( '/elements/select-cust_location.html', + cust_main => $cust_main, + addnew => 0, + onchange => 'javascript:location_changed(this);', + ) %>
+ + Bulk-edit works with one customer location at a time + +

+ +
Pkg #Package description
><% $pkgnum %>:<% $all_pkg{$pkgpart} %> - <% $all_comment{$pkgpart} %>
+ <% $all_pkg{$supp_pkg->pkgpart} %> - <% $all_comment{$supp_pkg->pkgpart} %>
+ + + + + + + +% for my $cust_pkg ( @cust_pkg ) { +% my $id = sprintf 'remove_cust_pkg[%s]', $cust_pkg->pkgnum; +% my $is_displayed = $cust_main->ship_locationnum == $cust_pkg->locationnum ? 1 : 0; + + + + + % } -% } - - -
+ Pkg # + + Current Packages
+
+ Selected packages are removed.
+ Attached services are moved to the new package selected below + +
+ + #<% $cust_pkg->pkgnum %> + +% } +
-

-% } - - -Order new packages -

-% -%my $cust_main = qsearchs('cust_main',{'custnum'=>$custnum}); -%my $agent = qsearchs('agent',{'agentnum'=> $cust_main->agentnum }); -% -%my %agent_pkgs = map { ( $_->pkgpart , $all_pkg{$_->pkgpart} ) } -% qsearch('type_pkgs',{'typenum'=> $agent->typenum }); -% -%my $count = 0; -%my $pkgparts = 0; -% - - - - - - - -% -%#foreach my $type_pkgs ( qsearch('type_pkgs',{'typenum'=> $agent->typenum }) ) { -%foreach my $pkgpart ( sort { $agent_pkgs{$a} cmp $agent_pkgs{$b} } -% keys(%agent_pkgs) ) { -% $pkgparts++; -% next unless exists $pkg{$pkgpart}; #skip disabled ones -% #print qq!! if ( $count == 0 ); -% my $value = $cgi->param("pkg$pkgpart") || 0; -% - - - - - - - -% -% $count ++ ; -% #if ( $count == 2 ) { -% # print qq!\n! ; -% # $count = 0; -% #} -%} -% - - -
Qty.Package Description
- " VALUE="<% $value %>" SIZE="2" MAXLENGTH="2"> - <% $pkgpart %>:<% $pkg{$pkgpart} %> - <% $comment{$pkgpart}%>
-% unless ( $pkgparts ) { -% my $p2 = popurl(2); -% my $typenum = $agent->typenum; -% my $agent_type = qsearchs( 'agent_type', { 'typenum' => $typenum } ); -% my $atype = $agent_type->atype; -% - - - (No package definitions, - or agent type - <% $atype %> - is not allowed to purchase any packages.) -% } - - -

- -

+ + + + + + + + + + + + + + + +% for my $part_pkg ( @part_pkg_enabled ) { +% my $id = sprintf 'qty_part_pkg[%s]', $part_pkg->pkgpart; + + + + + +% } + +
+ <% include('/elements/selectize/select-multiple-pkg_class.html', + id => 'filter_pkg_class', + onchange => 'pkg_class_filter_onchange', + ) %> +
QtyClassOrder New Packages
+ + <% $part_pkg->classname || '(none)' %><% $part_pkg->pkg %>
+ + + + <% include('/elements/footer.html') %> @@ -118,53 +210,41 @@ Order new packages die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Bulk change customer packages'); -my %pkg = (); -my %comment = (); -my %all_pkg = (); -my %all_comment = (); -#foreach (qsearch('part_pkg', { 'disabled' => '' })) { -# $pkg{ $_ -> getfield('pkgpart') } = $_->getfield('pkg'); -# $comment{ $_ -> getfield('pkgpart') } = $_->getfield('comment'); -#} -foreach (qsearch('part_pkg', {} )) { - $all_pkg{ $_ -> getfield('pkgpart') } = $_->getfield('pkg'); - $all_comment{ $_ -> getfield('pkgpart') } = $_->custom_comment; - next if $_->disabled; - $pkg{ $_ -> getfield('pkgpart') } = $_->getfield('pkg'); - $comment{ $_ -> getfield('pkgpart') } = $_->custom_comment; -} +my $custnum = $cgi->param('keywords') || $cgi->param('custnum'); +$custnum =~ /^\d+$/ + or die "Invalid custnum($custnum)"; -my($custnum, %remove_pkg); -if ( $cgi->param('error') ) { - $custnum = $cgi->param('custnum'); - %remove_pkg = map { $_ => 1 } $cgi->param('remove_pkg'); -} else { - my($query) = $cgi->keywords; - $query =~ /^(\d+)$/; - $custnum = $1; - %remove_pkg = (); -} +my $cust_main = qsearchs( cust_main => { custnum => $custnum }) + or die "Invalid custnum ($custnum)"; -my $p1 = popurl(1); +my %part_pkg; +my @part_pkg_enabled; -my @cust_pkg = qsearch('cust_pkg', { 'custnum' => $custnum, 'cancel' => '' } ); -my @main_pkgs; -my %supp_pkgs_of; # main pkgnum => arrayref of cust_pkgs - - -foreach my $cust_pkg - ( sort { $all_pkg{ $a->pkgpart } cmp $all_pkg{ $b->getfield('pkgpart') } } - @cust_pkg +for my $part_pkg ( qsearch( part_pkg => {} )) { + $part_pkg{ $part_pkg->pkgpart } = $part_pkg; + push @part_pkg_enabled, $part_pkg + unless $part_pkg->disabled; +} +@part_pkg_enabled = + sort { $a->classname cmp $b->classname || $a->pkg cmp $b->pkg } + @part_pkg_enabled; + +my @cust_pkg; +my %cust_pkg_supp_of; +for my $cust_pkg ( + qsearch( + cust_pkg => { + custnum => $custnum, + cancel => '', + } ) - # XXX does not properly handle recursive supplemental links -{ +) { if ( my $main_pkgnum = $cust_pkg->main_pkgnum ) { - $supp_pkgs_of{$main_pkgnum} ||= []; - push @{ $supp_pkgs_of{$main_pkgnum} }, $cust_pkg; + $cust_pkg_supp_of{ $main_pkgnum } //= []; + push @{ $cust_pkg_supp_of{ $main_pkgnum } }, $cust_pkg; } else { - push @main_pkgs, $cust_pkg; - $supp_pkgs_of{$cust_pkg->pkgnum} ||= []; + $cust_pkg_supp_of{ $cust_pkg->pkgnum } //= []; + push @cust_pkg, $cust_pkg; } } -