| Line 8... |
Line 8... |
| 8 |
use HTML::Tiny;
|
8 |
use HTML::Tiny;
|
| 9 |
use tableViewer;
|
9 |
use tableViewer;
|
| 10 |
use RollerCon;
|
10 |
use RollerCon;
|
| 11 |
our $h = HTML::Tiny->new( mode => 'html' );
|
11 |
our $h = HTML::Tiny->new( mode => 'html' );
|
| Line 12... |
Line 12... |
| 12 |
|
12 |
|
| 13 |
my $cookie_string = authenticate (RollerCon::MANAGER) || die;
|
13 |
my $cookie_string = authenticate (RollerCon::ADMIN) || 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};
|
| 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});
|
| Line 33... |
Line 33... |
| 33 |
start_time => [qw(Start 25 text )],
|
33 |
start_time => [qw(Start 25 text )],
|
| 34 |
end_time => [qw(End 30 text )],
|
34 |
end_time => [qw(End 30 text )],
|
| 35 |
mod_time => [qw(ModTime 35 number )],
|
35 |
mod_time => [qw(ModTime 35 number )],
|
| 36 |
doubletime => [qw(DoubleTime 37 boolean )],
|
36 |
doubletime => [qw(DoubleTime 37 boolean )],
|
| 37 |
volhours => [qw(VolHours 40 number )],
|
37 |
volhours => [qw(VolHours 40 number )],
|
| 38 |
role => [qw(Role 45 select default )],
|
38 |
role => [qw(Role 45 text default )],
|
| 39 |
type => [qw(Type 50 select default )],
|
39 |
type => [qw(Type 50 select default )],
|
| 40 |
location => [qw(Location 55 select default )],
|
40 |
location => [qw(Location 55 select default )],
|
| 41 |
note => [qw(Notes 60 text default )],
|
41 |
note => [qw(Notes 60 text default )],
|
| 42 |
RCid => [qw(RCID 65 text )],
|
42 |
RCid => [qw(RCID 65 text )],
|
| 43 |
derby_name => [qw(Assignee 70 select default )],
|
43 |
derby_name => [qw(Assignee 70 select default )],
|