--- loncom/homework/structuretags.pm	2018/03/30 23:50:13	1.559
+++ loncom/homework/structuretags.pm	2018/05/15 04:59:14	1.560
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.559 2018/03/30 23:50:13 raeburn Exp $
+# $Id: structuretags.pm,v 1.560 2018/05/15 04:59:14 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1117,6 +1117,7 @@ sub finalize_storage {
 	delete(@Apache::lonhomework::results{@remove});
 	my ($symb,$courseid,$domain,$name) = 
 	    &Apache::lonnet::whichuser($given_symb);
+        my ($passback,$ltiscope,$ltimap,$ltisymb,$ltiref,$total,$possible);
 	if ($env{'request.state'} eq 'construct' 
 	    || $symb eq ''
 	    || $Apache::lonhomework::type eq 'practice') {
@@ -1126,17 +1127,23 @@ sub finalize_storage {
 					      $namespace,'',$domain,$name);
 	    &Apache::lonxml::debug('Construct Store return message:'.$result);
 	} else {
-            my ($laststore,$checkedparts,@parts,%postcorrect);
+            my ($laststore,$checkedparts,@parts,%postcorrect,%record);
             if (($env{'user.name'} eq $name) && ($env{'user.domain'} eq $domain) &&
                 (!$Apache::lonhomework::scantronmode) && (!defined($env{'form.grade_symb'})) &&
                 (!defined($env{'form.grade_courseid'}))) {
+                if ($env{'request.lti.login'}) {
+                    my ($map)=&Apache::lonnet::decode_symb($symb);
+                    $map = &Apache::lonnet::clutter($map);
+                    ($passback,$ltiscope,$ltimap,$ltisymb,$ltiref) = 
+                        &needs_lti_passback($courseid,$symb,$map);
+                }
                 if ($Apache::lonhomework::history{'version'}) {
                     $laststore = $Apache::lonhomework::history{'version'}.'='.
                                  $Apache::lonhomework::history{'timestamp'};
                 } else {
                     $laststore = '0=0';
                 }
-                my %record = &Apache::lonnet::restore($symb,$courseid,$domain,$name);
+                %record = &Apache::lonnet::restore($symb,$courseid,$domain,$name);
                 if ($record{'version'}) {
                     my ($newversion,$oldversion,$oldtimestamp);
                     if ($Apache::lonhomework::history{'version'}) {
@@ -1212,8 +1219,70 @@ sub finalize_storage {
                     }
                 }
             }
+            if (($passback) && ($ltiscope eq 'resource') && ($ltisymb eq $symb)) {
+                $total = 0;
+                $possible = 0;
+                my $navmap = Apache::lonnavmaps::navmap->new();
+                if (ref($navmap)) {
+                    my $res = $navmap->getBySymb($symb);
+                    if (ref($res)) {
+                        my $partlist = $res->parts();
+                        if (ref($partlist) eq 'ARRAY') {
+                            foreach my $part (@{$partlist}) {
+                                unless (exists($Apache::lonhomework::results{"resource.$part.solved"})) {
+                                    next if ($Apache::lonhomework::record{"resource.$part.solved"} =~/^excused/);
+                                    my $weight = &Apache::lonnet::EXT("resource.$part.weight",$symb);
+                                    $possible += $weight;
+                                    if (($record{'version'}) && (exists($record{"resource.$part.awarded"}))) {
+                                        my $awarded = $record{"resource.$part.awarded"};
+                                        if ($awarded) {
+                                            $total += $weight * $awarded;
+                                        }
+                                    }
+                                }
+                            }
+                        }
+                    }
+                }
+                foreach my $key (keys(%Apache::lonhomework::results)) {
+                    if ($key =~ /^resource\.([^\.]+)\.awarded$/) {
+                        my $part = $1;
+                        my $weight = &Apache::lonnet::EXT("resource.$part.weight",$symb);
+                        $possible += $weight;
+                        my $awarded = $Apache::lonhomework::results{$key};
+                        if ($awarded) {
+                            $total += $weight * $awarded;
+                        }
+                    }
+                }
+            }
 	    &Apache::lonxml::debug('Store return message:'.$result);
             &store_aggregates($symb,$courseid);
+            if ($passback) {
+                my $scoreformat = 'decimal';
+                if (ref($ltiref) eq 'HASH') {
+                    if ($ltiref->{'scoreformat'} =~ /^(decimal|ratio|percentage)$/) {
+                        $scoreformat = $1;
+                    }
+                }
+                my $ltigrade = {
+                                 'lti'      => $ltiref,
+                                 'cid'      => $courseid,
+                                 'uname'    => $env{'user.name'},
+                                 'udom'     => $env{'user.domain'},
+                                 'pbid'     => $env{'request.lti.passbackid'},
+                                 'pburl'    => $env{'request.lti.passbackurl'},
+                                 'scope'    => $ltiscope,
+                                 'ltimap'   => $ltimap,
+                                 'ltisymb'  => $ltisymb,
+                                 'format'   => $scoreformat,
+                               };
+                if ($ltiscope eq 'resource') {
+                    $ltigrade->{'total'} = $total;
+                    $ltigrade->{'possible'} = $possible;
+                }
+                push(@Apache::lonhomework::ltipassback,$ltigrade);
+            }
 	}
     } else {
 	&Apache::lonxml::debug('Nothing to store');
@@ -1221,6 +1290,40 @@ sub finalize_storage {
     return $result;
 }
 
+sub needs_lti_passback {
+    my ($courseid,$symb,$map) = @_;
+    if (($env{'request.lti.passbackid'}) && ($env{'request.lti.passbackurl'})) {
+        if ($courseid =~ /^($LONCAPA::match_domain)_($LONCAPA::match_courseid)$/) {
+            my ($cdom,$cnum) = ($1,$2);
+            my %lti = &Apache::lonnet::get_domain_lti($cdom,'provider');
+            if (ref($lti{$env{'request.lti.login'}}) eq 'HASH') {
+                if ($lti{$env{'request.lti.login'}}{'passback'}) {
+                    my ($ltiscope,$ltiuri,$ltisymb) =
+                        &LONCAPA::ltiutils::lti_provider_scope($env{'request.lti.uri'},
+                                                               $cdom,$cnum,1);
+                    my ($passback,$ltimap);
+                    if ($ltiscope eq 'resource') {
+                        if ($ltisymb eq $symb) {
+                            $passback = 1;
+                        }
+                    } elsif ($ltiscope eq 'map') {
+                        if ($ltiuri eq $map) {
+                            $passback = 1;
+                            $ltimap = $map;
+                        }
+                    } elsif ($ltiscope eq 'course') {
+                        if (($env{'request.lti.uri'} eq "/$cdom/$cnum") || ($env{'request.lti.uri'} eq '')) {
+                            $passback = 1;
+                        }
+                    }
+                    return ($passback,$ltiscope,$ltimap,$ltisymb,$lti{$env{'request.lti.login'}});
+                }
+            }
+        }
+    }
+    return;
+}
+
 =pod
 
 =item check_correctness_changes()