diff options
Diffstat (limited to 'httemplate/view/cust_main/packages/status.html')
| -rw-r--r-- | httemplate/view/cust_main/packages/status.html | 488 |
1 files changed, 0 insertions, 488 deletions
diff --git a/httemplate/view/cust_main/packages/status.html b/httemplate/view/cust_main/packages/status.html deleted file mode 100644 index f9198c2dc..000000000 --- a/httemplate/view/cust_main/packages/status.html +++ /dev/null @@ -1,488 +0,0 @@ -<TD CLASS="inv" BGCOLOR="<% $bgcolor %>"> - <TABLE CLASS="inv" BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH="100%"> - -%#this should use cust_pkg->status and cust_pkg->statuscolor eventually - -% if ( $cust_pkg->get('cancel') ) { #status: cancelled -% my $cpr = $cust_pkg->last_cust_pkg_reason('cancel'); - - <% pkg_status_row($cust_pkg, 'Cancelled', 'cancel', 'color'=>'FF0000', %opt ) %> - - <% pkg_status_row_colspan( $cust_pkg, - ( $cpr ? $cpr->reasontext. ' by '. $cpr->otaker : '' ), '', - 'align'=>'right', 'color'=>'ff0000', 'size'=>'-2', 'colspan'=>$colspan, - %opt - ) - %> - -% unless ( $cust_pkg->get('setup') ) { - - <% pkg_status_row_colspan( $cust_pkg, 'Never billed', '', 'colspan'=>$colspan, %opt, ) %> - -% } else { - - <% pkg_status_row( $cust_pkg, 'Setup', 'setup', %opt ) %> - <% pkg_status_row_changed( $cust_pkg, %opt, 'colspan'=>$colspan ) %> - <% pkg_status_row_if( $cust_pkg, $last_bill_or_renewed, 'last_bill', %opt, curuser=>$curuser ) %> - <% pkg_status_row_if( $cust_pkg, 'Suspended', 'susp', %opt, curuser=>$curuser ) %> - -% } -% -% } else { -% -% if ( $cust_pkg->get('susp') ) { #status: suspended -% my $cpr = $cust_pkg->last_cust_pkg_reason('susp'); - - <% pkg_status_row( $cust_pkg, 'Suspended', 'susp', 'color'=>'FF9900', %opt ) %> - - <% pkg_status_row_colspan( $cust_pkg, - ( $cpr ? $cpr->reasontext. ' by '. $cpr->otaker : '' ), '', - 'align'=>'right', 'color'=>'FF9900', 'size'=>'-2', 'colspan'=>$colspan, - %opt, - ) - %> - - <% pkg_status_row_noauto( $cust_pkg, %opt, 'colspan'=>$colspan ) %> - - <% pkg_status_row_discount( $cust_pkg, %opt, 'colspan'=>$colspan ) %> - -% unless ( $cust_pkg->get('setup') ) { - <% pkg_status_row_colspan( $cust_pkg, 'Never billed', '', 'colspan'=>$colspan, %opt ) %> -% } else { - <% pkg_status_row($cust_pkg, 'Setup', 'setup', %opt ) %> -% } - - <% pkg_status_row_changed( $cust_pkg, %opt, 'colspan'=>$colspan ) %> - <% pkg_status_row_if( $cust_pkg, $last_bill_or_renewed, 'last_bill', %opt, curuser=>$curuser ) %> -% if ( $part_pkg->option('suspend_bill', 1) ) { - <% pkg_status_row_if( $cust_pkg, 'Next bill', 'bill', %opt, curuser=>$curuser ) %> -% } - <% pkg_status_row_if( $cust_pkg, 'Expires', 'expire', %opt, curuser=>$curuser ) %> - <% pkg_status_row_if( $cust_pkg, 'Contract ends', 'contract_end', %opt ) %> - - <TR> - <TD COLSPAN=<%$colspan%>> - <FONT SIZE=-1> -% if ( $curuser->access_right('Unsuspend customer package') ) { - ( <% pkg_unsuspend_link($cust_pkg) %> ) -% } -% if ( $curuser->access_right('Cancel customer package immediately') ) { - ( <% pkg_cancel_link($cust_pkg) %> ) -% } - </FONT> - </TD> - </TR> - -% } else { #status: active -% -% unless ( $cust_pkg->get('setup') ) { #not setup -% -% unless ( $part_pkg->freq ) { - - <% pkg_status_row_colspan( $cust_pkg, 'Not yet billed (one-time charge)', '', 'colspan'=>$colspan, %opt ) %> - - <% pkg_status_row_noauto( $cust_pkg, %opt, 'colspan'=>$colspan ) %> - - <% pkg_status_row_discount( $cust_pkg, %opt, 'colspan'=>$colspan ) %> - - <% pkg_status_row_if( - $cust_pkg, - ( $part_pkg->freq ? 'Start billing' : 'Bill on' ), - 'start_date', - %opt - ) - %> - - <TR> - <TD COLSPAN=<%$colspan%>> - <FONT SIZE=-1> -% if ( $curuser->access_right('Cancel customer package immediately') ) { - ( <% pkg_cancel_link($cust_pkg) %> ) -% } - </FONT> - </TD> - </TR> - -% } else { - - <% pkg_status_row_colspan($cust_pkg, "Not yet billed ($billed_or_prepaid ". myfreq($part_pkg). ')', '', 'colspan'=>$colspan, %opt ) %> - - <% pkg_status_row_noauto( $cust_pkg, %opt, 'colspan'=>$colspan ) %> - - <% pkg_status_row_discount( $cust_pkg, %opt, 'colspan'=>$colspan ) %> - - <% pkg_status_row_if($cust_pkg, 'Start billing', 'start_date', %opt) %> - -% } -% -% } else { #setup -% -% unless ( $part_pkg->freq ) { - - <% pkg_status_row_colspan($cust_pkg, 'One-time charge', '', 'colspan'=>$colspan, %opt ) %> - - <% pkg_status_row($cust_pkg, 'Billed', 'setup', %opt) %> - - <% pkg_status_row_noauto( $cust_pkg, %opt, 'colspan'=>$colspan ) %> - - <% pkg_status_row_discount( $cust_pkg, %opt, 'colspan'=>$colspan ) %> - -% } else { -% -% if (scalar($cust_pkg->overlimit)) { - - <% pkg_status_row_colspan( $cust_pkg, - 'Overlimit', - $billed_or_prepaid. ' '. myfreq($part_pkg), - 'color'=>'FFD000', 'colspan'=>$colspan, - %opt - ) - %> - -% } else { - <% pkg_status_row_colspan( $cust_pkg, - 'Active', - $billed_or_prepaid. ' '. myfreq($part_pkg), - 'color'=>'00CC00', 'colspan'=>$colspan, - %opt - ) - %> -% } - - <% pkg_status_row_noauto( $cust_pkg, %opt, 'colspan'=>$colspan ) %> - - <% pkg_status_row_discount( $cust_pkg, %opt, 'colspan'=>$colspan ) %> - - <% pkg_status_row($cust_pkg, 'Setup', 'setup', %opt) %> - -% } -% -% } -% -% if ( $opt{'cust_pkg-show_autosuspend'} ) { -% my $autosuspend = pkg_autosuspend_time( $cust_pkg ); -% $cust_pkg->set('autosuspend', $autosuspend) if $autosuspend; -% } - - <% pkg_status_row_changed( $cust_pkg, %opt, 'colspan'=>$colspan ) %> - <% pkg_status_row_if( $cust_pkg, $last_bill_or_renewed, 'last_bill', %opt, curuser=>$curuser ) %> - <% pkg_status_row_if( $cust_pkg, $next_bill_or_prepaid_until, 'bill', %opt, curuser=>$curuser ) %> - <% pkg_status_row_if($cust_pkg, 'Will automatically suspend by', 'autosuspend', %opt) %> - <% pkg_status_row_if( $cust_pkg, 'Will suspend on', 'adjourn', %opt, curuser=>$curuser ) %> - <% pkg_status_row_if( $cust_pkg, 'Expires', 'expire', %opt, curuser=>$curuser ) %> - <% pkg_status_row_if( $cust_pkg, 'Contract ends', 'contract_end', %opt ) %> - -% if ( $part_pkg->freq ) { - - <TR> - <TD COLSPAN=<%$colspan%>> - <FONT SIZE=-1> -% if ( $curuser->access_right('Suspend customer package') ) { - ( <% pkg_suspend_link($cust_pkg) %> ) -% } -% if ( $curuser->access_right('Suspend customer package later') ) { - ( <% pkg_adjourn_link($cust_pkg) %> ) -% } -% if ( $curuser->access_right('Delay suspension events') ) { - ( <% pkg_delay_link($cust_pkg) %> ) -% } -% if ( $curuser->access_right('Cancel customer package immediately') ) { - ( <% pkg_cancel_link($cust_pkg) %> ) -% } -% if ( $curuser->access_right('Cancel customer package later') ) { - ( <% pkg_expire_link($cust_pkg) %> ) -% } - - <FONT> - </TD> - </TR> -% } -% -% } -% } - - </TABLE> -</TD> -<%init> - -my %opt = @_; - -my $bgcolor = $opt{'bgcolor'}; -my $cust_pkg = $opt{'cust_pkg'}; -my $part_pkg = $opt{'part_pkg'}; -my $curuser = $FS::CurrentUser::CurrentUser; -my $colspan = $opt{'cust_pkg-display_times'} ? 8 : 4; -my $width = $opt{'cust_pkg-display_times'} ? '38%' : '56%'; - -#false laziness w/edit/REAL_cust_pkg.cgi -my( $billed_or_prepaid, $last_bill_or_renewed, $next_bill_or_prepaid_until ); -unless ( $part_pkg->is_prepaid ) { - $billed_or_prepaid = 'billed'; - $last_bill_or_renewed = 'Last bill'; - $next_bill_or_prepaid_until = 'Next bill'; -} else { - $billed_or_prepaid = 'prepaid'; - $last_bill_or_renewed = 'Renewed'; - $next_bill_or_prepaid_until = 'Prepaid until'; -} - -#subroutines - -sub myfreq { - my $part_pkg = shift; - my $freq = $part_pkg->freq_pretty; - $freq =~ s/ / /g; - $freq; -} - -#false laziness w/package.html -sub pkg_link { - my($action, $label, $cust_pkg) = @_; - return '' unless $cust_pkg; - qq!<a href="$p$action.cgi?!. $cust_pkg->pkgnum. qq!">$label</a>!; -} - -sub pkg_status_row { - my( $cust_pkg, $title, $field, %opt ) = @_; - - my $color = $opt{'color'}; - - my $html = qq(<TR><TD WIDTH="<%$width%>" ALIGN="right">); - $html .= qq(<FONT COLOR="#$color"><B>) if length($color); - $html .= qq($title ); - $html .= qq(</B></FONT>) if length($color); - - if ( $opt{'pkg_balances'} && ! $cust_pkg->{_printed_balance}++ ) { #kludge - $html .= ' (Balance: <B>'. $opt{'money_char'}. - $cust_pkg->cust_main->balance_pkgnum($cust_pkg->pkgnum). - '</B>)'; - } - - $html .= qq(</TD>); - $html .= pkg_datestr($cust_pkg, $field, %opt). '</TR>'; - - $html; -} - -sub pkg_status_row_if { - my( $cust_pkg, $title, $field, %opt ) = @_; - - $title = '<FONT SIZE=-1>( '. pkg_unadjourn_link($cust_pkg). ' ) </FONT>'. $title - if ( $field eq 'adjourn' && - $opt{curuser}->access_right('Suspend customer package later') - ); - - $title = '<FONT SIZE=-1>( '. pkg_unexpire_link($cust_pkg). ' ) </FONT>'. $title - if ( $field eq 'expire' && - $opt{curuser}->access_right('Cancel customer package later') - ); - - $cust_pkg->get($field) ? pkg_status_row($cust_pkg, $title, $field, %opt) : ''; -} - -sub pkg_status_row_changed { - my( $cust_pkg, %opt ) = @_; - - return '' unless $cust_pkg->change_date; - - my $html = - pkg_status_row( $cust_pkg, 'Package changed', 'change_date', %opt ); - - my $old = $cust_pkg->old_cust_pkg; - if ( $old ) { - my $part_pkg = $old->part_pkg; - my $label = 'Changed from '. $cust_pkg->change_pkgnum. ': '. - $part_pkg->pkg_comment(nopartpkg => 1); - $html .= pkg_status_row_colspan( $cust_pkg, $label, '', - 'size' => '-1', - 'align' => 'right', - 'colspan' => $opt{'colspan'}, - #%opt, - ); - } - - $html; -} - -sub pkg_status_row_noauto { - my( $cust_pkg, %opt ) = @_; - my $part_pkg = $opt{'part_pkg'}; - return '' unless $cust_pkg->no_auto || $part_pkg->no_auto; - - #inefficient, should be passed in - my $cust_main = $cust_pkg->cust_main; - - return '' unless $cust_main->payby =~ /^(CARD|CHEK)$/; - my $what = lc(FS::payby->shortname($cust_main->payby)); - - pkg_status_row_colspan( $cust_pkg, "No automatic $what charge", '', - 'colspan' => $opt{'colspan'}, - #%opt, - ); -} - -sub pkg_status_row_discount { - my( $cust_pkg, %opt ) = @_; - - my $html; - - foreach my $cust_pkg_discount ( $cust_pkg->cust_pkg_discount_active ) { - - my $discount = $cust_pkg_discount->discount; - - my $label = '<B>Discount</B>: '. $discount->description; - if ( $discount->months ) { - my $remaining = $discount->months - $cust_pkg_discount->months_used; - $remaining = sprintf('%.2f', $remaining) if $remaining =~ /\./; - $label .= " ($remaining months remaining)" - } - - $label .= ' <FONT SIZE="-1">('. - '<A HREF="../misc/delete-cust_pkg_discount.html?'. - $cust_pkg_discount->pkgdiscountnum. - '">remove discount</A>)</FONT>'; - - $html .= pkg_status_row_colspan( $cust_pkg, $label, '', - 'colspan' => $opt{'colspan'}, - #%opt, - ); - - } - - $html; -} - -sub pkg_status_row_colspan { - my($cust_pkg, $title, $addl, %opt) = @_; - - my $colspan = $opt{'colspan'}; - - my $align = $opt{'align'} ? 'ALIGN="'. $opt{'align'}.'"' : ''; - my $color = $opt{'color'} ? 'COLOR="#'.$opt{'color'}.'"' : ''; - my $size = $opt{'size'} ? 'SIZE="'. $opt{'size'}. '"' : ''; - - my $html = qq(<TR><TD COLSPAN=$colspan $align>); - $html .= qq(<FONT $color $size>) if length($color) || $size; - $html .= qq(<B>) if $color && !$size; - $html .= $title; - $html .= qq(</B>) if $color && !$size; - $html .= qq(</FONT>) if length($color) || $size; - $html .= ", $addl" if length($addl); - - if ( $opt{'pkg-balances'} && ! $cust_pkg->{_printed_balance}++ ) { #kludge - $html .= ' (Balance: <B>'. $opt{'money_char'}. - $cust_pkg->cust_main->balance_pkgnum($cust_pkg->pkgnum). - '</B>)'; - } - - $html .= qq(</TD></TR>); - - $html; - -} - -sub pkg_datestr { - my($cust_pkg, $field, %opt) = @_ or return ''; - return ' ' unless $cust_pkg->get($field); - my $format = '<TD align="left"><B>%b</B></TD>'. - '<TD align="right"><B> %o,</B></TD>'. - '<TD align="right"><B> %Y</B></TD>'; - #$format .= ' <FONT SIZE=-3>%l:%M:%S%P %z</FONT>' - $format .= '<TD ALIGN="right"><B> %l</TD>'. - '<TD ALIGN="center"><B>:</B></TD>'. - '<TD ALIGN="left"><B>%M</B></TD>'. - '<TD ALIGN="left"><B> %P</B></TD>' - if $opt{'cust_pkg-display_times'}; - my $strip = time2str($format, $cust_pkg->get($field) ); - $strip =~ s/ (\d)/$1/g; - $strip; -} - -sub pkg_suspend_link { - include( '/elements/popup_link-cust_pkg.html', - 'action' => $p. 'misc/cancel_pkg.html?method=suspend', - 'label' => 'Suspend now', - 'actionlabel' => 'Suspend', - 'color' => '#FF9900', - 'cust_pkg' => shift, - ) -} - -sub pkg_adjourn_link { - include( '/elements/popup_link-cust_pkg.html', - 'action' => $p. 'misc/cancel_pkg.html?method=adjourn', - 'label' => 'Suspend later', - 'actionlabel' => 'Adjourn', - 'color' => '#CC6600', - 'cust_pkg' => shift, - ) -} - -sub pkg_delay_link { - include( '/elements/popup_link-cust_pkg.html', - 'action' => $p. 'misc/delay_susp_pkg.html', - 'label' => 'Delay suspend', - 'actionlabel' => 'Delay suspend for', - 'cust_pkg' => shift, - ) -} - -sub pkg_unsuspend_link { pkg_link('misc/unsusp_pkg', 'Unsuspend', @_ ); } -sub pkg_unadjourn_link { pkg_link('misc/unadjourn_pkg', 'Abort', @_ ); } -sub pkg_unexpire_link { pkg_link('misc/unexpire_pkg', 'Abort', @_ ); } - -sub pkg_cancel_link { - include( '/elements/popup_link-cust_pkg.html', - 'action' => $p. 'misc/cancel_pkg.html?method=cancel', - 'label' => 'Cancel now', - 'actionlabel' => 'Cancel', - 'color' => '#ff0000', - 'cust_pkg' => shift, - ) -} - -sub pkg_expire_link { - include( '/elements/popup_link-cust_pkg.html', - 'action' => $p. 'misc/cancel_pkg.html?method=expire', - 'label' => 'Cancel later', - 'actionlabel' => 'Expire', #"Cancel package $num later" - 'color' => '#CC0000', - 'cust_pkg' => shift, - ) -} - -sub svc_recharge_link { - include( '/elements/popup_link-cust_svc.html', - 'action' => $p. 'misc/recharge_svc.html', - 'label' => 'Recharge', - 'actionlabel' => 'Recharge', - 'color' => '#333399', - 'cust_svc' => shift, - ) -} - -sub pkg_autosuspend_time { - my $cust_pkg = shift or return ''; - my $days = 7; - my $time = time; - my $pending_suspend = 0; - #this seems to be extremely inefficient... and is slowing down all customer - #views - while ( $days > 0 && - scalar( - grep { $_->part_event->action eq 'suspend' } - @{$cust_pkg->cust_main->due_cust_event( time => $time + 86400*$days, - testonly => 1, - ) } - ) - ) - { - $pending_suspend = 1; - $days--; - } - - $pending_suspend ? time + ($days + 1) * 86400 : ''; - -} - -</%init> |