% my @types = qsearch( 'reason_type', { 'class' => $class } ); % if (scalar(@types) < 1) { # we should never reach this
No reason types. Go add some.
% }elsif (scalar(@types) == 1) {
Reason Type
<% $types[0]->type %>
% }else{
Reason Type
% for my $type (@types) {
typenum) ? 'SELECTED' : '' %>><% $type->type %>
% }
% }
New Reason
<%init> my($name, $class, $init_reason, $init_type, $init_newreason, $controlledbutton) = @_; my($access_right, $display, $disabled); if ($class eq 'C') { $access_right='Add on-the-fly cancel reason'; }elsif ($class eq 'S') { $access_right='Add on-the-fly suspend reason'; }elsif ($class eq 'R') { $access_right='Add on-the-fly credit reason'; }else{ print "illegal class: $class"; } if ($init_reason == -1){ $display = 'inline'; $disabled = 'false'; }else{ $display = 'none'; $disabled = 'true'; } 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;