Subversion Repositories ORC

Rev

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

Rev 29 Rev 35
Line 8... Line 8...
8 
use CGI qw/param header start_html url/;
 8 
use CGI qw/param header start_html url/;
9 
my $h = HTML::Tiny->new( mode => 'html' );
 9 
my $h = HTML::Tiny->new( mode => 'html' );
Line 10... Line 10...
10 
 
 10 
 
Line 11... Line 11...
11 
my %F;
 11 
my %F;
12 
 
 12 
 
13 
my $cookie_string = authenticate (3) || die;
 13 
my $cookie_string = authenticate (5) || die;
14 
our ($EML, $PWD, $LVL) = split /&/, $cookie_string;
 14 
our ($EML, $PWD, $LVL) = split /&/, $cookie_string;
15 
my $user = getUser ($EML);
 15 
my $user = getUser ($EML);
16 
$user->{department} = convertDepartments $user->{department};
 16 
$user->{department} = convertDepartments $user->{department};