Subversion Repositories ORC

Rev

Rev 29 | Rev 35 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 29 Rev 30
Line 198... Line 198...
198
198
199 
  if ($shiftID =~ /^\d+$/) {
 199 
  if ($shiftID =~ /^\d+$/) {
200 
    ($dept) = $dbh->selectrow_array ("select dept from shift where id = ?", undef, $shiftID);
 200 
    ($dept) = $dbh->selectrow_array ("select dept from shift where id = ?", undef, $shiftID);
201 
  } else {
 201 
  } else {
202 
    my ($id, $role) = split /-/, $shiftID;
 202 
    my ($id, $role) = split /-/, $shiftID;
203 
    ($dept) = $dbh->selectrow_array ("select distinct department from staff_template where role like ?", undef, $role);
 203 
    ($dept) = $dbh->selectrow_array ("select distinct department from staff_template where role like ?", undef, $role.'%');
204 
  }
 204 
  }
205 
#  } elsif ($shiftID =~ /^\d+-ANN/) {
 205 
#  } elsif ($shiftID =~ /^\d+-ANN/) {
206 
#    $dept = "ANN";
 206 
#    $dept = "ANN";
207 
#  } else {
 207 
#  } else {