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



use HTML::Tiny;
our $h = HTML::Tiny->new( mode => 'html' );

 
my ($FORM, $cookie_string, $ERRMSG);
my @ERRORS;
my $dbh = getRCDBH;
#my $dbh = WebDB->connect ();
my $depts = getDepartments (); # HashRef of the department TLAs -> Display Names...
my $AccessLevel = getAccessLevels;

my @tshirtOptions = ("", "MS", "MM", "ML", "MXL", "M2X", "M3X");

	$F->{email}       = lc WebDB::trim param ('email')   // '';
	$F->{password}    = WebDB::trim param ('password')   // '';
	$F->{derby_name}  = WebDB::trim param ('derby_name') // '';
	$F->{real_name}   = WebDB::trim param ('real_name')  // '';
	$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->{level}       = param ('level')      // '';
#	$F->{type}        = param ('type')       // '';
	$F->{RCid}        = param ('RCid')       // '';
	$F->{access}      = param ('access')     // 0;
#	$F->{clinic_pass} = defined param ('clinic_pass') ? 1 : 0;

			display_form ("New", "New User", $ERRMSG);
			return;
		} else {
			# We have a correctly formatted email address with a mail host record, go ahead and add the user
#			my $sth = $dbh->prepare ("insert into official (email, password, derby_name, real_name, phone, level, type, access, department, clinic_pass) values (?, password(?), ?, ?, ?, ?, ?, ?, ?, ?)");
			my $sth = $dbh->prepare ("insert into official (email, password, derby_name, real_name, pronouns, tshirt, phone, timeformat, access, department, added) values (?, password(?), ?, ?, ?, ?, ?, ?, ?, ?, CONVERT_TZ(now(), 'America/Chicago', 'America/Los_Angeles'))");

 
#			$sth->execute ($F->{email}, $F->{password}, $F->{derby_name}, $F->{real_name}, $F->{phone}, $F->{level}, $F->{type}, 0, $F->{department}, 0);

			$sth->execute ($F->{email}, $F->{password}, $F->{derby_name}, $F->{real_name}, $F->{pronouns}, $F->{tshirt}, $F->{phone}, $F->{timeformat}, 1, $F->{department});
 
			$sth = $dbh->prepare ("select RCid from official where email = ?");
			$sth->execute ($F->{email});

		  }

 
      if ($F->{password}) { # They've possibly included an updated password.
#    		my $sth = $dbh->prepare("replace into official (RCid, email, password, derby_name, real_name, phone, level, type, access, department, clinic_pass) values (?, ?, password(?), ?, ?, ?, ?, ?, ?, ?, ?)");
#    		$sth->execute ($F->{RCid}, $EM, $F->{password}, $F->{derby_name}, $F->{real_name}, $F->{phone}, $F->{level}, $F->{type}, $F->{access}, $F->{department}, $F->{clinic_pass})
    		my $sth = $dbh->prepare("replace into official (RCid, email, password, derby_name, real_name, pronouns, tshirt, phone, timeformat, access, department, added, last_login) values (?, ?, password(?), ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)");
    		$sth->execute ($F->{RCid}, lc $EM, $F->{password}, $F->{derby_name}, $F->{real_name}, $F->{pronouns}, $F->{tshirt}, $F->{phone}, $F->{timeformat}, $F->{access}, $F->{department}, getUser($EM)->{added}, getUser($EM)->{last_login})
    			or $ERRMSG = "ERROR: Can't execute SQL statement: ".$sth->errstr()."\n";
    	} else { # No password was included, just keep the existing one.
#    		my $sth = $dbh->prepare("replace into official (RCid, email, password, derby_name, real_name, phone, level, type, access, department, clinic_pass) values (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)");
#    		$sth->execute($F->{RCid}, $EM, $PWD, $F->{derby_name}, $F->{real_name}, $F->{phone}, $F->{level}, $F->{type}, $F->{access}, $F->{department}, $F->{clinic_pass})
    		my $sth = $dbh->prepare("replace into official (RCid, email, password, derby_name, real_name, pronouns, tshirt, phone, timeformat, access, department, added, last_login) values (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)");
    		$sth->execute($F->{RCid}, lc $EM, $PWD, $F->{derby_name}, $F->{real_name}, $F->{pronouns}, $F->{tshirt}, $F->{phone}, $F->{timeformat}, $F->{access}, $F->{department}, getUser($EM)->{added}, getUser($EM)->{last_login})
    			or $ERRMSG = "ERROR: Can't execute SQL statement: ".$sth->errstr()."\n";

    	}
 

		  }

		  
			if ($FORM->{password}) {
#				my $sth = $dbh->prepare ("replace into official (RCid, email, password, derby_name, real_name, phone, level, type, access, department, clinic_pass) values (?, ?, password(?), ?, ?, ?, ?, ?, ?, ?, ?)");
#				$sth->execute ($F->{RCid}, $F->{email}, $F->{password}, $F->{derby_name}, $F->{real_name}, $F->{phone}, $F->{level}, $F->{type}, $F->{access}, $F->{department}, $F->{clinic_pass})
				my $sth = $dbh->prepare ("replace into official (RCid, email, password, derby_name, real_name, pronouns, tshirt, phone, timeformat, access, department, added, last_login) values (?, ?, password(?), ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)");
				$sth->execute ($F->{RCid}, $F->{email}, $F->{password}, $F->{derby_name}, $F->{real_name}, $F->{pronouns}, $F->{tshirt}, $F->{phone}, $F->{timeformat}, $F->{access}, $F->{department}, getUser($F->{email})->{added}, getUser($F->{email})->{last_login})
					or $ERRMSG = "ERROR: Can't execute SQL statement: ".$sth->errstr()."\n";
			} else {
#				my $sth = $dbh->prepare ("update official set email = ?, derby_name = ?, real_name = ?, phone = ?, level = ?, type = ?, access = ?, department = ?, clinic_pass = ? where RCid = ?");
#				$sth->execute ($F->{email}, $F->{derby_name}, $F->{real_name}, $F->{phone}, $F->{level}, $F->{type}, $F->{access}, $F->{department}, $F->{clinic_pass}, $F->{RCid})
				my $sth = $dbh->prepare ("update official set email = ?, derby_name = ?, real_name = ?, pronouns = ?, tshirt = ?, phone = ?, timeformat = ?, access = ?, department = ? where RCid = ?");
				$sth->execute ($F->{email}, $F->{derby_name}, $F->{real_name}, $F->{pronouns}, $F->{tshirt}, $F->{phone}, $F->{timeformat}, $F->{access}, $F->{department}, $F->{RCid})
					or $ERRMSG = "ERROR: Can't execute SQL statement: ".$sth->errstr()."\n";
			}
			if ($ERRMSG) {
				logit ($F->{RCid}, "DB ERROR: Updating Someone Else: $ERRMSG");

  			$F->{derby_name} = $h->input ({ type=>"text", name=>"derby_name", value=>$F->{derby_name} });
  			$F->{real_name}  = $h->input ({ type=>"text", name=>"real_name", value=>$F->{real_name} });
  			$F->{pronouns}   = $h->input ({ type=>"text", name=>"pronouns", value=>$F->{pronouns} });
  			$F->{tshirt}     = $h->select ({ name=>"tshirt" }, [map { $F->{tshirt} eq $_ ? $h->option ({ selected=>[] }, $_) : $h->option ($_) } @tshirtOptions] );
  			$F->{phone}      = $h->input ({ type=>"text", name=>"phone", value=>$F->{phone} });
     	  $F->{timeformat} = $h->select ({ name=>"timeformat" }, [map { $F->{timeformat} eq $_ ? $h->option ({ selected=>[] }, $_) : $h->option ($_) } qw(24hr ampm)] );
  		} else {
  			$F->{password}   = '*******';
  		}
