X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Felements%2Ftr-select-reason.html;h=c1df10b9408a4379d3e0005d44b5e173a4f72632;hb=00938b30a69411a743aa01db5e27100818a3c82b;hp=b57f78a1e7df51bece9f9a40e2571e40a8c6d4ed;hpb=4ea9774ab600337021720675c1633fbf59826fed;p=freeside.git diff --git a/httemplate/elements/tr-select-reason.html b/httemplate/elements/tr-select-reason.html index b57f78a1e..c1df10b94 100755 --- a/httemplate/elements/tr-select-reason.html +++ b/httemplate/elements/tr-select-reason.html @@ -1,8 +1,46 @@ +<%doc> + +Example: + + include( '/elements/tr-select-reason.html', + + #required + 'field' => 'reasonnum', + 'reason_class' => 'C', # currently 'C', 'R', or 'S' + # for cancel, credit, or suspend + + #recommended + 'cgi' => $cgi, #easiest way for things to be properly "sticky" on errors + + #optional + 'control_button' => 'element_name', #button to be enabled when a reason is + #selected + 'id' => 'element_id', + + #deprecated ways to keep things "sticky" on errors + # (requires duplicate code in each using file to parse cgi params) + 'curr_value' => $curr_value, + 'curr_value' => { + 'typenum' => $typenum, + 'reason' => $reason, + }, + + ) + + + - Reason + <% mt('Reason') |h %> @@ -52,13 +90,13 @@ % if (scalar(@types) < 1) { # we should never reach this -

No reason types. Go add some.

+

<% mt('No reason types. Please add some.') |h %>

% }elsif (scalar(@types) == 1) { -

Reason Type

+

<% mt('Reason Type') |h %>

<% $types[0]->type %> @@ -70,7 +108,7 @@ -

Reason Type

+

<% mt('Reason Type') |h %>

" style="display:<% $display %>"> + " style="display:<% $display %>"> <%init> @@ -95,7 +140,13 @@ my %opt = @_; my $name = $opt{'field'}; my $class = $opt{'reason_class'}; -my $init_reason = $opt{'curr_value'}; + +my $init_reason; +if ( $opt{'cgi'} ) { + $init_reason = $opt{'cgi'}->param($name); +} else { + $init_reason = $opt{'curr_value'}; +} my $controlledbutton = $opt{'control_button'}; @@ -110,7 +161,7 @@ if ($class eq 'C') { } elsif ($class eq 'S') { $access_right = 'Suspend customer package'; $add_access_right = 'Add on-the-fly suspend reason'; -} elsif ($class eq 'S') { +} elsif ($class eq 'R') { $access_right = 'Post credit'; $add_access_right = 'Add on-the-fly credit reason'; } else { @@ -128,6 +179,9 @@ if ($init_reason == -1 || ref($init_reason) ) { $init_type = $init_reason->{'typenum'}; $init_newreason = $init_reason->{'reason'}; $init_reason = -1; + } elsif ( $opt{'cgi'} ) { + $init_type = $opt{'cgi'}->param( "new${name}T" ); + $init_newreason = $opt{'cgi'}->param( "new$name" ); } } @@ -144,6 +198,43 @@ my @reasons = qsearch({ order_by => 'ORDER BY reason_type.type ASC, reason.reason ASC', }); +my @hints; +if ( $class eq 'S' ) { + my $conf = FS::Conf->new; + @hints = ( '' ); + foreach my $reason (@reasons) { + 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, + 'Unsuspend pkg #'.$reason->unsuspend_pkgpart. + ' not found.'; + } + } else { #no unsuspend_pkgpart + push @hints, ''; + } + } + push @hints, ''; # for the "new reason" case + @hints = map {''.$_.''} @hints; +} + + my $curuser = $FS::CurrentUser::CurrentUser;