Diff for /loncom/interface/statistics/lonstudentsubmissions.pm between versions 1.7 and 1.8

version 1.7, 2004/03/07 20:41:28 version 1.8, 2004/03/12 21:13:11
Line 163  sub BuildStudentSubmissionsPage { Line 163  sub BuildStudentSubmissionsPage {
 #########################################################  #########################################################
 sub prepare_excel_output {  sub prepare_excel_output {
     my ($r,$problem,$ProblemData,$Students) = @_;      my ($r,$problem,$ProblemData,$Students) = @_;
       my $c = $r->connection();
     my ($resource,$respid,$partid) = ($problem->{'resource'},      my ($resource,$respid,$partid) = ($problem->{'resource'},
                                       $problem->{'respid'},                                        $problem->{'respid'},
                                       $problem->{'part'});                                        $problem->{'part'});
Line 209  sub prepare_excel_output { Line 210  sub prepare_excel_output {
     #      #
     # Populate the worksheet with the student data      # Populate the worksheet with the student data
     foreach my $student (@$Students) {      foreach my $student (@$Students) {
           last if ($c->aborted());
         my $results = &Apache::loncoursedata::get_response_data_by_student          my $results = &Apache::loncoursedata::get_response_data_by_student
             ($student,$resource->{'symb'},$respid);              ($student,$resource->{'symb'},$respid);
         my %row;          my %row;
Line 288  sub prepare_excel_output { Line 290  sub prepare_excel_output {
   
 sub GetStudentAnswers {  sub GetStudentAnswers {
     my ($r,$problem,$Students) = @_;      my ($r,$problem,$Students) = @_;
       my $c = $r->connection();
     my %Answers;      my %Answers;
     my ($resource,$partid,$respid) = ($problem->{'resource'},      my ($resource,$partid,$respid) = ($problem->{'resource'},
                                       $problem->{'part'},                                        $problem->{'part'},
Line 299  sub GetStudentAnswers { Line 302  sub GetStudentAnswers {
     $r->print("<table>\n");      $r->print("<table>\n");
     $r->rflush();      $r->rflush();
     foreach my $student (@$Students) {      foreach my $student (@$Students) {
           last if ($c->aborted());
         my $sname = $student->{'username'};          my $sname = $student->{'username'};
         my $sdom = $student->{'domain'};          my $sdom = $student->{'domain'};
         my $answer = &Apache::lonstathelpers::analyze_problem_as_student          my $answer = &Apache::lonstathelpers::analyze_problem_as_student
Line 307  sub GetStudentAnswers { Line 311  sub GetStudentAnswers {
                                                  &mt('last student'));                                                   &mt('last student'));
         $student->{'answer'} = $answer;          $student->{'answer'} = $answer;
     }      }
       return if ($c->aborted());
     $r->print("</table>\n");      $r->print("</table>\n");
     $r->rflush();      $r->rflush();
     # close progress window      # close progress window

Removed from v.1.7  
changed lines
  Added in v.1.8


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>