loncom/homework/randomlabel.pm - diff

Return to randomlabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.93, 2008/11/25 13:16:17	version 1.96, 2011/11/14 02:17:47
Line 172 sub start_randomlabel {	Line 172 sub start_randomlabel {
$label_xscale = 1.0; # Assume image size not overridden.	$label_xscale = 1.0; # Assume image size not overridden.
$label_yscale = 1.0;	$label_yscale = 1.0;
my $bgimg= &Apache::lonxml::get_param('bgimg',$parstack,$safeeval);	my $bgimg= &Apache::lonxml::get_param('bgimg',$parstack,$safeeval);
if ( defined($bgimg) && $bgimg !~ /^http:/ ) {	if ( defined($bgimg) && $bgimg !~ /^https?\:/ ) {
$bgimg=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$bgimg);	$bgimg=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$bgimg);
if (&Apache::lonnet::repcopy($bgimg) ne 'ok') {	if (&Apache::lonnet::repcopy($bgimg) ne 'ok') {
$bgimg='/home/httpd/html/adm/lonKaputt/lonlogo_broken.gif';	$bgimg=$Apache::lonnet::perlvar{'lonDocRoot'}.'/adm/lonKaputt/lonlogo_broken.gif';
}	}
}	}
$Apache::randomlabel::obj_cnt=0;	$Apache::randomlabel::obj_cnt=0;
Line 223 sub end_randomlabel {	Line 223 sub end_randomlabel {
&Apache::lonnet::appenv(\%args);	&Apache::lonnet::appenv(\%args);
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$result='\end{picture}\\\\';	$result='\end{picture}\\\\';
$result.= ' \vskip -'.$height_param.' mm } \\\\ ';	$result.= ' \vskip -'.$height_param.' mm } \\newline ';
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result.=&Apache::edit::end_table;	$result.=&Apache::edit::end_table;
}	}