+ use Date::Parse qw( str2time );
+ #my $wday = (localtime(str2time($date)))[6];
+
+ my $access_user = qsearchs('access_user', { 'username'=>$username })#disabled?
+ or die "unknown user $username";
+
+ my @sched_item = $access_user->sched_item #disabled?
+ or die "$username not an installer";
+ my $sched_item = $sched_item[0];
+
+ my @sched_avail = qsearch('sched_avail', {
+ itemnum => $sched_item->itemnum,
+ override_date => 99, #XXX override date via $date
+ });
+ @sched_avail = qsearch('sched_avail', {
+ itemnum => $sched_item->itemnum,
+ wday => (localtime(str2time($date)))[6],
+ override_date => '',
+ })
+ unless @sched_avail;
+