version 1.59, 2017/05/23 03:07:34
|
version 1.60, 2017/05/23 14:59:07
|
Line 320 sub start_displaystudentphoto {
|
Line 320 sub start_displaystudentphoto {
|
my $uhome=&Apache::lonnet::homeserver($user,$domain); |
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=&LONCAPA::LWPReq::makerequest($uhome,$request,'','','',1); |
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"); |