<%init> my($name, $class, $init_reason, $init_type, $init_newreason, $controlledbutton) = @_; my($extra_sql, $curuser, $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'; }else{ print "illegal class: $class"; } if ($init_reason == -1){ $display = 'inline'; $disabled = 'false'; }else{ $display = 'none'; $disabled = 'true'; } $extra_sql = "WHERE class = '$class' ORDER BY reason_type"; $curuser = $FS::CurrentUser::CurrentUser;