1 <& elements/browse.html,
2 'title' => ucwords($classname) . " Reasons",
3 'html_init' => $html_init,
4 'name' => $classname . " reason types",
5 'query' => { 'table' => 'reason_type',
7 'extra_sql' => $where_clause .
10 'count_query' => $count_query,
12 ucwords($classname) . ' Reason Type',
13 ucwords($classname) . ' Reasons',
15 'fields' => [ 'typenum',
28 join(' ', map ucfirst($_), split(/ /, shift));
32 unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
34 $cgi->param('class') =~ /^(\w)$/ or die "illegal class";
37 my $classname = ucfirst($FS::reason_type::class_name{$class});
39 my $html_init = 'Reasons: ' .
40 include('/elements/menubar.html',
42 ucfirst($FS::reason_type::class_name{$_}),
43 $p.'browse/reason_type.html?class=' . $_
44 } keys (%FS::reason_type::class_name)
47 $html_init .= '<BR><P>' .
48 $classname . ' reasons ' .
49 $FS::reason_type::class_purpose{$class} .
50 '. Reason types allow reasons to be grouped for reporting purposes.' .
51 qq!<BR><BR><A HREF="${p}edit/reason_type.html?class=$class"><I>! .
52 ($classname =~ /^[aeiou]/i ? 'Add an ' : 'Add a ') .
53 lc($classname) . ' reason type</I></A>'.
56 my $reasons_sub = sub {
57 my $reason_type = shift;
64 'link' => $p. "edit/reason.html?class=$class&reasonnum=".
69 $reason_type->enabled_reasons ),
74 'link' => $p. "edit/reason.html?class=$class",
83 my $where_clause = "WHERE class='$class'";
84 my $count_query = 'SELECT COUNT(*) FROM reason_type ';
85 $count_query .= $where_clause;
87 my $link = [ $p.'edit/reason_type.html?class='.$class.'&typenum=', 'typenum' ];