WebSVN – ORC – Diff – /trunk/site/schedule/manage_shift.pl

 	type        => [qw(Type          20    select      required )],
 	date        => [qw(Date          25    date        required )],
 	location    => [qw(Location      30    text      required )],
 	start_time  => [qw(Start         35    time        required )],
 	end_time    => [qw(End           40    time        required )],
+	doubletime  => [qw(DoubleHours   42    switch        )],
 	assignee_id => [qw(Assignee      50    auto         )],
 	mod_time    => [qw(ModTime       45    number         )],
 	note        => [qw(Notes         55    textarea       )],
 );
 my %fieldDisplayName = map  { $_ => $FIELDS{$_}->[0]   } keys %FIELDS;
 my %fieldType        = map  { $_ => $FIELDS{$_}->[2]   } keys %FIELDS;
 my @requiredFields   = sort fieldOrder grep { defined $FIELDS{$_}->[3] } keys %FIELDS;
-my @DBFields   = sort fieldOrder grep { $fieldType{$_} =~ /^(text|select|number|date|time|auto)/ } keys %FIELDS;
+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 saveForm {
   my $FTS = shift;
   my $dbh = WebDB::connect ();
+  if ($FTS->{$DBFields[0]} eq "NEW") {
-  if ($FTS->{$DBFields[0]} eq "NEW") {
+    if ($FTS->{mod_time}) {
+      $dbh->do (
+    	  "INSERT INTO $DBTable
+        (dept,role,type,date,location,start_time,end_time,mod_time,doubletime,note)
+        VALUES(?,?,?,?,?,?,?,?,?,?)",
+    	  undef,
+    	  $FTS->{dept}, $FTS->{role}, $FTS->{type}, $FTS->{date}, $FTS->{location}, $FTS->{start_time}, $FTS->{end_time}, $FTS->{mod_time}, $FTS->{doubletime}, $FTS->{note}
+    	);
+    } else {
-    $dbh->do (
+      $dbh->do (
-  	  "INSERT INTO $DBTable
+    	  "INSERT INTO $DBTable
-      (dept,role,type,date,location,start_time,end_time,note)
+        (dept,role,type,date,location,start_time,end_time,doubletime,note)
-      VALUES(?,?,?,?,?,?,?,?)",
+        VALUES(?,?,?,?,?,?,?,?,?)",
-  	  undef,
+    	  undef,
-  	  $FTS->{dept}, $FTS->{role}, $FTS->{type}, $FTS->{date}, $FTS->{location}, $FTS->{start_time}, $FTS->{end_time}, $FTS->{note}
+    	  $FTS->{dept}, $FTS->{role}, $FTS->{type}, $FTS->{date}, $FTS->{location}, $FTS->{start_time}, $FTS->{end_time}, $FTS->{doubletime}, $FTS->{note}
+    	);
   	);
   	($FTS->{id}) = $dbh-> selectrow_array ("select max(id) from $DBTable where dept = ? and role = ? and type = ? and date = ? and location = ? and start_time = ? and end_time = ? and note = ?", undef, $FTS->{dept}, $FTS->{role}, $FTS->{type}, $FTS->{date}, $FTS->{location}, $FTS->{start_time}, $FTS->{end_time}, $FTS->{note});
-    logit ($RCid, "$username created new shift ($FTS->{id}, $FTS->{dept}, $FTS->{role}, $FTS->{type}, $FTS->{date}, $FTS->{location}, $FTS->{start_time}, $FTS->{end_time})");
+    logit ($RCid, "$username created new shift ($FTS->{id}, $FTS->{dept}, $FTS->{role}, $FTS->{type}, $FTS->{date}, $FTS->{location}, $FTS->{start_time}, $FTS->{end_time}, $FTS->{mod_time}, $FTS->{doubletime})");
   } else {
     if ($FTS->{mod_time}) {
       $dbh->do (
         "UPDATE $DBTable
-        SET dept=?, role=?, type=?, date=?, location=?, start_time=?, end_time=?, mod_time=?, note=?
+        SET dept=?, role=?, type=?, date=?, location=?, start_time=?, end_time=?, mod_time=?, doubletime=?, note=?
         WHERE id = ?",
         undef,
-        $FTS->{dept}, $FTS->{role}, $FTS->{type}, $FTS->{date}, $FTS->{location}, $FTS->{start_time}, $FTS->{end_time}, $FTS->{mod_time}, $FTS->{note}, $FTS->{id}
+        $FTS->{dept}, $FTS->{role}, $FTS->{type}, $FTS->{date}, $FTS->{location}, $FTS->{start_time}, $FTS->{end_time}, $FTS->{mod_time}, $FTS->{doubletime}, $FTS->{note}, $FTS->{id}
       );
     } else {
       $dbh->do (
         "UPDATE $DBTable
-        SET dept=?, role=?, type=?, date=?, location=?, start_time=?, end_time=?, mod_time=null, note=?
+        SET dept=?, role=?, type=?, date=?, location=?, start_time=?, end_time=?, mod_time=null, doubletime=?, note=?
         WHERE id = ?",
         undef,
-        $FTS->{dept}, $FTS->{role}, $FTS->{type}, $FTS->{date}, $FTS->{location}, $FTS->{start_time}, $FTS->{end_time}, $FTS->{note}, $FTS->{id}
+        $FTS->{dept}, $FTS->{role}, $FTS->{type}, $FTS->{date}, $FTS->{location}, $FTS->{start_time}, $FTS->{end_time}, $FTS->{doubletime}, $FTS->{note}, $FTS->{id}
       );
+    }
     logit ($RCid, "$username updated shift ($FTS->{id}, $FTS->{dept}, $FTS->{role}, $FTS->{type}, $FTS->{date}, $FTS->{location}, $FTS->{start_time}, $FTS->{end_time})");
         $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=$F{id}','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=$F{id}','Confirm Shift Change','resizable,height=260,width=370'); return false;" }, "[ADD USER]");
+      }
+      $F{doubletime} = $F{doubletime} ? "TRUE" : "FALSE";
       $actionbutton = formField ("choice", "Update");
       if ($view eq "POSTSAVE") {
         $actionbutton .= formField ("Cancel", "Back", "POSTSAVE");
 sub formField {
 	my $name  = shift;
 	my $value = shift // '';
 	my $context = shift // '';
 	my $type = $fieldType{$name} // "button";
   if ($type eq "button") {
 		if ($name eq "Cancel") {
 		  if ($context eq "POSTSAVE") {
 		    return $h->input ({ type=>"button", value => $value ne '' ? $value : "Cancel" , onClick=>"window.location.href = \"manage_shifts.pl\"; return false;" });
 		  } else {
 	    required => [],
 	    override => 1,
 	    size => 30
 	  });
   }	elsif ($type eq "number") {
-    return $h->input ({ name=>$name, type=>"number", value=>$value, step=>.25 }),
+    return $h->input ({ name=>$name, type=>"number", value=>$value, step=>.25 });
+  }	elsif ($type eq "switch") {
+    if ($value) {
+      return $h->label ({ class=>"switch" }, [$h->input ({ type=>"checkbox", name=>$name, value=>1, checked=>[] }), $h->span ({ class=>"slider round" })]);
+    } else {
+      return $h->label ({ class=>"switch" }, [$h->input ({ type=>"checkbox", name=>$name, value=>1 }), $h->span ({ class=>"slider round" })]);
+    }
+# $F->{department}->{$_} = $h->label ({ class=>"switch" }, [$h->input ({ type=>"checkbox", name=>"DEPT-$_", value=>0, checked=>[] }), $h->span ({ class=>"slider round" })]);
 	}	else {
 	  use tableViewer;
 	  if (inArray ($name, \@requiredFields)) {
   	  return $h->input ({
   	    name => $name,

Subversion Repositories ORC

(root)/trunk/site/schedule/manage_shift.pl – Rev 23 → 29