--- loncom/homework/lonhomework.pm 2024/02/21 19:50:21 1.383 +++ loncom/homework/lonhomework.pm 2024/12/09 02:46:01 1.386 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Homework handler # -# $Id: lonhomework.pm,v 1.383 2024/02/21 19:50:21 raeburn Exp $ +# $Id: lonhomework.pm,v 1.386 2024/12/09 02:46:01 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1978,6 +1978,8 @@ sub convert_for_js { sub do_ltipassback { if (@Apache::lonhomework::ltipassback) { + my $lonhost = $Apache::lonnet::perlvar{'lonHostID'}; + my $ip = &Apache::lonnet::get_host_ip($lonhost); foreach my $item (@Apache::lonhomework::ltipassback) { if (ref($item) eq 'HASH') { if ((ref($item->{'lti'}) eq 'HASH') && ($item->{'cid'} =~ /^($match_domain)_($match_courseid)$/)) { @@ -1988,25 +1990,118 @@ sub do_ltipassback { my $id = $item->{'pbid'}; my $url = $item->{'pburl'}; my $type = $item->{'pbtype'}; - my $scope = $item->{'scope'}; + my $pbscope = $item->{'pbscope'}; my $map = $item->{'pbmap'}; my $symb = $item->{'pbsymb'}; my $uname = $item->{'uname'}; my $udom = $item->{'udom'}; + my $uhome = $item->{'uhome'}; my $keynum = $item->{'lti'}->{'cipher'}; my $crsdef = $item->{'crsdef'}; my $scoretype = $item->{'format'}; - my ($total,$possible); - if ($scope eq 'resource') { + my $scope = $item->{'scope'}; + my $clientip = $item->{'clientip'}; + my ($total,$possible,%total_by_symb,%possible_by_symb); + if ((exists($item->{'total_s'})) && (ref($item->{'total_s'}) eq 'HASH')) { + %total_by_symb = %{$item->{'total_s'}}; + if ($pbscope eq 'resource') { + if (exists($total_by_symb{$symb})) { + $total = $total_by_symb{$symb}; + } else { + $total = $item->{'total'}; + } + } + } elsif ($pbscope eq 'resource') { $total = $item->{'total'}; + } + if ((exists($item->{'possible_s'})) && (ref($item->{'possible_s'}) eq 'HASH')) { + %possible_by_symb = %{$item->{'possible_s'}}; + if ($pbscope eq 'resource') { + if (exists($possible_by_symb{$symb})) { + $possible = $possible_by_symb{$symb}; + } else { + $possible = $item->{'possible'}; + } + } + } elsif ($pbscope eq 'resource') { $possible = $item->{'possible'}; - } elsif (($scope eq 'map') || ($scope eq 'nonrec')) { - ($total,$possible) = &get_lti_score($uname,$udom,$map,$scope); - } elsif ($scope eq 'course') { + } + if (($pbscope eq 'map') || ($pbscope eq 'nonrec')) { + if ((keys(%total_by_symb)) && (keys(%possible_by_symb))) { + ($total,$possible) = + &get_lti_score($uname,$udom,$map,$pbscope,\%total_by_symb,\%possible_by_symb); + } else { + ($total,$possible) = &get_lti_score($uname,$udom,$map,$pbscope); + } + } elsif ($pbscope eq 'course') { ($total,$possible) = &get_lti_score($uname,$udom); } + $item->{'total'} = $total; + $item->{'possible'} = $possible; if (($id ne '') && ($url ne '') && ($possible)) { - &LONCAPA::ltiutils::send_grade($cdom,$cnum,$crsdef,$type,$ltinum,$keynum,$id,$url,$scoretype,$sigmethod,$msgformat,$total,$possible); + my ($sent,$score,$code,$result) = + &LONCAPA::ltiutils::send_grade($cdom,$cnum,$crsdef,$type,$ltinum,$keynum,$id, + $url,$scoretype,$sigmethod,$msgformat,$total,$possible); + $item->{'score'} = $score; + my ($linkprotector,$linkuri,$no_passback,$appname); + if ($item->{'linkprot'}) { + ($linkprotector,$linkuri) = split(/:/,$item->{'linkprot'}); + } + if ($sent) { + if ($code == 200) { + if ($item->{'linkprot'}) { + my $skey = join("\0",($linkuri,$linkprotector,$scope)); + my $namespace = $cdom.'_'.$cnum.'_lp_passback'; + my $store = { + 'score' => $score, + 'ip' => $ip, + 'host' => $Apache::lonnet::perlvar{'lonHostID'}, + 'protector' => $linkprotector, + 'deeplink' => $linkuri, + 'scope' => $scope, + 'url' => $url, + 'id' => $id, + 'clientip' => $clientip, + 'whodoneit' => $env{'user.name'}.':'.$env{'user.domain'}, + }; + my $value=''; + foreach my $key (keys(%{$store})) { + $value.=&escape($key).'='.&Apache::lonnet::freeze_escape($store->{$key}).'&'; + } + $value=~s/\&$//; + &Apache::lonnet::courselog(&escape($linkuri).':'.$uname.':'.$udom.':EXPORT:'.$value); + &Apache::lonnet::cstore({'score' => $score},$skey,$namespace,$udom,$uname,'',$ip,1); + } + } else { + if ($item->{'linkprot'}) { + $no_passback = "Passback response was $code ($result)."; + } + } + } else { + if ($item->{'linkprot'}) { + $no_passback = 'No passback of scores.'; + } + } + if ($no_passback) { + if ($item->{'linkprot'}) { + my ($ltinum,$ltitype) = ($linkprotector =~ /^(\d+)(c|d)$/); + if ($ltitype eq 'c') { + my %lti = &Apache::lonnet::get_course_lti($cnum,$cdom,'provider'); + if (ref($lti{$ltinum}) eq 'HASH') { + $appname = $lti{$ltinum}{'name'}; + } + } elsif ($ltitype eq 'd') { + my %lti = &Apache::lonnet::get_domain_lti($cdom,'linkprot'); + if (ref($lti{$ltinum}) eq 'HASH') { + $appname = $lti{$ltinum}{'name'}; + } + } + $no_passback .= " LTI launcher $linkprotector ($appname) for $linkuri (${cdom}_${cnum})"; + &Apache::lonnet::logthis($no_passback." for $uname:$udom"); + &Apache::lonnet::log($udom,$uname,$uhome,"$no_passback score=$score total=$total poss=$possible"); + &Apache::lonnet::put('linkprot_passback_pending',$item,$cdom,$cnum); + } + } } } } @@ -2016,7 +2111,7 @@ sub do_ltipassback { } sub get_lti_score { - my ($uname,$udom,$mapurl,$scope) = @_; + my ($uname,$udom,$mapurl,$pbscope,$totals,$possibles) = @_; my $navmap = Apache::lonnavmaps::navmap->new($uname,$udom); if (ref($navmap)) { my $iterator; @@ -2025,7 +2120,7 @@ sub get_lti_score { my $firstres = $map->map_start(); my $finishres = $map->map_finish(); my $recursive = 1; - if ($scope eq 'nonrec') { + if ($pbscope eq 'nonrec') { $recursive = 0; } $iterator = $navmap->getIterator($firstres,$finishres,undef,$recursive); @@ -2036,17 +2131,31 @@ sub get_lti_score { my $depth = 1; my $total = 0; my $possible = 0; + my (%totals_by_symb,%possibles_by_symb); + if (ref($totals) eq 'HASH') { + %totals_by_symb = %{$totals}; + } + if (ref($possibles) eq 'HASH') { + %possibles_by_symb = %{$possibles}; + } $iterator->next(); # ignore first BEGIN_MAP my $curRes = $iterator->next(); while ( $depth > 0 ) { if ($curRes == $iterator->BEGIN_MAP()) {$depth++;} if ($curRes == $iterator->END_MAP()) { $depth--; } if (ref($curRes) && $curRes->is_gradable() && !$curRes->randomout) { - my $parts = $curRes->parts(); - foreach my $part (@{$parts}) { - next if ($curRes->solved($part) eq 'excused'); - $total += $curRes->weight($part) * $curRes->awarded($part); - $possible += $curRes->weight($part); + my $currsymb = $curRes->symb(); + if (($currsymb) && (exists($totals_by_symb{$currsymb})) && + (exists($possibles_by_symb{$currsymb}))) { + $total += $totals_by_symb{$currsymb}; + $possible += $possibles_by_symb{$currsymb}; + } else { + my $parts = $curRes->parts(); + foreach my $part (@{$parts}) { + next if ($curRes->solved($part) eq 'excused'); + $total += $curRes->weight($part) * $curRes->awarded($part); + $possible += $curRes->weight($part); + } } } $curRes = $iterator->next();