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

 use WebDB;
 $SIG{__WARN__} = sub { warn sprintf("[%s] ", scalar localtime), @_ };
 $SIG{__DIE__}  = sub { die  sprintf("[%s] ", scalar localtime), @_ };
-our @EXPORT = qw( $ORCUSER $SYSTEM_EMAIL getRCDBH getAccessLevels authDB max authenticate canView getShiftRef getShiftDepartment getClassID getDepartments convertDepartments convertTime getSchedule getRCid getSetting getUser getUserEmail getUserDerbyName getYears printRCHeader changeShift modShiftTime signUpCount signUpEligible findConflict changeLeadShift sendNewUserEMail logit validate_emt);
+our @EXPORT = qw( $ORCUSER $SYSTEM_EMAIL getRCDBH getAccessLevels authDB max authenticate canView getShiftRef getShiftDepartment getClassID getSeminarID getDepartments convertDepartments convertTime getSchedule getRCid getSetting getUser getUserEmail getUserDerbyName getYears printRCHeader changeShift modShiftTime signUpCount signUpEligible findConflict changeLeadShift sendNewUserEMail logit validate_emt);
   warn "ERROR: No class.id found for shift $shiftref->{id}";
   return "";
+}
+sub getSeminarID {
+  my $shift = shift // "";
+  return unless $shift =~ /^\d+$/;
+  my $shiftref = getShiftRef ($shift);
+  my ($classid) = $dbh->selectrow_array ("select id from seminar where date = ? and start_time = ? and location = ?", undef, $shiftref->{date}, $shiftref->{start_time}, $shiftref->{location});
+  return $classid unless !$classid;
+  warn "ERROR: No seminar.id found for shift $shiftref->{id}";
+  return "";
+}
 sub getShiftRef {
   my $shiftID = shift // "";
   my $where = scalar @whereclause ? "where ".join " and ", @whereclause : "";
   my @shifts;
   my $sth = $dbh->prepare("select * from (select id, date, dayofweek, track as location, time, role, teams, signup, 'OFF' as dept, volhours from v_shift_officiating where RCid = ? union
                                           select id, date, dayofweek, track as location, time, role, teams, signup, 'ANN' as dept, volhours from v_shift_announcer where RCid = ? union
                                           select id, date, dayofweek, location, time, role, '' as teams, type as signup, dept, volhours from v_shift where RCid = ? union
-                                          select id, date, dayofweek, location, time, role, name as teams, 'mvpclass' as signup, 'CLA' as dept, 0 as volhours from v_class_signup_new where RCid = ?) temp
+                                          select id, date, dayofweek, location, time, role, name as teams, 'mvpclass' as signup, 'CLA' as dept, 0 as volhours from v_class_signup_new where RCid = ? union
+                                          select id, date, dayofweek, location, time, role, name as teams, 'seminar' as signup, 'SEM' as dept, 0 as volhours from v_seminar_signup_new where RCid = ?) temp
                            $where order by date, time");
