--- loncom/homework/outputtags.pm	2017/11/16 23:58:59	1.58.2.1
+++ loncom/homework/outputtags.pm	2017/05/23 03:07:34	1.59
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # tags that create controlled output
 #
-# $Id: outputtags.pm,v 1.58.2.1 2017/11/16 23:58:59 raeburn Exp $
+# $Id: outputtags.pm,v 1.59 2017/05/23 03:07:34 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -33,6 +33,7 @@ package Apache::outputtags;
 use strict;
 use Apache::lonlocal;
 use Apache::lonnet;
+use LONCAPA::LWPReq;
 use POSIX qw(strftime);
 
 BEGIN {
@@ -316,12 +317,13 @@ sub start_displaystudentphoto {
     }
     if ($target eq 'tex' && $env{'request.role'} =~ /^cc/) {
 	my $url=&Apache::lonnet::studentphoto($domain,$user,"eps");
-	my $ua=new LWP::UserAgent;
+        my $uhome=&Apache::lonnet::homeserver($user,$domain);
 	my $request=new HTTP::Request('GET',$url);
+        my $response=&LONCAPA::LWPReq::makerequest($uhome,$request,'','','',1);
 	my $response=$ua->request($request);
 	if ($response->is_success) {
 	    my $file=$user."_".$domain."_studentphoto.eps";
-	    open(FILE,">",$Apache::lonnet::perlvar{'lonPrtDir'}."/$file");
+	    open(FILE,">".$Apache::lonnet::perlvar{'lonPrtDir'}."/$file");
 	    print FILE $response->content;
 	    close(FILE);
 	    my $width_param=&Apache::londefdef::image_size($Apache::lonnet::perlvar{'lonPrtDir'}."/$file",'0.3',$parstack,$safeeval);