Subversion Repositories VORC

Rev

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

Rev 121 Rev 138
Line 303... Line 303...
303 
  push @SIWhere, "RCid = $ORCUSER->{RCid}";
 303 
  push @SIWhere, "RCid = $ORCUSER->{RCid}";
304 
  my ($d, $c) = getData (\@displayFields, \@SIWhere, 'v_class_signup', 'date');
 304 
  my ($d, $c) = getData (\@displayFields, \@SIWhere, 'v_class_signup', 'date');
305 
  @shifts = @{ $d };
 305 
  @shifts = @{ $d };
306 
}
 306 
}
Line 307... Line 307...
307 
 
 307 
 
Line 308... Line 308...
308 
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.";
 308 
my $signedOnAs = $username ? "Welcome, $username. ".$h->a ({ href=>"index.pl?LOGOUT" }, "[Log Out]") : "You are not signed in.";
309 
 
 309 
 
310 
# Set some cookie stuff...
 310 
# Set some cookie stuff...
311 
my $path = `dirname $ENV{SCRIPT_NAME}`; chomp $path; $path .= '/' unless $path eq "/";
 311 
my $path = `dirname $ENV{SCRIPT_NAME}`; chomp $path; $path .= '/' unless $path eq "/";