version 1.122, 2009/02/18 07:06:12
|
version 1.127, 2010/06/05 19:36:57
|
Line 26
|
Line 26
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
|
|
|
=pod |
|
|
=head1 NAME |
=head1 NAME |
|
|
Apache::edit - edit mode helpers |
Apache::edit - edit mode helpers |
Line 202 sub start_table {
|
Line 204 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="0" cellspacing="5" cellpadding="3">'; |
$result.='<table bgcolor="'.$color.'" width="97%" border="0" cellspacing="3" cellpadding="2">'; |
return $result; |
return $result; |
} |
} |
|
|
Line 230 sub end_table {
|
Line 232 sub end_table {
|
return $result; |
return $result; |
} |
} |
|
|
sub start_spanning_row { return '<tr><td colspan="5" bgcolor="#DDDDDD">';} |
sub start_spanning_row { return '<tr><td colspan="5" bgcolor="#F0F0F0">';} |
sub start_row { return '<tr><td bgcolor="#DDDDDD">'; } |
sub start_row { return '<tr><td bgcolor="#DDDDDD">'; } |
sub end_row { return '</td></tr>'; } |
sub end_row { return '</td></tr>'; } |
|
|
Line 355 sub do_insert {
|
Line 357 sub do_insert {
|
my $depth = scalar(@Apache::lonxml::depthcounter); |
my $depth = scalar(@Apache::lonxml::depthcounter); |
$depth -- if ($after); |
$depth -- if ($after); |
my $inset = "\t"x$depth; |
my $inset = "\t"x$depth; |
$result.="\n$inset<$newtag>\n$inset</$newtag>"; |
$result.="\n$inset<$newtag></$newtag>"; |
} else { |
} else { |
if (defined(&$func)) { |
if (defined(&$func)) { |
{ |
{ |
Line 590 sub insert_matchresponse {
|
Line 592 sub insert_matchresponse {
|
</matchresponse>'; |
</matchresponse>'; |
} |
} |
|
|
|
sub insert_startpartmarker { return '<startpartmarker />'; } |
|
sub insert_endpartmarker { return '<endpartmarker />'; } |
|
|
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 612 sub insert_numericalhint {
|
Line 617 sub insert_numericalhint {
|
</numericalhint>'; |
</numericalhint>'; |
} |
} |
|
|
|
sub insert_reactionhint { |
|
return ' |
|
<reactionhint> |
|
</reactionhint>'; |
|
} |
|
|
|
sub insert_organichint { |
|
return ' |
|
<organichint> |
|
</organichint>'; |
|
} |
|
|
sub insert_stringhint { |
sub insert_stringhint { |
return ' |
return ' |
<stringhint> |
<stringhint> |