Subversion Repositories ORC

Rev

Rev 45 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 45 Rev 46
Line 65... Line 65...
65
<body>
65
<body>
66
output
66
output
Line 67... Line 67...
67
 
67
 
Line 68... Line 68...
68
print $h->div ({class=>"bold"}, "$DEPTS->{$dept} - $day ($date)"), $h->br;
68
print $h->div ({class=>"bold"}, "$DEPTS->{$dept} - $day ($date)"), $h->br;
69
 
69
 
Line 70... Line 70...
70
my $query = $dbh->prepare ("select type, role, location, time, derby_name from v_shift where dept = ? and date = ? order by location, start_time, field(type, 'manager', 'lead', 'selected', 'open'), end_time");
70
my $query = $dbh->prepare ("select type, role, location, time, derby_name from v_shift where dept = ? and date = ? order by start_time, field(type, 'manager', 'lead', 'selected', 'open'), location, end_time");
71
$query->execute ($dept, $date);
71
$query->execute ($dept, $date);