--- loncom/homework/outputtags.pm 2017/05/23 14:59:07 1.60 +++ loncom/homework/outputtags.pm 2023/03/25 18:38:25 1.62 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # tags that create controlled output # -# $Id: outputtags.pm,v 1.60 2017/05/23 14:59:07 raeburn Exp $ +# $Id: outputtags.pm,v 1.62 2023/03/25 18:38:25 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -309,7 +309,7 @@ sub start_displaystudentphoto { my $args; my $width=&Apache::lonxml::get_param('width',$parstack,$safeeval); 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\" "; } my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval); if ($align) { $args.=" align=\"$align\" "; } @@ -322,7 +322,7 @@ sub start_displaystudentphoto { my $response=&LONCAPA::LWPReq::makerequest($uhome,$request,'','','',1); if ($response->is_success) { my $file=$user."_".$domain."_studentphoto.eps"; - open(FILE,">".$Apache::lonnet::perlvar{'lonPrtDir'}."/$file"); + open(FILE,">",$Apache::lonnet::perlvar{'lonPrtDir'}."/$file"); print FILE $response->content; close(FILE); my $width_param=&Apache::londefdef::image_size($Apache::lonnet::perlvar{'lonPrtDir'}."/$file",'0.3',$parstack,$safeeval);