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.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");