X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fmisc%2Frecharge_svc.html;h=a1732fca5059c5927d36b69fb32da0b6f4fab50a;hp=a3de13d92821715ed14e0e7d94bf5b0dc6ac074d;hb=2eea268a59cf357853e31ff8d5db6033e4bdc8ea;hpb=2a6aa24137ddd389c1e644f5ece325c5b5dbaf3a diff --git a/httemplate/misc/recharge_svc.html b/httemplate/misc/recharge_svc.html index a3de13d92..a1732fca5 100755 --- a/httemplate/misc/recharge_svc.html +++ b/httemplate/misc/recharge_svc.html @@ -18,17 +18,20 @@ } } - - <% $recharge_label ? '' : 'disabled' %>> - Prepaid Card % if ($recharge_label) { - > - <% $recharge_label %> + + > + Prepaid Card + > + <% $recharge_label %> + +% } else { +% $payby = 'PREP'; + % } - Enter prepaid card: - > + > @@ -37,35 +40,42 @@ - - + +<% include('/elements/footer.html') %> <%once> + my $conf = new FS::Conf; my $money_char = $conf->config('money_char') || '$'; + <%init> -my($svcnum, $cust_svc, $part_pkg, $label, $value, $prepaid, $amount, $payby); + +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right('Recharge customer service'); + +my($svcnum, $prepaid, $payby); if ( $cgi->param('error') ) { $svcnum = $cgi->param('svcnum'); $prepaid = $cgi->param('prepaid'); $payby = $cgi->param('payby'); } elsif ( $cgi->param('svcnum') =~ /^(\d+)$/ ) { $svcnum = $1; + $prepaid = ''; } else { die "illegal query ". $cgi->keywords; } my $title = 'Recharge Service'; -$cust_svc = qsearchs('cust_svc', {'svcnum' => $svcnum}); +my $cust_svc = qsearchs('cust_svc', {'svcnum' => $svcnum}); die "No such service: $svcnum" unless $cust_svc; -($label, $value) = $cust_svc->label; +my($label, $value) = $cust_svc->label; $payby = $cust_svc->cust_pkg->cust_main->payby unless $payby; -$part_pkg = $cust_svc->cust_pkg->part_pkg; -$amount = $part_pkg->option('recharge_amount', 1) || 0; +my $part_pkg = $cust_svc->cust_pkg->part_pkg; +my $amount = $part_pkg->option('recharge_amount', 1) || 0; my $recharge_label = "Charge $money_char$amount for ";