X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Felements%2Ftr-select-reason.html;h=64648ba54a55b85cb26f58ddb11fb9c6e1b5affe;hp=b7a715b42d2e9d4f8a4d63e83ea02eaf7ebbe179;hb=b71b1576c68bc40ad26592b354feace37a029f0e;hpb=43839f03bf937eb086c7f2a55c059a606571ab77 diff --git a/httemplate/elements/tr-select-reason.html b/httemplate/elements/tr-select-reason.html index b7a715b42..64648ba54 100755 --- a/httemplate/elements/tr-select-reason.html +++ b/httemplate/elements/tr-select-reason.html @@ -5,17 +5,22 @@ Example: include( '/elements/tr-select-reason.html', #required - 'field' => 'reasonnum', - 'reason_class' => 'C', # currently 'C', 'R', 'F', or 'S' - # for cancel, credit, refund, or suspend + 'field' => 'reasonnum', # field name + 'reason_class' => 'C', # one of those in %FS::reason_type::class_name + 'label' => 'Your Label', # field display label #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 + 'control_button' => 'element_name', #button to be enabled when a reason is + #selected 'id' => 'element_id', + 'hide_add' => '1', # setting this will hide the add new reason link, + # even if the user has access to add a new reason. + 'hide_onload' => '1', # setting this will hide reason select box on page load, + # allowing for it do be displayed later. + 'pre_options' => [ 0 => 'all'], # an array of pre options. Defaults to 0 => 'select reason...' #deprecated ways to keep things "sticky" on errors # (requires duplicate code in each using file to parse cgi params) @@ -29,211 +34,198 @@ Example: +% # note style improvements. +% # - no more conditionally included code here +% # - callers are not expected to pass javascript fragments +% # - no redundant checking of ACLs or parameters +% # - form fields are grouped for easy management +% # - use the standard select-table widget instead of ad hoc crap +<& /elements/xmlhttp.html, + url => $p . 'misc/xmlhttp-reason-hint.html', + subs => [ 'get_hint' ], + skip_empty => 1, +&> - - <% mt('Reason') |h %> - - - - +%# sadly can't just use add_inline here, as we have non-text fields + +<& tr-select-table.html, + 'label' => $label, + 'field' => $name, + 'id' => $id, + 'table' => 'reason', + 'records' => \@reasons, + 'label_callback' => sub { my $reason = shift; + $reason->type . ' : ' . $reason->reason }, + 'disable_empty' => 1, + 'pre_options' => \@pre_options, + 'post_options' => \@post_options, + 'curr_value' => $init_reason, + 'onchange' => $id.'_changed()', + 'hide_onload' => $opt{'hide_onload'}, +&> + +% # "add new reason" fields +% # should be a
, but that doesn't fit well into the table + +% if ( $curuser->access_right($add_access_right) && !$hide_addnew ) { + + + + + <& tr-input-text.html, + label => 'New reason', + field => $id.'_new_reason' + &> % my @types = qsearch( 'reason_type', { 'class' => $class } ); % if (scalar(@types) < 1) { # we should never reach this - - - -% }elsif (scalar(@types) == 1) { - - - - - -% }else{ - - - - - + + + +% } elsif (scalar(@types) == 1) { + <& tr-fixed.html, + label => 'Reason type', + field => $id.'_new_reason_type', + curr_value => $types[0]->typenum, + formatted_value => $types[0]->type, + &> +% } else { # more than one type, the normal case + <& tr-select-table.html, + label => 'Reason type', + field => $id.'_new_reason_type', + table => 'reason_type', + name_col => 'type', + hashref => { 'class' => $class }, + disable_empty => 1, + &> +% } # scalar(@types) + +% if ( $class eq 'C' ) { + <& tr-checkbox.html, + label => 'Credit the unused portion of service when canceling', + field => $id.'_new_unused_credit', + value => 'Y' + &> % } +% if ( $class eq 'S' ) { + <& tr-checkbox.html, + label => 'Credit the unused portion of service when suspending', + field => $id.'_new_unused_credit', + value => 'Y' + &> + <& tr-select-table.html, + label => 'Charge a suspension fee', + field => $id.'_new_feepart', + table => 'part_fee', + hashref => { disabled => '' }, + name_col => 'itemdesc', + value_col => 'feepart', + empty_label => 'none', + &> + <& tr-select.html, + label => 'When this package is', + field => $id.'_new_fee_on_unsuspend', + options => [ '', 'Y' ], + labels => { '' => 'suspended', 'Y' => 'unsuspended' }, + &> + <& tr-checkbox.html, + label => 'Delay fee until the next bill', + field => $id.'_new_fee_hold', + value => 'Y', + &> +%# deprecated, but still accessible through the "Suspend Reasons" UI +%# <& tr-select-part_pkg.html, +%# label => 'Charge this fee when unsuspending', +%# field => $id.'_new_unsuspend_pkgpart', +%# hashref => { disabled => '', freq => '0' }, +%# empty_label => 'none', +%# &> +%# <& tr-checkbox.html, +%# label => 'Hold unsuspension fee until the next bill', +%# field => $id.'_new_unsuspend_hold', +%# value => 'Y', +%# &> +% } +
-

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

-
-

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

- 		-

<% $types[0]->type %> - -

-

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

- 		- -
+

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

+
+ + +% } # if the current user can add a reason -% if ( $class eq 'S' ) { - - - - -% } - +% # container for hints (hints themselves come from xmlhttp-reason-hint) - -

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

