loncom/homework/bridgetask.pm - diff

Return to bridgetask.pm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.71, 2005/10/14 17:27:23
+version 1.72, 2005/10/14 20:00:23
  Line 68  sub proctor_check_auth {
      foreach my $possible (@allowed) {
  	my ($puser,$pdom)=(split('@',$possible));
  	if ($puser eq $user && $pdom eq $domain) {
- 	    my $authhost=&Apache::lonnet::authenticate($puser,$env{'form.proctorpassword'},$pdom);
+ 	    my $authenticated=0;
- 	    if ($authhost ne 'no_host') {
+ 	    if ( $slot->{'secret'} =~ /\S/ &&
+ 		 $env{'form.proctorpassword'} eq $slot->{'secret'} ) {
+ 		$authenticated=1;
+ 	    } else {
+ 		my $authhost=&Apache::lonnet::authenticate($puser,$env{'form.proctorpassword'},$pdom);
+ 		if ($authhost ne 'no_host') {
+ 		    $authenticated=1;
+ 		}
+ 	    }
+ 	    if ($authenticated) {
  		my $version=
  		    $Apache::lonhomework::results{'resource.version'}=
  		    ++$Apache::lonhomework::history{'resource.version'};