--- loncom/homework/bridgetask.pm 2007/04/06 21:22:24 1.230
+++ loncom/homework/bridgetask.pm 2007/05/03 16:51:47 1.233
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# definition of tags that give a structure to a document
#
-# $Id: bridgetask.pm,v 1.230 2007/04/06 21:22:24 albertel Exp $
+# $Id: bridgetask.pm,v 1.233 2007/05/03 16:51:47 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -487,6 +487,7 @@ sub webgrade_standard_info {
'stop' => 'Quit Grading',
'fail' => 'Fail Rest',
'cancel' => 'Cancel',
+ 'submit' => 'Submit Grades',
);
%lt=&Apache::lonlocal::texthash(%lt);
@@ -494,26 +495,35 @@ sub webgrade_standard_info {
INFO
- if (&grade_mode() eq 'regrade') {
+ if ($env{'request.state'} eq 'construct') {
$result.=<
+INFO
+ } else {
+ if (&grade_mode() eq 'regrade' && $env{'request.state'} ne 'construct') {
+ $result.=<
INFO
- }
+ }
- $result.=<
+INFO
+ }
+ $result.=<
$file_list
INFO
return $result;
+
}
sub done_screen {
my ($version) = @_;
- my $title=&Apache::lonnet::gettitle();
+ my $title=&Apache::lonnet::gettitle($env{'request.uri'});
my @files=split(',',$Apache::lonhomework::history{'resource.'.$version.'.0.bridgetask.portfiles'});
my (undef,undef,$domain,$user)= &Apache::lonnet::whichuser();
my $files = '
';
@@ -619,7 +629,7 @@ sub start_Task {
}
}
}
- if ($target eq 'web' && $env{'request.state'} eq 'construct') {
+ if ($target =~/(web|webgrade)/ && $env{'request.state'} eq 'construct') {
$form_tag_start.=&Apache::structuretags::problem_web_to_edit_header($env{'form.rndseed'});
}
if ($target eq 'web'
@@ -723,8 +733,12 @@ sub start_Task {
if ($todo) {
&setup_env_for_other_user($todo,$safeeval);
my ($symb,$uname,$udom)=&decode_queue_key($todo);
- $result.="\n".'
Found '.
- &Apache::lonnet::gettitle($symb).' for '.$uname.' at '.$udom.'