Subversion Repositories VORC

Rev

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

Rev 51 Rev 53
Line 15... Line 15...
15 
my $user = getUser ($EML);
 15 
my $user = getUser ($EML);
16 
$user->{department} = convertDepartments $user->{department};
 16 
$user->{department} = convertDepartments $user->{department};
17 
my $username = $h->a ({ href=>"/schedule/manage_user.pl?submit=View&RCid=$user->{RCid}" }, $user->{derby_name});
 17 
my $username = $h->a ({ href=>"/schedule/manage_user.pl?submit=View&RCid=$user->{RCid}" }, $user->{derby_name});
18 
my $RCid = $user->{RCid};
 18 
my $RCid = $user->{RCid};
19 
my $RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");
 19 
my $RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");
20 
my $YEAR = "2023";
 20 
my $YEAR = 1900 + (localtime)[5];
Line 21... Line 21...
21 
 
 21 
 
22 
 
 22 
 
23 
my $pageTitle = "Shift Management";
 23 
my $pageTitle = "Shift Management";