Subversion Repositories VORC

Rev

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

Rev 121 Rev 138
Line 189... Line 189...
189 
if ($secure and $FORM{excel}) {
 189 
if ($secure and $FORM{excel}) {
190 
  exportExcel (\@ProductList, "RC_Officiating_Shifts");
 190 
  exportExcel (\@ProductList, "RC_Officiating_Shifts");
191 
  exit;
 191 
  exit;
192 
}
 192 
}
Line 193... Line 193...
193 
 
 193 
 
Line 194... Line 194...
194 
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.";
 194 
my $signedOnAs = $username ? "Welcome, $username. ".$h->a ({ href=>"index.pl?LOGOUT" }, "[Log Out]") : "You are not signed in.";
195 
 
 195 
 
196 
# Set some cookie stuff...
 196 
# Set some cookie stuff...
197 
my $path = `dirname $ENV{SCRIPT_NAME}`; chomp $path; $path .= '/' unless $path eq "/";
 197 
my $path = `dirname $ENV{SCRIPT_NAME}`; chomp $path; $path .= '/' unless $path eq "/";