| Line 83... |
Line 83... |
| 83 |
sub modify_derby_name {
|
83 |
sub modify_derby_name {
|
| 84 |
my $t = shift;
|
84 |
my $t = shift;
|
| Line 85... |
Line 85... |
| 85 |
|
85 |
|
| 86 |
if ($user->{department}->{$t->{dept}} < 2 and $t->{derby_name} and $t->{RCid} != $RCid and $LVL < 5) {
|
86 |
if ($user->{department}->{$t->{dept}} < 2 and $t->{derby_name} and $t->{RCid} != $RCid and $LVL < 5) {
|
| - |
|
87 |
$t->{derby_name} = "FILLED";
|
| - |
|
88 |
} elsif (($user->{department}->{$t->{dept}} > 1 or $LVL > 4) and $t->{derby_name}) {
|
| 87 |
$t->{derby_name} = "FILLED";
|
89 |
$t->{derby_name} = $h->a ({ href=>"/schedule/manage_user.pl?RCid=$t->{RCid}" }, $t->{derby_name});
|
| Line 88... |
Line 90... |
| 88 |
}
|
90 |
}
|
| 89 |
|
91 |
|
| 90 |
my ($yyyy, $mm, $dd) = split /\-/, $t->{date};
|
92 |
my ($yyyy, $mm, $dd) = split /\-/, $t->{date};
|
| Line 255... |
Line 257... |
| 255 |
|
257 |
|
| Line 256... |
Line 258... |
| 256 |
|
258 |
|
| - |
|
259 |
my $signedOnAs = $username ? "Welcome, $username. ".$h->a ({ href=>"index.pl", onClick=>"document.cookie = 'RCAUTH=; expires=Thu, 01 Jan 1970 00:00:01 GMT; path=/';return true;" }, "[Log Out]") : "You are not signed in.";
|
| 257 |
my $signedOnAs = $username ? "Welcome, $username. ".$h->a ({ href=>"index.pl", onClick=>"document.cookie = 'RCAUTH=; expires=Thu, 01 Jan 1970 00:00:01 GMT; path=/';return true;" }, "[Log Out]") : "You are not signed in.";
|
260 |
|
| 258 |
|
261 |
# Set some cookie stuff...
|
| 259 |
# Set some cookie stuff...
|
262 |
my ($uri) = split /\?/, $ENV{REQUEST_URI};
|
| 260 |
my $path = `dirname $ENV{REQUEST_URI}`; chomp $path; $path .= '/' unless $path eq "/";
|
263 |
my $path = `dirname $uri`; chomp $path; $path .= '/' unless $path eq "/";
|
| 261 |
my $queryCookie = cookie(-NAME=>$prefscookie,
|
264 |
my $queryCookie = cookie(-NAME=>$prefscookie,
|
| Line 287... |
Line 290... |
| 287 |
#
|
290 |
#
|
| 288 |
# print "\n\n\n\n<!-- $QUERY_STRING --> \n\n\n\n";
|
291 |
# print "\n\n\n\n<!-- $QUERY_STRING --> \n\n\n\n";
|
| Line 289... |
Line 292... |
| 289 |
|
292 |
|
| 290 |
|
- |
|
| 291 |
#------------------
|
293 |
|
| 292 |
|
294 |
#------------------
|
| 293 |
# Toggle the autoload fields within the table elements
|
295 |
# Toggle the autoload fields within the table elements
|
| 294 |
our ($onClick, $onChange); # (also used in scanFunctions)
|
296 |
our ($onClick, $onChange); # (also used in scanFunctions)
|
| 295 |
my ($radiobutton, $refreshbutton, $sortby);
|
297 |
my ($radiobutton, $refreshbutton, $sortby);
|
| Line 314... |
Line 316... |
| 314 |
$sortby = $h->select ({name=>"sortby" }, [ map { $FORM{sortby} eq $_ ? $h->option ({ value=>$_, selected=>[] }, $NAME{$_}) : $h->option ({ value=>$_ }, $NAME{$_}) } @displayFields ]);
|
316 |
$sortby = $h->select ({name=>"sortby" }, [ map { $FORM{sortby} eq $_ ? $h->option ({ value=>$_, selected=>[] }, $NAME{$_}) : $h->option ({ value=>$_ }, $NAME{$_}) } @displayFields ]);
|
| 315 |
}
|
317 |
}
|
| Line 316... |
Line -... |
| 316 |
|
- |
|
| 317 |
|
318 |
|
| 318 |
|
319 |
|
| Line 319... |
Line 320... |
| 319 |
|
320 |
|
| 320 |
print start_html (-title => $pageTitle, -style => {'src' => $stylesheet} );
|
321 |
print start_html (-title => $pageTitle, -style => {'src' => $stylesheet} );
|