#  		$F->{level}      = "<SELECT NAME=level>".selectOptions ($F->{level}, [qw(AA A B C)])."</SELECT>";
#  		$F->{type}       = "<SELECT NAME=type>".selectOptions ($F->{type}, [qw(official nso referee)])."</SELECT>";

 		$F->{derby_name} = $h->input ({ type=>"text", name=>"derby_name", value=>$F->{derby_name} });
 		$F->{real_name}  = $h->input ({ type=>"text", name=>"real_name", value=>$F->{real_name} });
		$F->{pronouns}   = $h->input ({ type=>"text", name=>"pronouns", value=>$F->{pronouns} });
		$F->{tshirt}     = $h->select ({ name=>"tshirt" }, [map { $F->{tshirt} eq $_ ? $h->option ({ selected=>[] }, $_) : $h->option ($_) } @tshirtOptions] );
 		$F->{phone}      = $h->input ({ type=>"text", name=>"phone", value=>$F->{phone} });
 	  $F->{timeformat} = $h->select ({ name=>"timeformat" }, [map { $F->{timeformat} eq $_ ? $h->option ({ selected=>[] }, $_) : $h->option ($_) } qw(24hr ampm)] );
#  	$F->{level}      = "<SELECT NAME=level>".selectOptions ($F->{level}, ["", qw(AA A B C)])."</SELECT>";
#  	$F->{type}       = "<SELECT NAME=type>".selectOptions ($F->{type}, ["", qw(official nso referee)])."</SELECT>";
 		$F->{RCid}         = $h->input ({ type=>"hidden", name=>"RCid", value=>"New" })."TBD&nbsp;";
  	$F->{access}			= $h->input ({ type=>"hidden", name=>"access", value=>0 })."0";
