diff options
author | jeff <jeff> | 2006-10-19 14:29:27 +0000 |
---|---|---|
committer | jeff <jeff> | 2006-10-19 14:29:27 +0000 |
commit | ce98306f315a53f2ac4b8c010341c4f84bf728a8 (patch) | |
tree | 284731e6ad5daf4580b3afdfa3812a864e136b89 /httemplate/browse | |
parent | cdffa6e5fe5c8cf0755a3f3497ae71170bbe4cea (diff) |
suspension and cancellation reasons
Diffstat (limited to 'httemplate/browse')
-rw-r--r-- | httemplate/browse/reason.html | 64 | ||||
-rw-r--r-- | httemplate/browse/reason_type.html | 68 |
2 files changed, 132 insertions, 0 deletions
diff --git a/httemplate/browse/reason.html b/httemplate/browse/reason.html new file mode 100644 index 000000000..e6661423a --- /dev/null +++ b/httemplate/browse/reason.html @@ -0,0 +1,64 @@ +% +%$cgi->param('class') =~ /^(\w)$/ or die "illegal class"; +%my $class = $1; +% +%my %classmap = ( 'C' => 'cancel', +% 'S' => 'suspend', +% ); +% +%my $classname = $classmap{$class}; +% +%my $html_init = ucfirst($classname) . +% " reasons explain why we $classname a package.<BR><BR>". +% qq!<A HREF="${p}edit/reason.html?class=$class">!. +% "<I>Add a $classname reason</I></A><BR><BR>"; +% +%my $where_clause = "WHERE class='$class'"; +%$where_clause .= " AND (disabled = '' OR disabled IS NULL)" +% unless $cgi->param('showdisabled'); + +%my $disabledurl = $cgi->param('showdisabled') +% ? do { $cgi->param('showdisabled', 0); +% '( <a href="'. $cgi->self_url. '">hide disabled reasons</a> )'; } +% : do { $cgi->param('showdisabled', 1); +% '( <a href="'. $cgi->self_url. '">show disabled reasons</a> )'; } +% ; +% +%$html_init .= $disabledurl; +% +%my $count_query = 'SELECT COUNT(*) FROM reason LEFT JOIN reason_type on ' . +% 'reason_type.typenum = reason.reason_type ' . $where_clause; +% +%my $link = [ $p."edit/reason.html?class=$class&reasonnum=", 'reasonnum' ]; +% +% +<% include( 'elements/browse.html', + 'title' => ucfirst($classname) . ' Reasons', + 'menubar' => [ # 'Main menu' => $p, + ucfirst($classname) . ' Reason Types' => + $p.'browse/reason_type.html?class='. + $class, + ], + 'html_init' => $html_init, + 'name' => $classname . ' reasons', + 'query' => { 'table' => 'reason', + 'hashref' => {}, + 'extra_sql' => $where_clause . + 'ORDER BY reason_type', + 'addl_from' => 'LEFT JOIN reason_type ON reason_type.typenum = reason.reason_type', + }, + 'count_query' => $count_query, + 'header' => [ '#', + ucfirst($classname) . ' Reason Type', + ucfirst($classname) . ' Reason', + ], + 'fields' => [ 'reasonnum', + sub { shift->reasontype->type }, + 'reason', + ], + 'links' => [ $link, + $link, + '', + ], + ) +%> diff --git a/httemplate/browse/reason_type.html b/httemplate/browse/reason_type.html new file mode 100644 index 000000000..a8ccbdc85 --- /dev/null +++ b/httemplate/browse/reason_type.html @@ -0,0 +1,68 @@ +% +%$cgi->param('class') =~ /^(\w)$/ or die "illegal class"; +%my $class=$1; +% +%my %classmap = ( 'C' => 'cancel', +% 'S' => 'suspend', +% ); +% +%my $classname = $classmap{$class}; +% +%my $html_init = ucfirst($classname) . +% " reason types allow groups of $classname reasons for reporting purposes." . +% qq!<BR><BR><A HREF="${p}edit/reason_type.html?class=$class"><I>Add a ! . +% $classname . " reason type</I></A><BR><BR>"; +% +%my $reasons_sub = sub { +% my $reason_type = shift; +% +% [ map { +% [ +% { +% 'data' => $_->reason, +% 'align' => 'left', +% 'link' => $p. "edit/reason.html?class=$class&reasonnum=". +% $_->reasonnum, +% }, +% ]; +% } +% $reason_type->enabled_reasons, +% +% ]; +% +%}; +% +%my $where_clause = "WHERE class='$class'"; +%my $count_query = 'SELECT COUNT(*) FROM reason_type '; +%$count_query .= $where_clause; +% +%my $link = [ $p.'edit/reason_type.html?class='.$class.'&typenum=', 'typenum' ]; +% +% +<% include( 'elements/browse.html', + 'title' => ucfirst($classname) . " Reason Types", + 'menubar' => [ ucfirst($classname) . " reasons" => + $p.'browse/reason.html?class=' . $class, + ], + 'html_init' => $html_init, + 'name' => $classname . " reason types", + 'query' => { 'table' => 'reason_type', + 'hashref' => {}, + 'extra_sql' => $where_clause . + 'ORDER BY typenum', + }, + 'count_query' => $count_query, + 'header' => [ '#', + ucfirst($classname) . ' Reason Type', + ucfirst($classname) . ' Reasons', + ], + 'fields' => [ 'typenum', + 'type', + $reasons_sub, + ], + 'links' => [ $link, + $link, + '', + ], + ) +%> |