version 1.320, 2006/02/27 19:40:21
|
version 1.321, 2006/02/27 20:32:38
|
Line 1480 sub handbackBox {
|
Line 1480 sub handbackBox {
|
my $files=&get_submitted_files($udom,$uname,$partid,$respid,$record); |
my $files=&get_submitted_files($udom,$uname,$partid,$respid,$record); |
my $result; |
my $result; |
if (@$files) { |
if (@$files) { |
my $file_counter = 0; |
my $file_counter = 1; |
foreach my $file (@$files) { |
foreach my $file (@$files) { |
$result.=' Return commented document to student. <input type="file" name="part'.$partid.'_returndoc'; |
$file =~ /.+\/(.+$)/; |
|
my $file_disp = $1; |
|
$result.=' Return commented version of <span class="filename">'.$file_disp.' </span>to student. <input type="file" name="'.$partid.'_'.$respid.'_returndoc'; |
$result.=$file_counter.'" />'."\n"; |
$result.=$file_counter.'" />'."\n"; |
$result.='<input type="hidden" name="respid" value="'.$respid.'" />'; |
$result.='<input type="hidden" name="'.$partid.'_'.$respid.'_origdoc'.$file_counter.'" value="'.$file.'" /><br />'; |
$result.='<input type="hidden" name="returndocorig'.$file_counter.'" value="'.$file.'" /><br />'; |
$file_counter++; |
} |
} |
} |
} |
return $result; |
return $result; |
Line 2316 sub saveHandGrade {
|
Line 2318 sub saveHandGrade {
|
$newrecord{'resource.'.$new_part.'.regrader'}= |
$newrecord{'resource.'.$new_part.'.regrader'}= |
"$env{'user.name'}:$env{'user.domain'}"; |
"$env{'user.name'}:$env{'user.domain'}"; |
} |
} |
if ($env{'form.part'.$new_part.'_returndoc1'}) { |
my ($partlist,$handgrade,$responseType) = &response_type($url,$symb); |
# if multiple files are uploaded names will be 'returndoc2','returndoc3' |
my $portfolio_root = &Apache::loncommon::propath($domain, |
|
$stuname). |
my $portfolio_root = &Apache::loncommon::propath($domain, |
'/userfiles/portfolio'; |
$stuname). |
foreach my $part_resp(sort(keys(%$handgrade))) { |
'/userfiles/portfolio'; |
my ($part_id, $resp_id) = split(/_/,$part_resp); |
$request->print('<br>'.$portfolio_root.'<br>'); |
if ($env{'form.'.$part_resp.'_returndoc1'} && ($new_part eq $part_id)) { |
|
# if multiple files are uploaded names will be 'returndoc2','returndoc3' |
# my $result=&Apache::lonnet::userfileupload('uploaddoc','', |
my $file_counter = 1; |
# 'portfolio'.$env{'form.currentpath'}); |
while ($env{'form.'.$part_resp.'_returndoc'.$file_counter}) { |
|
my $fname=$env{'form.returndoc'.$file_counter.'.filename'}; |
my $file_counter = 1; |
$newrecord{"resource.$new_part.$resp_id.handback"} = $env{'form.returndocorig'.$file_counter}; |
my $respid = $env{'form.respid'}; |
$request->print("<br />".$fname." will be the uploaded file name"); |
while ($env{'form.part'.$new_part.'_returndoc'.$file_counter}) { |
$request->print("<font color=\"red\">Will upload document</font>".$env{'form.returndocorig'.$file_counter}); |
my $fname=$env{'form.returndoc'.$file_counter.'.filename'}; |
$file_counter++; |
$newrecord{"resource.$new_part.$respid.handback"} = $env{'form.returndocorig'.$file_counter}; |
} |
$request->print("<br />".$fname." will be the uploaded file name"); |
|
$request->print("<font color=\"red\">Will upload document</font>".$env{'form.returndocorig'.$file_counter}); |
|
$file_counter++; |
|
} |
} |
} |
} |
|
|