Subversion Repositories VORC

Rev

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

Rev 259 Rev 260
Line 667... Line 667...
667
                  ($s->{dept} eq "OFF" or $s->{dept} eq "ANN") ? "location.href = 'view_game.pl?id=$s->{id}';" :
667
                  ($s->{dept} eq "OFF" or $s->{dept} eq "ANN") ? "location.href = 'view_game.pl?id=$s->{id}';" :
668
                   $s->{dept} eq "CLA" ? "location.href = 'view_class.pl?id=$s->{id}';" :
668
                   $s->{dept} eq "CLA" ? "location.href = 'view_class.pl?id=$s->{id}';" :
669
                   $s->{dept} eq "SEM" ? "location.href = 'view_seminar.pl?id=$s->{id}';" :
669
                   $s->{dept} eq "SEM" ? "location.href = 'view_seminar.pl?id=$s->{id}';" :
670
                   "location.href = 'view_shift.pl?id=$s->{id}';";
670
                   "location.href = 'view_shift.pl?id=$s->{id}';";
671
    push @shifts, $h->div ({ class=>"rTableRow ".($s->{date} eq $dt ? "highlighted" : "shaded") },
671
    push @shifts, $h->div ({ class=>"rTableRow ".($s->{date} eq $dt ? "highlighted" : "shaded") },
672
                    [$h->div ( { class=>'rTableCellr', style=>"white-space:nowrap;padding:0px 5px;font-size:small;", onClick => $onclick },
672
                    [$h->div ( { class=>'rTableCellr', style=>"white-space:nowrap;padding:3px 5px 7px 5px;font-size:small;", onClick => $onclick },
673
                       substr($s->{dayofweek}, 0, 3)." [".$s->{date} =~ s/^\d{4}-(0)?//r =~ s|-(0)?|/|r."]",
673
                       substr($s->{dayofweek}, 0, 3)." [".$s->{date} =~ s/^\d{4}-(0)?//r =~ s|-(0)?|/|r."]",
674
                       $s->{time}.$h->br.
674
                       $s->{time}.$h->br.
675
                       ($s->{volhours} ? $s->{volhours}." hrs" : ' '),
675
                       ($s->{volhours} ? $s->{volhours}." hrs" : ' '),
676
                       $s->{location},
676
                       $s->{location},
677
                       ($s->{dept} eq "CLA" ? "MVP Class" : $s->{dept} eq "SEM" ? "Seminar" : getDepartments()->{$s->{dept}}." - ".$s->{role}) .$h->br.
677
                       ($s->{dept} eq "CLA" ? "MVP Class" : $s->{dept} eq "SEM" ? "Seminar" : getDepartments()->{$s->{dept}}." - ".$s->{role}) .$h->br.