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

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.1362 and 1.1364

version 1.1362, 2017/12/18 23:14:03 version 1.1364, 2017/12/22 17:58:16
Line 11729  sub metadata { Line 11729  sub metadata {
 # uploaded map containing the tool. The value is retrieved via  # uploaded map containing the tool. The value is retrieved via
 # &EXT(), if a valid symb is available.  Otherwise the value of  # &EXT(), if a valid symb is available.  Otherwise the value of
 # gradable in the exttool_$marker.db file for the tool instance  # gradable in the exttool_$marker.db file for the tool instance
 # is retrived via &get().  # is retrieved via &get().
   #
   # When lonuserstate::traceroute() calls lonnet::EXT() for 
   # hiddenresource and encrypturl (during course initialization)
   # the map-level parameter for resource.0.gradable included in the 
   # uploaded map containing the tool will not yet have been stored
   # in the user_course_parms.db file for the user's session, so in 
   # this case fall back to retrieving gradable status from the
   # exttool_$marker.db file.
 #  #
 # In order to avoid an infinite loop, &metadata() will return  # In order to avoid an infinite loop, &metadata() will return
 # before a call to &EXT(), if the uri is for an external tool  # before a call to &EXT(), if the uri is for an external tool
Line 11744  sub metadata { Line 11752  sub metadata {
             my ($checked,$use_passback);              my ($checked,$use_passback);
             if ($toolsymb ne '') {              if ($toolsymb ne '') {
                 (undef,undef,my $tooluri) = &decode_symb($toolsymb);                  (undef,undef,my $tooluri) = &decode_symb($toolsymb);
                 if ($tooluri eq $uri) {                  if (($tooluri eq $uri) && (&EXT('resource.0.gradable',$toolsymb))) {
                     $checked = 1;                      $checked = 1;
                     if (&EXT('resource.0.gradable',$toolsymb) =~ /^yes$/i) {                      if (&EXT('resource.0.gradable',$toolsymb) =~ /^yes$/i) {
                         $use_passback = 1;                          $use_passback = 1;
Line 11754  sub metadata { Line 11762  sub metadata {
             unless ($checked) {              unless ($checked) {
                 my ($ignore,$cdom,$cnum,$marker) = split(m{/},$uri);                  my ($ignore,$cdom,$cnum,$marker) = split(m{/},$uri);
                 $marker=~s/\D//g;                  $marker=~s/\D//g;
                 if (!$marker) {                  if ($marker) {
                     my %toolsettings=&get('exttool_'.$marker,['gradable'],$cdom,$cnum);                      my %toolsettings=&get('exttool_'.$marker,['gradable'],$cdom,$cnum);
                     $use_passback = $toolsettings{'gradable'};                      $use_passback = $toolsettings{'gradable'};
                 }                  }
Removed from v.1.1362  
changed lines
  Added in v.1.1364

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