Subversion Repositories VORC

Rev

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

Rev 35 Rev 39
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} );