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

 my $DBTable = "class";
 my %FIELDS = (
 	id          => [qw(ClassID        5    auto        static )],
 	name        => [qw(ClassName     10    text        required )],
 	coach       => [qw(Coach         15    select      required )],
+	assistant   => [qw(Assistant     17    select       )],
 	date        => [qw(Date          20    date        required )],
 	location    => [qw(Location      25    text        required )],
 	level       => [qw(Level         27    text        required )],
 	start_time  => [qw(Start         30    time        required )],
 	end_time    => [qw(End           35    time        required )],
   my $dbh = WebDB::connect ();
   if ($FTS->{$DBFields[0]} eq "NEW") {
     $dbh->do (
       "INSERT INTO $DBTable
-      (name,coach,date,location,level,start_time,end_time,capacity,note)
+      (name,coach,assistant,date,location,level,start_time,end_time,capacity,note)
       VALUES(?,?,?,?,?,?,?,?)",
     	undef,
-    	$FTS->{name}, $FTS->{coach}, $FTS->{date}, $FTS->{location}, $FTS->{level}, $FTS->{start_time}, $FTS->{end_time}, $FTS->{capacity}, $FTS->{note}
+    	$FTS->{name}, $FTS->{coach}, $FTS->{assistant}, $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})");
       "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->{assistant}) {
+      # There's also an assistant coach
+      $dbh->do (
+        "INSERT INTO shift
+        (dept,role,type,date,location,start_time,end_time,doubletime,note,assignee_id)
+        VALUES (?,?,?,?,?,?,?,?,?,?)",
+        undef,
+        "COA", "Assistant Coach", "selected", $FTS->{date}, $FTS->{location}, $FTS->{start_time}, $FTS->{end_time}, 0, $FTS->{name}, $FTS->{assistant}
+      );
+    }
   } else {
     $dbh->do (
       "UPDATE $DBTable
-      SET name=?, coach=?, date=?, location=?, level=?, start_time=?, end_time=?, capacity=?, note=?
+      SET name=?, coach=?, assistant=?, date=?, location=?, level=?, start_time=?, end_time=?, capacity=?, note=?
       WHERE id = ?",
       undef,
-      $FTS->{name}, $FTS->{coach}, $FTS->{date}, $FTS->{location}, $FTS->{level}, $FTS->{start_time}, $FTS->{end_time}, $FTS->{capacity}, $FTS->{note}, $FTS->{id}
+      $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 shift for the coach too.
+    # 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=?
         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)
+        VALUES (?,?,?,?,?,?,?,?,?,?)",
+        undef,
+        "COA", "Assistant Coach", "selected", $FTS->{date}, $FTS->{location}, $FTS->{start_time}, $FTS->{end_time}, 0, $FTS->{name}, $FTS->{assistant}
+      );
+    }
+	}
 	$dbh->disconnect ();	 # stored into database successfully.
 	return $FTS->{id};
   my $dbh = WebDB::connect ();
   ## First get the shift ID of the volunteer shift of the coach (and then delete it)
   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 class.id = ?",
+    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 = ?",
-    undef, "COA", $X->{$primary}
+    undef, "COA", "Coach", $X->{$primary}
   );
+  $dbh->do ("delete from shift where id = ?", undef, $classshiftid);
+  my ($asstclassshiftid) = $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 = ?",
+    undef, "COA", "Assistant Coach", $X->{$primary}
+  );
-  $dbh->do ("delete from shift where id = ?", undef, $classshiftid);
+  $dbh->do ("delete from shift where id = ?", undef, $asstclassshiftid);
   $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
 	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) ]);
 };
 	  @F{@DBFields} = $dbh->selectrow_array (
                      "SELECT ". join (", ", @DBFields) ." FROM $DBTable WHERE $primary = ?",
                       undef, $R->{$primary});
 	  my ($classshiftid) = $dbh->selectrow_array (
-	    "select id from shift where dept = ? and date = ? and start_time = ? and location = ?",
+	    "select id from shift where dept = ? and role = ? and date = ? and start_time = ? and location = ?",
+	    undef, "COA", "Coach", $F{date}, $F{start_time}, $F{location}
+	  );
+	  my ($asstclassshiftid) = $dbh->selectrow_array (
+	    "select id from shift where dept = ? and role = ?  and date = ? and start_time = ? and location = ?",
-	    undef, "COA", $F{date}, $F{start_time}, $F{location}
+	    undef, "COA", "Assistant Coach", $F{date}, $F{start_time}, $F{location}
 	  );
 	  $dbh->disconnect ();
       foreach (@DBFields) {
         $F{$_} = formField ($_, $F{$_});
+      }
       $F{$DBFields[0]} .= $h->input ({ type=>"hidden", name=>$DBFields[0],   value=> $F{$DBFields[0]} });
       $F{$DBFields[0]} .= $h->input ({ type=>"hidden", name=>"classshiftid", value=> $classshiftid    });
+      $F{$DBFields[0]} .= $h->input ({ type=>"hidden", name=>"asstclassshiftid", value=> $asstclassshiftid    });
       $actionbutton = formField ("choice", "Save");
       $actionbutton .= formField ("Cancel");
     } elsif ($view eq "Copy") {
       # 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]} });
       $coachRCid = $F{coach};
       $F{coach} = $h->a ({ href=>"/schedule/view_user.pl?RCid=$F{coach}" }, getUserDerbyName $F{coach});
+      $F{assistant} = $h->a ({ href=>"/schedule/view_user.pl?RCid=$F{assistant}" }, getUserDerbyName $F{assistant});
       $F{start_time} = convertTime $F{start_time};
       $F{end_time}   = convertTime $F{end_time};
 #      if ($F{assignee_id}) {
   	} else {
 	  	$FORM{$_} = param ($_) // "";
+  	}
+  }
 	$FORM{classshiftid} = param ("classshiftid") unless !param ("classshiftid");
+	$FORM{asstclassshiftid} = param ("asstclassshiftid") unless !param ("asstclassshiftid");
   	 # check for required fields
 	my @errors = ();
 	foreach (@requiredFields) {

Subversion Repositories VORC

(root)/trunk/site/schedule/view_class.pl – Rev 121 → 167