if $sched_item[0] && ! $sched_item[0]->disabled;
}
+sub error_callback {
+ my ($cgi, $access_user) = @_;
+warn $access_user->sched_item_enabled;
+warn $cgi->param('sched_item_enabled');
+ $access_user->sched_item_enabled('Y')
+ if $cgi->param('sched_item_enabled');
+}
+
sub field_callback {
my ($c, $o, $f) = @_;
if($f->{'type'} eq 'password' and $o->is_system_user) {