+ - " style="display:<% $display %>"> <%init> +my $curuser = $FS::CurrentUser::CurrentUser; my %opt = @_; my $name = $opt{'field'}; my $class = $opt{'reason_class'}; +my $label = $opt{'label'} ? $opt{'label'} : 'Reason'; +my $hide_addnew = $opt{'hide_addnew'} ? $opt{'hide_addnew'} : ''; my $init_reason; if ( $opt{'cgi'} ) { $init_reason = $opt{'cgi'}->param($name); -} else { - $init_reason = $opt{'curr_value'}; } +$init_reason ||= $opt{'curr_value'}; -my $controlledbutton = $opt{'control_button'}; +my $id = $opt{'id'} || $name; +$id =~ s/\./_/g; # for edit/part_event -( my $func_suffix = $name ) =~ s/\./_/g; +my $label_id = $opt{'label_id'} || ''; -my $id = $opt{'id'} || $func_suffix; - -my $add_access_right; -if ($class eq 'C') { - $add_access_right = 'Add on-the-fly cancel reason'; -} elsif ($class eq 'S') { - $add_access_right = 'Add on-the-fly suspend reason'; -} elsif ($class eq 'R') { - $add_access_right = 'Add on-the-fly credit reason'; -} elsif ($class eq 'F') { - $add_access_right = 'Add on-the-fly refund reason'; -} else { - die "illegal class: $class"; -} - -my( $display, $disabled ) = ( 'none', 'DISABLED' ); -my( $init_type, $init_newreason ) = ( '', '' ); -if ($init_reason == -1 || ref($init_reason) ) { - - $display = 'inline'; - $disabled = ''; - - if ( 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" ); - } - -} - -my $extra_sql = - "WHERE class = '$class' and (disabled = '' OR disabled is NULL)"; +my $add_access_right = $FS::reason_type::class_add_access_right{$class} + or die "unknown class: $class"; my @reasons = qsearch({ - table => 'reason', - hashref => {}, - extra_sql => $extra_sql, - addl_from => 'LEFT JOIN reason_type '. - ' ON reason_type.typenum = reason.reason_type', - order_by => 'ORDER BY reason_type.type ASC, reason.reason ASC', + 'table' => 'reason', + 'addl_from' => ' LEFT JOIN reason_type'. + ' ON (reason.reason_type = reason_type.typenum)', + 'hashref' => { disabled => '' }, + 'extra_sql' => " AND reason_type.class = '$class'", + 'order_by' => ' ORDER BY type, reason', }); -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 @pre_options = ( 0 => 'Select reason...' ); +@pre_options = @{ $opt{'pre_options'} } if $opt{'pre_options'}; -my $curuser = $FS::CurrentUser::CurrentUser; +my @post_options; +if ( $curuser->access_right($add_access_right) && !$hide_addnew ) { + @post_options = ( -1 => 'Add new reason' ); +}