--- loncom/homework/lonhomework.pm 2005/11/08 20:23:27 1.220
+++ loncom/homework/lonhomework.pm 2005/11/08 21:09:08 1.221
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Homework handler
#
-# $Id: lonhomework.pm,v 1.220 2005/11/08 20:23:27 albertel Exp $
+# $Id: lonhomework.pm,v 1.221 2005/11/08 21:09:08 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -581,10 +581,8 @@ sub handle_save_or_undo {
sub analyze_header {
my ($request) = @_;
- my $bodytag='';
- if ($env{'environment.remote'} eq 'off') {
- $bodytag=&Apache::loncommon::bodytag();
- }
+ my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef,
+ ($env{'environment.remote'} ne 'off'));
my $html=&Apache::lonxml::xmlbegin();
my $result.=$html.'
'.&mt("Analyzing a problem").'
@@ -659,7 +657,7 @@ sub analyze {
foreach my $part (sort(keys(%allparts))) {
if (defined(@{ $overall{$part.'.answer'} })) {
my $num_cols=scalar(@{ $overall{$part.'.answer'}->[0] });
- $request->print('| '.&mt('Part').' '.$part.' |
|---|
');
+ $request->print('| '.&mt('Part').' '.$part.' |
|---|
');
my %frequency;
foreach my $answer (sort {$a->[0] <=> $b->[0]} (@{ $overall{$part.'.answer'} })) {
$frequency{join("\0",@{ $answer })}++;
@@ -717,10 +715,8 @@ sub editxmlmode {
if ($cols > 80) { $cols = 80; }
if ($cols < 70) { $cols = 70; }
if ($rows < 20) { $rows = 20; }
- my $bodytag='';
- if ($env{'environment.remote'} eq 'off') {
- $bodytag=&Apache::loncommon::bodytag();
- }
+ my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef,
+ ($env{'environment.remote'} ne 'off'));
my $html=&Apache::lonxml::xmlbegin();
$result.=$html.$bodytag.
&renderpage($request,$file,['no_output_web'],1).