--- loncom/homework/grades.pm	2006/02/26 00:30:17	1.316
+++ loncom/homework/grades.pm	2006/02/28 02:47:30	1.323
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.316 2006/02/26 00:30:17 albertel Exp $
+# $Id: grades.pm,v 1.323 2006/02/28 02:47:30 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1421,7 +1421,7 @@ sub gradeBox {
 		  '<font color="red">problem weight assigned by computer</font>');
     $wgt       = ($wgt > 0 ? $wgt : '1');
     my $score  = ($$record{'resource.'.$partid.'.awarded'} eq '' ?
-		  '' : $$record{'resource.'.$partid.'.awarded'}*$wgt);
+		  '' : &compute_points($$record{'resource.'.$partid.'.awarded'},$wgt));
     my $result='<input type="hidden" name="WGT'.$counter.'_'.$partid.'" value="'.$wgt.'" />'."\n";
     my $display_part=&get_display_part($partid,undef,$symb);
     my %last_resets = &get_last_resets($symb,$env{'request.course.id'},
@@ -1471,19 +1471,37 @@ sub gradeBox {
         '<input type="hidden" name="aggtries'.$counter.'_'.$partid.'" value="'.
         $aggtries.'" />'."\n";
     $result.='</td></tr></table>'."\n";
-    my $files=&get_submitted_files($udom,$uname,$partid,$counter,$record);
-    if (@$files) {
-        my $file_counter = 0;
-	foreach my $file (@$files) {
-            $result.=' Return commented document to student. <input type="file" name="part'.$partid.'_returndoc';
-            $result.=$file_counter.'" />'."\n";
-            $result.='<input type="hidden" name="respid" value="'.$counter.'" />';
-            $result.='<input type="hidden" name="returndocorig'.$file_counter.'" value="'.$file.'" />';
+    $result.=&handback_box($symb,$uname,$udom,$counter,$partid,$record);
+    return $result;
+}
+
+sub handback_box {
+    my ($symb,$uname,$udom,$counter,$partid,$record) = @_;
+    my ($map,$resid,$url) = &Apache::lonnet::decode_symb($symb);
+    my ($partlist,$handgrade,$responseType) = &response_type($url,$symb);
+    my (@respids);
+    foreach my $part_resp (sort(keys(%$handgrade))) {
+        my ($part,$resp) = split(/_/,$part_resp);
+        if ($part eq $partid) {
+            push @respids,$resp;
         }
     }
-
-    
-    return $result;
+    my $result;
+    foreach my $respid (@respids) {
+	my $prefix = $counter.'_'.$partid.'_'.$respid.'_';
+	my $files=&get_submitted_files($udom,$uname,$partid,$respid,$record);
+	next if (!@$files);
+	my $file_counter = 1;
+	foreach my $file (@$files) {
+	    my ($file_disp) = ($file =~ m|.+/(.+)$|);
+	    $result.=&mt('Return commented version of [_1] to student.',
+			 '<span class="filename">'.$file_disp.'</span>');
+	    $result.='<input type="file"   name="'.$prefix.'returndoc'.$file_counter.'" />'."\n";
+	    $result.='<input type="hidden" name="'.$prefix.'origdoc'.$file_counter.'" value="'.$file.'" /><br />';
+	    $file_counter++;
+	}
+    }
+    return $result;    
 }
 
 sub show_problem {
@@ -1825,15 +1843,6 @@ KEYWORDS
 			    $display_part.' <font color="#999999">( ID '.$respid.
 			    ' )</font>&nbsp; &nbsp;';
 			my $files=&get_submitted_files($udom,$uname,$partid,$respid,\%record);
-#			if ($record{"resource.$partid.$respid.portfiles"}) {
-#			    my $file_url = '/uploaded/'.$udom.'/'.$uname.'/portfolio';
-#			    foreach my $file (split(',',$record{"resource.$partid.$respid.portfiles"})) {
-#				push(@files,$file_url.$file);
-#			    }
-#			}
-#			if ($record{"resource.$partid.$respid.uploadedurl"}) {
-#			    push(@files,$record{"resource.$partid.$respid.uploadedurl"});
-#			}
 			if (@$files) {
 			    $lastsubonly.='<br /><font color="red" size="1">Like all files provided by users, this file may contain virusses</font><br />';
 			    my $file_counter = 0;
@@ -1918,14 +1927,13 @@ KEYWORDS
     my %seen = ();
     my @partlist;
     my @gradePartRespid;
-    for (sort keys(%$handgrade)) {
-	my ($partid,$respid) = split(/_/);
+    for my $part_resp (sort(keys(%$handgrade))) {
+	my ($partid,$respid) = split(/_/, $part_resp);
 	next if ($seen{$partid} > 0);
 	$seen{$partid}++;
-	next if ($$handgrade{$_} =~ /:no$/ && $env{'form.lastSub'} =~ /^(hdgrade)$/);
+	next if ($$handgrade{$part_resp} =~ /:no$/ && $env{'form.lastSub'} =~ /^(hdgrade)$/);
 	push @partlist,$partid;
 	push @gradePartRespid,$partid.'.'.$respid;
-
 	$request->print(&gradeBox($request,$symb,$uname,$udom,$counter,$partid,\%record));
     }
     $result='<input type="hidden" name="partlist'.$counter.
@@ -2317,25 +2325,21 @@ sub saveHandGrade {
 	    $newrecord{'resource.'.$new_part.'.regrader'}=
 		"$env{'user.name'}:$env{'user.domain'}";
 	}
-        if ($env{'form.part'.$new_part.'_returndoc1'}) {
-            # if multiple files are uploaded names will be 'returndoc2','returndoc3'
-           
-            my $portfolio_root = &Apache::loncommon::propath($domain,
-    					 $stuname).
-    					'/userfiles/portfolio';
-                $request->print('<br>'.$portfolio_root.'<br>');
-                
-    #                my $result=&Apache::lonnet::userfileupload('uploaddoc','',
-    #	        	 'portfolio'.$env{'form.currentpath'});
-    
-            my $file_counter = 1;
-            my $respid = $env{'form.respid'};
-            while ($env{'form.part'.$new_part.'_returndoc'.$file_counter}) {
-                my $fname=$env{'form.returndoc'.$file_counter.'.filename'};
-                $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++;
+	my ($partlist,$handgrade,$responseType) = &response_type($url,$symb);
+	foreach my $part_resp (sort(keys(%$handgrade))) {
+	    my ($part_id, $resp_id) = split(/_/,$part_resp);
+	    &Apache::lonnet::logthis('form.'.$newflg.'_'.$part_resp.'_returndoc1');
+	    &Apache::lonnet::logthis("new part is $new_part and partid is $part_id");
+            if (($env{'form.'.$newflg.'_'.$part_resp.'_returndoc1'}) && ($new_part == $part_id)) {
+                # if multiple files are uploaded names will be 'returndoc2','returndoc3'
+                my $file_counter = 1;
+                while ($env{'form.'.$newflg.'_'.$part_resp.'_returndoc'.$file_counter}) {
+                    my $fname=$env{'form.'.$newflg.'_'.$part_resp.'_returndoc'.$file_counter.'.filename'};
+                    $newrecord{"resource.$new_part.$resp_id.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.'.$newflg.'_'.$part_resp.'_origdoc'.$file_counter});
+                    $file_counter++;
+                }
             }
         }
 	
@@ -2375,6 +2379,7 @@ sub saveHandGrade {
     }
     return ('',$pts,$wgt);
 }
+
 sub get_submitted_files {
     my ($udom,$uname,$partid,$respid,$record) = @_;
     my @files;
@@ -2389,6 +2394,7 @@ sub get_submitted_files {
     }
     return (\@files);
 }
+
 # ----------- Provides number of tries since last reset.
 sub get_num_tries {
     my ($record,$last_reset,$part) = @_;
@@ -2894,7 +2900,7 @@ sub viewstudentgrade {
             $aggregates{$part} = 1;
         }
 	if ($type eq 'awarded') {
-	    my $pts = $score eq '' ? '' : $score*$$weight{$part};
+	    my $pts = $score eq '' ? '' : &compute_points($score,$$weight{$part});
 	    $result.='<input type="hidden" name="'.
 		'GD_'.$student.'_'.$part.'_awarded_s" value="'.$pts.'" />'."\n";
 	    $result.='<input type="text" name="'.