--- loncom/homework/grades.pm	2006/03/19 21:29:50	1.335
+++ loncom/homework/grades.pm	2006/03/19 21:38:55	1.336
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.335 2006/03/19 21:29:50 albertel Exp $
+# $Id: grades.pm,v 1.336 2006/03/19 21:38:55 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -209,7 +209,8 @@ sub get_order {
 #--- Currently filters option/rank/radiobutton/match/essay/Task
 #        response types only.
 sub cleanRecord {
-    my ($answer,$response,$symb,$partid,$respid,$record,$order,$version) = @_;
+    my ($answer,$response,$symb,$partid,$respid,$record,$order,$version,
+	$uname,$udom) = @_;
     my $grayFont = '<font color="#999999">';
     if ($response =~ /^(option|rank)$/) {
 	my %answer=&Apache::lonnet::str2hash($answer);
@@ -293,7 +294,7 @@ sub cleanRecord {
     } elsif ( $response eq 'Task') {
 	if ( $answer eq 'SUBMITTED') {
 	    my $files = $record->{$version."resource.$respid.$partid.bridgetask.portfiles"};
-	    my $result = &Apache::bridgetask::file_list($files);
+	    my $result = &Apache::bridgetask::file_list($files,$uname,$udom);
 	    return $result;
 	} elsif ( grep(/^\Q$version\E.*?\.instance$/, keys(%{$record})) ) {
 	    my @matches = grep(/^\Q$version\E.*?\.instance$/,
@@ -3938,7 +3939,7 @@ sub displaySubByDates {
 			    &get_order($partid,$responseId,$symb,$uname,$udom);
 		    }
 		    $displaySub[0].='</b>&nbsp; '.
-			&cleanRecord($$record{$version.':'.$matchKey},$responseType,$symb,$partid,$responseId,$record,$orders{$partid}->{$responseId},"$version:").'<br />';
+			&cleanRecord($$record{$version.':'.$matchKey},$responseType,$symb,$partid,$responseId,$record,$orders{$partid}->{$responseId},"$version:",$uname,$udom).'<br />';
 		}
 	    }
 	    if (exists($$record{"$where.$partid.checkedin"})) {