[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.90

version 1.89, 2003/09/26 18:31:31 version 1.90, 2003/09/26 19:23:14
Line 1157  sub update_full_student_data { Line 1157  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 1177  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 1200  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 1253  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++;
                 }                  }
Removed from v.1.89  
changed lines
  Added in v.1.90

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