-  $sth->execute($RCid, $RCid, $RCid, $RCid);
+  $sth->execute($RCid, $RCid, $RCid, $RCid, $RCid);
   my $hours = 0;
   while (my $s = $sth->fetchrow_hashref) {
     my ($yyyy, $mm, $dd) = split /\-/, $s->{date};
     my $cutoff = DateTime->new(
         year => $yyyy,
         second => 0,
         time_zone => 'America/Los_Angeles'
     );
-    if (!$s->{teams} or $s->{dept} eq "CLA") {
+    if (!$s->{teams} or $s->{dept} eq "CLA" or $s->{dept} eq "SEM") {
       # it's a time-based shift
       if ($s->{dept} eq "PER") {
         if ($RCid eq $ORCUSER->{RCid}) {
         if ($s->{dept} eq "CLA") {
           $shiftORclass = "class";
           $linkargs = "&role=$s->{role}";
           $s->{role} = $s->{teams};
           $s->{teams} = "";
+        } elsif ($s->{dept} eq "SEM") {
+          $shiftORclass = "seminar";
+          $linkargs = "&role=$s->{role}";
+          $s->{role} = $s->{teams};
+          $s->{teams} = "";
+        }
         $s->{buttons} = $h->button ({ onClick=>"if (confirm('Really? You want to drop this $shiftORclass?')==true) { window.open('make_shift_change.pl?change=del&RCid=$RCid&id=$s->{id}$linkargs','Confirm Class 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}$linkargs','Confirm Shift Change','resizable,height=260,width=370'); return false; }" }, "NO SHOW");
+}
 sub changeShift {
   my ($change, $shift_id, $role, $user_id) = @_;
+  if ($shift_id =~ /(am|pm)/) {
+    my $s = $shift_id =~ /^SEM/ ? 1 : 0;
-  if ($shift_id =~ /(am|pm)/) {
+    $shift_id =~ s/^SEM\|//;
     my ($td, $st, $tl) = split /\|/, $shift_id;
     my ($hr, $min, $ampm) = split /:|\s/, $st;
     if ($ampm eq "pm") { $hr += 12; }
     elsif ($ampm eq "am" and $hr == 12) { $hr = "00" }
+    $st = $hr.":".$min;
-    $st = $hr.":".$min;
+    $shift_id = join "|", ($td, $st, $tl);
-    $shift_id = join "|", ($td, $st, $tl);
+    $shift_id = "SEM|".$shift_id if $s;
   } else {
     $shift_id =~ s/(\d+:\d+):00/$1/;
+  }
 #warn join " - ", $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);
-    $department = getShiftDepartment ($role ? $shift_id."-".$role : $shift_id);
+  } else {
+    if ($shift_id =~ /^SEM/) {
-  } else {
+      $department = "SEM";
-    $department = "CLA";
+      $shift_id =~ s/^SEM\|//;
+      if ($change eq "del") {
+        ($shift_id, $role) = $dbh->selectrow_array ("select id, role from v_seminar_signup_new where date = ? and start_time = ? and location = ?", undef, split /\|/, $shift_id);
+      } else {
+        if ($change eq "override") {
+          ($shift_id, $role) = $dbh->selectrow_array ("select id, concat('SEM-', max(cast(substring_index(role, '-', -1) as UNSIGNED)) +1) as role from v_seminar_signup_new where date = ? and start_time = ? and location = ?", undef, split /\|/, $shift_id) unless $change ne "override";
+        } else {
+          ($shift_id, $role) = $dbh->selectrow_array ("select id, concat('SEM-', max(cast(substring_index(role, '-', -1) as UNSIGNED)) +1) as role, count(role), capacity from v_seminar_signup_new where date = ? and start_time = ? and location = ? having capacity > count(role)", undef, split /\|/, $shift_id);
+        }
     if ($change eq "del") {
+      $role = "SEM-1" unless $role; # If no one has signed up for the class yet, the SQL above doesn't retrieve the first available
-      ($shift_id, $role) = $dbh->selectrow_array ("select id, role from v_class_signup_new where date = ? and start_time = ? and location = ?", undef, split /\|/, $shift_id);
+    } else {
-    } else {
+      $department = "CLA";
-      if ($change eq "override") {
+      if ($change eq "del") {
+        ($shift_id, $role) = $dbh->selectrow_array ("select id, role from v_class_signup_new where date = ? and start_time = ? and location = ?", undef, split /\|/, $shift_id);
+      } else {
+        if ($change eq "override") {
-        ($shift_id, $role) = $dbh->selectrow_array ("select id, concat('CLA-', max(cast(substring_index(role, '-', -1) as UNSIGNED)) +1) as role from v_class_signup_new where date = ? and start_time = ? and location = ?", undef, split /\|/, $shift_id) unless $change ne "override";
+          ($shift_id, $role) = $dbh->selectrow_array ("select id, concat('CLA-', max(cast(substring_index(role, '-', -1) as UNSIGNED)) +1) as role from v_class_signup_new where date = ? and start_time = ? and location = ?", undef, split /\|/, $shift_id) unless $change ne "override";
+        } else {
-      } else {
+          ($shift_id, $role) = $dbh->selectrow_array ("select id, concat('CLA-', max(cast(substring_index(role, '-', -1) as UNSIGNED)) +1) as role, count(role), capacity from v_class_signup_new where date = ? and start_time = ? and location = ? having capacity > count(role)", undef, split /\|/, $shift_id);
+        }
         ($shift_id, $role) = $dbh->selectrow_array ("select id, concat('CLA-', max(cast(substring_index(role, '-', -1) as UNSIGNED)) +1) as role, count(role), capacity from v_class_signup_new where date = ? and start_time = ? and location = ? having capacity > count(role)", undef, split /\|/, $shift_id);
-      }
       $role = "CLA-1" unless $role; # If no one has signed up for the class yet, the SQL above doesn't retrieve the first available
     $role = "CLA-1" unless $role; # If no one has signed up for the class yet, the SQL above doesn't retrieve the first available
   }
 # my $game_based = $role ? "game" : "shift";
-  my $game_based = $role =~ /^CLA-/ ? "class" : $role ? "game" : "shift";
+  my $game_based = $role =~ /^CLA-/ ? "class" : ($role =~ /^SEM-/) ? "seminar" : $role ? "game" : "shift";
   my $sth;
   if ($change eq "add" or $change eq "override") {
     my $taken;
-    if ($department eq "CLA") {
+    if ($department eq "CLA" or $department eq "SEM") {
       ($taken) = $shift_id ? 0 : 1;
     } elsif ($game_based eq "game") {
       ($taken) = $dbh->selectrow_array ("select count(*) from assignment where Gid = ? and role = ?", undef, $shift_id, $role);
     } else {
       ($taken) = $dbh->selectrow_array ('select count(*) from shift where id = ? and (isnull(assignee_id) = 0 or assignee_id <> "")', undef, $shift_id);
+    }
     if ($taken) {
-      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";
+      return ($department eq "CLA") ? "<br>Denied! This class is already full ($shift_id).<br>\n" : ($department eq "SEM") ? "<br>Denied! This seminar is already full ($shift_id).<br>\n" : "<br>Denied! This shift is already taken ($shift_id).<br>\n";
+    }
+  }
   if ($change eq "add") {
     if ($department eq "CLA" and !getUser($user_id)->{MVPid}) {
       return "<br>Denied! User ($user_id) does not have an MVP Pass!<br>\n";
-    } elsif ($department ne "CLA" and getUser($user_id)->{department} and convertDepartments(getUser($user_id)->{department})->{$department} < 1) {
+    } elsif ($department ne "CLA" and $department ne "SEM" and getUser($user_id)->{department} 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";
     } elsif ($department eq "EMT" and getUser($user_id)->{emt_verified} == 0) {
       return "<br>Denied! User ($user_id) has not had their EMT status verified!<br>\n";
+    }
   if ($change eq "add" and $conflict) {
     return "<br>Denied! There is a conflict ($conflict) with that shift's time!<br>\n";
+  }
   my $game_type;
-  if ($department ne "CLA") {
+  if ($department ne "CLA" and $department ne "SEM") {
     ($game_type) = $dbh->selectrow_array ("select type from ".$game_based." where id = ?", undef, $shift_id);
     if ($game_type =~ /^selected/ and !$leadership_change) {
       return "<br>Denied! Only leadership can make changes to 'selected staffing' shifts!<br>\n" unless $department eq "CMP";
+    }
     if ($change eq "add" and $game_type eq "lead" and convertDepartments(getUser($user_id)->{department})->{$department} < 2 and $ORCUSER->{access} < 3) {
       return "<br>Denied! Shift reserved for leadership staff!<br>\n";
+    }
   } else {
-    $game_type = "class";
+    $game_type = $department eq "CLA" ? "class" : "seminar";
+      }
+    }
+  }
   my @DBARGS;
-  if ($game_based eq "game" or $game_based eq "class") {
+  if ($game_based eq "game" or $game_based eq "class" or $game_based eq "seminar") {
     if ($change eq "add" or $change eq "override") {
       $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= ?");
     $daily_count = signUpCount ($change, $user_id, $department) unless $leadership_change;
     logit ($user_id, "Shift ".ucfirst($change).": $shift_id -> $role");
     logit ($ORCUSER->{RCid}, "OVERRIDE: Shift ".ucfirst($change).": $shift_id -> $role") if $change eq "override";
     if ($department eq "CLA") {
       print "Success!...<br>You've signed up for $daily_count class(es) (you're currently allowed to sign up for $MAXSHIFTS).<br>\n";
-      updateWRSTBND ($change, $wb_act_code, $DBARGS[0], $DBARGS[2]);
+#      updateWRSTBND ($change, $wb_act_code, $DBARGS[0], $DBARGS[2]);
+    } elsif ($department eq "CLA") {
+      print "Success!...<br>You've signed up for $daily_count seminar(s) (you're currently allowed to sign up for $MAXSHIFTS).<br>\n";
     } else {
       print "Success!...<br>You've signed up for $daily_count shifts today (you're currently allowed to sign up for $MAXSHIFTS per day).<br>\n";
+    }
     return;
   } else {
     if ($department eq "CLA") {
       return "<br><b>You did not get the class</b>, most likely because it filled up while you were looking.<br>\nERROR: ", $sth->errstr();
+    } elsif ($department eq "SEM") {
+      return "<br><b>You did not get the seminar</b>, most likely because it filled up while you were looking.<br>\nERROR: ", $sth->errstr();
     } else {
       return "<br><b>You did not get the shift</b>, most likely because someone else took it while you were looking.<br>\nERROR: ", $sth->errstr();
+    }
+  }
+}
     $t->{start_time} =~ s/^(\d+:\d+):00$/$1/;
     ($t->{id}) = $dbh->selectrow_array ("select id from v_class_new where date = ? and location = ? and start_time = ?", undef, $t->{date}, $t->{location}, $t->{start_time});
     $t->{dept} = "CLA";
     $dept = "CLA";
     $t->{type} = "open";
+  } elsif ($shifttype eq "seminar") {
+    my $classid = $t->{id};
+    $t->{start_time} =~ s/^(\d+:\d+):00$/$1/;
+    ($t->{id}) = $dbh->selectrow_array ("select id from v_seminar_new where date = ? and location = ? and start_time = ?", undef, $t->{date}, $t->{location}, $t->{start_time});
+    $t->{dept} = "SEM";
+    $dept = "SEM";
+    $t->{type} = "open";
+  }
   if (findConflict ($user->{RCid}, $t->{id}, $shifttype)) { return 0; }
   if (!exists $user->{$limitkey}) {
     $user->{$limitkey} = signUpCount('get', $user->{RCid}, $dept);
       # MVP Class Sign-up
       return 0 unless $user->{MVPid};
       my $class_limit = getSetting ("MAX_CLASS_SIGNUP");
       my ($class_count) = $dbh->selectrow_array ("select count(*) from v_class_signup_new where RCid = ? and year(date) = year(now())", undef, $user->{RCid});
       return 0 unless $class_count < $class_limit;
+    } elsif ($dept eq "SEM") {
+      # Nothing to check for Seminars...
     } else {
       if ($user->{department}->{$dept} < 1) { return 0; }
+    }
     if (lc $t->{type} eq "lead" and $user->{department}->{$dept} < 2) { return 0; }
     if (lc $t->{type} eq "manager" and $user->{department}->{$dept} < 3) { return 0; }
     ($conflicts) = $dbh->selectrow_array ("select count(*) from v_class_signup_new where id = ? and RCid = ?", undef, $gid, $rcid);
     if ($conflicts) { return "CLA:".$gid; } # no need to keep looking...
+    ($date, $start, $end) = $dbh->selectrow_array ("select distinct date, start_time, end_time from v_class_new where id = ?", undef, $gid);
+  } elsif ($type eq "seminar")  {
+    ($conflicts) = $dbh->selectrow_array ("select count(*) from v_seminar_signup_new where id = ? and RCid = ?", undef, $gid, $rcid);
+    if ($conflicts) { return "SEM:".$gid; } # no need to keep looking...
-    ($date, $start, $end) = $dbh->selectrow_array ("select distinct date, start_time, end_time from v_class_new where id = ?", undef, $gid);
+    ($date, $start, $end) = $dbh->selectrow_array ("select distinct date, start_time, end_time from v_seminar_new where id = ?", undef, $gid);
   } elsif ($type eq "personal")  {
     ($date, $start, $end, $existing) = @{ $gid };
   } else {

Subversion Repositories VORC

(root)/trunk/perl/RollerCon.pm – Rev 236 → 252