#  	$F->{clinic_pass}	= "<INPUT type='checkbox' name='clinic_pass' disabled readonly>";

  	  $errors = "Unauthorized attempt to view another user.  This has been logged.";
    	$F->{email}      = "&nbsp;";
    	$F->{password}   = "&nbsp;";
    	$F->{derby_name} = "&nbsp;";
    	$F->{real_name}  = "&nbsp;";
    	$F->{pronouns}   = "&nbsp;";
    	$F->{tshirt}     = "&nbsp;";
    	$F->{phone}      = "&nbsp;";
    	$F->{timeformat} = "&nbsp;";
#    	$F->{level}      = "&nbsp;";
#    	$F->{type}       = "&nbsp;";
    	$F->{RCid}       = "&nbsp;";
    	$F->{access}		 = "&nbsp;";
#    	$F->{clinic_pass}	= "&nbsp;";
    	$F->{buttons}		 = "&nbsp;";
    }

 

        $h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "Derby Name: ",              $F->{derby_name}) ]),
        $h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "Real Name: ",               $F->{real_name}) ]),
        $h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "Pronouns: ",                $F->{pronouns}) ]),
        $h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "TShirt Size: ",             $F->{tshirt}) ]),
        $h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "Phone: ",                   $F->{phone}) ]),
        $h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "Time Format: ",       $F->{timeformat}) ]),
        $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}) ]),
        @printDepartments,

Subversion Repositories VORC

(root)/trunk/site/schedule/manage_user.pl @ 53 – Rev 46 → 50

