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

 } elsif ($FORM->{'SUB'} eq "Make Current") {
   $dbh->do ("update official set last_login = now() where RCid = ?", undef, $FORM->{'RCid'}) unless $FORM->{'RCid'} !~ /^\d+$/;
   logit ($FORM->{'RCid'}, "An Admin updated last_login time to current.");
 #  logit ($ORCUSER->{'RCid'}, "Updated user ($FORM->{'RCid'}) last_login time to current.");
   display_form ($FORM->{'RCid'}, "View");
+} elsif ($FORM->{'SUB'} eq "Verify") {
+  $cookie_string = authenticate (RollerCon::USER);
+	validate_emt ($FORM->{RCid}, "add");
+  display_form ($FORM->{'RCid'}, "View");
+} elsif ($FORM->{'SUB'} eq "Remove") {
+  $cookie_string = authenticate (RollerCon::USER);
+	validate_emt ($FORM->{RCid}, "del");
+  display_form ($FORM->{'RCid'}, "View");
 } elsif ($FORM->{'RCid'}) {
   display_form ($FORM->{'RCid'}, $FORM->{'SUB'});
 } else {
   $cookie_string = authenticate (1);
   my ($EM, $PWD, $AL) = split /&/, $cookie_string;
   $F->{pronouns}    = WebDB::trim param ('pronouns')   // '';
   $F->{tshirt}      = WebDB::trim param ('tshirt')     // '';
   $F->{phone}       = WebDB::trim param ('phone')      // '';
   $F->{timeformat}  = WebDB::trim param ('timeformat') // '24hr';
   $F->{showme}      = WebDB::trim param ('showme') ? 1 : 0;
+  $F->{EMTVerified} = WebDB::trim param ('EMTVerified') ? 1 : 0;
   $F->{RCid}        = param ('RCid')       // '';
   $F->{access}      = param ('access')     // 0;
   $F->{department}  = join ":", map { "$_-".param ("DEPT-".$_) } map { s/^DEPT-//; $_ } grep { param ($_) ne "" } grep { /^DEPT-/ } param ;
       $ERRMSG = join $h->br, @ERRORS;
       display_form ($F->{RCid}, "Edit", $ERRMSG, $F);
+    }
+    if ($ORCUSER->{department}->{EMT} >= RollerCon::LEAD or $AL >= RollerCon::SYSADMIN) {
+      # Check for changes to the emt_verified field...
+      if ($F->{EMTVerified} != $OG->{emt_verified}) {
+        warn "Updating emt_verified for $OG->{derby_name} - $F->{EMTVerified} vs $OG->{emt_verified}";
+        validate_emt ($F->{RCid}, $F->{EMTVerified} ? "add" : "del");
+      }
+    }
         if (my $err = changeUser ($F->{RCid}, $field, $F->{$field})) {
           push @ERRORS, $err;
           logit ($F->{RCid}, "DB ERROR: Updating User Details: $err");
+        }
+      }
     } else {
       push @ERRORS, "Attempting to update someone else's record, and you don't have permission to do that.";
       logit ($ORCUSER->{RCid}, "FAIL: You don't have access to update other people's user record");
+    }
+  }
+      }
       $F->{RCid}       = $h->input ({ type=>"hidden", name=>"RCid", value=>$F->{RCid} })."$F->{RCid}&nbsp;";
       $F->{buttons}    = join " ", $h->input ({ type=>"submit", name=>"submit", value=>"Save" }), $h->input ({ type=>"reset", value=>"Reset" }), $h->input ({ type=>"submit", name=>"submit", value=>"Cancel" });
+      $F->{department} = convertDepartments ($F->{department});
+      if (exists $F->{department}->{EMT} and ($ORCUSER->{department}->{EMT} >= RollerCon::LEAD or $ORCUSER->{access} >= RollerCon::SYSADMIN)) {
+        if ($F->{emt_verified}) {
+          $F->{EMTVerified} = $h->label ({ class=>"switch" }, [$h->input ({ type=>"checkbox", name=>"EMTVerified", value=>1, checked=>[] }), $h->span ({ class=>"slider round" })]);
+        } else {
+          $F->{EMTVerified} = $h->label ({ class=>"switch" }, [$h->input ({ type=>"checkbox", name=>"EMTVerified", value=>1 }), $h->span ({ class=>"slider round" })]);
+        }
+      }
       $F->{department} = convertDepartments ($F->{department});
       foreach my $k (keys %{$depts}) {
         next if $k eq "CMP";
         if ($ORCUSER->{access} > 4) {
           # SysAdmin can change anyone's department level
         } else {
           # Or it's your own record, you can still submit a request to be added to the dept.
           if (!defined $F->{department}->{$k}) {
             $F->{department}->{$k} = $h->label ({ class=>"switch" }, [$h->input ({ type=>"checkbox", name=>"DEPT-$k", value=>0 }), $h->span ({ class=>"slider round" })]) unless !inArray ($k, \@AUTODEPTS);
           } elsif ($F->{department}->{$k} == 0) {
             $F->{department}->{$k} = $h->label ({ class=>"switch" }, [$h->input ({ type=>"checkbox", name=>"DEPT-$k", value=>0, checked=>[] }), $h->span ({ class=>"slider round" })]);
+          }
+        }
+      }
     } else {
       $ERRMSG = "Attempting to update someone else's record, and you don't have permission to do that.";
     my  $targetuser = getUser ($RCID);
     if (canView ($ORCUSER, $targetuser)) {
       $F = $targetuser;
+      $F->{department} = convertDepartments ($F->{department});
+      if (exists $F->{department}->{EMT}) {
+        $F->{EMTVerified} = $F->{emt_verified} ? "True" : "False";
+        if ($ORCUSER->{department}->{EMT} >= RollerCon::LEAD or $AL >= RollerCon::SYSADMIN) {
+					if ($F->{emt_verified}) {
+						$F->{EMTVerified} = "True"."&nbsp;&nbsp;".$h->input ({ type=>"submit", name=>"submit", value=>"Remove" });
+					} else {
+						$F->{EMTVerified} = "False"."&nbsp;&nbsp;".$h->input ({ type=>"submit", name=>"submit", value=>"Verify" });
+	      	}
+        }
       $F->{department} = convertDepartments ($F->{department});
       $F->{access} = $AccessLevel->{$F->{access}};
       $F->{showme} = $F->{showme} ? "True" : "False";
       $F->{'password'} = "*******";
         $h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "Database ID: ",             $F->{RCid}) ]),
         $h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "User Added: ",              $F->{added}) ]),
         $h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "Last Login: ",              $F->{last_login}) ]),
         $h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "vORC Access Level: ",       $F->{access}) ]),
         $h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "MVP Pass: ",                $F->{MVPid}) ]),
+        exists $F->{EMTVerified} ? $h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "EMT Verified: ",                $F->{EMTVerified}) ]) : "",
         @printDepartments,
         $h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCell" }, "&nbsp;") ]),
         $h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr" }, $h->a ({ href=>$goback }, "[go back]"), $F->{buttons}) ])
       ])
     ])

Subversion Repositories VORC

(root)/trunk/site/schedule/view_user.pl – Rev 122 → 134