+
- <% $cust_pkg->pkgnum %>:
- <% $part_pkg->pkg %> - <% $part_pkg->comment %>
+
+ <% $cust_pkg->pkgnum %>:
+ <% $part_pkg->pkg %> - <% $part_pkg->comment %>
+
+
% unless ( $cust_pkg->get('cancel') ) {
-% if ( $curuser->access_right('Change customer package') ) {
+% my $br = 0;
+% if ( $curuser->access_right('Change customer package') ) { $br=1;
( <%pkg_change_link($cust_pkg)%> )
-% }
-% if ( $curuser->access_right('Edit customer package dates') ) {
+% }
+% if ( $curuser->access_right('Edit customer package dates') ) { $br=1;
( <%pkg_dates_link($cust_pkg)%> )
-% }
-% if ( $curuser->access_right('Customize customer package') ) {
+% }
+% if ( $curuser->access_right('Customize customer package') ) { $br=1;
( <%pkg_customize_link($cust_pkg,$cust_main->custnum)%> )
+% }
+ <% $br ? '
' : '' %>
% }
-% }
+
+% if ( $cust_pkg->num_cust_event
+% && ( $curuser->access_right('Billing event reports')
+% || $curuser->access_right('View customer billing events')
+% )
+% ) {
+ ( <%pkg_event_link($cust_pkg)%> )
+% }
+
|
+
%
@@ -417,157 +428,207 @@ Current packages
% }
-%
-%#subroutines
-%
-%sub get_packages {
-% my $cust_main = shift or return undef;
-% my $conf = shift;
-%
-% my @packages = ();
-% my $method;
-% if ( $cgi->param('showcancelledpackages') eq '0' #see if it was set by me
-% || ( $conf->exists('hidecancelledpackages')
-% && ! $cgi->param('showcancelledpackages') )
-% )
-% {
-% $method = 'ncancelled_pkgs';
-% } else {
-% $method = 'all_pkgs';
-% }
-%
-% [ $cust_main->$method() ];
-%}
-%
-%sub svc_provision_link {
-% my ($cust_pkg, $part_svc, $conf, $curuser) = @_;
-% ( my $svc_nbsp = $part_svc->svc ) =~ s/\s+/ /g;
-% my $num_avail = $part_svc->num_avail;
-% my $pkgnum_svcpart = "pkgnum=". $cust_pkg->pkgnum. ';'.
-% "svcpart=". $part_svc->svcpart;
-% my $url;
-% if ( $part_svc->svcdb eq 'svc_external' #could be generalized
-% && $conf->exists('svc_external-skip_manual')
-% ) {
-% $url = "${p}edit/process/". $part_svc->svcdb. ".cgi?$pkgnum_svcpart";
-% } else {
-% $url = svc_url(
-% 'm' => $m,
-% 'action' => 'edit',
-% 'part_svc' => $part_svc,
-% 'query' => $pkgnum_svcpart,
-% );
-% #$url = "${p}edit/$svcpart->{svcdb}.cgi?$pkgnum_svcpart";
-% }
-%
-% my $link = qq!!.
-% "Provision $svc_nbsp ($num_avail)";
-% if ( $conf->exists('legacy_link')
-% && $curuser->access_right('View/link unlinked services')
-% )
-% {
-% $link .= '
'.
-% qq!!.
-% "Link to legacy $svc_nbsp ($num_avail)";
-% }
-% $link;
-%}
-%
-%sub svc_unprovision_link {
-% my $cust_svc = shift or return '';
-% qq!Unprovision!;
-%}
-%
-%sub pkg_datestr {
-% my($cust_pkg, $field, $conf) = @_ or return '';
-% return ' ' unless $cust_pkg->get($field);
-% my $format = '%b | '.
-% ' %o, | '.
-% ' %Y | ';
-% #$format .= ' %l:%M:%S%P %z'
-% $format .= ' %l | '.
-% ': | '.
-% '%M | '.
-% ' %P | '
-% if $conf->exists('cust_pkg-display_times');
-% my $strip = time2str($format, $cust_pkg->get($field) );
-% $strip =~ s/ (\d)/$1/g;
-% $strip;
-%}
-%
-%sub pkg_change_link { pkg_link('misc/change_pkg', 'Change package', @_ ); }
-%
-%sub pkg_suspend_link { pkg_popup_link( 'misc/cancel_pkg.html?method=suspend',
-% 'Suspend now',
-% 'Suspend',
-% @_
-% );
-% }
-%
-%sub pkg_unsuspend_link { pkg_link('misc/unsusp_pkg', 'Unsuspend', @_ ); }
-%sub pkg_expire_link { pkg_link('misc/expire_pkg', 'Cancel later', @_ ); }
-%sub pkg_dates_link { pkg_link('edit/REAL_cust_pkg', 'Edit dates', @_ ); }
-%
-%sub pkg_cancel_link { pkg_popup_link( 'misc/cancel_pkg.html?method=cancel',
-% 'Cancel now',
-% 'Cancel',
-% @_
-% );
-% }
-%sub pkg_adjourn_link { pkg_popup_link( 'misc/cancel_pkg.html?method=adjourn',
-% 'Suspend later',
-% 'Adjourn',
-% @_
-% );
-% }
-%
-%sub pkg_expire_link { pkg_popup_link( 'misc/cancel_pkg.html?method=expire',
-% 'Cancel later',
-% 'Expire', #"Cancel package $num later"
-% @_
-% );
-% }
-%
-%sub svc_recharge_link { svc_popup_link( 'misc/recharge_svc.html',
-% 'Recharge',
-% 'Recharge',
-% @_
-% );
-% }
-%
-%sub pkg_link {
-% my($action, $label, $cust_pkg) = @_;
-% return '' unless $cust_pkg;
-% qq!$label!;
-%}
-%
-%sub pkg_popup_link {
-% my($action, $label, $actionlabel, $cust_pkg) = @_;
-% $action .= '&pkgnum='. $cust_pkg->pkgnum;
-% $actionlabel .= ' package '. $cust_pkg->pkgnum;
-% popup_link($action, $label, $actionlabel, 392);
-%}
-%
-%sub svc_popup_link {
-% my($action, $label, $actionlabel, $cust_svc) = @_;
-% $action .= '?svcnum='. $cust_svc->svcnum;
-% $actionlabel .= ' service '. $cust_svc->svcnum;
-% popup_link($action, $label, $actionlabel, 392);
-%}
-%
-%sub popup_link {
-% my($action, $label, $actionlabel, $width) = @_;
-% qq!$label!;
-%}
-%
-%sub pkg_customize_link {
-% my $cust_pkg = shift or return '';
-% my $custnum = $cust_pkg->custnum;
-% qq!Customize!;
-%}
+% if ( $cgi->param('fragment') =~ /^cust_pkg(\d+)$/ ) {
+
+% }
+<%init>
+
+my( $cust_main ) = @_;
+my $conf = new FS::Conf;
+
+my $curuser = $FS::CurrentUser::CurrentUser;
+
+my $packages = get_packages($cust_main, $conf);
+
+<%once>
+
+#subroutines
+
+sub get_packages {
+ my $cust_main = shift or return undef;
+ my $conf = shift;
+
+ my @packages = ();
+ my $method;
+ if ( $cgi->param('showcancelledpackages') eq '0' #see if it was set by me
+ || ( $conf->exists('hidecancelledpackages')
+ && ! $cgi->param('showcancelledpackages') )
+ )
+ {
+ $method = 'ncancelled_pkgs';
+ } else {
+ $method = 'all_pkgs';
+ }
+
+ [ $cust_main->$method() ];
+}
+
+sub svc_provision_link {
+ my ($cust_pkg, $part_svc, $conf, $curuser) = @_;
+ ( my $svc_nbsp = $part_svc->svc ) =~ s/\s+/ /g;
+ my $num_avail = $part_svc->num_avail;
+ my $pkgnum_svcpart = "pkgnum=". $cust_pkg->pkgnum. ';'.
+ "svcpart=". $part_svc->svcpart;
+ my $url;
+ if ( $part_svc->svcdb eq 'svc_external' #could be generalized
+ && $conf->exists('svc_external-skip_manual')
+ ) {
+ $url = "${p}edit/process/". $part_svc->svcdb. ".cgi?$pkgnum_svcpart";
+ } else {
+ $url = svc_url(
+ 'm' => $m,
+ 'action' => 'edit',
+ 'part_svc' => $part_svc,
+ 'query' => $pkgnum_svcpart,
+ );
+ #$url = "${p}edit/$svcpart->{svcdb}.cgi?$pkgnum_svcpart";
+ }
+
+ my $link = qq!!.
+ "Provision $svc_nbsp ($num_avail)";
+ if ( $conf->exists('legacy_link')
+ && $curuser->access_right('View/link unlinked services')
+ )
+ {
+ $link .= '
'.
+ qq!!.
+ "Link to legacy $svc_nbsp ($num_avail)";
+ }
+ $link;
+}
+
+sub svc_unprovision_link {
+ my $cust_svc = shift or return '';
+ qq!Unprovision!;
+}
+
+sub pkg_datestr {
+ my($cust_pkg, $field, $conf) = @_ or return '';
+ return ' ' unless $cust_pkg->get($field);
+ my $format = '%b | '.
+ ' %o, | '.
+ ' %Y | ';
+ #$format .= ' %l:%M:%S%P %z'
+ $format .= ' %l | '.
+ ': | '.
+ '%M | '.
+ ' %P | '
+ if $conf->exists('cust_pkg-display_times');
+ my $strip = time2str($format, $cust_pkg->get($field) );
+ $strip =~ s/ (\d)/$1/g;
+ $strip;
+}
+
+sub pkg_change_link { pkg_link('misc/change_pkg', 'Change package', @_ ); }
+
+sub pkg_suspend_link { pkg_popup_link( 'misc/cancel_pkg.html?method=suspend',
+ 'Suspend now',
+ 'Suspend',
+ '#FF9900',
+ @_
+ );
+ }
+
+sub pkg_adjourn_link { pkg_popup_link( 'misc/cancel_pkg.html?method=adjourn',
+ 'Suspend later',
+ 'Adjourn',
+ '#CC6600',
+ @_
+ );
+ }
+
+sub pkg_unsuspend_link { pkg_link('misc/unsusp_pkg', 'Unsuspend', @_ ); }
+sub pkg_expire_link { pkg_link('misc/expire_pkg', 'Cancel later', @_ ); }
+sub pkg_dates_link { pkg_link('edit/REAL_cust_pkg', 'Edit dates', @_ ); }
+
+sub pkg_cancel_link { pkg_popup_link( 'misc/cancel_pkg.html?method=cancel',
+ 'Cancel now',
+ 'Cancel',
+ '#ff0000',
+ @_
+ );
+ }
+
+sub pkg_expire_link { pkg_popup_link( 'misc/cancel_pkg.html?method=expire',
+ 'Cancel later',
+ 'Expire', #"Cancel package $num later"
+ '#CC0000',
+ @_
+ );
+ }
+
+sub svc_recharge_link { svc_popup_link( 'misc/recharge_svc.html',
+ 'Recharge',
+ 'Recharge',
+ '#333399',
+ @_
+ );
+ }
+
+sub order_pkg_link { cust_popup_link( 'misc/order_pkg.html',
+ 'Order new package',
+ 'Order new package',
+ '#333399',
+ @_
+ );
+ }
+
+sub pkg_event_link {
+ my($cust_pkg) = @_;
+ qq!!.
+ 'View package events'.
+ '';
+}
+
+sub pkg_link {
+ my($action, $label, $cust_pkg) = @_;
+ return '' unless $cust_pkg;
+ qq!$label!;
+}
+
+sub pkg_popup_link {
+ my($action, $label, $actionlabel, $color, $cust_pkg) = @_;
+ $action .= '&pkgnum='. $cust_pkg->pkgnum;
+ $actionlabel .= ' package '. $cust_pkg->pkgnum;
+ popup_link($action, $label, $actionlabel, $color);
+}
+
+sub svc_popup_link {
+ my($action, $label, $actionlabel, $color, $cust_svc) = @_;
+ $action .= '?svcnum='. $cust_svc->svcnum;
+ $actionlabel .= ' service '. $cust_svc->svcnum;
+ popup_link($action, $label, $actionlabel, $color);
+}
+
+sub cust_popup_link {
+ my($action, $label, $actionlabel, $color, $cust_main) = @_;
+ $action .= '?'. $cust_main->custnum;
+ popup_link($action, $label, $actionlabel, $color);
+}
+
+sub popup_link {
+ my($action, $label, $actionlabel, $color, $width) = @_;
+ $color ||= '#333399';
+ $width ||= 540;
+ qq!$label!;
+}
+
+sub pkg_customize_link {
+ my $cust_pkg = shift or return '';
+ my $custnum = $cust_pkg->custnum;
+ qq!Customize!;
+}
+
+
|