Subversion Repositories VORC

Rev

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

Rev 35 Rev 50
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 = "2022";
 20 
my $YEAR = "2023";
Line 21... Line 21...
21 
 
 21 
 
22 
 
 22 
 
23 
my $pageTitle = "Shift Management";
 23 
my $pageTitle = "Shift Management";
Line 133... Line 133...
133 
 		}
 133 
 		}
134 
 	}
 134 
 	}
135 
 	return $t->{derby_name};
 135 
 	return $t->{derby_name};
136 
}
 136 
}
Line -... Line 137...
- 
 
 137 
 
- 
 
 138 
sub modify_time {
- 
 
 139 
  my $t = shift;
- 
 
 140 
  return convertTime $t->{time};
- 
 
 141 
}
Line 137... Line 142...
137 
 
 142 
 
138 
 
 143