WebSVN – ORC – Diff – /trunk/perl/RollerCon.pm

 use DBI;
 use WebDB;
+my $dbh = WebDB->connect ();
+sub getRCDBH {
   return $dbh;
 my $dbh = WebDB->connect ();
 our $ORCUSER;
 use constant {
     USER   => 1,
   		  $s->{buttons} = $h->button ({ onClick=>"if (confirm('Really? You want to drop this shift?')==true) { window.open('make_shift_change.pl?change=del&id=$s->{id}','Confirm Shift Change','resizable,height=260,width=370'); return false; }" }, "DROP");
 	   		if ($ORCUSER->{department}->{$s->{dept}} >= 2 or $ORCUSER->{access} >= 5) {
    		    # NO SHOW
  	  	    $s->{buttons} .= "&nbsp;".$h->button ({ onClick=>"if (confirm('Really? They were a no show?')==true) { window.open('make_shift_change.pl?noshow=true&change=del&RCid=$RCid&id=$s->{id}','Confirm Shift Change','resizable,height=260,width=370'); return false; }" }, "NO SHOW");
+ 		    }
-        $hours += $s->{volhours};
+        $hours += $s->{volhours} unless $s->{dept} eq "CLA";
+  		}
     } elsif (($RCid == $ORCUSER->{RCid} and $s->{signup} !~ /^selected/ and $now < $cutoff) or ($ORCUSER->{department}->{$s->{dept}} >= 2 or $ORCUSER->{access} >= 5)) {
       # it's a game shift
+}
 sub changeShift {
 	my ($change, $shift_id, $role, $user_id) = @_;
 	my $leadership_change = 0;
+#	my $department = getShiftDepartment ($role ? $shift_id."-".$role : $shift_id);
+	my $department;
+	if ($shift_id =~ /^\d+$/) {
+		$department = getShiftDepartment ($role ? $shift_id."-".$role : $shift_id);
+	} else {
+		$department = "CLA";
+		($shift_id) = $dbh->selectrow_array ("select min(id) from v_shift where date = ? and start_time = ? and location = ? and isnull(RCid) = 1", undef, split /\|/, $shift_id);
 	my $department = getShiftDepartment ($role ? $shift_id."-".$role : $shift_id);
 	my $game_based = $role ? "game" : "shift";
 	my $sth;
 	if ($change eq "add") {
   	my $taken;
+  	if ($game_based eq "game") {
+  	  ($taken) = $dbh->selectrow_array ("select count(*) from assignment where Gid = ? and role = ?", undef, $shift_id, $role);
-  	if ($game_based eq "game") {
+		} elsif ($department eq "CLA") {
-  	  ($taken) = $dbh->selectrow_array ("select count(*) from assignment where Gid = ? and role = ?", undef, $shift_id, $role);
+  	  ($taken) = $shift_id ? 0 : 1;
   	} else {
   	  ($taken) = $dbh->selectrow_array ("select count(*) from shift where id = ? and isnull(assignee_id) = 0", undef, $shift_id);
   	}
   	if ($taken) {
-  	    return "<br>Denied! This shift is already taken ($shift_id).<br>\n";
+  	    return ($department eq "CLA") ? "<br>Denied! This class is already full ($shift_id).<br>\n" : "<br>Denied! This shift is already taken ($shift_id).<br>\n";
+  	}
   }
 	if (lc ($user_id) ne lc ($ORCUSER->{RCid})) { # they're changing someone else's schedule...
-	  if ($ORCUSER->{department}->{$department} >= 2 or $ORCUSER->{access} >= 5) {
+	  if ($ORCUSER->{department}->{$department} >= 2 or $ORCUSER->{access} >= 5 or $ORCUSER->{department}->{VCI} >= 2) {
-	    # the user making the change is either a lead in the dept or a sysadmin
+	    # the user making the change is either a lead in the dept, a sysadmin, or a VCI lead
 	    logit ($ORCUSER->{RCid}, "$ORCUSER->{derby_name} changed someone else's schedule. ($change, $shift_id, $role, $user_id)");
 	    logit ($user_id, "Schedule was changed by $ORCUSER->{derby_name}. ($change, $shift_id, $role, $user_id)");
 # 	my $MAXSHIFTS = getSetting ("MAX_SHIFT_SIGNUP_PER_DAY");
 	my $MAXSHIFTS = getSetting ("MAX_SHIFT_SIGNUP_PER_DAY_".$department);
 	$MAXSHIFTS = getSetting ("MAX_SHIFT_SIGNUP_PER_DAY") unless defined $MAXSHIFTS;
 	if ($game_type eq "lead" and $department eq "OFF") { $MAXSHIFTS = 99; }
+  my $daily_count;
+  if ($department eq "CLA") {
+    # MVP Class Sign-up
+    $MAXSHIFTS = getSetting ("MAX_CLASS_SIGNUP");
+	  ($daily_count) = $dbh->selectrow_array ("select count(*) from v_shift where RCid = ? and dept = 'CLA'", undef, $user_id);
+   	if ($change eq "add" and $daily_count >= $MAXSHIFTS and !$leadership_change) {
+	    return "<br>Denied! You may only sign up for $MAXSHIFTS Classes!<br>\n";
+	  }
+  } else {
- 	my $daily_count = signUpCount ('get', $user_id, $department);
+   	$daily_count = signUpCount ('get', $user_id, $department);
- 	if ($change eq "add" and $daily_count >= $MAXSHIFTS and !$leadership_change) {
+   	if ($change eq "add" and $daily_count >= $MAXSHIFTS and !$leadership_change) {
+   		return "<br>Denied! You may only sign up for $MAXSHIFTS $game_type shifts in one day!<br>\n";
- 		return "<br>Denied! You may only sign up for $MAXSHIFTS $game_type shifts in one day!<br>\n";
+   	}
- 	}
+  }
  	my @DBARGS;
   if ($game_based eq "game") {
   	if ($change eq "add") {
   		$sth = $dbh->prepare("insert into assignment (Gid, role, RCid) values (?, ?, ?)");
   	} elsif ($change eq "del") {
   		$sth = $dbh->prepare("delete from assignment where Gid = ? and role = ? and RCid= ?");
+  	}
   	@DBARGS = ($shift_id, $role, $user_id);
   } else {
   	if ($change eq "add") {
-  		$sth = $dbh->prepare("update shift set assignee_id = ? where id = ?");
+  		$sth = $dbh->prepare("update shift set assignee_id = ? where id = ? and isnull(assignee_id) = 1");
   		@DBARGS = ($user_id, $shift_id);
   	} elsif ($change eq "del") {
   		$sth = $dbh->prepare("update shift set assignee_id = null where id = ?");
   		@DBARGS = ($shift_id);
 	return 0 unless $limit > 0;
+	my $limitkey = $dept ? "sign_ups_today_".$dept : "sign_ups_today";
+	if ($shifttype eq "class") {
+		($t->{id}) = $dbh->selectrow_array ("select min(id) from v_shift where isnull(RCid) = 1 and dept = ? and date = ? and location = ? and start_time = ?", undef, "CLA", $t->{date}, $t->{location}, $t->{start_time});
+		$t->{dept} = "CLA";
 		$t->{type} = "open";
 	my $limitkey = $dept ? "sign_ups_today_".$dept : "sign_ups_today";
 	if (findConflict ($user->{RCid}, $t->{id}, $shifttype)) { return 0; }
 			return 1;
 		} else {
 			return 0;
+		}
 	} else {
+    if ($dept eq "CLA") {
+      # MVP Class Sign-up
+      my $class_limit = getSetting ("MAX_CLASS_SIGNUP");
+			my ($class_count) = $dbh->selectrow_array ("select count(*) from v_shift where RCid = ? and dept = 'CLA'", undef, $user->{RCid});
+			return 0 unless $class_count < $class_limit;
+    }
 	  if ($user->{department}->{$t->{dept}} < 1) { return 0; }
 	  if ($t->{type} eq "lead" and $user->{department}->{$t->{dept}} < 2) { return 0; }
 	  if ($t->{type} eq "manager" and $user->{department}->{$t->{dept}} < 3) { return 0; }
     if ($t->{type} !~ /^selected/ and $user->{$limitkey} < $limit) {
 			return 1;

Subversion Repositories ORC

(root)/trunk/perl/RollerCon.pm – Rev 30 → 35