loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

Up to [LON-CAPA] / loncom / homework / caparesponse

Diff for /loncom/homework/caparesponse/caparesponse.pm between versions 1.240 and 1.241

-version 1.240, 2010/10/14 04:02:07
+version 1.241, 2010/10/14 19:55:04
  Line 33  use Safe::Hole;
  use Apache::lonmaxima();
  use Apache::lonlocal;
  use Apache::lonnet;
+ use Apache::lonmsg();
  use Apache::response();
  use Storable qw(dclone);
- Line 465  sub check_submission {
+ Line 466  sub check_submission {
      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 {
      my ($parstack,$safeeval,$response_level) = @_;
      my @answer=&Apache::lonxml::get_param_var('answer',$parstack,$safeeval,
- Line 1153  sub end_stringresponse {
+ Line 1196  sub end_stringresponse {
  	    my $response = &Apache::response::getresponse();
  	    if ( $response =~ /[^\s]/) {
  		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($$parstack[-1] . "\n<br>");
  		$Apache::lonhomework::results{"resource.$part.$id.submission"}=
- Line 1184  sub end_stringresponse {
+ Line 1228  sub end_stringresponse {
  			&Apache::lonxml::debug(" doing $name with ".join(':',@{ $answer{$name}{'answers'} }));
  			${$safeeval->varglob('LONCAPA::CAPAresponse_answer')}=dclone($answer{$name});
  			my ($result, @msgs)=&Apache::run::run("&caparesponse_check_list()",$safeeval);
+                         if ($$args_ref{'type'} =~ /^c[si]$/) {
+                             my $error = pop(@msgs);
+                             if ($error ne '') {
+                                 my ($symb,$courseid,$domain,$name) =
+                                     &Apache::lonnet::whichuser();
+                                 &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));
  			my ($awards)=split(/:/,$result);
  			my (@awards) = split(/,/,$awards);
- Line 1211  sub end_stringresponse {
+ Line 1263  sub end_stringresponse {
                          $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::lonhomework::results{"resource.$part.$id.awarddetail"}=$ad;
  		$Apache::lonhomework::results{"resource.$part.$id.awardmsg"}=$msg;

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

Removed from v.1.240
changed lines
	Added in v.1.241