version 1.5, 2005/03/28 21:49:31
|
version 1.6, 2005/03/28 21:50:46
|
Line 295 sub proctor_validation_screen {
|
Line 295 sub proctor_validation_screen {
|
my ($slot) = @_; |
my ($slot) = @_; |
my (undef,undef,$domain,$user) = &Apache::lonxml::whichuser(); |
my (undef,undef,$domain,$user) = &Apache::lonxml::whichuser(); |
my $url=&Apache::lonnet::studentphoto($domain,$user,'jpg'); |
my $url=&Apache::lonnet::studentphoto($domain,$user,'jpg'); |
my $dom=(&Apache::lonxml::whichuser())[2]; |
$user=$ENV{'form.proctorname'}; |
my $user=$ENV{'form.proctorname'}; |
if ($ENV{'form.proctordomain'}) { $domain=$ENV{'form.proctordomain'}; } |
if ($ENV{'form.proctordomain'}) { $dom=$ENV{'form.proctordomain'}; } |
|
my $msg; |
my $msg; |
if ($ENV{'form.proctorpassword'}) { |
if ($ENV{'form.proctorpassword'}) { |
$msg='<p><font color="red">'.&mt("Failed to authenticate the proctor.") |
$msg='<p><font color="red">'.&mt("Failed to authenticate the proctor.") |
Line 313 sub proctor_validation_screen {
|
Line 312 sub proctor_validation_screen {
|
<table> |
<table> |
<tr><td>Proctor's Username:</td><td><input type="string" name="proctorname" value="$user" /></td></tr> |
<tr><td>Proctor's Username:</td><td><input type="string" name="proctorname" value="$user" /></td></tr> |
<tr><td>Password:</td><td><input type="password" name="proctorpassword" value="" /></td></tr> |
<tr><td>Password:</td><td><input type="password" name="proctorpassword" value="" /></td></tr> |
<tr><td>Proctor's Domain:</td><td><input type="string" name="proctordomain" value="$dom" /></td></tr> |
<tr><td>Proctor's Domain:</td><td><input type="string" name="proctordomain" value="$domain" /></td></tr> |
</table> |
</table> |
<input type="submit" name="checkoutbutton" value="Validate" /><br /> |
<input type="submit" name="checkoutbutton" value="Validate" /><br /> |
Student who should be logged in is:<br /> |
Student who should be logged in is:<br /> |