version 1.40, 2002/11/08 14:38:47
|
version 1.43, 2003/01/19 08:13:54
|
Line 100 sub start_table {
|
Line 100 sub start_table {
|
$Apache::edit::colordepth++; |
$Apache::edit::colordepth++; |
push(@Apache::edit::inserttag,$token->[1]); |
push(@Apache::edit::inserttag,$token->[1]); |
my $result='<div align="right">'; |
my $result='<div align="right">'; |
$result.='<table bgcolor="'.$color.'" width="97%" border="2">'; |
$result.='<table bgcolor="'.$color.'" width="97%" border="0" cellspacing="5" cellpadding="3">'; |
return $result; |
return $result; |
} |
} |
|
|
Line 122 sub end_table {
|
Line 122 sub end_table {
|
return $result; |
return $result; |
} |
} |
|
|
sub start_spanning_row { return '<tr><td colspan="3">';} |
sub start_spanning_row { return '<tr><td colspan="3" bgcolor="#DDDDDD">';} |
sub start_row { return '<tr><td>'; } |
sub start_row { return '<tr><td bgcolor="#DDDDDD">'; } |
sub end_row { return '</td></tr>'; } |
sub end_row { return '</td></tr>'; } |
|
|
sub movebuttons { |
sub movebuttons { |
Line 327 sub insert_radiobuttonresponse {
|
Line 327 sub insert_radiobuttonresponse {
|
</radiobuttonresponse>'; |
</radiobuttonresponse>'; |
} |
} |
|
|
|
sub insert_rankresponse { |
|
return ' |
|
<rankresponse max="10"> |
|
<foilgroup options=""> |
|
</foilgroup> |
|
<hintgroup> |
|
</hintgroup> |
|
</rankresponse>'; |
|
} |
|
|
sub insert_displayduedate { return '<displayduedate />'; } |
sub insert_displayduedate { return '<displayduedate />'; } |
sub insert_displaytitle { return '<displaytitle />'; } |
sub insert_displaytitle { return '<displaytitle />'; } |
sub insert_hintpart { |
sub insert_hintpart { |
Line 518 sub select_or_text_arg {
|
Line 528 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 ($id, $mode) = @_; |
my $form = 'lonhomework'; |
my $form = 'lonhomework'; |
my $element = &Apache::lonnet::escape("$Apache::lonxml::curdepth.$_"); |
my $element; |
|
if (! defined($mode) || $mode eq 'attribute') { |
|
$element = &Apache::lonnet::escape("$Apache::lonxml::curdepth.$id"); |
|
} elsif ($mode eq 'textnode') { # for data between <tag> ... </tag> |
|
$element = &Apache::lonnet::escape('homework_edit_'. |
|
$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 |