Subversion Repositories ORC

Rev

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

Rev 25 Rev 27
Line 32... Line 32...
32
my $username = $h->a ({ href=>"/schedule/manage_user.pl?submit=View&RCid=$user->{RCid}" }, $user->{derby_name});
32
my $username = $h->a ({ href=>"/schedule/manage_user.pl?submit=View&RCid=$user->{RCid}" }, $user->{derby_name});
33
my $RCid = $user->{RCid};
33
my $RCid = $user->{RCid};
34
my $RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");
34
my $RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");
35
#my $YEAR = 1900 + (localtime)[5]; #which year of data to display, default to current
35
#my $YEAR = 1900 + (localtime)[5]; #which year of data to display, default to current
36
my $YEAR = "2019";
36
my $YEAR = "2019";
37
my @addToWhereClause = ("year(date) = '$YEAR'", "type = 'announcer'");
-
 
Line 38... Line 37...
38
 
37
 
Line 39... Line 38...
39
#$LVL = 1;
38
#$LVL = 1;
40
 
39
 
Line 158... Line 157...
158
		  push @displayFields, $_;
157
		  push @displayFields, $_;
159
		}
158
		}
160
  }
159
  }
161
}
160
}
Line -... Line 161...
-
 
161
 
Line 162... Line 162...
162
 
162
my @addToWhereClause = ("year(date) = '$YEAR'", "type = 'announcer'");
163
 
163
 
164
if (exists $FORM{autoload})	{			# If the FORM was submitted (i.e. the page is being redisplayed),
164
if (exists $FORM{autoload})	{			# If the FORM was submitted (i.e. the page is being redisplayed),
165
							                    #  	build the data for the cookie that remembers the page setup
165
							                    #  	build the data for the cookie that remembers the page setup