--- loncom/imspackages/imsprocessor.pm 2018/05/02 20:01:51 1.54.2.2 +++ loncom/imspackages/imsprocessor.pm 2018/05/02 19:34:58 1.58 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Processor for IMS Packages # -# $Id: imsprocessor.pm,v 1.54.2.2 2018/05/02 20:01:51 raeburn Exp $ +# $Id: imsprocessor.pm,v 1.58 2018/05/02 19:34:58 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -32,9 +32,9 @@ use Apache::lonnet; use Apache::loncommon; use Apache::loncleanup; use Apache::lonlocal; -use LWP::UserAgent; use HTTP::Request::Common; use LONCAPA::Configuration; +use LONCAPA::LWPReq; use strict; sub ims_config { @@ -4963,9 +4963,9 @@ sub retrieve_image { my ($context,$res,$dirname,$cdom,$cname,$docroot,$destdir,$urlpath,$filename) = @_; my $contents; my $url = $urlpath.$filename; - my $ua=new LWP::UserAgent; + my $lonhost = $Apache::lonnet::perlvar{'lonHostID'}; my $request=new HTTP::Request('GET',$url); - my $response=$ua->request($request); + my $response=&LONCAPA::LWPReq::makerequest($lonhost,$request); if ($response->is_success) { $contents = $response->content; if (!-e "$docroot/$res") {