--- loncom/homework/bridgetask.pm 2006/02/09 23:02:51 1.106
+++ loncom/homework/bridgetask.pm 2006/02/20 22:57:41 1.112
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# definition of tags that give a structure to a document
#
-# $Id: bridgetask.pm,v 1.106 2006/02/09 23:02:51 albertel Exp $
+# $Id: bridgetask.pm,v 1.112 2006/02/20 22:57:41 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -193,7 +193,7 @@ sub add_grading_button {
$result.='
'.' ';
- $result.= &mt("[_1] entries, [_2] ready, [_3] being graded",$entries,$ready,$locks);' '."\n";
+ $result.= &mt("[_1] entries, [_2] ready, [_3] being graded",$entries,$ready,$locks).' '."\n";
($entries,$ready,$locks)=&get_queue_counts('reviewqueue');
$result.=''.
@@ -375,13 +375,13 @@ sub webgrade_standard_info {
my ($version)=&get_version();
my (undef,undef,$udom,$uname) = &Apache::lonxml::whichuser();
my $file_url = '/uploaded/'.$udom.'/'.$uname.'/portfolio/';
- my $file_list="\n";
+ my $file_list="\n";
@@ -391,11 +391,11 @@ sub webgrade_standard_info {
);
my $result=<
-
-
+
+
+
+
$file_list
-
INFO
return $result;
}
@@ -426,12 +426,21 @@ sub start_Task {
$body_tag_start.=$uri.'">'.&add_grading_button()."";
my $symb=&Apache::lonnet::symbread();
if (&Apache::lonnet::allowed('mgq',$env{'request.course.id'})) {
- $body_tag_start.='';
+ my $target_id =
+ &Apache::lonstathelpers::make_target_id({symb => $symb,
+ part => '0'});
+ $body_tag_start.='';
}
}
}
@@ -519,7 +528,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');
}
@@ -541,13 +550,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') {
@@ -601,6 +606,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();
@@ -979,7 +987,7 @@ DONEBUTTON
&Apache::structuretags::finalize_storage();
}
} elsif ($target eq 'webgrade') {
- $result.="
\n ";
+ $result.="\n ";
#$result.=' ';
#$result.=''.
- ' '.
- ' '.
- ' '.
- 'Additional Comment for Student '.
- ''.
- ' '.
- ''.
- ' '.&mt('Ungraded').' '.
- ' '.&mt('Pass').' '.
- ' '.&mt('Fail').' '.
- ' '.&mt('Review').' '.
- ' '.
- ''.
- 'Prev '.
- 'Next '.
- ' ';
+ ''."\n".
+ ' '.&mt('Ungraded').' '."\n".
+ ' '.&mt('Fail').' '."\n".
+ ' '.&mt('Pass').' '."\n".
+ ' '.&mt('Review').' '."\n".
+ '
'."\n".
+ ''."\n".
+ ''."\n".
+ ''."\n";
$last_link=$link;
}
} elsif ($target eq 'grade' && $env{'form.webgrade'}) {