version 1.29, 2002/03/06 20:15:35
|
version 1.31, 2002/03/22 14:45:11
|
Line 301 sub textarea_sizes {
|
Line 301 sub textarea_sizes {
|
return ($rows,$cols); |
return ($rows,$cols); |
} |
} |
|
|
|
sub textfield { |
|
my ($tag,$data,$description,$size)=@_; |
|
if ($description) { $description="<br />".$description."<br />"; } |
|
my $result = <<"END"; |
|
$description |
|
<input type="text" name="homework_edit_$Apache::lonxml::curdepth" |
|
value="$data" size="$size" /> |
|
END |
|
return $result; |
|
} |
|
|
sub editfield { |
sub editfield { |
my ($tag,$data,$description,$minwidth,$minheight)=@_; |
my ($tag,$data,$description,$minwidth,$minheight)=@_; |
|
|
Line 421 sub select_or_text_arg {
|
Line 432 sub select_or_text_arg {
|
#----------------------------------------------------- browse |
#----------------------------------------------------- browse |
sub browse { |
sub browse { |
# insert a link to call up the filesystem browser (lonindexer) |
# insert a link to call up the filesystem browser (lonindexer) |
|
$_ = shift; |
my $form = 'lonhomework'; |
my $form = 'lonhomework'; |
my $element = &Apache::lonnet::escape("$Apache::lonxml::curdepth.bgimg"); |
my $element = &Apache::lonnet::escape("$Apache::lonxml::curdepth.$_"); |
my $result = <<"ENDBUTTON"; |
my $result = <<"ENDBUTTON"; |
<a href=\"javascript:openbrowser('$form','$element')\"\>Browse</a> |
<a href=\"javascript:openbrowser('$form','$element')\"\>Browse</a> |
ENDBUTTON |
ENDBUTTON |
return $result; |
return $result; |
} |
} |
|
|
|
#----------------------------------------------------- browse |
|
sub search { |
|
# insert a link to call up the filesystem browser (lonindexer) |
|
$_ = shift; |
|
my $form = 'lonhomework'; |
|
my $element = &Apache::lonnet::escape("$Apache::lonxml::curdepth.$_"); |
|
my $result = <<"ENDBUTTON"; |
|
<a href=\"javascript:opensearcher('$form','$element')\"\>Search</a> |
|
ENDBUTTON |
|
return $result; |
|
} |
|
|
|
|
1; |
1; |
__END__ |
__END__ |
|
|
Line 533 browse($elementname) : provide a link wh
|
Line 558 browse($elementname) : provide a link wh
|
browser (lonindexer) and, once a file is selected, place the result in |
browser (lonindexer) and, once a file is selected, place the result in |
the form element $elementname. |
the form element $elementname. |
|
|
|
=item * |
|
search($elementname) : provide a link which will open up the filesystem |
|
searcher (lonsearchcat) and, once a file is selected, place the result in |
|
the form element $elementname. |
|
|
|
= item * |
|
textfield(tag,data,description,size): Provide a <input type="text" ../> for |
|
single-line text entry. This is to be used for text enclosed by tags, not |
|
arguements/parameters associated with a tag. |
|
|
=back |
=back |
|
|
incomplete... |
incomplete... |