--- loncom/homework/edit.pm 2002/03/08 18:30:33 1.30 +++ loncom/homework/edit.pm 2002/03/22 14:45:11 1.31 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # edit mode helpers # -# $Id: edit.pm,v 1.30 2002/03/08 18:30:33 matthew Exp $ +# $Id: edit.pm,v 1.31 2002/03/22 14:45:11 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -301,6 +301,17 @@ sub textarea_sizes { return ($rows,$cols); } +sub textfield { + my ($tag,$data,$description,$size)=@_; + if ($description) { $description="
".$description."
"; } + my $result = <<"END"; +$description + +END + return $result; +} + sub editfield { my ($tag,$data,$description,$minwidth,$minheight)=@_; @@ -552,6 +563,11 @@ search($elementname) : provide a link wh searcher (lonsearchcat) and, once a file is selected, place the result in the form element $elementname. += item * +textfield(tag,data,description,size): Provide a for +single-line text entry. This is to be used for text enclosed by tags, not +arguements/parameters associated with a tag. + =back incomplete...