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

Diff for /loncom/homework/lonhomework.pm between versions 1.344.2.10.4.3 and 1.344.2.10.4.5

version 1.344.2.10.4.3, 2023/09/07 16:35:29 version 1.344.2.10.4.5, 2024/01/13 12:31:32
Line 865  STATE Line 865  STATE
   
 sub analyze_header {  sub analyze_header {
     my ($request) = @_;      my ($request) = @_;
     my $js = &Apache::structuretags::setmode_javascript();      my $js = &Apache::lonxml::setmode_javascript();
   
     # Breadcrumbs      # Breadcrumbs
     my $brcrum = [{'href' => &Apache::loncommon::authorspace($request->uri),      my $brcrum = [{'href' => &Apache::loncommon::authorspace($request->uri),
Line 1097  sub editxmlmode { Line 1097  sub editxmlmode {
  my $js =   my $js =
     &Apache::edit::js_change_detection().       &Apache::edit::js_change_detection(). 
     &Apache::loncommon::resize_textarea_js().      &Apache::loncommon::resize_textarea_js().
             &Apache::structuretags::setmode_javascript().              &Apache::lonxml::setmode_javascript().
             &Apache::lonhtmlcommon::dragmath_js("EditMathPopup");              &Apache::lonhtmlcommon::dragmath_js("EditMathPopup");
   
     # Breadcrumbs      # Breadcrumbs
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);
         }          }
Removed from v.1.344.2.10.4.3  
changed lines
  Added in v.1.344.2.10.4.5

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