loncom/homework/randomlabel.pm - diff

Return to randomlabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.20, 2002/03/22 22:00:55	version 1.22, 2002/03/22 22:06:06
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\">"; }
Line 318 sub start_label {	Line 317 sub start_label {
$result.=&Apache::edit::tag_start($target,$token);	$result.=&Apache::edit::tag_start($target,$token);
my $text=&Apache::lonxml::get_all_text("/label",$$parser[-1]);	my $text=&Apache::lonxml::get_all_text("/label",$$parser[-1]);
$result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row().	$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();	&Apache::edit::end_table();
} elsif ($target eq 'modified') {	} elsif ($target eq 'modified') {
my $text=$$parser[-1]->get_text("/label");	my $text=$$parser[-1]->get_text("/label");