[BACK]Return to loncoursedata.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncoursedata.pm between versions 1.89 and 1.92

version 1.89, 2003/09/26 18:31:31 version 1.92, 2003/09/30 12:09:48
Line 197  sub get_sequence_assessment_data { Line 197  sub get_sequence_assessment_data {
             my @Ids       = $curRes->responseIds($part);              my @Ids       = $curRes->responseIds($part);
             $partdata{$part}->{'ResponseTypes'}= \@Responses;              $partdata{$part}->{'ResponseTypes'}= \@Responses;
             $partdata{$part}->{'ResponseIds'}  = \@Ids;              $partdata{$part}->{'ResponseIds'}  = \@Ids;
               # Count how many responses of each type there are in this part
               foreach (@Responses) {
                   $partdata{$part}->{$_}++;
               }
         }          }
         my $assessment = { title => $title,          my $assessment = { title => $title,
                            src   => $src,                             src   => $src,
Line 1157  sub update_full_student_data { Line 1161  sub update_full_student_data {
             next;              next;
         } elsif ($parameter eq 'version') {          } elsif ($parameter eq 'version') {
             next;              next;
         } elsif ($parameter =~ /^resource\.(.*)\.(tries|award|awarded|previous|solved|awarddetail|submission)\s*$/){          } elsif ($parameter =~ /^resource\.(.*)\.(tries|
                                                     award|
                                                     awarded|
                                                     previous|
                                                     solved|
                                                     awarddetail|
                                                     submission|
                                                     submissiongrading|
                                                     molecule)\s*$/x){
             # we do not have enough information to store an               # we do not have enough information to store an 
             # entire row, so we save it up until later.              # entire row, so we save it up until later.
             my ($part_and_resp_id,$field) = ($1,$2);              my ($part_and_resp_id,$field) = ($1,$2);
Line 1169  sub update_full_student_data { Line 1181  sub update_full_student_data {
             } else {              } else {
                 $part_id = &get_part_id($part_and_resp_id);                  $part_id = &get_part_id($part_and_resp_id);
             }              }
               # Deal with part specific data
             if ($field =~ /^(tries|award|awarded|previous)$/) {              if ($field =~ /^(tries|award|awarded|previous)$/) {
                 $partdata->{$symb_id}->{$part_id}->{$transaction}->{$field}=$value;                  $partdata->{$symb_id}->{$part_id}->{$transaction}->{$field}=$value;
             }              }
               # deal with response specific data
             if (defined($resp_id) &&              if (defined($resp_id) &&
                 $field =~ /^(tries|awarddetail|awarded|submission)$/) {                  $field =~ /^(tries|
                                awarddetail|
                                awarded|
                                submission|
                                submissiongrading|
                                molecule)$/x) {
                 if ($field eq 'submission') {                  if ($field eq 'submission') {
                     # We have to be careful with user supplied input.                      # We have to be careful with user supplied input.
                     # most of the time we are okay because it is escaped.                      # most of the time we are okay because it is escaped.
Line 1185  sub update_full_student_data { Line 1204  sub update_full_student_data {
                         $value =~ s/\\$/\\\\/;                          $value =~ s/\\$/\\\\/;
                     }                      }
                 }                  }
                 $respdata->{$symb_id}->{$part_id}->{$resp_id}->{$transaction}->{$field}=$value;                  if ($field eq 'submissiongrading' || 
                       $field eq 'molecule') {
                       $respdata->{$symb_id}->{$part_id}->{$resp_id}->{$transaction}->{'response_specific'}=$field;
                       $respdata->{$symb_id}->{$part_id}->{$resp_id}->{$transaction}->{'response_specific_value'}=$value;
                   } else {
                       $respdata->{$symb_id}->{$part_id}->{$resp_id}->{$transaction}->{$field}=$value;
                   }
             }              }
         }          }
     }      }
Line 1232  sub update_full_student_data { Line 1257  sub update_full_student_data {
                                                 $data->{'tries'},                                                  $data->{'tries'},
                                                 $data->{'awarddetail'},                                                  $data->{'awarddetail'},
                                                 $data->{'awarded'},                                                  $data->{'awarded'},
                                                 '','',                                                  $data->{'response_specific'},
                                                   $data->{'response_specific_value'},
                                                 $data->{'submission'})."'),";                                                  $data->{'submission'})."'),";
                     $store_rows++;                      $store_rows++;
                 }                  }
Line 1842  sub get_problem_statistics { Line 1868  sub get_problem_statistics {
          $stats_table);           $stats_table);
     my ($Solved) = &execute_SQL_request($dbh,'SELECT COUNT(tries) FROM '.      my ($Solved) = &execute_SQL_request($dbh,'SELECT COUNT(tries) FROM '.
                                         $stats_table.                                          $stats_table.
                                         " WHERE solved='correct_by_student'");           " WHERE solved='correct_by_student' OR solved='correct_by_scantron'");
     my ($solved) = &execute_SQL_request($dbh,'SELECT COUNT(tries) FROM '.      my ($solved) = &execute_SQL_request($dbh,'SELECT COUNT(tries) FROM '.
                                         $stats_table.                                          $stats_table.
                                         " WHERE solved='correct_by_override'");                                          " WHERE solved='correct_by_override'");
Removed from v.1.89  
changed lines
  Added in v.1.92

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