% if ( @$packages ) { % #my $width = $show_location ? 'WIDTH="25%"' : 'WIDTH="33%"'; <% mt('Package') |h %> <% mt('Status') |h %> % if ( $show_location ) { <% mt('Location') |h %> % } <% mt('Services') |h %> % #$FS::cust_pkg::DEBUG = 2; % foreach my $cust_pkg (@$packages) { <& .packagerow, $cust_pkg, 'cust_main' => $opt{'cust_main'}, %conf_opt &> % } % } else { # there are no packages
% } <%def .packagerow> % % my ($cust_pkg, %iopt) = @_; % $iopt{'cust_pkg'} = $cust_pkg; % $iopt{'part_pkg'} = $cust_pkg->part_pkg; <& package.html, %iopt &> <& status.html, %iopt &> % if ( $iopt{'show_location'} ) { <& location.html, %iopt &> % } <& services.html, %iopt &> % $row++; % # include supplemental packages if any % $iopt{'supplemental'} = ($iopt{'supplemental'} || 0) + 1; % foreach my $supp_pkg ($cust_pkg->supplemental_pkgs) { <& .packagerow, $supp_pkg, %iopt &> % } <%shared> my $row = 0; <%init> my %opt = @_; my $conf = new FS::Conf; my $curuser = $FS::CurrentUser::CurrentUser; my $packages = $opt{'packages'}; my $show_location = $opt{'show_location'}; # Sort order is hardcoded for now, can change this if needed. @$packages = sort { ( $a->getfield('cancel') <=> $b->getfield('cancel') ) or ( $a->getfield('setup') <=> $b->getfield('setup') ) or ( $a->getfield('pkgnum') <=> $b->getfield('pkgnum') ) } @$packages; my $countrydefault = scalar($conf->config('countrydefault')) || 'US'; my %conf_opt = ( #for services.html and status.html 'cust_pkg-display_times' => ($conf->exists('cust_pkg-display_times') || $curuser->option('cust_pkg-display_times')), #for status.html 'cust_pkg-show_autosuspend' => $conf->exists('cust_pkg-show_autosuspend'), #for status.html pkg-balances 'pkg-balances' => $conf->exists('pkg-balances'), 'money_char' => ( $conf->config('money_char') || '$' ), #for location.html 'countrydefault' => $countrydefault, 'statedefault' => ( scalar($conf->config('statedefault')) || ($countrydefault eq 'US' ? 'CA' : '') ), #for services.html 'svc_external-skip_manual' => $conf->exists('svc_external-skip_manual'), 'legacy_link' => $conf->exists('legacy_link'), 'manage_link' => scalar($conf->config('svc_broadband-manage_link')), 'manage_link_text' => scalar($conf->config('svc_broadband-manage_link_text')), 'manage_link_loc' => scalar($conf->config('svc_broadband-manage_link_loc')), 'manage_link-new_window' => $conf->exists('svc_broadband-manage_link-new_window'), 'maestro-status_test' => $conf->exists('maestro-status_test'), 'cust_pkg-large_pkg_size' => scalar($conf->config('cust_pkg-large_pkg_size')), # for packages.html Change location link 'show_location' => $show_location, );