loncom/homework/outputtags.pm - diff

Return to outputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.58, 2016/08/09 23:43:42	version 1.58.4.1, 2018/09/11 14:39:47
Line 321 sub start_displaystudentphoto {	Line 321 sub start_displaystudentphoto {
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);