import torrus 1.0.9

[freeside.git] / httemplate / edit / reason.html

diff --git a/httemplate/edit/reason.html b/httemplate/edit/reason.html
index 2f59328..620a2ea 100644 (file)
--- a/httemplate/edit/reason.html
+++ b/httemplate/edit/reason.html
@@ -2,13 +2,13 @@
 % $cgi->param('class') =~ /^(\w)$/ or die "illegal class";
 % my $class=$1;
 %
-% my %classmap = ('C' => 'cancel',
-%              'S' => 'suspend',
-%             );
-% my $classname = $classmap{$class};
+% my $classname = $FS::reason_type::class_name{$class};
 %
 % my (@types) = qsearch( 'reason_type', { 'class' => $class } );
 %
+% unless (scalar(@types)) {
+%   print $cgi->redirect( "reason_type.html?class=$class" );
+% }
 <% include( 'elements/edit.html',
                  'name'   => ucfirst($classname) . ' Reason',
                  'table'  => 'reason',
@@ -22,6 +22,8 @@
                 'fields' => [
                               { 'field' => 'reason_type',
                                 'type'  => 'select',
+                                 #XXX use something more sane than a hashref
+                                 #then fix tr-select.html
                                 'value' => { 'vcolumn' => 'typenum',
                                              'ccolumn' => 'type',
                                              'values'  => \@types,
@@ -29,7 +31,7 @@
                               },
                               'reason',
                               { 'field' => 'class',
-                                'type'  => 'fixedhidden',
+                                'type'  => 'hidden',
                                 'value' => $class,
                               },
                               { 'field' => 'disabled',
@@ -40,3 +42,9 @@
                  'viewall_url' => $p . "browse/reason.html?class=$class",
            )
 %>
+<%init>
+
+die "access denied"
+  unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
+
+</%init>