[LON-CAPA-cvs] cvs: loncom /homework/caparesponse caparesponse.pm

sakharuk lon-capa-cvs@mail.lon-capa.org
Wed, 06 Nov 2002 17:58:27 -0000


sakharuk		Wed Nov  6 12:58:27 2002 EDT

  Modified files:              
    /loncom/homework/caparesponse	caparesponse.pm 
  Log:
  Prints answers for the online exam after answer date passed.
  
  
Index: loncom/homework/caparesponse/caparesponse.pm
diff -u loncom/homework/caparesponse/caparesponse.pm:1.67 loncom/homework/caparesponse/caparesponse.pm:1.68
--- loncom/homework/caparesponse/caparesponse.pm:1.67	Thu Oct 17 13:13:44 2002
+++ loncom/homework/caparesponse/caparesponse.pm	Wed Nov  6 12:58:27 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # caparesponse definition
 #
-# $Id: caparesponse.pm,v 1.67 2002/10/17 17:13:44 albertel Exp $
+# $Id: caparesponse.pm,v 1.68 2002/11/06 17:58:27 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -157,7 +157,6 @@
       }
     }
   } elsif ($target eq 'web' || $target eq 'tex') {
-    if ($Apache::lonhomework::type ne 'exam') {
       my $award = $Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"};
       my $status = $Apache::inputtags::status['-1'];
       if ($award =~ /^correct/ || $status eq "SHOW_ANSWER" ) {
@@ -199,7 +198,6 @@
 	     $result.="}. \\vskip 0 mm ";
 	   }
        }
-    } else {
       	my (@answers)=&Apache::lonxml::get_param_var('answer',$parstack,$safeeval);
 	my (@formats)=&Apache::lonxml::get_param_var('format',$parstack,$safeeval);
 	my $unit=&Apache::lonxml::get_param_var('unit',$parstack,$safeeval);
@@ -310,7 +308,6 @@
 	    $result.='\end{enumerate}';
 	    &Apache::lonxml::increment_counter();
 	}
-    }
   } elsif ($target eq 'edit') {
     $result.='</td></tr>'.&Apache::edit::end_table;
   } elsif ($target eq 'answer' || $target eq 'analyze') {