WebSVN – VORC – Diff – /trunk/site/schedule/view_class.pl

 my $pageTitle = "View MVP Class";
 my $homeURL = "/schedule/";
 my $DBTable = "class";
 my %FIELDS = (
-	id          => [qw(ClassID        5    auto        static )],
+  id          => [qw(ClassID        5    auto        static )],
-	name        => [qw(ClassName     10    text        required )],
+  name        => [qw(ClassName     10    text        required )],
-	coach       => [qw(Coach         15    select      required )],
+  coach       => [qw(Coach         15    placeholder    )],
-	assistant   => [qw(Assistant     17    select       )],
+  assistant   => [qw(Assistant     17    placeholder    )],
-	date        => [qw(Date          20    date        required )],
+  date        => [qw(Date          20    date        required )],
-	location    => [qw(Location      25    text        required )],
+  location    => [qw(Location      25    text        required )],
-	level       => [qw(Level         27    text        required )],
+  level       => [qw(Level         27    text        required )],
-	start_time  => [qw(Start         30    time        required )],
+  start_time  => [qw(Start         30    time        required )],
-	end_time    => [qw(End           35    time        required )],
+  end_time    => [qw(End           35    time        required )],
-	capacity    => [qw(Capacity      40    number      required )],
+  capacity    => [qw(Capacity      40    number      required )],
-	note        => [qw(Notes         45    textarea       )],
+  note        => [qw(Notes         45    textarea       )],
 );
 my @DBFields   = sort fieldOrder grep { $fieldType{$_} =~ /^(text|select|number|switch|date|time|auto)/ } keys %FIELDS;
 my @ROFields   = sort fieldOrder grep { $fieldType{$_} =~ /^(readonly)/ } keys %FIELDS;
 my $primary = $DBFields[0];
 sub fieldOrder {
-	$FIELDS{$a}->[1] <=> $FIELDS{$b}->[1];
+  $FIELDS{$a}->[1] <=> $FIELDS{$b}->[1];
+}
-sub saveForm {
   error ("ERROR: Only SysAdmins can change games.") unless $LVL >= RollerCon::ADMIN;
+sub saveForm {
+  my $FTS = shift;
+  my $context = shift // "";
-  my $FTS = shift;
+  error ("ERROR: Only SysAdmins can change games.") unless $LVL >= RollerCon::ADMIN or ($context eq "Save Note" and $user->{department}->{MVP} >= RollerCon::LEAD);
   my $dbh = WebDB::connect ();
   if ($FTS->{$DBFields[0]} eq "NEW") {
     $dbh->do (
       "INSERT INTO $DBTable
-      (name,coach,assistant,date,location,level,start_time,end_time,capacity,note)
+      (name,date,location,level,start_time,end_time,capacity,note)
       VALUES(?,?,?,?,?,?,?,?)",
-    	undef,
+      undef,
-    	$FTS->{name}, $FTS->{coach}, $FTS->{assistant}, $FTS->{date}, $FTS->{location}, $FTS->{level}, $FTS->{start_time}, $FTS->{end_time}, $FTS->{capacity}, $FTS->{note}
+      $FTS->{name}, $FTS->{date}, $FTS->{location}, $FTS->{level}, $FTS->{start_time}, $FTS->{end_time}, $FTS->{capacity}, $FTS->{note}
     );
-  	($FTS->{id}) = $dbh-> selectrow_array ("select max(id) from $DBTable where name = ? and date = ? and location = ? and start_time = ? and end_time = ?", undef, $FTS->{name}, $FTS->{date}, $FTS->{location}, $FTS->{start_time}, $FTS->{end_time});
-    logit ($RCid, "$username created new class ($FTS->{id}, $FTS->{name}, $FTS->{date}, $FTS->{location}, $FTS->{start_time}, $FTS->{end_time}, $FTS->{capacity})");
+    ($FTS->{id}) = $dbh-> selectrow_array ("select max(id) from $DBTable where name = ? and date = ? and location = ? and start_time = ? and end_time = ?", undef, $FTS->{name}, $FTS->{date}, $FTS->{location}, $FTS->{start_time}, $FTS->{end_time});
-    # Each class has a volunteer shift for the coach.
-    $dbh->do (
-      "INSERT INTO shift
+    logit ($RCid, "$username created new class ($FTS->{id}, $FTS->{name}, $FTS->{date}, $FTS->{location}, $FTS->{start_time}, $FTS->{end_time}, $FTS->{capacity})");
-      (dept,role,type,date,location,start_time,end_time,doubletime,note,assignee_id)
-      VALUES (?,?,?,?,?,?,?,?,?,?)",
-      undef,
+    # Coach and Asst Coach need to be added after the class is created so that we have the class id...
-      "COA", "Coach", "selected", $FTS->{date}, $FTS->{location}, $FTS->{start_time}, $FTS->{end_time}, 1, $FTS->{name}, $FTS->{coach}
-    );
+    if ($FTS->{coach}) { change_coach ("save", "coach", $FTS->{id}, $FTS->{coach}); }
-    if ($FTS->{assistant}) {
-      # There's also an assistant coach
-      $dbh->do (
+    if ($FTS->{assistant}) { change_coach ("save", "assistant", $FTS->{id}, $FTS->{assistant}); }
-        "INSERT INTO shift
-        (dept,role,type,date,location,start_time,end_time,doubletime,note,assignee_id)
         VALUES (?,?,?,?,?,?,?,?,?,?)",
+  } elsif ($context eq "Save Note") {
+    # We're just updating the Note...
+    $dbh->do ("update class set note = ? where id = ?", undef, $FTS->{note}, $FTS->{id});
+    logit ($RCid, "$username updated class ($FTS->{id}) with Note: $FTS->{note})");
+  } else {
+    # Update the Coach and Asst Coach volunteer shifts first (so that the original date, time, location still matches...)
+    $dbh->do (
+      "update shift set
+	      start_time = ?,
+        end_time = ?,
+        date = ?,
+        location = ?,
+        note = ?
+      where
+	      dept = ? and
+        date = (select date from class where id = ?) and
+        location = (select location from class where id = ?) and
-        undef,
+	      start_time = (select start_time from class where id = ?)",
-        "COA", "Assistant Coach", "selected", $FTS->{date}, $FTS->{location}, $FTS->{start_time}, $FTS->{end_time}, 0, $FTS->{name}, $FTS->{assistant}
+	      undef,
-      );
+	    $FTS->{start_time}, $FTS->{end_time}, $FTS->{date}, $FTS->{location}, $FTS->{name}, "COA", $FTS->{id}, $FTS->{id}, $FTS->{id}
     );
-  } else {
+    # Now update the class.
     $dbh->do (
       "UPDATE $DBTable
-      SET name=?, coach=?, assistant=?, date=?, location=?, level=?, start_time=?, end_time=?, capacity=?, note=?
+      SET name=?, date=?, location=?, level=?, start_time=?, end_time=?, capacity=?, note=?
-      WHERE id = ?",
-      undef,
-      $FTS->{name}, $FTS->{coach}, $FTS->{assistant}, $FTS->{date}, $FTS->{location}, $FTS->{level}, $FTS->{start_time}, $FTS->{end_time}, $FTS->{capacity}, $FTS->{note}, $FTS->{id}
-    );
-    logit ($RCid, "$username updated class ($FTS->{id}, $FTS->{name}, $FTS->{date}, $FTS->{location}, $FTS->{level}, $FTS->{start_time}, $FTS->{end_time}, $FTS->{capacity})");
-    # Update the volunteer shifts for the coach and assistant too.
-    if ($FTS->{classshiftid}) {
-      $dbh->do (
-        "UPDATE shift
-        SET date=?, location=?, start_time=?, end_time=?, note=?, assignee_id=?
-        WHERE id = ?",
-        undef,
-        $FTS->{date}, $FTS->{location}, $FTS->{start_time}, $FTS->{end_time}, $FTS->{name}, $FTS->{coach}, $FTS->{classshiftid}
-      );
-    } else {
-      $dbh->do (
-        "INSERT INTO shift
-        (dept,role,type,date,location,start_time,end_time,doubletime,note,assignee_id)
-        VALUES (?,?,?,?,?,?,?,?,?,?)",
-        undef,
-        "COA", "Coach", "selected", $FTS->{date}, $FTS->{location}, $FTS->{start_time}, $FTS->{end_time}, 1, $FTS->{name}, $FTS->{coach}
-      );
-    }
-    if ($FTS->{asstclassshiftid}) {
-      $dbh->do (
-        "UPDATE shift
-        SET date=?, location=?, start_time=?, end_time=?, note=?, assignee_id=?
-        WHERE id = ?",
-        undef,
-        $FTS->{date}, $FTS->{location}, $FTS->{start_time}, $FTS->{end_time}, $FTS->{name}, $FTS->{assistant}, $FTS->{asstclassshiftid}
-      );
-    } else {
-      $dbh->do (
-        "INSERT INTO shift
-        (dept,role,type,date,location,start_time,end_time,doubletime,note,assignee_id)
+      WHERE id = ?",
-        VALUES (?,?,?,?,?,?,?,?,?,?)",
-        undef,
+      undef,
-        "COA", "Assistant Coach", "selected", $FTS->{date}, $FTS->{location}, $FTS->{start_time}, $FTS->{end_time}, 0, $FTS->{name}, $FTS->{assistant}
+      $FTS->{name}, $FTS->{date}, $FTS->{location}, $FTS->{level}, $FTS->{start_time}, $FTS->{end_time}, $FTS->{capacity}, $FTS->{note}, $FTS->{id}
-      );
+    );
     logit ($RCid, "$username updated class ($FTS->{id}, $FTS->{name}, $FTS->{date}, $FTS->{location}, $FTS->{level}, $FTS->{start_time}, $FTS->{end_time}, $FTS->{capacity})");
+  }
-	$dbh->disconnect ();	 # stored into database successfully.
+  $dbh->disconnect ();   # stored into database successfully.
-	return $FTS->{id};
+  return $FTS->{id};
 }
 sub delete_item {
   error ("ERROR: Only SysAdmins can change games.") unless $LVL >= RollerCon::ADMIN;
-  my $X = shift;
-  my $dbh = WebDB::connect ();
+  my $X = shift;
-  ## First get the shift ID of the volunteer shift of the coach (and then delete it)
+  my $dbh = WebDB::connect ();
-  my ($classshiftid) = $dbh->selectrow_array (
-    "select shift.id from shift
-    join class where shift.date = class.date and shift.start_time = class.start_time and shift.location = class.location and dept = ? and role = ? and class.id = ?",
+  # Delete the Coach and Asst Coach first while we can still do a subselect with the class id...
-    undef, "COA", "Coach", $X->{$primary}
+  $dbh->do ("delete from shift
-  );
-  $dbh->do ("delete from shift where id = ?", undef, $classshiftid);
              where
-  my ($asstclassshiftid) = $dbh->selectrow_array (
+               dept = ? and
-    "select shift.id from shift
+               date = (select date from class where id = ?) and
-    join class where shift.date = class.date and shift.start_time = class.start_time and shift.location = class.location and dept = ? and role = ? and class.id = ?",
+               location = (select location from class where id = ?) and
-    undef, "COA", "Assistant Coach", $X->{$primary}
+               start_time = (select start_time from class where id = ?)",
-  );
+             undef,
-  $dbh->do ("delete from shift where id = ?", undef, $asstclassshiftid);
+             "COA", $X->{$primary}, $X->{$primary}, $X->{$primary}
            );
   $dbh->do ("delete from $DBTable where $primary = ?", undef, $X->{$primary});
   ## If we're deleting a class, we need to also delete all of the sign-ups
   ##    TBD: Maybe email all of the attendees that their class is being deleted first?
   $dbh->do ("delete from assignment where Gid = ? and role like ?", undef, $X->{$primary}, "CLA".'%');
   $dbh->disconnect ();
   logit ($RCid, "$username deleted Class ($X->{$primary})");
   print "Class Deleted: $X->{$primary}", $h->br;
   print &formField ("Cancel", "Back", "POSTSAVE");
+}
+sub select_coach {
+  my $selection = shift // "";
+  return $h->select ({ name=>"coach" }, [ $h->option (""), fetchDerbyNameWithRCid ("COA", $selection) ]);
+};
+sub select_assistant {
+  my $selection = shift // "";
+  return $h->select ({ name=>"assistant" }, [ $h->option (""), fetchDerbyNameWithRCid ("COA", $selection) ]);
+};
+sub change_coach {
+  my $change = shift // "";
+  my $role   = shift // "";
+  my $class_id = shift // "";
+  my $coach_id = shift // "";
+  error ("SECURITY: You're not allowed to change the class coaches!") unless ($LVL >= RollerCon::ADMIN or $user->{department}->{MVP} >= RollerCon::MANAGER or $user->{department}->{VCI} >= RollerCon::MANAGER);
+  my $dbh = WebDB::connect ();
+  if ($change eq "delete") {
+    my ($r1, $r2);
+    if ($role eq "assistant") {
+      $r1 = "Assistant (TA)";
+      $r2 = "Assistant Coach";
+    } else {
+      $r1 = "Coach";
+      $r2 = "Coach";
+    }
+    $dbh->do ("delete from shift where
+                  assignee_id = ? and
+                  dept = ? and
+                  role in (?, ?) and
+                  date = (select date from class where id = ?) and
                   start_time = (select start_time from class where id = ?) and
+                  location = (select location from class where id = ?)", undef,
-sub select_coach {
+              $coach_id, "COA", $r1, $r2, $class_id, $class_id, $class_id);
-	my $selection = shift // "";
+  } elsif ($change eq "save") {
     my $r1 = ($role eq "assistant") ? "Assistant Coach" : "Coach";
-  return $h->select ({ name=>"coach" }, [ $h->option (""), fetchDerbyNameWithRCid ("COA", $selection) ]);
+    $dbh->do ("insert into shift (dept, role, type, date, location, start_time, end_time, doubletime, note, assignee_id)
       $h->input ({ type=>"button", value=>"Home", onClick=>"window.location.href='$homeURL'" }),
     ]),
   ]),
 ]);
