|
version 1.60, 2017/05/23 14:59:07
|
version 1.62, 2023/03/25 18:38:25
|
|
Line 309 sub start_displaystudentphoto {
|
Line 309 sub start_displaystudentphoto {
|
| my $args; |
my $args; |
| my $width=&Apache::lonxml::get_param('width',$parstack,$safeeval); |
my $width=&Apache::lonxml::get_param('width',$parstack,$safeeval); |
| if ($width) { $args.=" width=\"$width\" "; } |
if ($width) { $args.=" width=\"$width\" "; } |
| my $height=&Apache::lonxml::get_param('heigth',$parstack,$safeeval); |
my $height=&Apache::lonxml::get_param('height',$parstack,$safeeval); |
| if ($height) { $args.=" height=\"$height\" "; } |
if ($height) { $args.=" height=\"$height\" "; } |
| my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval); |
my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval); |
| if ($align) { $args.=" align=\"$align\" "; } |
if ($align) { $args.=" align=\"$align\" "; } |
|
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); |
![[BACK]](/icons/back.gif){kind=icon}
Return to outputtags.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework