--- loncom/homework/grades.pm 2004/11/23 02:37:58 1.230
+++ loncom/homework/grades.pm 2004/11/23 14:37:33 1.232
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.230 2004/11/23 02:37:58 banghart Exp $
+# $Id: grades.pm,v 1.232 2004/11/23 14:37:33 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1663,7 +1663,6 @@ KEYWORDS
}
}
my $order=&get_order($partid,$respid,$symb,$uname,$udom);
- my $portfolio_path;
if ($ENV{'form.lastSub'} eq 'lastonly' ||
($ENV{'form.lastSub'} eq 'hdgrade' &&
$$handgrade{$part} eq 'yes')) {
@@ -1671,20 +1670,25 @@ KEYWORDS
$lastsubonly.='
Part: '.
$display_part.' ( ID '.$respid.
' ) ';
+ my @files;
if ($record{"resource.$partid.$respid.portfiles"}) {
- $portfolio_path = '/uploaded/'.$udom.'/'.$uname.'/portfolio';
- &Apache::lonnet::logthis("found a portfolio file".$record{"resource.$partid.$respid.portfiles"});
- &Apache::lonnet::logthis("uploaded URL file".$record{"resource.$partid.$respid.uploadedurl"});
- } else {
- $portfolio_path = '';
+ my $file_url = '/uploaded/'.$udom.'/'.$uname.'/portfolio';
+ foreach my $file (split(',',$record{"resource.$partid.$respid.portfiles"})) {
+ push(@files,$file_url.$file);
+
+ &Apache::lonnet::logthis("found a portfolio file".$record{"resource.$partid.$respid.portfiles"});
+ &Apache::lonnet::logthis("uploaded URL file".$record{"resource.$partid.$respid.uploadedurl"});
+ }
}
if ($record{"resource.$partid.$respid.uploadedurl"}) {
- &Apache::lonnet::allowuploaded('/adm/grades',
- $record{"resource.$partid.$respid.uploadedurl"});
- $lastsubonly.=' File uploaded by student Like all files provided by users, this file may contain virusses ';
+ push(@files,$record{"resource.$partid.$respid.uploadedurl"});
}
- if ($record{"resource.$partid.$respid.portfiles"}) {
- $lastsubonly.=' File uploaded by student Like all files provided by users, this file may contain virusses ';
+ if (@files) {
+ $lastsubonly.=' Like all files provided by users, this file may contain virusses ';
+ foreach my $file (@files) {
+ &Apache::lonnet::allowuploaded('/adm/grades',$file);
+ $lastsubonly.=' '.$file.'';
+ }
}
$lastsubonly.='Submitted Answer: '.
&cleanRecord($subval,$responsetype,$symb,$partid,
|