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