diff options
Diffstat (limited to 'httemplate/edit')
| -rw-r--r-- | httemplate/edit/process/svc_circuit.html | 12 | ||||
| -rw-r--r-- | httemplate/edit/reason.html | 31 |
2 files changed, 30 insertions, 13 deletions
diff --git a/httemplate/edit/process/svc_circuit.html b/httemplate/edit/process/svc_circuit.html index d28f91329..27f43db38 100644 --- a/httemplate/edit/process/svc_circuit.html +++ b/httemplate/edit/process/svc_circuit.html @@ -2,10 +2,22 @@ table => 'svc_circuit', edit_ext => 'html', redirect => popurl(3)."view/svc_circuit.html?", + precheck_callback => $precheck, &> <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Provision customer service'); #something else more specific? +my $precheck = sub { + my $cgi = shift; + foreach ('desired_due_date', 'due_date') { + if ( length $cgi->param($_) ) { + my $date = parse_datetime( $cgi->param($_) ); + $cgi->param($_, $date); + } + } + return; +}; + </%init> diff --git a/httemplate/edit/reason.html b/httemplate/edit/reason.html index 78d044755..3e6645ec8 100644 --- a/httemplate/edit/reason.html +++ b/httemplate/edit/reason.html @@ -15,6 +15,7 @@ 'class' => '', 'unsuspend_pkgpart' => 'Unsuspension fee', 'unsuspend_hold' => 'Delay until next bill', + 'unused_credit' => 'Credit unused portion of service', }, 'fields' => \@fields, &> @@ -61,18 +62,22 @@ my @fields = ( }, ); -push @fields, - { 'field' => 'unsuspend_pkgpart', - 'type' => 'select-part_pkg', - 'hashref' => { 'disabled' => '', - 'freq' => 0 }, # one-time charges only - }, - { 'field' => 'unsuspend_hold', - 'type' => 'checkbox', - 'value' => 'Y', - }, - if ( $class eq 'S' ); - - +if ( $class eq 'S' ) { + push @fields, + { 'field' => 'unsuspend_pkgpart', + 'type' => 'select-part_pkg', + 'hashref' => { 'disabled' => '', + 'freq' => 0 }, # one-time charges only + }, + { 'field' => 'unsuspend_hold', + 'type' => 'checkbox', + 'value' => 'Y', + }, + { 'field' => 'unused_credit', + 'type' => 'checkbox', + 'value' => 'Y', + }, + ; +} </%init> |