Diff for /loncom/homework/grades.pm between versions 1.335 and 1.336

version 1.335, 2006/03/19 21:29:50 version 1.336, 2006/03/19 21:38:55
Line 209  sub get_order { Line 209  sub get_order {
 #--- Currently filters option/rank/radiobutton/match/essay/Task  #--- Currently filters option/rank/radiobutton/match/essay/Task
 #        response types only.  #        response types only.
 sub cleanRecord {  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">';      my $grayFont = '<font color="#999999">';
     if ($response =~ /^(option|rank)$/) {      if ($response =~ /^(option|rank)$/) {
  my %answer=&Apache::lonnet::str2hash($answer);   my %answer=&Apache::lonnet::str2hash($answer);
Line 293  sub cleanRecord { Line 294  sub cleanRecord {
     } elsif ( $response eq 'Task') {      } elsif ( $response eq 'Task') {
  if ( $answer eq 'SUBMITTED') {   if ( $answer eq 'SUBMITTED') {
     my $files = $record->{$version."resource.$respid.$partid.bridgetask.portfiles"};      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;      return $result;
  } elsif ( grep(/^\Q$version\E.*?\.instance$/, keys(%{$record})) ) {   } elsif ( grep(/^\Q$version\E.*?\.instance$/, keys(%{$record})) ) {
     my @matches = grep(/^\Q$version\E.*?\.instance$/,      my @matches = grep(/^\Q$version\E.*?\.instance$/,
Line 3938  sub displaySubByDates { Line 3939  sub displaySubByDates {
     &get_order($partid,$responseId,$symb,$uname,$udom);      &get_order($partid,$responseId,$symb,$uname,$udom);
     }      }
     $displaySub[0].='</b>&nbsp; '.      $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"})) {      if (exists($$record{"$where.$partid.checkedin"})) {

Removed from v.1.335  
changed lines
  Added in v.1.336


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>