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

Diff for /loncom/homework/lonhomework.pm between versions 1.390 and 1.394

version 1.390, 2024/12/13 12:08:30 version 1.394, 2025/01/17 15:05:47
Line 1989  sub do_ltipassback { Line 1989  sub do_ltipassback {
         }          }
         undef(@Apache::lonhomework::ltipassback);          undef(@Apache::lonhomework::ltipassback);
     }      }
       return OK;
 }  }
   
 sub run_passback {  sub run_passback {
Line 2083  sub run_passback { Line 2084  sub run_passback {
                             }                              }
                             $value=~s/\&$//;                              $value=~s/\&$//;
                             &Apache::lonnet::courselog(&escape($linkuri).':'.$uname.':'.$udom.':EXPORT:'.$value);                              &Apache::lonnet::courselog(&escape($linkuri).':'.$uname.':'.$udom.':EXPORT:'.$value);
                             &Apache::lonnet::cstore({'score' => $score},$skey,$namespace,$udom,$uname,'',$ip,1);                              &Apache::lonnet::store_userdata({'score' => $score},$skey,$namespace,$udom,$uname,$ip);
                         }                          }
                     } else {                      } else {
                         if ($item->{'linkprot'}) {                          if ($item->{'linkprot'}) {
Line 2132  sub get_lti_score { Line 2133  sub get_lti_score {
         my $iterator;          my $iterator;
         if ($mapurl ne '') {          if ($mapurl ne '') {
             my $map = $navmap->getResourceByUrl($mapurl);              my $map = $navmap->getResourceByUrl($mapurl);
             my $firstres = $map->map_start();              if (ref($map)) {
             my $finishres = $map->map_finish();                  my $firstres = $map->map_start();
             my $recursive = 1;                  my $finishres = $map->map_finish();
             if ($pbscope eq 'nonrec') {                  my $recursive = 1;
                 $recursive = 0;                  if ($pbscope eq 'nonrec') {
                       $recursive = 0;
                   }
                   $iterator = $navmap->getIterator($firstres,$finishres,undef,$recursive);
             }              }
             $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.390  
changed lines
  Added in v.1.394

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