loncom/homework/outputtags.pm - diff

Return to outputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.35, 2004/10/26 15:03:08	version 1.36, 2004/11/12 21:15:05
Line 194 sub start_displaystudentphoto {	Line 194 sub start_displaystudentphoto {
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('heigth',$parstack,$safeeval);
if ($height) { $args.=" height=\"$height\" "; }	if ($height) { $args.=" height=\"$height\" "; }
	my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval);
	if ($align) { $args.=" align=\"$align\" "; }
$result.=" <img $args src=\"$tokenurl\" alt=\"$user\@$domain\" />";	$result.=" <img $args src=\"$tokenurl\" alt=\"$user\@$domain\" />";
}	}
if ($target eq 'tex' && $ENV{'request.role'} =~ /^cc/) {	if ($target eq 'tex' && $ENV{'request.role'} =~ /^cc/) {
Line 211 sub start_displaystudentphoto {	Line 213 sub start_displaystudentphoto {
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);
$result.=' \graphicspath{{'.$Apache::lonnet::perlvar{'lonPrtDir'}.	$result.=' \graphicspath{{'.$Apache::lonnet::perlvar{'lonPrtDir'}.
'}}\includegraphics[width='.$width_param.' mm]{'.$file.'} ';	'}}\includegraphics[width='.$width_param.' mm]{'.$file.'} ';
	} else {
	$result="$user\@$domain";
}	}
}	}
return $result;	return $result;