loncom/homework/randomlabel.pm - diff

Return to randomlabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.89, 2007/06/20 17:33:33	version 1.90, 2007/10/17 22:11:55
Line 61 use Apache::File();	Line 61 use Apache::File();
use Apache::Constants qw(:common :http);	use Apache::Constants qw(:common :http);
use Image::Magick;	use Image::Magick;
use Apache::lonplot;	use Apache::lonplot;
use lib '/home/httpd/lib/perl/';
use LONCAPA;	use LONCAPA;


Line 553 sub end_location {	Line 552 sub end_location {
}	}

# <label>$var_abc</label>	# <label>$var_abc</label>
	sub insert_label {
	my ($after) = @_;
	my $depth = scalar(@Apache::lonxml::depthcounter);
	$depth-- if ($after);
	my $inset = "\t"x$depth;
	return "\n$inset<label></label>";
	}

sub start_label {	sub start_label {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result='';	my $result='';