Subversion Repositories ORC

Rev

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

Rev 7 Rev 8
Line 1... Line 1...
1 
#!/usr/bin/perl
 1 
#!/usr/bin/perl
Line 2... Line 2...
2 
 
 2 
 
Line 3... Line 3...
3 
#if ($ENV{SHELL}) { die "This script shouldn't be executed from the command line!\n"; }
 3 
#if ($ENV{SHELL}) { die "This script shouldn't be executed from the command line!\n"; }
- 
 
 4 
 
4 
 
 5 
#use strict;
5 
#use strict;
 6 
use cPanelUserConfig;
6 
use CGI qw/param cookie header start_html url/;
 7 
use CGI qw/param cookie header start_html url/;
7 
use HTML::Tiny;
 8 
use HTML::Tiny;
8 
use tableViewer;
 9 
use tableViewer;
Line 22... Line 23...
22 
if ($user->{department}->{"OFF"} < 1 or $LVL < 4) {
 23 
if ($user->{department}->{"OFF"} < 1 or $LVL < 4) {
23 
	print header(-cookie=>$RCAUTH_cookie);
 24 
	print header(-cookie=>$RCAUTH_cookie);
24 
	printRCHeader("Unauthorized Page");
 25 
	printRCHeader("Unauthorized Page");
25 
	print $h->div ({ class=>"error" }, "You're not an Official");
 26 
	print $h->div ({ class=>"error" }, "You're not an Official");
26 
	print $h->div ("Your user account is not registered as an Official, so you can't see these shifts.  It's possible that your access is still being reviewed.  Please be patient.");
 27 
	print $h->div ("Your user account is not registered as an Official, so you can't see these shifts.  It's possible that your access is still being reviewed.  Please be patient.");
27 
	print $h->a ({ href=>"/" }, "[Go Home]");
 28 
	print $h->a ({ href=>"/schedule/" }, "[Go Home]");
28 
	print $h->close ("html");
 29 
	print $h->close ("html");
29 
	exit;
30 
	exit;
30 
}
 31 
}
Line 31... Line 32...
31 
 
 32 
 
Line 68... Line 69...
68 
  $COLUMNS{'real_name'} = [qw(RealName    85    text)];
 69 
  $COLUMNS{'real_name'} = [qw(RealName    85    text)];
69 
  $COLUMNS{'email'}     = [qw(Email       90    text)];
 70 
  $COLUMNS{'email'}     = [qw(Email       90    text)];
70 
}
 71 
}
Line 71... Line 72...
71 
 
 72 
 
72 
my $stylesheet = "/style.css";
 73 
my $stylesheet = "/style.css";
73 
my $homeURL = '/';
 74 
my $homeURL = '/schedule/';
Line 74... Line 75...
74 
my @pagelimitoptions = ("All", 5, 10, 25);
 75 
my @pagelimitoptions = ("All", 5, 10, 25);
Line 75... Line 76...
75 
 
 76 
 
Line 334... Line 335...
334
335
335 
  print $h->div ({ class=>"sp0" }, [
 336 
  print $h->div ({ class=>"sp0" }, [
336 
    $h->div ({ class=>"spLeft"  }, [ @topleft ]),
 337 
    $h->div ({ class=>"spLeft"  }, [ @topleft ]),
337 
    $h->div ({ class=>"spRight" }, [
 338 
    $h->div ({ class=>"spRight" }, [
338 
      $signedOnAs, $h->br,
 339 
      $signedOnAs, $h->br,
- 
 
 340 
      "Show my shifts: ", $SIChecked, $h->br,
339 
      "Show my shifts: ", $SIChecked
 341 
      $h->input ({ type=>"button", value=>"Block Personal Time", onClick=>"window.location.href='manage_personal_time.pl'" }),
340 
    ])
 342 
    ])
341 
  ]);
 343 
  ]);
Line 342... Line 344...
342 
}
 344 
}