+my $link = [ $p.'edit/sched_item.html?', 'itemnum' ];
+
+my @dow = qw( Sunday Monday Tuesday Wednesday Thursday Friday Saturday );
+
+sub dow_factory {
+ my $wday = shift;
+
+ return sub {
+ my $sched_item = shift;
+
+ my @sched_avail = qsearch({
+ 'table' => 'sched_avail',
+ 'hashref' => {
+ 'itemnum' => $sched_item->itemnum,
+ 'wday' => $wday, #thanks, closure
+ 'override_date' => '',
+ },
+ 'order_by' => 'ORDER BY stime',
+ });
+
+ return 'Not available' unless @sched_avail;
+
+ #data
+ # align bgcolor colspan rowspan style valign width
+ # link onclick size data_style
+
+ [
+ map {
+ [ { data=> $_->stime_pretty },
+ { data=> '-', },
+ { data=> $_->etime_pretty },
+ ];
+ }
+ @sched_avail
+ ];
+
+ };
+
+}
+
+my $override_sub = sub {
+ my $sched_item = shift;
+
+ my @sched_avail = qsearch({
+ 'table' => 'sched_avail',
+ 'hashref' => {
+ 'itemnum' => $sched_item->itemnum,
+ 'override_date' => { op=>'!=', value=>'' },
+ },
+ 'order_by' => 'ORDER BY override_date, stime',
+ });
+
+ return 'None' unless @sched_avail;
+
+ #XXX print each override date (and day of week)
+
+};
+