[BACK]Return to bridgetask.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/bridgetask.pm between versions 1.4 and 1.6

version 1.4, 2005/03/28 19:26:10 version 1.6, 2005/03/28 21:50:46
Line 294  sub end_Criteria { Line 294  sub end_Criteria {
 sub proctor_validation_screen {  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 $ret=&Apache::lonnet::reply("studentphoto:$domain:$user:gif",&Apache::lonnet::homeserver($user,$domain));      my $url=&Apache::lonnet::studentphoto($domain,$user,'jpg');
     my $url="/uploaded/$domain/$user/internal/studentphoto.gif";      $user=$ENV{'form.proctorname'};
     my $tokenurl=&Apache::lonnet::tokenwrapper($url);      if ($ENV{'form.proctordomain'}) { $domain=$ENV{'form.proctordomain'}; }
     my $dom=(&Apache::lonxml::whichuser())[2];  
     my $user=$ENV{'form.proctorname'};  
     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 315  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 />
 <img src="$tokenurl" /><br />  <img src="$url" /><br />
 </form>  </form>
 ENDCHECKOUT  ENDCHECKOUT
     return $result;      return $result;
Removed from v.1.4  
changed lines
  Added in v.1.6

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>