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

Diff for /loncom/homework/essayresponse.pm between versions 1.102 and 1.104

version 1.102, 2010/02/28 23:37:03 version 1.104, 2010/04/19 04:20:25
Line 41  BEGIN { Line 41  BEGIN {
 sub start_essayresponse {  sub start_essayresponse {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
     my $result;      my $result;
       print STDERR "target is $target AND status is ".$Apache::inputtags::status[-1]." AND ".
                    " type is ".$Apache::lonhomework::type."\n";
     my $id = &Apache::response::start_response($parstack,$safeeval);      my $id = &Apache::response::start_response($parstack,$safeeval);
     if ($target eq 'meta') {      if ($target eq 'meta') {
  $result=&Apache::response::meta_package_write('essayresponse');   $result=&Apache::response::meta_package_write('essayresponse');
Line 64  sub start_essayresponse { Line 66  sub start_essayresponse {
  $result.='<br /><table border="1">';   $result.='<br /><table border="1">';
  if (($Apache::lonhomework::type ne 'survey') &&   if (($Apache::lonhomework::type ne 'survey') &&
             ($Apache::lonhomework::type ne 'surveycred') &&              ($Apache::lonhomework::type ne 'surveycred') &&
             ($Apache::lonhomework::type eq 'anonsurvey') &&              ($Apache::lonhomework::type ne 'anonsurvey') &&
             ($Apache::lonhomework::type ne 'anonsurveycred')) {              ($Apache::lonhomework::type ne 'anonsurveycred')) {
     $result.= '<tr><td>'.      $result.= '<tr><td>'.
  '<label>'.   '<label>'.
Line 346  sub file_submission { Line 348  sub file_submission {
             }              }
         }          }
         $Apache::lonhomework::results{"resource.$part.$id.$which"}=join(',',@accepted_files);          $Apache::lonhomework::results{"resource.$part.$id.$which"}=join(',',@accepted_files);
         if (($$award eq 'INVALID_FILETYPE') || ($award eq 'EXCESS_FILESIZE')) {          if (($$award eq 'INVALID_FILETYPE') || ($$award eq 'EXCESS_FILESIZE')) {
             return;              return;
         }          }
  if (ref($uploadedflag)) {   if (ref($uploadedflag)) {
Removed from v.1.102  
changed lines
  Added in v.1.104

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