--- loncom/homework/bridgetask.pm	2006/03/02 22:06:27	1.116
+++ loncom/homework/bridgetask.pm	2006/03/19 21:38:55	1.119
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: bridgetask.pm,v 1.116 2006/03/02 22:06:27 albertel Exp $
+# $Id: bridgetask.pm,v 1.119 2006/03/19 21:38:55 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -371,12 +371,15 @@ sub submission_time_stamp {
     return $result;
 }
 
-sub webgrade_standard_info {
-    my ($version)=&get_version();
-    my (undef,undef,$udom,$uname) = &Apache::lonxml::whichuser();
+sub file_list {
+    my ($files,$uname,$udom) = @_;
+    if (!defined($uname) || !defined($udom)) {
+	(undef,undef,$udom,$uname) = &Apache::lonxml::whichuser();
+    }
     my $file_url = '/uploaded/'.$udom.'/'.$uname.'/portfolio/';
+
     my $file_list="<ul class=\"LC_GRADE_handininfo\">\n";
-    foreach my $partial_file (split(',',$Apache::lonhomework::history{"resource.$version.0.bridgetask.portfiles"})) {
+    foreach my $partial_file (split(',',$files)) {
 	my $file=$file_url.$partial_file;
 	$file=~s|/+|/|g;
 	&Apache::lonnet::allowuploaded('/adm/bridgetask',$file);
@@ -385,9 +388,16 @@ sub webgrade_standard_info {
 	    '</a></nobr></li>'."\n";
     }
     $file_list.="</ul>\n";
+    return $file_list;
+}
 
-    my %lt=&Apache::lonlocal::texthash('done' => 'Done',
-				       'stop' => 'Stop',
+sub webgrade_standard_info {
+    my ($version)=&get_version();
+
+    my $file_list = &file_list($Apache::lonhomework::history{"resource.$version.0.bridgetask.portfiles"});
+
+    my %lt=&Apache::lonlocal::texthash('done' => 'Next Item',
+				       'stop' => 'Quit Grading',
 				       );
 				       
     my $result=<<INFO;
@@ -418,6 +428,7 @@ sub start_Task {
     my ($result,$head_tag_start,$body_tag_start,$form_tag_start)=
 	&Apache::structuretags::page_start($target,$token,$tagstack,$parstack,$parser,$safeeval);
     
+    $body_tag_start = '<div class="LC_task">'."\n";
     if ($target eq 'web' && $env{'request.state'} ne 'construct') {
 	if ($Apache::lonhomework::modifygrades) {
 	    $body_tag_start.='<form name="gradesubmission" method="post" action="';
@@ -870,8 +881,8 @@ DONEBUTTON
 		    $result=~s/\Q$internal_location\E/$status/;
 		}
 	    } 
-	    if ($target eq 'web' || $target eq 'webgrade') {
-		$result.=&Apache::lonxml::xmlend().'</html>';
+	    if ($target eq 'web') {
+		$result.="\n</div>\n".&Apache::lonxml::xmlend().'</html>';
 	    }
 	}
 	if ($target eq 'grade' && !$env{'form.webgrade'} && !$previous) {
@@ -1010,7 +1021,8 @@ DONEBUTTON
 	#    &mt('Throw Away &amp; Stop Grading').'" /> ';
 	#$result.='<input type="submit" name="save" value="'.
 	#    &mt('Save Partial Grade and Continue Grading').'" /> ';
-	$result.='</form>'.&Apache::loncommon::endbodytag().'</html>';
+	$result.='</form>'."\n</div>\n".
+	    &Apache::loncommon::endbodytag().'</html>';
     } elsif ($target eq 'meta') {
 	$result.=&Apache::response::meta_package_write('Task');
         $result.=&Apache::response::meta_stores_write('solved','string',
@@ -1883,7 +1895,7 @@ sub grading_history {
 	}
     }
     if ($result) {
-	return '<ul class="LC_pastgrading">'.$result.'</ul>';
+	return '<ul class="LC_GRADE_pastgrading">'.$result.'</ul>';
     }
     return '';
 }