Subversion Repositories VORC

use CGI qw/param header start_html url/;

use CGI qw/param header start_html url/;

use CGI::Cookie;

use CGI::Cookie;

use DBI;

use DBI;

use WebDB;

use WebDB;

our @EXPORT = qw( $ORCUSER 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 );

our @EXPORT = qw( $ORCUSER 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);

my $dbh = WebDB->connect ();

my $dbh = WebDB->connect ();

sub getRCDBH {

sub getRCDBH {

		if ($ADept->{$_} > 1) { # A is a Lead or higher of one of B's departments

		if ($ADept->{$_} > 1) { # A is a Lead or higher of one of B's departments

			return 1;

			return 1;

		}

		}

	}

	}

	if ($ADept->{MVP} >= RollerCon::VOLUNTEER and $B->{mvp_pass} = 1) {

	if ($ADept->{MVP} >= RollerCon::VOLUNTEER and $B->{MVPid}) {

	  # MVP Volunteers can see user details for people with MVP Passes

	  # MVP Volunteers can see user details for people with MVP Passes

	  return 1;

	  return 1;

	}

	}

sub getUser {

sub getUser {

	my $ID = shift;

	my $ID = shift;

	my $sth;

	my $sth;

	  $sth = $dbh->prepare("select * from official where RCid = ?");

	  $sth = $dbh->prepare("select * from v_official where RCid = ?");

	  $sth = $dbh->prepare("select * from official where email = ?");

	  $sth = $dbh->prepare("select * from v_official where email = ?");

  }

  }

	$sth->execute($ID);

	$sth->execute($ID);

	  # Managers can sign up for as many shifts within their own department as they like...

	  # Managers can sign up for as many shifts within their own department as they like...

	  $leadership_change = 1;

	  $leadership_change = 1;

	}

	}

    if ($department eq "CLA" and getUser($user_id)->{mvp_pass} < 1) {

    if ($department eq "CLA" and !getUser($user_id)->{MVPid}) {

      return "<br>Denied! User ($user_id) does not have an MVP Pass!<br>\n";      

      return "<br>Denied! User ($user_id) does not have an MVP Pass!<br>\n";      

    } elsif ($department ne "CLA" and convertDepartments(getUser($user_id)->{department})->{$department} < 1) {

    } elsif ($department ne "CLA" and convertDepartments(getUser($user_id)->{department})->{$department} < 1) {

      return "<br>Denied! User ($user_id) is not a member of Department ($department)!<br>\n" unless $department eq "CMP";

      return "<br>Denied! User ($user_id) is not a member of Department ($department)!<br>\n" unless $department eq "CMP";

    }

    }

			return 0;

			return 0;

		}

		}

	} else {

	} else {

    if ($dept eq "CLA") {

    if ($dept eq "CLA") {

      # MVP Class Sign-up

      # MVP Class Sign-up

      my $class_limit = getSetting ("MAX_CLASS_SIGNUP");

      my $class_limit = getSetting ("MAX_CLASS_SIGNUP");

			my ($class_count) = $dbh->selectrow_array ("select count(*) from v_class_signup where RCid = ? and year(date) = year(now())", undef, $user->{RCid});

			my ($class_count) = $dbh->selectrow_array ("select count(*) from v_class_signup where RCid = ? and year(date) = year(now())", undef, $user->{RCid});

			return 0 unless $class_count < $class_limit;

			return 0 unless $class_count < $class_limit;

    } else {

    } else {

	    if ($user->{department}->{$t->{dept}} < 1) { return 0; }

	    if ($user->{department}->{$t->{dept}} < 1) { return 0; }