--- loncom/homework/randomlabel.pm 2002/03/08 20:43:06 1.19 +++ loncom/homework/randomlabel.pm 2002/03/22 22:06:06 1.22 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # random labelling tool # -# $Id: randomlabel.pm,v 1.19 2002/03/08 20:43:06 albertel Exp $ +# $Id: randomlabel.pm,v 1.22 2002/03/22 22:06:06 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -69,7 +69,7 @@ sub start_randomlabel { my $result=''; $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]= '/res/adm/includes/GLabel.class'; - + push (@Apache::lonxml::namespace,'randomlabel'); my $bgimg= &Apache::lonxml::get_param('bgimg',$parstack,$safeeval); if ( $bgimg !~ /^http:/ ) { @@ -124,8 +124,7 @@ sub end_randomlabel { my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; my $result=''; my $count; - - + pop @Apache::lonxml::namespace; if ($target eq 'web') { $count = $Apache::randomlabel::tlabel_cnt; if( $count != 0) { $result.= ""; } @@ -318,7 +317,7 @@ sub start_label { $result.=&Apache::edit::tag_start($target,$token); my $text=&Apache::lonxml::get_all_text("/label",$$parser[-1]); $result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row(). - &Apache::edit::editfield('',$text,'',20,1). + &Apache::edit::editline('',$text,'',20). &Apache::edit::end_table(); } elsif ($target eq 'modified') { my $text=$$parser[-1]->get_text("/label");