X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2FREAL_cust_pkg.cgi;h=606cf87e73e15f6f7372164778d6d8cc5875702c;hb=56cca7cecebae066e066561ca2c086cfa82f40fe;hp=99e911ae5999fb39c6a0892de03e766a12a3c2a5;hpb=0da59a28d129728c18481ca80e8841585b69dd0c;p=freeside.git diff --git a/httemplate/edit/REAL_cust_pkg.cgi b/httemplate/edit/REAL_cust_pkg.cgi index 99e911ae5..606cf87e7 100755 --- a/httemplate/edit/REAL_cust_pkg.cgi +++ b/httemplate/edit/REAL_cust_pkg.cgi @@ -35,6 +35,11 @@ function confirm_changes() {
+% if ($contract_only) { + + +% } + % # raw error from below % if ( $error ) { Error: <% $error %> @@ -95,7 +100,21 @@ function confirm_changes() { <& .row_display, cust_pkg=>$cust_pkg, column=>'susp', label=>'Suspension' &> <& .row_display, cust_pkg=>$cust_pkg, column=>'resume', label=>'Resumption', note=> '(will unsuspend this package when the date is reached' &> +% if ( $cust_pkg->change_to_pkgnum ) { +% my $change_to_pkg = FS::cust_pkg->by_key($cust_pkg->change_to_pkgnum); +% my $desc; +% if ( $change_to_pkg->pkgpart != $cust_pkg->pkgpart ) { +% $desc = 'change package to '.$change_to_pkg->part_pkg->pkg; +% } +% if ( $change_to_pkg->locationnum != $cust_pkg->locationnum ) { +% $desc .= ' and ' if $desc; +% $desc .= 'change location to "'. +% $change_to_pkg->cust_location->line . '"'; +% } + <& .row_display, cust_pkg=>$cust_pkg, column=>'expire', label=>'Change package', note=>"(will $desc when the date is reached)" &> +% } else { <& .row_display, cust_pkg=>$cust_pkg, column=>'expire', label=>'Expiration', note=>'(will cancel this package when the date is reached)' &> +% } <& .row_display, cust_pkg=>$cust_pkg, column=>'cancel', label=>'Cancellation' &> @@ -110,8 +129,10 @@ function confirm_changes() { % my $value = $cust_pkg->get($column); % $value = $value ? time2str($format, $value) : ""; % +% if ($contract_only and $column ne 'contract_end') { + <& .row_display, %ARGS &> % # if_primary for the dates that can't be edited on supplemental packages -% if ($if_primary and $cust_pkg->main_pkgnum) { +% } elsif ($if_primary and $cust_pkg->main_pkgnum) { <& .row_display, %ARGS &> @@ -184,12 +205,15 @@ my $date_format = $conf->config('date_format') || '%m/%d/%Y'; my $format = $date_format. ' %T'; # %z (%Z)'; +my $contract_only = $FS::CurrentUser::CurrentUser->access_right('Edit customer package dates') ? 0 : 1; + <%init> +# see $contract_only in shared block above die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Edit customer package dates'); - + unless $FS::CurrentUser::CurrentUser->access_right('Edit customer package dates') + or $FS::CurrentUser::CurrentUser->access_right('Change package contract end date'); my $error = ''; my( $pkgnum, $cust_pkg );