version 1.344.2.10.4.4, 2023/12/29 23:45:18
|
version 1.344.2.10.4.6, 2024/02/21 19:57:06
|
Line 1857 sub do_ltipassback {
|
Line 1857 sub do_ltipassback {
|
my $url = $item->{'pburl'}; |
my $url = $item->{'pburl'}; |
my $type = $item->{'pbtype'}; |
my $type = $item->{'pbtype'}; |
my $scope = $item->{'scope'}; |
my $scope = $item->{'scope'}; |
my $map = $item->{'ltimap'}; |
my $map = $item->{'pbmap'}; |
my $symb = $item->{'ltisymb'}; |
my $symb = $item->{'pbsymb'}; |
my $uname = $item->{'uname'}; |
my $uname = $item->{'uname'}; |
my $udom = $item->{'udom'}; |
my $udom = $item->{'udom'}; |
my $keynum = $item->{'lti'}->{'cipher'}; |
my $keynum = $item->{'lti'}->{'cipher'}; |
Line 1868 sub do_ltipassback {
|
Line 1868 sub do_ltipassback {
|
if ($scope eq 'resource') { |
if ($scope eq 'resource') { |
$total = $item->{'total'}; |
$total = $item->{'total'}; |
$possible = $item->{'possible'}; |
$possible = $item->{'possible'}; |
} elsif ($scope eq 'map') { |
} elsif (($scope eq 'map') || ($scope eq 'nonrec')) { |
($total,$possible) = &get_lti_score($uname,$udom,$map); |
($total,$possible) = &get_lti_score($uname,$udom,$map,$scope); |
} elsif ($scope eq 'course') { |
} elsif ($scope eq 'course') { |
($total,$possible) = &get_lti_score($uname,$udom); |
($total,$possible) = &get_lti_score($uname,$udom); |
} |
} |
Line 1884 sub do_ltipassback {
|
Line 1884 sub do_ltipassback {
|
} |
} |
|
|
sub get_lti_score { |
sub get_lti_score { |
my ($uname,$udom,$mapurl) = @_; |
my ($uname,$udom,$mapurl,$scope) = @_; |
my $navmap = Apache::lonnavmaps::navmap->new($uname,$udom); |
my $navmap = Apache::lonnavmaps::navmap->new($uname,$udom); |
if (ref($navmap)) { |
if (ref($navmap)) { |
my $iterator; |
my $iterator; |
Line 1892 sub get_lti_score {
|
Line 1892 sub get_lti_score {
|
my $map = $navmap->getResourceByUrl($mapurl); |
my $map = $navmap->getResourceByUrl($mapurl); |
my $firstres = $map->map_start(); |
my $firstres = $map->map_start(); |
my $finishres = $map->map_finish(); |
my $finishres = $map->map_finish(); |
$iterator = $navmap->getIterator($firstres,$finishres,undef,1); |
my $recursive = 1; |
|
if ($scope eq 'nonrec') { |
|
$recursive = 0; |
|
} |
|
$iterator = $navmap->getIterator($firstres,$finishres,undef,$recursive); |
} else { |
} else { |
$iterator = $navmap->getIterator(undef,undef,undef,1); |
$iterator = $navmap->getIterator(undef,undef,undef,1); |
} |
} |