loncom/homework/outputtags.pm - diff

Return to outputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.57, 2010/02/24 12:14:45	version 1.58.4.1, 2018/09/11 14:39:47
Line 78 sub substitute_simple_tags_latex {	Line 78 sub substitute_simple_tags_latex {

# restore the <>'s:	# restore the <>'s:

$string =~ s/\\ensuremath{<}/</g;	$string =~ s/\\ensuremath\{<}/</g;
$string =~ s/\\ensuremath{>}/>/g;	$string =~ s/\\ensuremath\{>}/>/g;


# Substitute the tags:	# Substitute the tags:
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);