Subversion Repositories VORC

Rev

Rev 43 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 43 Rev 50
Line 17... Line 17...
17
our ($EML, $PWD, $LVL);
17
our ($EML, $PWD, $LVL);
18
my $user;
18
my $user;
19
my $username;
19
my $username;
20
my $RCid;
20
my $RCid;
21
my $RCAUTH_cookie;
21
my $RCAUTH_cookie;
22
#my $YEAR = "2022";
22
#my $YEAR = "2023";
Line 23... Line 23...
23
 
23
 
24
$cookie_string = authenticate(1) || die;
24
$cookie_string = authenticate(1) || die;
25
($EML, $PWD, $LVL) = split /&/, $cookie_string;
25
($EML, $PWD, $LVL) = split /&/, $cookie_string;
26
$user = getUser($EML);
26
$user = getUser($EML);
Line 124... Line 124...
124
		$Options =~ s/>($FORM{$thing})/ selected>$1/;
124
		$Options =~ s/>($FORM{$thing})/ selected>$1/;
125
		return "<SELECT name=filter-${colName} $onChange>$Options</SELECT>";
125
		return "<SELECT name=filter-${colName} $onChange>$Options</SELECT>";
126
	}
126
	}
127
}
127
}
Line -... Line 128...
-
 
128
 
-
 
129
sub modify_time {
-
 
130
  my $t = shift;
-
 
131
  return convertTime $t->{time};
-
 
132
}
-
 
133
 
128
 
134
 
129
# Ideally, nothing below this comment needs to change
135
# Ideally, nothing below this comment needs to change
Line 130... Line 136...
130
#-------------------------------------------------------------------------------
136
#-------------------------------------------------------------------------------