--- loncom/xml/londefdef.pm 2010/11/13 01:43:01 1.403.4.3
+++ loncom/xml/londefdef.pm 2010/08/16 16:14:32 1.415.4.1
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Tags Default Definition Module
#
-# $Id: londefdef.pm,v 1.403.4.3 2010/11/13 01:43:01 raeburn Exp $
+# $Id: londefdef.pm,v 1.415.4.1 2010/08/16 16:14:32 raeburn Exp $
#
#
# Copyright Michigan State University Board of Trustees
@@ -538,22 +538,51 @@ sub start_body {
my $extra_head = &generate_css_links();
+ # Breadcrumbs
+ &Apache::lonhtmlcommon::clear_breadcrumbs();
+ if ($env{'request.state'} eq 'construct') {
+ &Apache::lonhtmlcommon::add_breadcrumb({
+ 'text' => 'Construction Space',
+ 'href' => &Apache::loncommon::authorspace(),
+ });
+ &Apache::lonhtmlcommon::add_breadcrumb({
+ 'text' => 'HTML Editor',
+ 'href' => '',
+ });
+ # breadcrumbs (and tools) will be created
+ # in start_page->bodytag->innerregister
+ } else {
+ # FIXME Where are we?
+ }
+
$currentstring =
&Apache::loncommon::start_page($Apache::londefdef::title,
$Apache::londefdef::head
.$extra_head,
{'add_entries' => $token->[2],
- 'no_title' => 1,
+# 'no_title' => 1,
'force_register' => 1});
- if ($env{'request.state'} ne 'published') {
- $currentstring.=&Apache::lonmenu::constspaceform();
- $currentstring.=&Apache::londefdef::edit_controls();
- }
- $currentstring.=&Apache::lonxml::message_location();
+ my $header = '';
+ if ($env{'request.state'} ne 'published' &&
+ $env{'request.state'} ne 'construct') {
+ $header=&Apache::lonmenu::constspaceform();
+ }
+ if ($env{'request.state'} ne 'published') {
+ $header.=&Apache::londefdef::edit_controls();
+ }
+ if ($env{'request.state'} eq 'construct') {
+ $currentstring.=&Apache::loncommon::head_subbox(
+ &Apache::loncommon::CSTR_pageheader()
+ .$header);
+ } elsif ($env{'request.state'} eq 'edit') {
+ $currentstring.=&Apache::loncommon::head_subbox($header);
+ }
+ $currentstring.=&Apache::lonxml::message_location();
} elsif ($target eq 'tex') {
- $currentstring = ''; # '\begin{document}' is in header.
- }
+ $currentstring = ''; # '\begin{document}' is in header.
+ }
+
return $currentstring;
}
@@ -570,9 +599,14 @@ sub edit_controls {
';
}
$result .= '
-
+';
+ if (($env{'request.course.id'}) && ($env{'form.forceedit'})) {
+ $result .= (' ' x 3).'';
+ }
+ $result .= '
+
-
';
+';
return $result;
}
@@ -1349,10 +1383,6 @@ sub start_font {
my $currentstring = '';
if ($target eq 'web' || $target eq 'webgrade') {
my $face=&Apache::lonxml::get_param('face',$parstack,$safeeval);
- if ($face!~/symbol/i) {
- if (($env{'browser.fontenhance'} eq 'on') ||
- ($env{'browser.blackwhite'} eq 'on')) { return ''; }
- }
$currentstring = $token->[4];
} elsif ($target eq 'tex') {
my $fontsize=&Apache::lonxml::get_param('TeXsize',$parstack,$safeeval);
@@ -2036,9 +2066,9 @@ sub start_table {
if ((defined $cell_border) && ($cell_border ne 'none')) {
# &Apache::lonnet::logthis("Turning on cell borders: $cell_border");
- $table->cell_border(1);
- }
- if (defined $theme) {
+ $table->cell_border(1);
+ }
+ if (defined $theme) {
$table->theme($theme);
}
if (defined $align) {
@@ -2050,7 +2080,7 @@ sub start_table {
if (!(defined $width)) {
$width = '70%';
}
-
+
# If a percentage, need to calculate what this means in terms of
# page width:
@@ -2702,7 +2732,7 @@ sub tag_check {
#
sub cell_config_hash {
- my ($align, $rowspan, $colspan, $width) = @_;
+ my ($align, $rowspan, $colspan) = @_;
my %config;
if ($align ne '') {
$config{'halign'} = $align;
@@ -2713,9 +2743,6 @@ sub cell_config_hash {
if ($rowspan ne '') {
$config{'rowspan'} = $rowspan;
}
- if ($width ne '') {
- $config{'width'} = $width;
- }
return \%config;
}
@@ -2727,11 +2754,11 @@ sub start_td_tex {
# attributes, but empty of text. end_td_tex will
# fetch the contents from the recursive parse and
# fill the cell with them:
- my $align = &Apache::lonxml::get_param('align', $parstack, $safeeval);
- my $rowspan = &Apache::lonxml::get_param('rowspan', $parstack, $safeeval);
- my $colspan = &Apache::lonxml::get_param('colspan', $parstack, $safeeval);
- my $width = &Apache::lonxml::get_param('TeXwidth', $parstack, $safeeval);
- my $config = &cell_config_hash($align, $rowspan, $colspan, $width);
+ my $align = &Apache::lonxml::get_param('align', $parstack, $safeeval, undef, 1);
+ my $rowspan = &Apache::lonxml::get_param('rowspan', $parstack, $safeeval, undef, 1);
+ my $colspan = &Apache::lonxml::get_param('colspan', $parstack, $safeeval, undef, 1);
+
+ my $config = &cell_config_hash($align, $rowspan, $colspan);
my $table = $Apache::londefdef::table[-1];
$table->add_cell('', $config);
@@ -3274,10 +3301,10 @@ sub start_img {
if ($token->[2]{'src'}=~/\$/) {
$currentstring.=&mt('Variable image source');
} elsif ($token->[2]{'src'}=~/\S/) {
- $currentstring .= ' $token->[2],
- 'no_title' => 1,
+# 'no_title' => 1,
'force_register' => 1,
'frameset' => 1,});