Subversion Repositories VORC

Rev

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

Rev 60 Rev 65
Line 270... Line 270...
270
}
270
}
Line 271... Line 271...
271
 
271
 
Line 272... Line 272...
272
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.";
272
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.";
273
 
273
 
274
# Set some cookie stuff...
274
# Set some cookie stuff...
275
my $path = `dirname $ENV{REQUEST_URI}`; chomp $path; $path .= '/' unless $path eq "/";
275
my $path = `dirname $ENV{SCRIPT_NAME}`; chomp $path; $path .= '/' unless $path eq "/";
276
my $queryCookie = cookie(-NAME=>$prefscookie,
276
my $queryCookie = cookie(-NAME=>$prefscookie,
277
			-VALUE=>"$QUERY_STRING",
277
			-VALUE=>"$QUERY_STRING",
Line 436... Line 436...
436
        $h->br,
436
        $h->br,
437
        $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.]"),
437
        $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.]"),
438
        $h->br,
438
        $h->br,
439
        "This page was displayed on ", currentTime (),
439
        "This page was displayed on ", currentTime (),
440
        $h->br,
440
        $h->br,
441
        "Please direct questions, problems, and concerns to Officials.RollerCon.Schedule\@gmail.com",
441
        "Please direct questions, problems, and concerns to $SYSTEM_EMAIL",
442
        $h->br,
442
        $h->br,
443
        "Displaying: ", $h->select ({ name=>"year", onchange=>"Req.submit();" }, [ @yearoptions ])
443
        "Displaying: ", $h->select ({ name=>"year", onchange=>"Req.submit();" }, [ @yearoptions ])
444
      ])
444
      ])
445
    ]),
445
    ]),
446
    $h->div ({ class=>"spRight" }, [
446
    $h->div ({ class=>"spRight" }, [