--- loncom/imspackages/imsprocessor.pm 2014/12/11 01:12:14 1.54 +++ loncom/imspackages/imsprocessor.pm 2017/05/23 03:07:40 1.55 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Processor for IMS Packages # -# $Id: imsprocessor.pm,v 1.54 2014/12/11 01:12:14 raeburn Exp $ +# $Id: imsprocessor.pm,v 1.55 2017/05/23 03:07:40 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -31,9 +31,9 @@ package Apache::imsprocessor; use Apache::lonnet; use Apache::loncleanup; use Apache::lonlocal; -use LWP::UserAgent; use HTTP::Request::Common; use LONCAPA::Configuration; +use LONCAPA::LWPReq; use strict; sub ims_config { @@ -4957,9 +4957,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") {