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

Diff for /loncom/homework/caparesponse/caparesponse.pm between versions 1.237 and 1.242

version 1.237, 2010/02/28 23:45:43 version 1.242, 2010/10/18 19:47:39
Line 33  use Safe::Hole; Line 33  use Safe::Hole;
 use Apache::lonmaxima();  use Apache::lonmaxima();
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::lonnet;  use Apache::lonnet;
   use Apache::lonmsg();
 use Apache::response();  use Apache::response();
 use Storable qw(dclone);  use Storable qw(dclone);
   
Line 305  sub start_numericalresponse { Line 306  sub start_numericalresponse {
  my $hideunit=&Apache::lonnet::EXT('resource.'.$partid.'_'.$id.'.turnoffunit');   my $hideunit=&Apache::lonnet::EXT('resource.'.$partid.'_'.$id.'.turnoffunit');
  &Apache::lonxml::debug("Got unit $hideunit for $partid $id");   &Apache::lonxml::debug("Got unit $hideunit for $partid $id");
  #no way to enter units, with radio buttons   #no way to enter units, with radio buttons
  if (lc($hideunit) eq "yes") {   if ((lc($hideunit) eq "yes") && ($Apache::lonhomework::type ne 'exam')) {
     my $unit=&Apache::lonxml::get_param_var('unit',$parstack,      my $unit=&Apache::lonxml::get_param_var('unit',$parstack,
     $safeeval);      $safeeval);
     if ($unit =~ /\S/) { $result.=" (in $unit) "; }      if ($unit =~ /\S/) { $result.=" (in $unit) "; }
Line 465  sub check_submission { Line 466  sub check_submission {
     return($ad,$msg, $name);      return($ad,$msg, $name);
 }  }
   
   sub stringresponse_gradechange {
       my ($part,$id,$previous,$caller,$response,$ad,$type) = @_;
       return unless (ref($previous) eq 'HASH');
       my ($prevarray,$prevaward);
       my %typenames = (
                        cs => 'Case sensitive',
                        ci => 'Case insensitive',
                       );
       if ($caller eq 'cs') {
           return unless (ref($previous->{'version'}) eq 'ARRAY');
           $prevarray = $previous->{'version'};
           $prevaward = $previous->{'award'};
       } elsif ($caller eq 'ci') {
           return unless (ref($previous->{'versionci'}) eq 'ARRAY');
           $prevarray = $previous->{'versionci'};
           $prevaward = $previous->{'awardci'};
       } else {
           return;
       }
       my $count=0;
       my %count_lookup;
       foreach my $i (1..$Apache::lonhomework::history{'version'}) {
           my $prefix = $i.":resource.$part";
           next if (!exists($Apache::lonhomework::history{"$prefix.award"}));
           $count++;
           $count_lookup{$i} = $count;
       }
       my ($symb,$courseid,$domain,$name) = &Apache::lonnet::whichuser();
       my %coursedesc = &Apache::lonnet::coursedescription($courseid);
       my $cdom = $coursedesc{'domain'};
       my $versions = ' (submissions: '.join(', ',map {$count_lookup{$_} } @{$prevarray}).')';
       my $warning = "String Response ($typenames{$type}) grading discrepancy: award for response of $response changed from $prevaward".$versions." to $ad; user: $name:$domain in course: $courseid for part: $part response: $id for symb: $symb";
       &Apache::lonnet::logthis($warning);
       my $origmail = $Apache::lonnet::perlvar{'lonAdmEMail'};
       my $recipients = &Apache::loncommon::build_recipient_list(undef,'errormail',
                                                                 $cdom,$origmail);
       if ($recipients ne '') {
           &Apache::lonmsg::sendemail($recipients,'Stringresponse Grading Discrepancy',$warning);
       }
       return;
   }
   
 sub add_in_tag_answer {  sub add_in_tag_answer {
     my ($parstack,$safeeval,$response_level) = @_;      my ($parstack,$safeeval,$response_level) = @_;
     my @answer=&Apache::lonxml::get_param_var('answer',$parstack,$safeeval,      my @answer=&Apache::lonxml::get_param_var('answer',$parstack,$safeeval,
Line 592  sub end_numericalresponse { Line 635  sub end_numericalresponse {
  &get_table_sizes($number_of_bubbles,$bubble_display);   &get_table_sizes($number_of_bubbles,$bubble_display);
     my $j=0;      my $j=0;
     my $cou=0;      my $cou=0;
     $result.='\vskip -1 mm \noindent \begin{enumerate}\item[\textbf{'.$Apache::lonxml::counter.'}.]';      $result.='\vskip 2mm \noindent ';
       $result .= '\textbf{'.$Apache::lonxml::counter.'.} \vskip -3mm ';
   
     for (my $i=0;$i<$number_of_tables;$i++) {      for (my $i=0;$i<$number_of_tables;$i++) {
  $result.='\vskip -1 mm \noindent \setlength{\tabcolsep}{2 mm}\begin{tabular}{';   if ($i == 0) {
       $result .= '\vskip -1mm ';
    } else {
       $result .= '\vskip 1mm ';
    }
    $result.='\noindent \setlength{\tabcolsep}{2 mm}\hskip 2pc\begin{tabular}{';
  for (my $ind=0;$ind<$table_range[$j];$ind++) {   for (my $ind=0;$ind<$table_range[$j];$ind++) {
     $result.='p{3 mm}p{'.$celllength.' mm}';      $result.='p{3 mm}p{'.$celllength.' mm}';
  }   }
Line 607  sub end_numericalresponse { Line 657  sub end_numericalresponse {
  $j++;   $j++;
  $result.='\\\\\end{tabular}\vskip 0 mm ';   $result.='\\\\\end{tabular}\vskip 0 mm ';
     }      }
     $result.='\end{enumerate}';  
  } else {   } else {
     $increment = &Apache::response::repetition();      $increment = &Apache::response::repetition();
  }   }
Line 1147  sub end_stringresponse { Line 1196  sub end_stringresponse {
     my $response = &Apache::response::getresponse();      my $response = &Apache::response::getresponse();
     if ( $response =~ /[^\s]/) {      if ( $response =~ /[^\s]/) {
  my %previous = &Apache::response::check_for_previous($response,   my %previous = &Apache::response::check_for_previous($response,
     $part,$id);      $part,$id,
                                                                       undef,$type);
  &Apache::lonxml::debug("submitted a $response<br>\n");   &Apache::lonxml::debug("submitted a $response<br>\n");
  &Apache::lonxml::debug($$parstack[-1] . "\n<br>");   &Apache::lonxml::debug($$parstack[-1] . "\n<br>");
  $Apache::lonhomework::results{"resource.$part.$id.submission"}=   $Apache::lonhomework::results{"resource.$part.$id.submission"}=
Line 1178  sub end_stringresponse { Line 1228  sub end_stringresponse {
  &Apache::lonxml::debug(" doing $name with ".join(':',@{ $answer{$name}{'answers'} }));   &Apache::lonxml::debug(" doing $name with ".join(':',@{ $answer{$name}{'answers'} }));
  ${$safeeval->varglob('LONCAPA::CAPAresponse_answer')}=dclone($answer{$name});   ${$safeeval->varglob('LONCAPA::CAPAresponse_answer')}=dclone($answer{$name});
  my ($result, @msgs)=&Apache::run::run("&caparesponse_check_list()",$safeeval);   my ($result, @msgs)=&Apache::run::run("&caparesponse_check_list()",$safeeval);
                           if ($$args_ref{'type'} =~ /^c[si]$/) {
                               my $control_chars_removed = pop(@msgs);
                               my $error = pop(@msgs);
                               if (($error ne '') || 
                                   ($control_chars_removed ne '')) {
                                   my ($symb,$courseid,$domain,$name) =
                                       &Apache::lonnet::whichuser();
                                   if ($control_chars_removed ne '') {
                                       my $showresponse = $response;
                                       if ($response =~ /[\000-\037]/) {
                                           $response =~ s/[\000-\037]//g;
                                       }
                                       if ($showresponse  =~ /[\r\n\f]/) {
                                           my @lines = split(/[\r\n\f]+/,$showresponse);
                                           $showresponse = join('\\n',@lines);
                                       }
                                       &Apache::lonnet::logthis("Stringresponse grading: control characters stripped from submission ".$showresponse." for $name:$domain in $courseid for part: $part response: $id and symb: $symb");
                                       $Apache::lonhomework::results{"resource.$part.$id.submission"} = $response;
                                   }
                                   if ($error ne '') {
                                       &Apache::lonnet::logthis("Stringresponse grading error: $error for $name:$domain in $courseid for part: $part response: $id and symb: $symb");
                                   }
                               }
                           }
  &Apache::lonxml::debug('msgs are'.join(':',@msgs));   &Apache::lonxml::debug('msgs are'.join(':',@msgs));
  my ($awards)=split(/:/,$result);   my ($awards)=split(/:/,$result);
  my (@awards) = split(/,/,$awards);   my (@awards) = split(/,/,$awards);
Line 1188  sub end_stringresponse { Line 1262  sub end_stringresponse {
  push(@names,$name);   push(@names,$name);
  &Apache::lonxml::debug("\n<br>result:$result:$Apache::lonxml::curdepth<br>\n");   &Apache::lonxml::debug("\n<br>result:$result:$Apache::lonxml::curdepth<br>\n");
     }      }
     my ($ad, $msg, $name) =       ($ad, $msg, my $name) = 
  &Apache::inputtags::finalizeawards(\@final_awards,   &Apache::inputtags::finalizeawards(\@final_awards,
    \@final_msgs,     \@final_msgs,
    \@names,1);     \@names,1);
Line 1205  sub end_stringresponse { Line 1279  sub end_stringresponse {
                         $ad='ANONYMOUS_CREDIT';                          $ad='ANONYMOUS_CREDIT';
                     }                      }
                 }                  }
                   unless ($env{'request.state'} eq 'construct') {
                       if ($previous{'used'}) {
                           if ($ad ne $previous{'award'} && $previous{'award'} ne '') {
                               &stringresponse_gradechange($part,$id,\%previous,
                                                           'cs',$response,$ad,$type);
                           }
                       } elsif ($previous{'usedci'}) {
                           if ($ad ne $previous{'awardci'} && $previous{'awardci'} ne '') {
                               &stringresponse_gradechange($part,$id,\%previous,
                                                           'ci',$response,$ad,$type);
                           }
                       }
                   }
  &Apache::response::handle_previous(\%previous,$ad);   &Apache::response::handle_previous(\%previous,$ad);
  $Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=$ad;   $Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=$ad;
  $Apache::lonhomework::results{"resource.$part.$id.awardmsg"}=$msg;   $Apache::lonhomework::results{"resource.$part.$id.awardmsg"}=$msg;
Removed from v.1.237  
changed lines
  Added in v.1.242

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