loncom/homework/edit.pm - diff

Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.56, 2003/06/16 15:09:23	version 1.57, 2003/06/30 20:41:35
Line 518 sub text_arg {	Line 518 sub text_arg {
my $arg=$token->[2]{$name};	my $arg=$token->[2]{$name};
$result=$description.' <input name="'.&html_element_name($name).	$result=$description.' <input name="'.&html_element_name($name).
'" type="text" value="'.$arg.'" size="'.$size.'" />';	'" type="text" value="'.$arg.'" size="'.$size.'" />';
return $result;	return '<nobr>'.$result.'</nobr>';
}	}

sub select_arg {	sub select_arg {
Line 540 sub select_arg {	Line 540 sub select_arg {
$optionlist.="<option $value >$option</option>\n";	$optionlist.="<option $value >$option</option>\n";
}	}
}	}
$result.=$description.' <select name="'.&html_element_name($name).	$result.='<nobr>'.$description.' <select name="'.
'">	&html_element_name($name).'">
'.$optionlist.'	'.$optionlist.'
</select>';	</select></nobr>';
return $result;	return $result;
}	}

Line 577 sub select_or_text_arg {	Line 577 sub select_or_text_arg {
} else {	} else {
$result.=&text_arg($description,$name,$token,$size);	$result.=&text_arg($description,$name,$token,$size);
}	}
return $result;	return '<nobr>'.$result.'</nobr>';
}	}

#----------------------------------------------------- image coordinates	#----------------------------------------------------- image coordinates