Diff for /loncom/homework/default_homework.lcpm between versions 1.157 and 1.158

version 1.157, 2011/06/08 01:39:28 version 1.158, 2011/06/08 20:38:47
Line 337  sub caparesponse_check_list { Line 337  sub caparesponse_check_list {
           if ($preprocess=~/\S/) {            if ($preprocess=~/\S/) {
              if (defined(&$preprocess)) {               if (defined(&$preprocess)) {
                 no strict 'refs';                  no strict 'refs';
                 $element=&$preprocess($element);                  $element=&$preprocess($element,$unit);
                 use strict 'refs';                  use strict 'refs';
              }               }
           }            }
Line 414  sub caparesponse_check_list { Line 414  sub caparesponse_check_list {
                         }                            }  
                     }                      }
                 }                  }
                   # See if we have preprocessor
                   &LONCAPA_INTERNAL_DEBUG("Ordered preprocessor $preprocess");
                   if ($preprocess=~/\S/) {
                       if (defined(&$preprocess)) {
                           no strict 'refs';
                           $response->[$j]=&$preprocess($response->[$j]);
                           use strict 'refs';
                           &LONCAPA_INTERNAL_DEBUG("Ordered processed: $response->[$j]");
                       }
                   }
   
  my ($award,$msg) = &caparesponse_check($answer->[$j],   my ($award,$msg) = &caparesponse_check($answer->[$j],
        $response->[$j]);         $response->[$j]);
                 if ($type eq 'cs' || $type eq 'ci') {                  if ($type eq 'cs' || $type eq 'ci') {
Line 452  sub caparesponse_check_list { Line 463  sub caparesponse_check_list {
                                 }                                  }
                             }                              }
                         }                          }
                           # See if we have preprocessor
                           &LONCAPA_INTERNAL_DEBUG("Unordered preprocessor $preprocess");
                           if ($preprocess=~/\S/) {
                               if (defined(&$preprocess)) {
                                   no strict 'refs';
                                   $response->[$j]=&$preprocess($response->[$j]);
                                   use strict 'refs';
                                   &LONCAPA_INTERNAL_DEBUG("Unordered processed: $response->[$j]");
                               }
                           }
   
  my ($award,$msg) = &caparesponse_check($answer->[$j],   my ($award,$msg) = &caparesponse_check($answer->[$j],
        $response->[$j]);         $response->[$j]);
                         if ($type eq 'cs' || $type eq 'ci') {                          if ($type eq 'cs' || $type eq 'ci') {

Removed from v.1.157  
changed lines
  Added in v.1.158


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