Subversion Repositories VORC

Rev

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

Rev 58 Rev 65
Line 55... Line 55...
55
	dayofweek		=> [qw(Day          15    select    default )],
55
	dayofweek		=> [qw(Day          15    select    default )],
56
	start_time	=> [qw(StartTime    20    text      )],
56
	start_time	=> [qw(StartTime    20    text      )],
57
	end_time		=> [qw(EndTime      25    text       )],
57
	end_time		=> [qw(EndTime      25    text       )],
58
	time				=> [qw(Time         30    text      default )],
58
	time				=> [qw(Time         30    text      default )],
59
	location		=> [qw(Track        35    select    default )],
59
	location		=> [qw(Track        35    select    default )],
-
 
60
	level    		=> [qw(Level        37    select    default )],
60
	coach				=> [qw(Coach        40    select    default )]
61
	coach				=> [qw(Coach        40    select    default )]
61
);
62
);
Line 62... Line 63...
62
 
63
 
63
if ($LVL >= RollerCon::ADMIN) {
64
if ($LVL >= RollerCon::ADMIN) {
Line 283... Line 284...
283
}
284
}
Line 284... Line 285...
284
 
285
 
Line 285... Line 286...
285
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.";
286
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.";
286
 
287
 
287
# Set some cookie stuff...
288
# Set some cookie stuff...
288
my $path = `dirname $ENV{REQUEST_URI}`; chomp $path; $path .= '/' unless $path eq "/";
289
my $path = `dirname $ENV{SCRIPT_NAME}`; chomp $path; $path .= '/' unless $path eq "/";
289
my $queryCookie = cookie(-NAME=>$prefscookie,
290
my $queryCookie = cookie(-NAME=>$prefscookie,
290
			-VALUE=>"$QUERY_STRING",
291
			-VALUE=>"$QUERY_STRING",
Line 471... Line 472...
471
        "If this page is displaying oddly, ", $h->a ({ href=>url ()."?ignoreCookie=1" }, "[Reset Your View]"),
472
        "If this page is displaying oddly, ", $h->a ({ href=>url ()."?ignoreCookie=1" }, "[Reset Your View]"),
472
        @excelcode,
473
        @excelcode,
473
        $h->br,
474
        $h->br,
474
        "This page was displayed on ", currentTime (),
475
        "This page was displayed on ", currentTime (),
475
        $h->br,
476
        $h->br,
476
        "Please direct questions, problems, and concerns to Officials.RollerCon.Schedule\@gmail.com",
477
        "Please direct questions, problems, and concerns to $SYSTEM_EMAIL",
477
        $h->br,
478
        $h->br,
478
        "Displaying: ", $h->select ({ name=>"year", onchange=>"Req.submit();" }, [ @yearoptions ])
479
        "Displaying: ", $h->select ({ name=>"year", onchange=>"Req.submit();" }, [ @yearoptions ])
479
      ])
480
      ])
480
    ]),
481
    ]),
481
    $h->div ({ class=>"spRight" }, [
482
    $h->div ({ class=>"spRight" }, [