diff options
Diffstat (limited to 'httemplate/misc')
| -rw-r--r-- | httemplate/misc/cacti_graphs.html | 53 | ||||
| -rw-r--r-- | httemplate/misc/process/cacti_graphs.cgi | 6 | ||||
| -rw-r--r-- | httemplate/misc/process/elements/reason | 3 | ||||
| -rw-r--r-- | httemplate/misc/xmlhttp-reason-hint.html | 83 |
4 files changed, 144 insertions, 1 deletions
diff --git a/httemplate/misc/cacti_graphs.html b/httemplate/misc/cacti_graphs.html new file mode 100644 index 000000000..9cc5e2494 --- /dev/null +++ b/httemplate/misc/cacti_graphs.html @@ -0,0 +1,53 @@ +<% include( '/elements/header.html', 'Cacti Graphs' ) %> + +% if ($load) { + +<FORM NAME="CactiGraphForm" ID="CactiGraphForm" style="margin-top: 0"> +<INPUT TYPE="hidden" NAME="svcnum" VALUE="<% $svcnum %>"> +</FORM> +<% include( '/elements/progress-init.html', + 'CactiGraphForm', + [ 'svcnum' ], + $p.'misc/process/cacti_graphs.cgi', + { url => 'javascript:window.location.replace("'.popurl(2).'misc/cacti_graphs.html?svcnum='.$svcnum.'")' }, +) %> +<!-- + note we use window.location.replace for the callback url above + so that this page gets removed from browser history after processing + so that process() doesn't get triggered by the back button +--> +<P>Loading graphs, please wait...</P> +<SCRIPT TYPE="text/javascript"> +process(); +</SCRIPT> + +% } else { +% if ($error) { + +<P><% $error %></P> + +% } else { + +<% slurp($htmlfile) %> + +% } +% } + +<%init> +use File::Slurp qw( slurp ); + +my $svcnum = $cgi->param('svcnum') or die 'Illegal svcnum'; +my $load = $cgi->param('load'); +my $graphnum = $cgi->param('graphnum'); + +my $htmlfile = $FS::UID::cache_dir + . '/cacti-graphs/' + . 'svc_' + . $svcnum; +$htmlfile .= '_graph_' . $graphnum + if $graphnum; +$htmlfile .= '.html'; + +my $error = (-e $htmlfile) ? '' : 'File not found'; +</%init> + diff --git a/httemplate/misc/process/cacti_graphs.cgi b/httemplate/misc/process/cacti_graphs.cgi new file mode 100644 index 000000000..160b1ad85 --- /dev/null +++ b/httemplate/misc/process/cacti_graphs.cgi @@ -0,0 +1,6 @@ +<% $server->process %> + +<%init> +my $server = FS::UI::Web::JSRPC->new('FS::part_export::cacti::process_graphs', $cgi); +</%init> + diff --git a/httemplate/misc/process/elements/reason b/httemplate/misc/process/elements/reason index ae92a7528..f57f11ff5 100644 --- a/httemplate/misc/process/elements/reason +++ b/httemplate/misc/process/elements/reason @@ -8,7 +8,8 @@ my $error; if ($reasonnum == -1) { my $new_reason = FS::reason->new({ map { $_ => scalar( $cgi->param("reasonnum_new_$_") ) } - qw( reason_type reason unsuspend_pkgpart unsuspend_hold unused_credit ) + qw( reason_type reason unsuspend_pkgpart unsuspend_hold unused_credit + feepart fee_on_unsuspend fee_hold ) }); # not sanitizing them here, but check() will do it $error = $new_reason->insert; $reasonnum = $new_reason->reasonnum; diff --git a/httemplate/misc/xmlhttp-reason-hint.html b/httemplate/misc/xmlhttp-reason-hint.html new file mode 100644 index 000000000..5d54788a4 --- /dev/null +++ b/httemplate/misc/xmlhttp-reason-hint.html @@ -0,0 +1,83 @@ +<%doc> +Example: + +<& /elements/xmlhttp.html, + url => $p . 'misc/xmlhttp-reason-hint.html', + subs => [ 'get_hint' ] +&> +<script> +var reasonnum = 101; +get_hint( reasonnum, function(stuff) { alert(stuff); } ) +</script> + +Currently will provide hints for: +1. suspension events (new-style reconnection fees, notification) +2. unsuspend_pkgpart package info (older reconnection fees) +3. crediting for unused time +</%doc> +<%init> +my $sub = $cgi->param('sub'); +my ($reasonnum) = $cgi->param('arg'); +# arg is a reasonnum +my $conf = FS::Conf->new; +my $error = ''; +my @hints; +if ( $reasonnum =~ /^\d+$/ ) { + my $reason = FS::reason->by_key($reasonnum); + if ( $reason ) { + # 1. + if ( $reason->feepart ) { # XXX + my $part_fee = FS::part_fee->by_key($reason->feepart); + my $when = ''; + if ( $reason->fee_hold ) { + $when = 'on the next bill after '; + } else { + $when = 'upon '; + } + if ( $reason->fee_on_unsuspend ) { + $when .= 'unsuspension'; + } else { + $when .= 'suspension'; + } + + my $fee_amt = $part_fee->explanation; + push @hints, mt('A fee of [_1] will be charged [_2].', + $fee_amt, $when); + } + # 2. + if ( $reason->unsuspend_pkgpart ) { + my $part_pkg = FS::part_pkg->by_key($reason->unsuspend_pkgpart); + if ( $part_pkg ) { + if ( $part_pkg->option('setup_fee',1) > 0 and + $part_pkg->option('recur_fee',1) == 0 ) { + # the usual case + push @hints, + mt('A [_1] unsuspension fee will apply.', + ($conf->config('money_char') || '$') . + sprintf('%.2f', $part_pkg->option('setup_fee')) + ); + } else { + # oddball cases--not really supported + push @hints, + mt('An unsuspension package will apply: [_1]', + $part_pkg->price_info + ); + } + } else { #no $part_pkg + push @hints, + '<FONT COLOR="#ff0000">Unsuspend pkg #'.$reason->unsuspend_pkgpart. + ' not found.</FONT>'; + } + } + # 3. + if ( $reason->unused_credit ) { + push @hints, mt('The customer will be credited for unused time.'); + } + } else { + warn "reasonnum $reasonnum not found; returning no hints\n"; + } +} else { + warn "reason-hint arg '$reasonnum' not a valid reasonnum\n"; +} +</%init> +<% join('<BR>', @hints) %> |