--- loncom/homework/outputtags.pm 2017/05/23 03:07:34 1.59 +++ loncom/homework/outputtags.pm 2017/11/12 23:11:09 1.61 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # tags that create controlled output # -# $Id: outputtags.pm,v 1.59 2017/05/23 03:07:34 raeburn Exp $ +# $Id: outputtags.pm,v 1.61 2017/11/12 23:11:09 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -320,10 +320,9 @@ sub start_displaystudentphoto { 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);