| … | |
… | |
| 194 | my $soapEnv = new WebworkSOAP($authenKey,$courseName); |
194 | my $soapEnv = new WebworkSOAP($authenKey,$courseName); |
| 195 | my @grades; |
195 | my @grades; |
| 196 | #open (LOG, ">>/opt/webwork/tmp_log") or die "Can't open log file"; |
196 | #open (LOG, ">>/opt/webwork/tmp_log") or die "Can't open log file"; |
| 197 | #print LOG "\n\nhi there\n\n"; |
197 | #print LOG "\n\nhi there\n\n"; |
| 198 | |
198 | |
|
|
199 | my $db = $soapEnv->{db}; |
| 199 | foreach my $userID (@{$userIDs}) { |
200 | foreach my $userID (@{$userIDs}) { |
| 200 | my @problemData = $soapEnv->{db}->getAllMergedUserProblems($userID,$setID); |
201 | # my @problemData = $soapEnv->{db}->getAllMergedUserProblems($userID,$setID); |
| 201 | |
202 | # |
| 202 | my $grade = 0; |
203 | # my $grade = 0; |
| 203 | for(my $i=0;$i<@problemData;$i++) { |
204 | # for(my $i=0;$i<@problemData;$i++) { |
| 204 | #print LOG "$userID problem Data",join(" ", %{$problemData[$i]}),"\n\n"; |
205 | # #print LOG "$userID problem Data",join(" ", %{$problemData[$i]}),"\n\n"; |
| 205 | $grade += ($problemData[$i]->status)*($problemData[$i]->value); |
206 | # $grade += ($problemData[$i]->status)*($problemData[$i]->value); |
| 206 | #print LOG "grade is $grade\n"; |
207 | # #print LOG "grade is $grade\n"; |
| 207 | } |
208 | # } |
|
|
209 | #print LOG "grade_users_sets: get user $userID set $setID\n"; |
|
|
210 | my $grade = get_wwassignment_grade_for_one_user($db, $userID,$setID ); |
|
|
211 | #print LOG " grade is $grade \n\n"; |
| 208 | push(@grades,$grade); |
212 | push(@grades,$grade); |
| 209 | } |
213 | } |
| 210 | #close(LOG); |
214 | #close(LOG); |
| 211 | return array_to_soap_string( @grades ); |
215 | return array_to_soap_string( @grades ); |
| 212 | } |
216 | } |
Parent Directory
| 
Revision Log
| 
Patch