X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Felements%2Ftr-select-reason.html;h=5a79d68ef34d6b3150ecc43d81ad880bdd2829eb;hb=ea3ce8d7f076e7fecff4be7ae63bc413adb0adf5;hp=2f8f3a10959dfbb23e1ef5a4fbebcbc41f7e4581;hpb=af71b2b56cd66e28c6016091284883cb1105091d;p=freeside.git diff --git a/httemplate/elements/tr-select-reason.html b/httemplate/elements/tr-select-reason.html index 2f8f3a109..5a79d68ef 100755 --- a/httemplate/elements/tr-select-reason.html +++ b/httemplate/elements/tr-select-reason.html @@ -1,31 +1,61 @@ +<%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 %> - + % foreach my $reason (@reasons) { - + % } -% if ($curuser->access_right($access_right)) { - +% if ($curuser->access_right($add_access_right)) { + % } % +% my @types = qsearch( 'reason_type', { 'class' => $class } ); +% if (scalar(@types) < 1) { # we should never reach this -

Reason Type

+

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

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

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

- + + + +% }else{ + + + +

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

+ + + +% } -

New Reason

+

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

- + " style="display:<% $display %>"> <%init> -my($name, $class, $init_reason, $init_type, $init_newreason, $controlledbutton) = @_; -my($extra_sql, $curuser, $access_right, $display, $disabled); +my %opt = @_; + +my $name = $opt{'field'}; +my $class = $opt{'reason_class'}; + +my $init_reason; +if ( $opt{'cgi'} ) { + $init_reason = $opt{'cgi'}->param($name); +} else { + $init_reason = $opt{'curr_value'}; +} + +my $controlledbutton = $opt{'control_button'}; + +( my $func_suffix = $name ) =~ s/\./_/g; + +my $id = $opt{'id'} || $func_suffix; + +my( $add_access_right, $access_right ); if ($class eq 'C') { - $access_right='Add on-the-fly cancel reason'; -}elsif ($class eq 'S') { - $access_right='Add on-the-fly suspend reason'; -}else{ - print "illegal class: $class"; + $access_right = 'Cancel customer'; + $add_access_right = 'Add on-the-fly cancel reason'; +} elsif ($class eq 'S') { + $access_right = 'Suspend customer package'; + $add_access_right = 'Add on-the-fly suspend reason'; +} elsif ($class eq 'R') { + $access_right = 'Post credit'; + $add_access_right = 'Add on-the-fly credit reason'; +} else { + die "illegal class: $class"; } -if ($init_reason == -1){ +my( $display, $disabled ) = ( 'none', 'DISABLED' ); +my( $init_type, $init_newreason ) = ( '', '' ); +if ($init_reason == -1 || ref($init_reason) ) { + $display = 'inline'; - $disabled = 'false'; -}else{ - $display = 'none'; - $disabled = 'true'; + $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" ); + } + } -$extra_sql = "WHERE class = '$class' ORDER BY reason_type"; -$curuser = $FS::CurrentUser::CurrentUser; +my $extra_sql = + "WHERE class = '$class' and (disabled = '' OR disabled is NULL)"; - +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', +}); +my $curuser = $FS::CurrentUser::CurrentUser; + +