[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.20

version 1.17, 2018/01/04 12:37:49 version 1.20, 2018/08/14 18:20:17
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 259  sub lti_params { Line 259  sub lti_params {
         $msgtype = 'basic-lti-launch-request';          $msgtype = 'basic-lti-launch-request';
     }      }
     if ($crslabel eq '') {      if ($crslabel eq '') {
         $crslabel = $env{'course.'.$env{'request.course.id'}.'.internal.coursecode'},          $crslabel = $env{'course.'.$env{'request.course.id'}.'.internal.coursecode'};
     }      }
     if ($crstitle eq '') {      if ($crstitle eq '') {
         $crstitle = $env{'course.'.$env{'request.course.id'}.'.description'},;          $crstitle = $env{'course.'.$env{'request.course.id'}.'.description'};
     }      }
     my $lonhost = $r->dir_config('lonHostID');      my $lonhost = $r->dir_config('lonHostID');
     my $loncaparev = $r->dir_config('lonVersion');      my $loncaparev = $r->dir_config('lonVersion');
Line 322  sub lti_params { Line 322  sub lti_params {
         tool_consumer_instance_guid            => $lonhost,          tool_consumer_instance_guid            => $lonhost,
         tool_consumer_instance_description     => $domdesc,          tool_consumer_instance_description     => $domdesc,
         tool_consumer_info_product_family_code => 'loncapa',          tool_consumer_info_product_family_code => 'loncapa',
         tool_consumer_instance_name            => $int_dom,            tool_consumer_instance_name            => $int_dom,
         tool_consumer_instance_url             => $portal_url,          tool_consumer_instance_url             => $portal_url,
         tool_consumer_info_version             => $loncaparev,          tool_consumer_info_version             => $loncaparev,
         user_id                                => $digest_user,          user_id                                => $digest_user,
Line 351  sub lti_params { Line 351  sub lti_params {
                 $ltiparams{'ext_ims_lis_basic_outcome_url'} = $ltiparams{'lis_outcome_service_url'};                  $ltiparams{'ext_ims_lis_basic_outcome_url'} = $ltiparams{'lis_outcome_service_url'};
                 if ($gradesecret) {                  if ($gradesecret) {
                     my $uniqid = $digest_symb.':::'.$digest_user.':::'.$env{'request.course.id'};                      my $uniqid = $digest_symb.':::'.$digest_user.':::'.$env{'request.course.id'};
                     $ltiparams{'lis_result_sourcedid'} = &LONCAPA::ltiutils::get_service_id($gradesecret,$uniqid);                       $ltiparams{'lis_result_sourcedid'} = &LONCAPA::ltiutils::get_service_id($gradesecret,$uniqid);
                 }                  }
             }              }
             if ($roster) {              if ($roster) {
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.20

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