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 21... Line 22...
21 
if ($user->{department}->{"ANN"} < 1 or $LVL < 4) {
 22 
if ($user->{department}->{"ANN"} < 1 or $LVL < 4) {
22 
	print header(-cookie=>$RCAUTH_cookie);
 23 
	print header(-cookie=>$RCAUTH_cookie);
23 
	printRCHeader("Unauthorized Page");
 24 
	printRCHeader("Unauthorized Page");
24 
	print $h->div ({ class=>"error" }, "You're not an Announcer");
 25 
	print $h->div ({ class=>"error" }, "You're not an Announcer");
25 
	print $h->div ("Your user account is not registered as an Announcer, so you can't see these shifts.  It's possible that your access is still being reviewed.  Please be patient.");
 26 
	print $h->div ("Your user account is not registered as an Announcer, so you can't see these shifts.  It's possible that your access is still being reviewed.  Please be patient.");
26 
	print $h->a ({ href=>"/" }, "[Go Home]");
 27 
	print $h->a ({ href=>"/schedule/" }, "[Go Home]");
27 
	print $h->close ("html");
 28 
	print $h->close ("html");
28 
	exit;
29 
	exit;
29 
}
 30 
}
Line 30... Line 31...
30 
 
 31 
 
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);
75 
 
 76 
 
Line 332... Line 333...
332
333
333 
  print $h->div ({ class=>"sp0" }, [
 334 
  print $h->div ({ class=>"sp0" }, [
334 
    $h->div ({ class=>"spLeft"  }, [ @topleft ]),
 335 
    $h->div ({ class=>"spLeft"  }, [ @topleft ]),
335 
    $h->div ({ class=>"spRight" }, [
 336 
    $h->div ({ class=>"spRight" }, [
336 
      $signedOnAs, $h->br,
 337 
      $signedOnAs, $h->br,
- 
 
 338 
      "Show my shifts: ", $SIChecked, $h->br,
337 
      "Show my shifts: ", $SIChecked
 339 
      $h->input ({ type=>"button", value=>"Block Personal Time", onClick=>"window.location.href='manage_personal_time.pl'" }),
338 
    ])
 340 
    ])
339 
  ]);
 341 
  ]);
Line 340... Line 342...
340 
}
 342 
}