[BACK]Return to default_homework.lcpm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/default_homework.lcpm between versions 1.150 and 1.154

version 1.150, 2010/10/18 19:47:31 version 1.154, 2011/05/21 14:50:36
Line 359  sub caparesponse_check_list { Line 359  sub caparesponse_check_list {
   
     my $allow_control_char = 0;      my $allow_control_char = 0;
     my $control_chars_removed = 0;      my $control_chars_removed = 0;
       my $ansstring;
     if ($type eq 'cs' || $type eq 'ci') {      if ($type eq 'cs' || $type eq 'ci') {
         if (ref($LONCAPA::CAPAresponse_answer->{'answers'}) eq 'ARRAY') {          if (ref($LONCAPA::CAPAresponse_answer->{'answers'}) eq 'ARRAY') {
             foreach my $strans (@{$LONCAPA::CAPAresponse_answer->{'answers'}}) {              foreach my $strans (@{$LONCAPA::CAPAresponse_answer->{'answers'}}) {
                 if ($strans =~ /[\000-\037]/) {                  if (ref($strans) eq 'ARRAY') {
                     $allow_control_char = 1;                      $ansstring = join("\0",@{$strans});
                       foreach my $item (@{$strans}) {  
                           if ($item =~ /[\000-\037]/) {
                               $allow_control_char = 1;
                           }
                       }
                 }                  }
             }              }
         }          }
Line 476  sub caparesponse_check_list { Line 482  sub caparesponse_check_list {
     &LONCAPA_INTERNAL_DEBUG(" all final_awards ".join(':',@final_awards));      &LONCAPA_INTERNAL_DEBUG(" all final_awards ".join(':',@final_awards));
     my ($final_award,$final_msg) =       my ($final_award,$final_msg) = 
  &LONCAPA_INTERNAL_FINALIZEAWARDS(\@final_awards,\@final_msg,undef,1);   &LONCAPA_INTERNAL_FINALIZEAWARDS(\@final_awards,\@final_msg,undef,1);
     return ($final_award,$final_msg,$error,$control_chars_removed);      return ($final_award,$final_msg,$error,$control_chars_removed,$ansstring);
 }  }
   
 sub verify_stringresponse {  sub verify_stringresponse {
Line 1119  sub class { Line 1125  sub class {
     return $course;      return $course;
 }  }
   
   sub classid {
       my $courseid = &EXT('request.course.id');
       $courseid = '' if $courseid eq "";
       return $courseid;
   }
   
 sub firstname {  sub firstname {
     my $firstname = &EXT('environment.firstname');      my $firstname = &EXT('environment.firstname');
     $firstname = '' if $firstname eq "";      $firstname = '' if $firstname eq "";
     return $firstname;      return $firstname;
 }  }
   
   sub middlename {
       my $middlename = &EXT('environment.middlename');
       $middlename = '' if $middlename eq "";
       return $middlename;
   }
   
                                                                                                                                                                   
 sub lastname {  sub lastname {
     my $lastname = &EXT('environment.lastname');      my $lastname = &EXT('environment.lastname');
Line 1190  sub answer_date_epoch { Line 1209  sub answer_date_epoch {
     return &EXT('resource.'.$partid.'.answerdate');      return &EXT('resource.'.$partid.'.answerdate');
 }  }
   
   sub parameter_setting {
       my ($which,$partid)=@_;
       unless ($partid) { $partid=0; }
       return &EXT('resource.'.$partid.'.'.$which);
   }
   
   sub stored_data {
       my ($which,$partid)=@_;
       unless ($partid) { $partid=0; }
       return &EXT('user.resource.resource.'.$partid.'.'.$which);
   }
   
 sub array_moments {  sub array_moments {
     my @input=@_;      my @input=@_;
     my (@output,$N);      my (@output,$N);
Removed from v.1.150  
changed lines
  Added in v.1.154

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