X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Felements%2Ftr-select-reason.html;h=5a79d68ef34d6b3150ecc43d81ad880bdd2829eb;hb=ea3ce8d7f076e7fecff4be7ae63bc413adb0adf5;hp=23f31ec51daf9f59631e92a63f7aa9b68442d05d;hpb=e8a09e945986a32f9b7d0a5d546142ada91654ca;p=freeside.git diff --git a/httemplate/elements/tr-select-reason.html b/httemplate/elements/tr-select-reason.html index 23f31ec51..5a79d68ef 100755 --- a/httemplate/elements/tr-select-reason.html +++ b/httemplate/elements/tr-select-reason.html @@ -1,3 +1,34 @@ +<%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 %> -% my @types = qsearch( 'reason_type', { 'class' => $class } ); +% my @types = qsearch( 'reason_type', { 'class' => $class } ); % 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 %> @@ -75,11 +101,11 @@ -

Reason Type

+

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

@@ -89,9 +115,9 @@ -

New Reason

+

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

- " style="display:<% $display %>"> + " style="display:<% $display %>"> <%init> @@ -100,7 +126,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'}; @@ -115,7 +147,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 { @@ -133,12 +165,25 @@ 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" ); } } -my $extra_sql = "WHERE class = '$class' and (disabled = '' OR disabled is NULL) ". - "ORDER BY reason_type"; +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;