loncom/homework/randomlabel.pm - diff

Return to randomlabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.19, 2002/03/08 20:43:06	version 1.21, 2002/03/22 22:04:39
Line 69 sub start_randomlabel {	Line 69 sub start_randomlabel {
my $result='';	my $result='';
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=	$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=
'/res/adm/includes/GLabel.class';	'/res/adm/includes/GLabel.class';
	push (@Apache::lonxml::namespace,'randomlabel');
my $bgimg= &Apache::lonxml::get_param('bgimg',$parstack,$safeeval);	my $bgimg= &Apache::lonxml::get_param('bgimg',$parstack,$safeeval);

if ( $bgimg !~ /^http:/ ) {	if ( $bgimg !~ /^http:/ ) {
Line 124 sub end_randomlabel {	Line 124 sub end_randomlabel {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result='';	my $result='';
my $count;	my $count;
	pop @Apache::lonxml::namespace;

if ($target eq 'web') {	if ($target eq 'web') {
$count = $Apache::randomlabel::tlabel_cnt;	$count = $Apache::randomlabel::tlabel_cnt;
if( $count != 0) { $result.= "<param name=\"count\" value=\"$count\">"; }	if( $count != 0) { $result.= "<param name=\"count\" value=\"$count\">"; }