X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Freason.html;h=620a2ea152a10ba15d1dd3655b82525a8a1018bd;hb=e39f81dae87d882c0ea4f6f1918fa9cae6d2fc61;hp=2f59328460938ce38ff99fb6836852a39bf3dcb2;hpb=ce98306f315a53f2ac4b8c010341c4f84bf728a8;p=freeside.git

diff --git a/httemplate/edit/reason.html b/httemplate/edit/reason.html
index 2f5932846..620a2ea15 100644
--- 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>