+my $coaching_change = param ("coachchange") // "";
+if ($coaching_change =~ /^(save|delete)_/) {
+  my ($change, $role, $class, $coach);
+  $class = param ("id");
+  ($change, $role) = split /_/, $coaching_change;
+  if ($change eq "save") {
+    $coach = param ($role);
+  } elsif ($change eq "delete") {
+    ($role, $coach) = split /:/, $role;
+  }
+  change_coach ($change, $role, $class, $coach);
+}
 my $choice = param ("choice") // "";
-if ($choice eq "Save") {
+if ($choice =~ /^Save/) {
-	process_form ();
+  process_form ($choice);
 } elsif (defined (param ($primary))) {
   my $thing = param ($primary);
   if ($choice eq "Delete") {
     delete_item ({ $primary => $thing });
   } else {
-	  display_form ({ $primary => $thing }, $choice);
+    display_form ({ $primary => $thing }, $choice);
+  }
 } else {
-	display_form (); # blank form
+  display_form (); # blank form
+}
 print $h->close ("html");
 sub display_form  {
   my $R = shift;
+  my $view = shift // "";
-  my $view = shift // "";
+  my $actionbutton;
-	my $actionbutton;
+  my $coachRCid;
-  my $coachRCid;
+  my (@CoachRCids, @AsstCoachRCids);
-  $view = "View" unless $LVL >= RollerCon::ADMIN;
+  $view = "View" unless $LVL >= RollerCon::ADMIN or ($view eq "Add Note" and $user->{department}->{MVP} >= RollerCon::LEAD);
   if ($view eq "POSTSAVE" and $R->{$primary} eq "NEW") {
       print &formField ("Cancel", "Back", "POSTSAVE");
       return;
+  }
   if ($R) {
+    # we're dealing with an existing thing.  Get the current values out of the DB...
-    # we're dealing with an existing thing.  Get the current values out of the DB...
+    my $dbh = WebDB::connect ();
-    my $dbh = WebDB::connect ();
+    @F{@DBFields} = $dbh->selectrow_array (
+                     "SELECT ". join (", ", @DBFields) ." FROM $DBTable WHERE $primary = ?",
+                      undef, $R->{$primary});
-	  @F{@DBFields} = $dbh->selectrow_array (
+    # Get the Coach and Assistant Coach shifts...
+    my (@CoachShifts, @AsstCoachShifts);
+    my $shifthand = $dbh->prepare ("select id from shift where dept = ? and role = ? and date = ? and start_time = ? and location = ?");
-                     "SELECT ". join (", ", @DBFields) ." FROM $DBTable WHERE $primary = ?",
-                      undef, $R->{$primary});
+    $shifthand->execute ("COA", "Coach", $F{date}, $F{start_time}, $F{location});
+    while (my ($classshiftid) = $shifthand->fetchrow_array ()) {
+      push @CoachShifts, $classshiftid;
+    }
-	  my ($classshiftid) = $dbh->selectrow_array (
+    $shifthand->execute ("COA", "Assistant Coach", $F{date}, $F{start_time}, $F{location});
+    while (my ($classshiftid) = $shifthand->fetchrow_array ()) {
-	    "select id from shift where dept = ? and role = ? and date = ? and start_time = ? and location = ?",
+      push @AsstCoachShifts, $classshiftid;
-	    undef, "COA", "Coach", $F{date}, $F{start_time}, $F{location}
+    }
-	  );
+    $shifthand->execute ("COA", "Assistant (TA)", $F{date}, $F{start_time}, $F{location});
-	  my ($asstclassshiftid) = $dbh->selectrow_array (
+    while (my ($classshiftid) = $shifthand->fetchrow_array ()) {
-	    "select id from shift where dept = ? and role = ?  and date = ? and start_time = ? and location = ?",
+      push @AsstCoachShifts, $classshiftid;
 	    undef, "COA", "Assistant Coach", $F{date}, $F{start_time}, $F{location}
-	  );
-	  $dbh->disconnect ();
+    $dbh->disconnect ();
-	  # did we find a record?
+    # did we find a record?
-	  error ("Cannot find a database entry for Class with id: '$R->{$primary}'") unless defined $F{$DBFields[0]};
+    error ("Cannot find a database entry for Class with id: '$R->{$primary}'") unless defined $F{$DBFields[0]};
     # If the DB returns a null value, HTML::Tiny doesn't like it, so make sure nulls are converted to empty strings.
     map { $F{$_} = "" unless $F{$_} } @DBFields;
-    if ($view eq "Update") {
       # We'd like to update that thing, give the user a form...
-      print $h->p ("Updating Class: $R->{$primary}...");
+    if ($view eq "Update") {
+      # We'd like to update that thing, give the user a form...
+      print $h->p ("Updating Class: $R->{$primary}...");
+      foreach (@DBFields) {
+        $F{$_} = formField ($_, $F{$_});
+      }
+      $F{$DBFields[0]} .= $h->input ({ type=>"hidden", name=>$DBFields[0],   value=> $F{$DBFields[0]} });
+      $actionbutton = formField ("choice", "Save");
       $actionbutton .= formField ("Cancel");
-      foreach (@DBFields) {
+    } elsif ($view eq "Add Note") {
-        $F{$_} = formField ($_, $F{$_});
+      # Leads may add a note to the class (to include an Asst Coach that doesn't have Coach access yet)
       print $h->p ("Add a Note to Class: $R->{$primary}...");
       $actionbutton .= formField ("Cancel");
     } else {
       # We're just looking at it...
       print $h->p ("Viewing Class: $R->{$primary}...");
       $F{$DBFields[0]} .= $h->input ({ type=>"hidden", name=>$DBFields[0], value=> $F{$DBFields[0]} });
+      my $coachEditor = ($LVL >= RollerCon::ADMIN or $user->{department}->{MVP} >= RollerCon::MANAGER or $user->{department}->{VCI} >= RollerCon::MANAGER) ? 1 : 0;
       $coachRCid = $F{coach};
+      $F{coach} = "";
+      foreach (@CoachShifts) {
+        my $sr = getShiftRef ($_);
-      $F{coach} = $h->a ({ href=>"/schedule/view_user.pl?RCid=$F{coach}" }, getUserDerbyName $F{coach});
+        $F{coach} .= $h->a ({ href=>"/schedule/view_user.pl?RCid=$sr->{assignee_id}" }, getUserDerbyName ($sr->{assignee_id}));
-      $F{assistant} = $h->a ({ href=>"/schedule/view_user.pl?RCid=$F{assistant}" }, getUserDerbyName $F{assistant});
+        $F{coach} .= '&nbsp;' . $h->button ({name => "coachchange",  value => "delete_coach:$sr->{assignee_id}"}, "Remove") if $coachEditor;
+        $F{coach} .= $h->br;
+        push @CoachRCids, $sr->{assignee_id};
+      }
+      if ($coachEditor) {
+        my $context = param ("coachchange");
+        if ($context eq "add_coach") {
+          $F{coach} .= select_coach () . $h->button ({name => "coachchange",  value => "save_coach"}, "Save");
+        } else {
+          $F{coach} .= $h->button ({name => "coachchange",  value => "add_coach"}, "Add Coach");
+        }
+      }
+      $F{assistant} = "";
+      foreach (@AsstCoachShifts) {
+        my $sr = getShiftRef ($_);
+        $F{assistant} .= $h->a ({ href=>"/schedule/view_user.pl?RCid=$sr->{assignee_id}" }, getUserDerbyName $sr->{assignee_id});
+        $F{assistant} .= '&nbsp;' . $h->button ({name => "coachchange",  value => "delete_assistant:$sr->{assignee_id}"}, "Remove") if $coachEditor;
+        $F{assistant} .= $h->br;
+        push @AsstCoachRCids, $sr->{assignee_id};
+      }
+      if ($coachEditor) {
+        my $context = param ("coachchange");
+        if ($context eq "add_assistant") {
+          $F{assistant} .= select_assistant () . $h->button ({name => "coachchange",  value => "save_assistant"}, "Save");
+        } else {
+          $F{assistant} .= $h->button ({name => "coachchange",  value => "add_assistant"}, "Add Assistant");
+        }
+      }
       $F{start_time} = convertTime $F{start_time};
-      $F{end_time}   = convertTime $F{end_time};
-#      if ($F{assignee_id}) {
-#        my $temp;
-#        $temp = getUserDerbyName ($F{assignee_id});
-#        $temp .= "&nbsp;".$h->a ({ onClick=>"if (confirm('Really? You want to drop this person from the shift?')==true) { window.open('make_shift_change.pl?change=del&RCid=$F{assignee_id}&id=$R->{$primary}','Confirm Shift Change','resizable,height=260,width=370'); return false; }" }, "[DROP]");
-#        $F{assignee_id} = $temp;
-#      } else {
-#        $F{assignee_id} = $h->a ({ onClick=>"window.open('make_shift_change.pl?change=lookup&id=$R->{$primary}','Confirm Shift Change','resizable,height=260,width=370'); return false;" }, "[ADD USER]");
-#      }
+      $F{end_time}   = convertTime $F{end_time};
       $actionbutton = formField ("choice", "Update") unless $LVL < RollerCon::ADMIN;
-      $actionbutton = formField ("choice", "Update") unless $LVL < RollerCon::ADMIN;
+      $actionbutton .= formField ("choice", "Add Note") if $user->{department}->{MVP} >= RollerCon::LEAD;
       if ($view eq "POSTSAVE" or $choice eq "View") {
         $actionbutton .= formField ("Cancel", "Back", "POSTSAVE");
       } else {
     print $h->p ("Adding a new Class...");
     foreach (@DBFields) {
       $F{$_} = formField ($_);
     }
+    $F{$DBFields[0]} = "NEW".$h->input ({ type=>"hidden", name=>$DBFields[0], value=> "NEW" });
+    $F{coach} = select_coach ();
-		$F{$DBFields[0]} = "NEW".$h->input ({ type=>"hidden", name=>$DBFields[0], value=> "NEW" });
+    $F{assistant} = select_assistant ();
     $actionbutton = formField ("choice", "Save");
     $actionbutton .= formField ("Cancel");
   }
-	print $h->open ("form", { action => url (), name=>"Req", method=>"POST" });
+  print $h->open ("form", { action => url (), name=>"Req", method=>"POST" });
-	print $h->div ({ class=>"sp0" },
+  print $h->div ({ class=>"sp0" },
-	  $h->div ({ class=>"rTable" }, [ map ({
+    $h->div ({ class=>"rTable" }, [ map ({
       $h->div ({ class=>"rTableRow" }, [
         $h->div ({ class=>"rTableCell right top", style=>"font-size:unset;" }, "$fieldDisplayName{$_}: "),
   print $h->p ($h->input ({ type=>"button", onClick=>"window.location.href='email_users.pl?type=class&ID=$R->{$primary}';", value=>"Email Users" })) unless $LVL < RollerCon::ADMIN;
   my $dbh = WebDB::connect ();
-  my ($class_is_over) = $dbh->selectrow_array ("select 1 from v_class where $primary = ? and concat_ws(' ', date, end_time) < date_sub(now(), interval 2 hour)", undef, $R->{$primary});
+  my ($class_is_over) = $dbh->selectrow_array ("select 1 from v_class_new where $primary = ? and concat_ws(' ', date, end_time) < date_sub(now(), interval 2 hour)", undef, $R->{$primary});
-#  if (($LVL >= RollerCon::ADMIN or $user->{department}->{MVP} >= RollerCon::LEAD) and !$class_is_over) {
+  # View the list of people signed up for the class...
   if ($LVL >= RollerCon::ADMIN or $user->{department}->{MVP} >= RollerCon::LEAD) {
-    my ($count) = $dbh->selectrow_array ("select count from v_class where $primary = ?", undef, $R->{$primary});
+    my ($count) = $dbh->selectrow_array ("select count from v_class_new where $primary = ?", undef, $R->{$primary});
-    if ($F{$DBFields[0]} !~ /^(NEW|COPY)/) {
-      my @A = @{$dbh->selectall_arrayref ("select role, official.RCid, derby_name from v_class_signup join official on v_class_signup.RCid = official.RCid where $primary = ? order by role", undef, $R->{$primary})};
+    if ($F{$DBFields[0]} !~ /^(NEW|COPY)/) {
       my @A = @{$dbh->selectall_arrayref ("select role, official.RCid, derby_name from v_class_signup_new join official on v_class_signup_new.RCid = official.RCid where $primary = ? order by role", undef, $R->{$primary})};
       my $classkey = join '|', $F{date}, $F{start_time}, $F{location};
-#      my $adduserlink  = (scalar @A < $F{capacity} and ($LVL >= RollerCon::ADMIN or $user->{department}->{MVP} >= RollerCon::LEAD)) ? $h->a ({ style=>"color:unset;font-size:x-small;", onClick=>"window.open('make_shift_change.pl?change=lookup&RCid=$RCid&id=$classkey','Confirm Shift Change','resizable,height=260,width=370'); return false;" }, "[ADD USER]") : "";
+      my $classkey = join '|', $F{date}, $F{start_time}, $F{location};
       my $adduserlink  = ($LVL >= RollerCon::ADMIN or $user->{department}->{MVP} >= RollerCon::LEAD) ? $h->a ({ style=>"color:unset;font-size:x-small;", onClick=>"window.open('make_shift_change.pl?change=lookup&RCid=$RCid&id=$classkey','Confirm Shift Change','resizable,height=260,width=370'); return false;" }, "[ADD USER]") : "";
       print $h->br, $h->br;
       print $h->div ({ class=>"index", style=>"max-width:610px" }, [ $h->p ({ class=>"heading" }, [ "Sign-ups:&nbsp;&nbsp;", $adduserlink ]),
         $h->ul ( [ map { $h->li ({ class=>"shaded", style=>"margin:4px;" },
-    	    $h->div ({ class=>"lisp0" }, [
+          $h->div ({ class=>"lisp0" }, [
             $h->div ({ class=>"liLeft"  }, [ $$_[0], ":&nbsp;&nbsp;", $h->a ({ href=>"/schedule/view_user.pl?RCid=$$_[1]" }, $$_[2]) ]),
             $h->div ({ class=>"liRight" }, ($LVL >= RollerCon::ADMIN or $user->{department}->{MVP} >= RollerCon::LEAD) ? $h->a ({ style=>"font-size:small", onClick=>"if (confirm('Really? Delete $$_[2] from this class?')==true) { window.open('make_shift_change.pl?change=del&RCid=$$_[1]&id=$R->{$primary}&role=$$_[0]','Confirm Shift Change','resizable,height=260,width=370'); return false; }" }, "[DROP]") : "")
           ])
+        ) } @A ])
+      ]);
-        ) } @A ])
+    }
       ]);
   # View the survey results...
         $h->div ({ class=>"lisp0" }, [
           $h->div ({ class=>"liLeft"  }, [ $$_[0], ":&nbsp;", $$_[2] ]),
           $h->div ({ class=>"liRight" }, [ $$_[1] eq "text" ?
             $h->a ({ href=>"view_survey_comments.pl?classid=$R->{$primary}&qid=$$_[4]" }, [ $$_[3], (($$_[3] == 1) ? " comment" : " comments") ]) :
             $$_[3] ])
-#          $h->div ({ class=>"liRight" }, [ $$_[3], $$_[1] eq "text" ? (($$_[3] == 1) ? " comment" : " comments") : "" ])
-#          $h->div ({ class=>"liRight" }, $h->a ({ href=>"view_survey_comments.pl?classid=$R->{$primary}&qid=$$_[4]" }, $$_[3].$$_[1] eq "text" ? (($$_[3] == 1) ? " comment" : " comments") : ""))
         ])
       ) } @RESPONSES ])
     ]);
+  }
   $dbh->disconnect;
+}
+sub process_form  {
-sub process_form  {
+  my $context = shift // "";
-  error ("ERROR: Only SysAdmins can change games.") unless $LVL >= RollerCon::ADMIN;
+  error ("ERROR: Only SysAdmins can change games.") unless $LVL >= RollerCon::ADMIN or ($context eq "Save Note" and $user->{department}->{MVP} >= RollerCon::LEAD);
   my %FORM;
   foreach (keys %FIELDS) {
-  	if ($fieldType{$_} =~ /^text/) {
+    if ($fieldType{$_} =~ /^text/) {
-  		$FORM{$_} = WebDB::trim param ($_) // "";
+      $FORM{$_} = WebDB::trim param ($_) // "";
-  	} else {
+    } else {
-	  	$FORM{$_} = param ($_) // "";
+      $FORM{$_} = param ($_) // "";
-  	}
-  }
-	$FORM{classshiftid} = param ("classshiftid") unless !param ("classshiftid");
+    }
-	$FORM{asstclassshiftid} = param ("asstclassshiftid") unless !param ("asstclassshiftid");
+  }
-  	 # check for required fields
+     # check for required fields
-	my @errors = ();
+  my @errors = ();
-	foreach (@requiredFields) {
+  foreach (@requiredFields) {
-		push @errors, "$fieldDisplayName{$_} is missing." if $FORM{$_} eq "";
+    push @errors, "$fieldDisplayName{$_} is missing." if ($FORM{$_} eq "" and $context ne "Save Note");
-	}
+  }
-	push @errors, "Capacity should be a whole number." unless $FORM{capacity} =~ /^\d+$/;
+  push @errors, "Capacity should be a whole number." unless ($FORM{capacity} =~ /^\d+$/ or $context eq "Save Note");
-  if (@errors)	 {
+  if (@errors)   {
     print $h->div ({ class=>"error" }, [
-  	  $h->p ("The following errors occurred:"),
+      $h->p ("The following errors occurred:"),
-  	  $h->ul ($h->li (@errors)),
+      $h->ul ($h->li (@errors)),
-  	  $h->p ("Please click your Browser's Back button to\n"
+      $h->p ("Please click your Browser's Back button to\n"
-  	  	   . "return to the previous page and correct the problem.")
+           . "return to the previous page and correct the problem.")
-  	]);
+    ]);
-  	return;
+    return;
-  }	 # Form was okay.
+  }  # Form was okay.
-  $FORM{id} = saveForm (\%FORM);
+  $FORM{id} = saveForm (\%FORM, $context);
-	print $h->p ({ class=>"success" }, "Class successfully saved.");
+  print $h->p ({ class=>"success" }, "Class successfully saved.");
   display_form ({ $primary=>$FORM{id} }, "POSTSAVE");
 }
 sub error {
-	my $msg = shift;
+  my $msg = shift;
-	print $h->p ({ class=>"error" }, "Error: $msg");
+  print $h->p ({ class=>"error" }, "Error: $msg");
   print $h->close("html");
-	exit (0);
+  exit (0);
 }
 sub formField {
-	my $name  = shift;
+  my $name  = shift;
-	my $value = shift // '';
+  my $value = shift // '';
-	my $context = shift // '';
+  my $context = shift // '';
-	my $type = $fieldType{$name} // "button";
+  my $type = $fieldType{$name} // "button";
   if ($type eq "button") {
-		if ($name eq "Cancel") {
+    if ($name eq "Cancel") {
-		  if ($context eq "POSTSAVE") {
+      if ($context eq "POSTSAVE") {
-		    return $h->input ({ type=>"button", value => $value ne '' ? $value : "Cancel" , onClick=>"window.location.href = \"classes.pl\"; return false;" });
+        return $h->input ({ type=>"button", value => $value ne '' ? $value : "Cancel" , onClick=>"window.location.href = \"classes.pl\"; return false;" });
-		  } else {
+      } else {
-		    return $h->input ({ type=>"button", value => $value ne '' ? $value : "Cancel" , onClick=>"history.back(); return false;" });
+        return $h->input ({ type=>"button", value => $value ne '' ? $value : "Cancel" , onClick=>"history.back(); return false;" });
-		  }
+      }
-		} else {
+    } else {
-			return $h->input ({ type=>"submit", value => $value, name=>$name })
+      return $h->input ({ type=>"submit", value => $value, name=>$name })
-		}
+    }
-	} elsif ($type eq "textarea") {
+  } elsif ($type eq "textarea") {
-	  return $h->tag ("textarea", {
+    return $h->tag ("textarea", {
-	    name => $name,
+      name => $name,
-	    override => 1,
+      override => 1,
-			cols => 30,
+      cols => 30,
-			rows => 4
+      rows => 4
-	  }, $value);
+    }, $value);
   } elsif ($type eq "select") {
     no strict;
     return &{"select_".$name} ($value);
-	}	elsif ($type eq "auto") {
+  } elsif ($type eq "auto") {
-	  return $name eq "assignee_id" ? getUserDerbyName ($value) : $value;
+    return $name eq "assignee_id" ? getUserDerbyName ($value) : $value;
-  }	elsif ($type eq "time") {
+  } elsif ($type eq "time") {
-	  return $h->input ({
+    return $h->input ({
-	    name => $name,
+      name => $name,
-	    type => $type,
+      type => $type,
-	    value => $value,
+      value => $value,
-	    step => 900,
+      step => 900,
-	    required => [],
+      required => [],
-	    override => 1,
+      override => 1,
-	    size => 30
+      size => 30
-	  });
+    });
-  }	elsif ($type eq "number") {
+  } elsif ($type eq "number") {
+    return $h->input ({ name=>$name, type=>"number", value=>$value, step=>1 });
-    return $h->input ({ name=>$name, type=>"number", value=>$value, step=>1 });
+  } elsif ($type eq "switch") {
-  }	elsif ($type eq "switch") {
+    if ($value) {
-    if ($value) {
+      return $h->label ({ class=>"switch" }, [$h->input ({ type=>"checkbox", name=>$name, value=>1, checked=>[] }), $h->span ({ class=>"slider round" })]);
-      return $h->label ({ class=>"switch" }, [$h->input ({ type=>"checkbox", name=>$name, value=>1, checked=>[] }), $h->span ({ class=>"slider round" })]);
+    } else {
-    } else {
+      return $h->label ({ class=>"switch" }, [$h->input ({ type=>"checkbox", name=>$name, value=>1 }), $h->span ({ class=>"slider round" })]);
-      return $h->label ({ class=>"switch" }, [$h->input ({ type=>"checkbox", name=>$name, value=>1 }), $h->span ({ class=>"slider round" })]);
+    }
-    }
+  } elsif ($type eq "placeholder") {
-	}	else {
+  } else {
-	  use tableViewer;
+    use tableViewer qw/inArray/;
-	  if (inArray ($name, \@requiredFields)) {
+    if (inArray ($name, \@requiredFields)) {
-  	  return $h->input ({
+      return $h->input ({
-  	    name => $name,
+        name => $name,
-  	    type => $type,
+        type => $type,
-  	    value => $value,
+        value => $value,
-  	    required => [],
+        required => [],
-  	    override => 1,
+        override => 1,
-  	    size => 30
+        size => 30
-  	  });
+      });
-	  } else {
+    } else {
-  	  return $h->input ({
+      return $h->input ({
-  	    name => $name,
+        name => $name,
-  	    type => $type,
+        type => $type,

Subversion Repositories VORC

(root)/trunk/site/schedule/view_class.pl – Rev 204 → 208