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 
#-------------------------------------------------------------------------------