[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.1363 and 1.1364

version 1.1363, 2017/12/22 17:19:43 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;
Removed from v.1.1363  
changed lines
  Added in v.1.1364

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