--- loncom/homework/structuretags.pm 2013/05/03 15:38:52 1.512 +++ loncom/homework/structuretags.pm 2014/05/15 20:29:26 1.512.2.7 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.512 2013/05/03 15:38:52 bisitz Exp $ +# $Id: structuretags.pm,v 1.512.2.7 2014/05/15 20:29:26 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -379,10 +379,10 @@ sub page_start { } elsif (!defined($found{'body'}) && $env{'request.state'} eq 'construct') { if ($target eq 'web' || $target eq 'edit') { - # Breadcrumbs for Construction Space + # Breadcrumbs for Authoring Space &Apache::lonhtmlcommon::clear_breadcrumbs(); &Apache::lonhtmlcommon::add_breadcrumb({ - 'text' => 'Construction Space', + 'text' => 'Authoring Space', 'href' => &Apache::loncommon::authorspace($env{'request.uri'}), }); # breadcrumbs (and tools) will be created @@ -414,6 +414,8 @@ sub page_start { $body_args{'add_entries'} = \%add_entries; if ( $env{'request.state'} eq 'construct') { $body_args{'only_body'} = 1; + } elsif ($target eq 'web') { + $body_args{'print_suppress'} = 1; } } $body_args{'no_auto_mt_title'} = 1; @@ -637,7 +639,7 @@ sub problem_edit_header { '.&Apache::lonxml::message_location().' '. - '
$lt{'warning'}
'.&mt('Code ran too long. It ran for more than').' '.$Apache::lonnet::perlvar{'lonScriptTimeout'}.' '.&mt('seconds occurred while running <while> on line').' '.$line.'
' + .&mt('Code ran too long. It ran for more than [_1] seconds.', + $Apache::lonnet::perlvar{'lonScriptTimeout'}) + .&mt('This occurred while running <while> on line [_1].', + $line) + .'