loncom/homework/outputtags.pm - diff

Return to outputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.59, 2017/05/23 03:07:34	version 1.61, 2017/11/12 23:11:09
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");
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);