![]() ![]() | ![]() |
version 1.45, 2004/10/30 23:59:00 | version 1.46, 2004/11/01 22:51:48 |
---|---|
Line 147 sub end_essayresponse { | Line 147 sub end_essayresponse { |
&Apache::lonxml::whichuser(); | &Apache::lonxml::whichuser(); |
foreach (@submitted_files) { | foreach (@submitted_files) { |
my $file = $_; | my $file = $_; |
$Apache::lonhomework::results{"resource.$domain.$crsid.$name.$file"}='true'; | &Apache::lonnet::put('file_permissions', |
{ $dsymb.$crsid => $file },$domain,$name); | |
} | } |
$uploadedflag=1; | $uploadedflag=1; |
} | } |