loncom/homework/outputtags.pm - diff

Return to outputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.60, 2017/05/23 14:59:07	version 1.61, 2017/11/12 23:11:09
Line 322 sub start_displaystudentphoto {	Line 322 sub start_displaystudentphoto {
my $response=&LONCAPA::LWPReq::makerequest($uhome,$request,'','','',1);	my $response=&LONCAPA::LWPReq::makerequest($uhome,$request,'','','',1);
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);