if ($in{clinicdate} <= $today) {
	my $query="SELECT nurseid, fname, lname FROM nurses ORDER BY fname ASC;";
	my $dbh;
	my $sth;
	$dbh = DBI->connect("DBI:mysql:$dbname", $dbuser, $dbpass,{PrintError => 1, RaiseError => 1});
	$sth=$dbh->prepare($query);
	$sth->execute();
	print "$formstart\n\t\t<INPUT TYPE=HIDDEN NAME=\"f\" VALUE=\"ChangeNurse\">\n\t\t\t<INPUT TYPE=HIDDEN NAME=\"clinicdate\" VALUE=\"$in{clinicdate}\">\n\t\t\t<INPUT TYPE=HIDDEN NAME=\"clientid\" VALUE=\"$clientid\">\n\t\t<SELECT NAME=\"nurseused\" onchange=\"this.form.submit()\">\n\t\t\t<OPTION VALUE=\"\">Nurse</OPTION>";
	while (@row=$sth->fetchrow()) {
		print "\n\t\t\t<OPTION VALUE=\"$row[0]\"";
		if ($nurseused{$clientid} eq $row[0]) {
			print " SELECTED";
		}
		print ">$row[1] $row[2]</OPTION>";
	}
	$sth->finish;
	$dbh->disconnect;
	print "\n\t\t\t<OPTION VALUE=\"0\" style=\"background-color:red\">NO SHOW!</OPTION>\n\t\t</SELECT>\n</FORM>";
} else {
	if ($confirmed{$clientid}==1) {
		print " X ";
	}
}