Diff for /loncom/homework/outputtags.pm between versions 1.58.2.1 and 1.59

version 1.58.2.1, 2017/11/16 23:58:59 version 1.59, 2017/05/23 03:07:34
Line 33  package Apache::outputtags; Line 33  package Apache::outputtags;
 use strict;  use strict;
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::lonnet;  use Apache::lonnet;
   use LONCAPA::LWPReq;
 use POSIX qw(strftime);  use POSIX qw(strftime);
   
 BEGIN {  BEGIN {
Line 316  sub start_displaystudentphoto { Line 317  sub start_displaystudentphoto {
     }      }
     if ($target eq 'tex' && $env{'request.role'} =~ /^cc/) {      if ($target eq 'tex' && $env{'request.role'} =~ /^cc/) {
  my $url=&Apache::lonnet::studentphoto($domain,$user,"eps");   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 $request=new HTTP::Request('GET',$url);
           my $response=&LONCAPA::LWPReq::makerequest($uhome,$request,'','','',1);
  my $response=$ua->request($request);   my $response=$ua->request($request);
  if ($response->is_success) {   if ($response->is_success) {
     my $file=$user."_".$domain."_studentphoto.eps";      my $file=$user."_".$domain."_studentphoto.eps";
     open(FILE,">",$Apache::lonnet::perlvar{'lonPrtDir'}."/$file");      open(FILE,">".$Apache::lonnet::perlvar{'lonPrtDir'}."/$file");
     print FILE $response->content;      print FILE $response->content;
     close(FILE);      close(FILE);
     my $width_param=&Apache::londefdef::image_size($Apache::lonnet::perlvar{'lonPrtDir'}."/$file",'0.3',$parstack,$safeeval);      my $width_param=&Apache::londefdef::image_size($Apache::lonnet::perlvar{'lonPrtDir'}."/$file",'0.3',$parstack,$safeeval);

Removed from v.1.58.2.1  
changed lines
  Added in v.1.59


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