version 1.26, 2001/12/21 16:58:25
|
version 1.27, 2002/01/11 16:32:29
|
Line 26
|
Line 26
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# 3/20 Guy |
# 3/20 Guy |
|
# 01/10/02 Matthew |
package Apache::edit; |
package Apache::edit; |
|
|
use strict; |
use strict; |
Line 55 sub tag_start {
|
Line 56 sub tag_start {
|
&deletelist($target,$token) |
&deletelist($target,$token) |
."</td> |
."</td> |
<td>". |
<td>". |
&insertlist($target,$token). |
&insertlist($target,$token).&end_row().&start_spanning_row(); |
"</td> |
#<td>". |
</tr><tr><td colspan=\"3\">\n"; |
|
#<td>". |
|
# &movebuttons($target,$token). |
# &movebuttons($target,$token). |
# "</tr><tr><td colspan=\"3\">\n"; |
# "</tr><tr><td colspan=\"3\">\n"; |
} |
} |
Line 105 sub end_table {
|
Line 104 sub end_table {
|
return $result; |
return $result; |
} |
} |
|
|
|
sub start_spanning_row { return '<tr><td colspan="3">';} |
|
sub start_row { return '<tr><td>'; } |
|
sub end_row { return '</td></tr>'; } |
|
|
sub movebuttons { |
sub movebuttons { |
my ($target,$token) = @_; |
my ($target,$token) = @_; |
my $result='<input type="submit" name="moveup.'. |
my $result='<input type="submit" name="moveup.'. |
Line 392 sub select_arg {
|
Line 395 sub select_arg {
|
} |
} |
$result.=$description.'<select name="'."$Apache::lonxml::curdepth.$name".'"> |
$result.=$description.'<select name="'."$Apache::lonxml::curdepth.$name".'"> |
'.$optionlist.' |
'.$optionlist.' |
</select></td></tr><tr><td colspan="3">'; |
</select>'; |
return $result; |
return $result; |
} |
} |
|
|
Line 414 sub select_or_text_arg {
|
Line 417 sub select_or_text_arg {
|
if ($found) { |
if ($found) { |
$result.=$description.'<select name="'."$Apache::lonxml::curdepth.$name".'"> |
$result.=$description.'<select name="'."$Apache::lonxml::curdepth.$name".'"> |
'.$optionlist.' |
'.$optionlist.' |
</select></td></tr><tr><td colspan="3">'; |
</select>'; |
} else { |
} else { |
$result.=&text_arg($description,$name,$token,$size); |
$result.=&text_arg($description,$name,$token,$size); |
} |
} |
Line 473 end_table() : reduce color depth; end ta
|
Line 476 end_table() : reduce color depth; end ta
|
|
|
=item * |
=item * |
|
|
|
start_spanning_row() : start a new table row spanning the 'edit' environment. |
|
|
|
=item * |
|
|
|
start_row() : start a new table row and element. |
|
|
|
=item * |
|
|
|
end_row() : end current table element and row. |
|
|
|
=item * |
|
|
movebuttons($target,$token) : move-up and move-down buttons; return scalar |
movebuttons($target,$token) : move-up and move-down buttons; return scalar |
string |
string |
|
|