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

Diff for /loncom/interface/lonexttool.pm between versions 1.17 and 1.19

version 1.17, 2018/01/04 12:37:49 version 1.19, 2018/05/23 16:36:14
Line 110  sub handler { Line 110  sub handler {
                                            width  => $toolsettings{'width'},                                             width  => $toolsettings{'width'},
                                            height => $toolsettings{'height'},                                             height => $toolsettings{'height'},
                                        };                                         };
                 foreach my $item (qw(crslabel crstitle crsappend gradable incdom)) {                  foreach my $item (qw(crslabel crstitle crsappend gradable)) {
                     $toolhash{$item} = $toolsettings{$item};                      $toolhash{$item} = $toolsettings{$item};
                 }                  }
                 $is_tool = 1;                  $is_tool = 1;
Line 483  sub gradabletool_access_check { Line 483  sub gradabletool_access_check {
         @targets = ('web');          @targets = ('web');
     }      }
     foreach my $target (@targets) {      foreach my $target (@targets) {
         undef(%Apache::lonhomework::results);          &Apache::structuretags::initialize_storage($symb);
         undef(%Apache::lonhomework::history);  
         %Apache::lonhomework::history =  
             &Apache::lonnet::restore($symb,$courseid,$udom,$uname);  
         &Apache::lonhomework::set_show_problem_status(&Apache::lonnet::EXT('resource.0.problemstatus'));          &Apache::lonhomework::set_show_problem_status(&Apache::lonnet::EXT('resource.0.problemstatus'));
         my ($accessmsg,$slot_name,$slot,$ipused);          my ($accessmsg,$slot_name,$slot,$ipused);
         ($status,$accessmsg,$slot_name,$slot,$ipused) =          ($status,$accessmsg,$slot_name,$slot,$ipused) =
Line 517  sub gradabletool_access_check { Line 514  sub gradabletool_access_check {
                 }                  }
             }              }
         }          }
           if (keys(%Apache::lonhomework::results)) {
               &Apache::structuretags::finalize_storage();
           }
     }      }
     return ($status,$result,$resource_due);      return ($status,$result,$resource_due);
 }  }
Removed from v.1.17  
changed lines
  Added in v.1.19

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