Subversion Repositories VORC

Rev

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

Rev 127 Rev 132
Line 7... Line 7...
7 
use CGI qw/param header start_html url/;
 7 
use CGI qw/param header start_html url/;
8 
use CGI::Cookie;
 8 
use CGI::Cookie;
9 
use DBI;
 9 
use DBI;
10 
use WebDB;
 10 
use WebDB;
Line -... Line 11...
- 
 
 11 
 
- 
 
 12 
$SIG{__WARN__} = sub { warn sprintf("[%s] ", scalar localtime), @_ };
- 
 
 13 
$SIG{__DIE__}  = sub { die  sprintf("[%s] ", scalar localtime), @_ };
11 
 
 14 
 
Line 12... Line 15...
12 
our @EXPORT = qw( $ORCUSER $SYSTEM_EMAIL getRCDBH getAccessLevels authDB max authenticate canView getShiftDepartment getClassID getDepartments convertDepartments convertTime getSchedule getRCid getSetting getUser getUserEmail getUserDerbyName getYears printRCHeader changeShift modShiftTime signUpCount signUpEligible findConflict changeLeadShift sendNewUserEMail logit);
 15 
our @EXPORT = qw( $ORCUSER $SYSTEM_EMAIL getRCDBH getAccessLevels authDB max authenticate canView getShiftDepartment getClassID getDepartments convertDepartments convertTime getSchedule getRCid getSetting getUser getUserEmail getUserDerbyName getYears printRCHeader changeShift modShiftTime signUpCount signUpEligible findConflict changeLeadShift sendNewUserEMail logit);
13 
 
 16 
 
14 
my $dbh = WebDB->connect ();
 17 
my $dbh = WebDB->connect ();