Subversion Repositories VORC

Rev

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

Rev 56 Rev 65
Line 177... Line 177...
177
}
177
}
Line 178... Line 178...
178
 
178
 
Line 179... Line 179...
179
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.";
179
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.";
180
 
180
 
181
# Set some cookie stuff...
181
# Set some cookie stuff...
182
my $path = `dirname $ENV{REQUEST_URI}`; chomp $path; $path .= '/' unless $path eq "/";
182
my $path = `dirname $ENV{SCRIPT_NAME}`; chomp $path; $path .= '/' unless $path eq "/";
183
my $queryCookie = cookie(-NAME=>$prefscookie,
183
my $queryCookie = cookie(-NAME=>$prefscookie,
184
			-VALUE=>"$QUERY_STRING",
184
			-VALUE=>"$QUERY_STRING",
Line 342... Line 342...
342
        $h->br,
342
        $h->br,
343
        $h->a ({ href=>"", target=>"_new", onClick=>"window.document.Req.excel.value=1; window.document.Req.submit(); window.document.Req.excel.value=0; return false;" }, "[Export Displayed Data as an Excel Document.]"),
343
        $h->a ({ href=>"", target=>"_new", onClick=>"window.document.Req.excel.value=1; window.document.Req.submit(); window.document.Req.excel.value=0; return false;" }, "[Export Displayed Data as an Excel Document.]"),
344
        $h->br,
344
        $h->br,
345
        "This page was displayed on ", currentTime (),
345
        "This page was displayed on ", currentTime (),
346
        $h->br,
346
        $h->br,
347
        "Please direct questions, problems, and concerns to Officials.RollerCon.Schedule\@gmail.com",
347
        "Please direct questions, problems, and concerns to $SYSTEM_EMAIL",
348
        $h->br,
348
        $h->br,
349
        "Displaying: ", $h->select ({ name=>"year", onchange=>"Req.submit();" }, [ @yearoptions ])
349
        "Displaying: ", $h->select ({ name=>"year", onchange=>"Req.submit();" }, [ @yearoptions ])
350
      ])
350
      ])
351
    ]),
351
    ]),
352
    $h->div ({ class=>"spRight" }, [
352
    $h->div ({ class=>"spRight" }, [