--- loncom/homework/bridgetask.pm 2006/02/14 16:05:31 1.108
+++ loncom/homework/bridgetask.pm 2006/02/20 21:43:16 1.111
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# definition of tags that give a structure to a document
#
-# $Id: bridgetask.pm,v 1.108 2006/02/14 16:05:31 albertel Exp $
+# $Id: bridgetask.pm,v 1.111 2006/02/20 21:43:16 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -381,7 +381,7 @@ sub webgrade_standard_info {
$file=~s|/+|/|g;
&Apache::lonnet::allowuploaded('/adm/bridgetask',$file);
$file_list.='
'.$file.
+ &Apache::loncommon::icon($file).'" border="0"> '.$file.
''."\n";
}
$file_list.="\n";
@@ -392,8 +392,10 @@ sub webgrade_standard_info {
my $result=<
-
-
+
+
+
+
$file_list
INFO
@@ -528,7 +530,7 @@ DONESCREEN
$target eq 'webgrade') {
my $webgrade='yes';
if ($target eq 'webgrade') {
- $result.=$head_tag_start.$body_tag_start;
+ $result.=$head_tag_start.''.$body_tag_start;
#$result.='
Review'.&show_queue('reviewqueue');
#$result.='
Grade'.&show_queue('gradingqueue');
}
@@ -550,13 +552,9 @@ DONESCREEN
$Apache::bridgetask::queue_key=$todo;
&Apache::structuretags::initialize_storage();
&Apache::lonhomework::showhash(%Apache::lonhomework::history);
- if ($target eq 'webgrade') {
- #$result.='
After -'.&show_queue($env{'form.queue'});
- $result.="\n".'';
- if ($status_code eq 'selected') {
- $form_tag_start.=
- '';
- }
+ if ($target eq 'webgrade' && $status_code eq 'selected') {
+ $form_tag_start.=
+ '';
}
} else {
if ($target eq 'webgrade') {
@@ -610,6 +608,9 @@ DONESCREEN
}
if ($webgrade eq 'yes') { $result.=&webgrade_standard_info(); }
}
+ if ($target eq 'webgrade') {
+ $result.="\n".'';
+ }
} elsif ($target eq 'edit') {
$result.=$head_tag_start."".$body_tag_start.$form_tag_start.
&Apache::structuretags::problem_edit_header();
@@ -988,7 +989,7 @@ DONEBUTTON
&Apache::structuretags::finalize_storage();
}
} elsif ($target eq 'webgrade') {
- $result.="
\n
";
+ $result.="\n
";
#$result.=' ';
#$result.=''.
- ''.
- ''.
- '
| '.
- 'Additional Comment for Student '.
- ''.
- ' | '.
- ''.
- ' '.
- ' '.
- ' '.
- ' '.
- ' | '.
- ''.
- 'Prev '.
- 'Next
'.
- ' | ';
+ ''."\n".
+ ''."\n".
+ ''."\n".
+ ''."\n".
+ ''."\n".
+ '
'."\n".
+ ''."\n".
+ ''."\n".
+ ''."\n".
+ ''."\n".
+ ''."\n";
$last_link=$link;
}
} elsif ($target eq 'grade' && $env{'form.webgrade'}) {