Subversion Repositories VORC

Rev

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

Rev 134 Rev 138
Line 271... Line 271...
271
if ($FORM{excel}) {
271
if ($FORM{excel}) {
272
  exportExcel (\@ProductList, "RC_Officiating_Shifts");
272
  exportExcel (\@ProductList, "RC_Officiating_Shifts");
273
  exit;
273
  exit;
274
}
274
}
Line 275... Line 275...
275
 
275
 
Line 276... Line 276...
276
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.";
276
my $signedOnAs = $username ? "Welcome, $username. ".$h->a ({ href=>"index.pl?LOGOUT" }, "[Log Out]") : "You are not signed in.";
277
 
277
 
278
# Set some cookie stuff...
278
# Set some cookie stuff...
279
my $path = `dirname $ENV{SCRIPT_NAME}`; chomp $path; $path .= '/' unless $path eq "/";
279
my $path = `dirname $ENV{SCRIPT_NAME}`; chomp $path; $path .= '/' unless $path eq "/";