Rev 46		Rev 50
Line 9...		Line 9...
9	`use HTML::Tiny;`	9	`use HTML::Tiny;`
10	`our $h = HTML::Tiny->new( mode => 'html' );`	10	`our $h = HTML::Tiny->new( mode => 'html' );`
Line 11...		Line 11...
11		11
12	`my ($FORM, $cookie_string, $ERRMSG);`	12	`my ($FORM, $cookie_string, $ERRMSG);`
-		13	`my @ERRORS;`
13	`my @ERRORS;`	14	`my $dbh = getRCDBH;`
14	`my $dbh = WebDB->connect ();`	15	`#my $dbh = WebDB->connect ();`
15	`my $depts = getDepartments (); # HashRef of the department TLAs -> Display Names...`	16	`my $depts = getDepartments (); # HashRef of the department TLAs -> Display Names...`
16	`my $AccessLevel = getAccessLevels;`	17	`my $AccessLevel = getAccessLevels;`
Line 17...		Line 18...
17	`my @tshirtOptions = ("", "MS", "MM", "ML", "MXL", "M2X", "M3X");`	18	`my @tshirtOptions = ("", "MS", "MM", "ML", "MXL", "M2X", "M3X");`
Line 65...		Line 66...
65	`$F->{email} = lc WebDB::trim param ('email') // '';`	66	`$F->{email} = lc WebDB::trim param ('email') // '';`
66	`$F->{password} = WebDB::trim param ('password') // '';`	67	`$F->{password} = WebDB::trim param ('password') // '';`
67	`$F->{derby_name} = WebDB::trim param ('derby_name') // '';`	68	`$F->{derby_name} = WebDB::trim param ('derby_name') // '';`
68	`$F->{real_name} = WebDB::trim param ('real_name') // '';`	69	`$F->{real_name} = WebDB::trim param ('real_name') // '';`
69	`$F->{pronouns} = WebDB::trim param ('pronouns') // '';`	70	`$F->{pronouns} = WebDB::trim param ('pronouns') // '';`
70	`$F->{tshirt} = WebDB::trim param ('tshirt') // '';`	71	`$F->{tshirt} = WebDB::trim param ('tshirt') // '';`
71	`$F->{phone} = WebDB::trim param ('phone') // '';`	72	`$F->{phone} = WebDB::trim param ('phone') // '';`
-		73	`$F->{timeformat} = WebDB::trim param ('timeformat') // '24hr';`
72	`# $F->{level} = param ('level') // '';`	74	`# $F->{level} = param ('level') // '';`
73	`# $F->{type} = param ('type') // '';`	75	`# $F->{type} = param ('type') // '';`
74	`$F->{RCid} = param ('RCid') // '';`	76	`$F->{RCid} = param ('RCid') // '';`
75	`$F->{access} = param ('access') // 0;`	77	`$F->{access} = param ('access') // 0;`
76	`# $F->{clinic_pass} = defined param ('clinic_pass') ? 1 : 0;`	78	`# $F->{clinic_pass} = defined param ('clinic_pass') ? 1 : 0;`
Line 98...		Line 100...
98	`display_form ("New", "New User", $ERRMSG);`	100	`display_form ("New", "New User", $ERRMSG);`
99	`return;`	101	`return;`
100	`} else {`	102	`} else {`
101	`# We have a correctly formatted email address with a mail host record, go ahead and add the user`	103	`# We have a correctly formatted email address with a mail host record, go ahead and add the user`
102	`# my $sth = $dbh->prepare ("insert into official (email, password, derby_name, real_name, phone, level, type, access, department, clinic_pass) values (?, password(?), ?, ?, ?, ?, ?, ?, ?, ?)");`	104	`# my $sth = $dbh->prepare ("insert into official (email, password, derby_name, real_name, phone, level, type, access, department, clinic_pass) values (?, password(?), ?, ?, ?, ?, ?, ?, ?, ?)");`
103	`my $sth = $dbh->prepare ("insert into official (email, password, derby_name, real_name, pronouns, tshirt, phone, access, department, added) values (?, password(?), ?, ?, ?, ?, ?, ?, ?, CONVERT_TZ(now(), 'America/Chicago', 'America/Los_Angeles'))");`	105	`my $sth = $dbh->prepare ("insert into official (email, password, derby_name, real_name, pronouns, tshirt, phone, timeformat, access, department, added) values (?, password(?), ?, ?, ?, ?, ?, ?, ?, ?, CONVERT_TZ(now(), 'America/Chicago', 'America/Los_Angeles'))");`
Line 104...		Line 106...
104		106
105	`# $sth->execute ($F->{email}, $F->{password}, $F->{derby_name}, $F->{real_name}, $F->{phone}, $F->{level}, $F->{type}, 0, $F->{department}, 0);`	107	`# $sth->execute ($F->{email}, $F->{password}, $F->{derby_name}, $F->{real_name}, $F->{phone}, $F->{level}, $F->{type}, 0, $F->{department}, 0);`
Line 106...		Line 108...
106	`$sth->execute ($F->{email}, $F->{password}, $F->{derby_name}, $F->{real_name}, $F->{pronouns}, $F->{tshirt}, $F->{phone}, 1, $F->{department});`	108	`$sth->execute ($F->{email}, $F->{password}, $F->{derby_name}, $F->{real_name}, $F->{pronouns}, $F->{tshirt}, $F->{phone}, $F->{timeformat}, 1, $F->{department});`
107		109
108	`$sth = $dbh->prepare ("select RCid from official where email = ?");`	110	`$sth = $dbh->prepare ("select RCid from official where email = ?");`
109	`$sth->execute ($F->{email});`	111	`$sth->execute ($F->{email});`
Line 131...		Line 133...
131	`}`	133	`}`
Line 132...		Line 134...
132		134
133	`if ($F->{password}) { # They've possibly included an updated password.`	135	`if ($F->{password}) { # They've possibly included an updated password.`
134	`# my $sth = $dbh->prepare("replace into official (RCid, email, password, derby_name, real_name, phone, level, type, access, department, clinic_pass) values (?, ?, password(?), ?, ?, ?, ?, ?, ?, ?, ?)");`	136	`# my $sth = $dbh->prepare("replace into official (RCid, email, password, derby_name, real_name, phone, level, type, access, department, clinic_pass) values (?, ?, password(?), ?, ?, ?, ?, ?, ?, ?, ?)");`
135	`# $sth->execute ($F->{RCid}, $EM, $F->{password}, $F->{derby_name}, $F->{real_name}, $F->{phone}, $F->{level}, $F->{type}, $F->{access}, $F->{department}, $F->{clinic_pass})`	137	`# $sth->execute ($F->{RCid}, $EM, $F->{password}, $F->{derby_name}, $F->{real_name}, $F->{phone}, $F->{level}, $F->{type}, $F->{access}, $F->{department}, $F->{clinic_pass})`
136	`my $sth = $dbh->prepare("replace into official (RCid, email, password, derby_name, real_name, pronouns, tshirt, phone, access, department, added, last_login) values (?, ?, password(?), ?, ?, ?, ?, ?, ?, ?, ?, ?)");`	138	`my $sth = $dbh->prepare("replace into official (RCid, email, password, derby_name, real_name, pronouns, tshirt, phone, timeformat, access, department, added, last_login) values (?, ?, password(?), ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)");`
137	`$sth->execute ($F->{RCid}, lc $EM, $F->{password}, $F->{derby_name}, $F->{real_name}, $F->{pronouns}, $F->{tshirt}, $F->{phone}, $F->{access}, $F->{department}, getUser($EM)->{added}, getUser($EM)->{last_login})`	139	`$sth->execute ($F->{RCid}, lc $EM, $F->{password}, $F->{derby_name}, $F->{real_name}, $F->{pronouns}, $F->{tshirt}, $F->{phone}, $F->{timeformat}, $F->{access}, $F->{department}, getUser($EM)->{added}, getUser($EM)->{last_login})`
138	`or $ERRMSG = "ERROR: Can't execute SQL statement: ".$sth->errstr()."\n";`	140	`or $ERRMSG = "ERROR: Can't execute SQL statement: ".$sth->errstr()."\n";`
139	`} else { # No password was included, just keep the existing one.`	141	`} else { # No password was included, just keep the existing one.`
140	`# my $sth = $dbh->prepare("replace into official (RCid, email, password, derby_name, real_name, phone, level, type, access, department, clinic_pass) values (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)");`	142	`# my $sth = $dbh->prepare("replace into official (RCid, email, password, derby_name, real_name, phone, level, type, access, department, clinic_pass) values (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)");`
141	`# $sth->execute($F->{RCid}, $EM, $PWD, $F->{derby_name}, $F->{real_name}, $F->{phone}, $F->{level}, $F->{type}, $F->{access}, $F->{department}, $F->{clinic_pass})`	143	`# $sth->execute($F->{RCid}, $EM, $PWD, $F->{derby_name}, $F->{real_name}, $F->{phone}, $F->{level}, $F->{type}, $F->{access}, $F->{department}, $F->{clinic_pass})`
142	`my $sth = $dbh->prepare("replace into official (RCid, email, password, derby_name, real_name, pronouns, tshirt, phone, access, department, added, last_login) values (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)");`	144	`my $sth = $dbh->prepare("replace into official (RCid, email, password, derby_name, real_name, pronouns, tshirt, phone, timeformat, access, department, added, last_login) values (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)");`
143	`$sth->execute($F->{RCid}, lc $EM, $PWD, $F->{derby_name}, $F->{real_name}, $F->{pronouns}, $F->{tshirt}, $F->{phone}, $F->{access}, $F->{department}, getUser($EM)->{added}, getUser($EM)->{last_login})`	145	`$sth->execute($F->{RCid}, lc $EM, $PWD, $F->{derby_name}, $F->{real_name}, $F->{pronouns}, $F->{tshirt}, $F->{phone}, $F->{timeformat}, $F->{access}, $F->{department}, getUser($EM)->{added}, getUser($EM)->{last_login})`
144	`or $ERRMSG = "ERROR: Can't execute SQL statement: ".$sth->errstr()."\n";`	146	`or $ERRMSG = "ERROR: Can't execute SQL statement: ".$sth->errstr()."\n";`
Line 145...		Line 147...
145	`}`	147	`}`
146		148
Line 160...		Line 162...
160	`}`	162	`}`
Line 161...		Line 163...
161		163
162	`if ($FORM->{password}) {`	164	`if ($FORM->{password}) {`
163	`# my $sth = $dbh->prepare ("replace into official (RCid, email, password, derby_name, real_name, phone, level, type, access, department, clinic_pass) values (?, ?, password(?), ?, ?, ?, ?, ?, ?, ?, ?)");`	165	`# my $sth = $dbh->prepare ("replace into official (RCid, email, password, derby_name, real_name, phone, level, type, access, department, clinic_pass) values (?, ?, password(?), ?, ?, ?, ?, ?, ?, ?, ?)");`
164	`# $sth->execute ($F->{RCid}, $F->{email}, $F->{password}, $F->{derby_name}, $F->{real_name}, $F->{phone}, $F->{level}, $F->{type}, $F->{access}, $F->{department}, $F->{clinic_pass})`	166	`# $sth->execute ($F->{RCid}, $F->{email}, $F->{password}, $F->{derby_name}, $F->{real_name}, $F->{phone}, $F->{level}, $F->{type}, $F->{access}, $F->{department}, $F->{clinic_pass})`
165	`my $sth = $dbh->prepare ("replace into official (RCid, email, password, derby_name, real_name, pronouns, tshirt, phone, access, department, added, last_login) values (?, ?, password(?), ?, ?, ?, ?, ?, ?, ?, ?, ?)");`	167	`my $sth = $dbh->prepare ("replace into official (RCid, email, password, derby_name, real_name, pronouns, tshirt, phone, timeformat, access, department, added, last_login) values (?, ?, password(?), ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)");`
166	`$sth->execute ($F->{RCid}, $F->{email}, $F->{password}, $F->{derby_name}, $F->{real_name}, $F->{pronouns}, $F->{tshirt}, $F->{phone}, $F->{access}, $F->{department}, getUser($F->{email})->{added}, getUser($F->{email})->{last_login})`	168	`$sth->execute ($F->{RCid}, $F->{email}, $F->{password}, $F->{derby_name}, $F->{real_name}, $F->{pronouns}, $F->{tshirt}, $F->{phone}, $F->{timeformat}, $F->{access}, $F->{department}, getUser($F->{email})->{added}, getUser($F->{email})->{last_login})`
167	`or $ERRMSG = "ERROR: Can't execute SQL statement: ".$sth->errstr()."\n";`	169	`or $ERRMSG = "ERROR: Can't execute SQL statement: ".$sth->errstr()."\n";`
168	`} else {`	170	`} else {`
169	`# my $sth = $dbh->prepare ("update official set email = ?, derby_name = ?, real_name = ?, phone = ?, level = ?, type = ?, access = ?, department = ?, clinic_pass = ? where RCid = ?");`	171	`# my $sth = $dbh->prepare ("update official set email = ?, derby_name = ?, real_name = ?, phone = ?, level = ?, type = ?, access = ?, department = ?, clinic_pass = ? where RCid = ?");`
170	`# $sth->execute ($F->{email}, $F->{derby_name}, $F->{real_name}, $F->{phone}, $F->{level}, $F->{type}, $F->{access}, $F->{department}, $F->{clinic_pass}, $F->{RCid})`	172	`# $sth->execute ($F->{email}, $F->{derby_name}, $F->{real_name}, $F->{phone}, $F->{level}, $F->{type}, $F->{access}, $F->{department}, $F->{clinic_pass}, $F->{RCid})`
171	`my $sth = $dbh->prepare ("update official set email = ?, derby_name = ?, real_name = ?, pronouns = ?, tshirt = ?, phone = ?, access = ?, department = ? where RCid = ?");`	173	`my $sth = $dbh->prepare ("update official set email = ?, derby_name = ?, real_name = ?, pronouns = ?, tshirt = ?, phone = ?, timeformat = ?, access = ?, department = ? where RCid = ?");`
172	`$sth->execute ($F->{email}, $F->{derby_name}, $F->{real_name}, $F->{pronouns}, $F->{tshirt}, $F->{phone}, $F->{access}, $F->{department}, $F->{RCid})`	174	`$sth->execute ($F->{email}, $F->{derby_name}, $F->{real_name}, $F->{pronouns}, $F->{tshirt}, $F->{phone}, $F->{timeformat}, $F->{access}, $F->{department}, $F->{RCid})`
173	`or $ERRMSG = "ERROR: Can't execute SQL statement: ".$sth->errstr()."\n";`	175	`or $ERRMSG = "ERROR: Can't execute SQL statement: ".$sth->errstr()."\n";`
174	`}`	176	`}`
175	`if ($ERRMSG) {`	177	`if ($ERRMSG) {`
176	`logit ($F->{RCid}, "DB ERROR: Updating Someone Else: $ERRMSG");`	178	`logit ($F->{RCid}, "DB ERROR: Updating Someone Else: $ERRMSG");`
Line 230...		Line 232...
230	`$F->{derby_name} = $h->input ({ type=>"text", name=>"derby_name", value=>$F->{derby_name} });`	232	`$F->{derby_name} = $h->input ({ type=>"text", name=>"derby_name", value=>$F->{derby_name} });`
231	`$F->{real_name} = $h->input ({ type=>"text", name=>"real_name", value=>$F->{real_name} });`	233	`$F->{real_name} = $h->input ({ type=>"text", name=>"real_name", value=>$F->{real_name} });`
232	`$F->{pronouns} = $h->input ({ type=>"text", name=>"pronouns", value=>$F->{pronouns} });`	234	`$F->{pronouns} = $h->input ({ type=>"text", name=>"pronouns", value=>$F->{pronouns} });`
233	`$F->{tshirt} = $h->select ({ name=>"tshirt" }, [map { $F->{tshirt} eq $_ ? $h->option ({ selected=>[] }, $_) : $h->option ($_) } @tshirtOptions] );`	235	`$F->{tshirt} = $h->select ({ name=>"tshirt" }, [map { $F->{tshirt} eq $_ ? $h->option ({ selected=>[] }, $_) : $h->option ($_) } @tshirtOptions] );`
234	`$F->{phone} = $h->input ({ type=>"text", name=>"phone", value=>$F->{phone} });`	236	`$F->{phone} = $h->input ({ type=>"text", name=>"phone", value=>$F->{phone} });`
-		237	`$F->{timeformat} = $h->select ({ name=>"timeformat" }, [map { $F->{timeformat} eq $_ ? $h->option ({ selected=>[] }, $_) : $h->option ($_) } qw(24hr ampm)] );`
235	`} else {`	238	`} else {`
236	`$F->{password} = '*******';`	239	`$F->{password} = '*******';`
237	`}`	240	`}`
238	`# $F->{level} = "<SELECT NAME=level>".selectOptions ($F->{level}, [qw(AA A B C)])."</SELECT>";`	241	`# $F->{level} = "<SELECT NAME=level>".selectOptions ($F->{level}, [qw(AA A B C)])."</SELECT>";`
239	`# $F->{type} = "<SELECT NAME=type>".selectOptions ($F->{type}, [qw(official nso referee)])."</SELECT>";`	242	`# $F->{type} = "<SELECT NAME=type>".selectOptions ($F->{type}, [qw(official nso referee)])."</SELECT>";`
Line 271...		Line 274...
271	`$F->{derby_name} = $h->input ({ type=>"text", name=>"derby_name", value=>$F->{derby_name} });`	274	`$F->{derby_name} = $h->input ({ type=>"text", name=>"derby_name", value=>$F->{derby_name} });`
272	`$F->{real_name} = $h->input ({ type=>"text", name=>"real_name", value=>$F->{real_name} });`	275	`$F->{real_name} = $h->input ({ type=>"text", name=>"real_name", value=>$F->{real_name} });`
273	`$F->{pronouns} = $h->input ({ type=>"text", name=>"pronouns", value=>$F->{pronouns} });`	276	`$F->{pronouns} = $h->input ({ type=>"text", name=>"pronouns", value=>$F->{pronouns} });`
274	`$F->{tshirt} = $h->select ({ name=>"tshirt" }, [map { $F->{tshirt} eq $_ ? $h->option ({ selected=>[] }, $_) : $h->option ($_) } @tshirtOptions] );`	277	`$F->{tshirt} = $h->select ({ name=>"tshirt" }, [map { $F->{tshirt} eq $_ ? $h->option ({ selected=>[] }, $_) : $h->option ($_) } @tshirtOptions] );`
275	`$F->{phone} = $h->input ({ type=>"text", name=>"phone", value=>$F->{phone} });`	278	`$F->{phone} = $h->input ({ type=>"text", name=>"phone", value=>$F->{phone} });`
-		279	`$F->{timeformat} = $h->select ({ name=>"timeformat" }, [map { $F->{timeformat} eq $_ ? $h->option ({ selected=>[] }, $_) : $h->option ($_) } qw(24hr ampm)] );`
276	`# $F->{level} = "<SELECT NAME=level>".selectOptions ($F->{level}, ["", qw(AA A B C)])."</SELECT>";`	280	`# $F->{level} = "<SELECT NAME=level>".selectOptions ($F->{level}, ["", qw(AA A B C)])."</SELECT>";`
277	`# $F->{type} = "<SELECT NAME=type>".selectOptions ($F->{type}, ["", qw(official nso referee)])."</SELECT>";`	281	`# $F->{type} = "<SELECT NAME=type>".selectOptions ($F->{type}, ["", qw(official nso referee)])."</SELECT>";`
278	`$F->{RCid} = $h->input ({ type=>"hidden", name=>"RCid", value=>"New" })."TBD ";`	282	`$F->{RCid} = $h->input ({ type=>"hidden", name=>"RCid", value=>"New" })."TBD ";`
279	`$F->{access} = $h->input ({ type=>"hidden", name=>"access", value=>0 })."0";`	283	`$F->{access} = $h->input ({ type=>"hidden", name=>"access", value=>0 })."0";`
280	`# $F->{clinic_pass} = "<INPUT type='checkbox' name='clinic_pass' disabled readonly>";`	284	`# $F->{clinic_pass} = "<INPUT type='checkbox' name='clinic_pass' disabled readonly>";`
Line 313...		Line 317...
313	`$errors = "Unauthorized attempt to view another user. This has been logged.";`	317	`$errors = "Unauthorized attempt to view another user. This has been logged.";`
314	`$F->{email} = " ";`	318	`$F->{email} = " ";`
315	`$F->{password} = " ";`	319	`$F->{password} = " ";`
316	`$F->{derby_name} = " ";`	320	`$F->{derby_name} = " ";`
317	`$F->{real_name} = " ";`	321	`$F->{real_name} = " ";`
318	`$F->{pronouns} = " ";`	322	`$F->{pronouns} = " ";`
319	`$F->{tshirt} = " ";`	323	`$F->{tshirt} = " ";`
320	`$F->{phone} = " ";`	324	`$F->{phone} = " ";`
-		325	`$F->{timeformat} = " ";`
321	`# $F->{level} = " ";`	326	`# $F->{level} = " ";`
322	`# $F->{type} = " ";`	327	`# $F->{type} = " ";`
323	`$F->{RCid} = " ";`	328	`$F->{RCid} = " ";`
324	`$F->{access} = " ";`	329	`$F->{access} = " ";`
325	`# $F->{clinic_pass} = " ";`	330	`# $F->{clinic_pass} = " ";`
326	`$F->{buttons} = " ";`	331	`$F->{buttons} = " ";`
327	`}`	332	`}`
Line 328...		Line 333...
328		333
Line 381...		Line 386...
381	`$h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "Derby Name: ", $F->{derby_name}) ]),`	386	`$h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "Derby Name: ", $F->{derby_name}) ]),`
382	`$h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "Real Name: ", $F->{real_name}) ]),`	387	`$h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "Real Name: ", $F->{real_name}) ]),`
383	`$h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "Pronouns: ", $F->{pronouns}) ]),`	388	`$h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "Pronouns: ", $F->{pronouns}) ]),`
384	`$h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "TShirt Size: ", $F->{tshirt}) ]),`	389	`$h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "TShirt Size: ", $F->{tshirt}) ]),`
385	`$h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "Phone: ", $F->{phone}) ]),`	390	`$h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "Phone: ", $F->{phone}) ]),`
-		391	`$h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "Time Format: ", $F->{timeformat}) ]),`
386	`$h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "Database ID: ", $F->{RCid}) ]),`	392	`$h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "Database ID: ", $F->{RCid}) ]),`
387	`$h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "User Added: ", $F->{added}) ]),`	393	`$h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "User Added: ", $F->{added}) ]),`
388	`$h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "Last Login: ", $F->{last_login}) ]),`	394	`$h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "Last Login: ", $F->{last_login}) ]),`
389	`$h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "vORC Access Level: ", $F->{access}) ]),`	395	`$h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, "vORC Access Level: ", $F->{access}) ]),`
390	`@printDepartments,`	396	`@printDepartments,`