[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.135 and 1.137

version 1.135, 2008/06/10 16:20:29 version 1.137, 2008/06/14 16:34:54
Line 424  sub caparesponse_check_list { Line 424  sub caparesponse_check_list {
 }  }
   
 sub cas {  sub cas {
     my ($system,$input)=@_;      my ($system,$input,$library)=@_;
     my $output;      my $output;
     if ($system eq 'maxima') {      if ($system eq 'maxima') {
        $output=&maxima_eval($input);         $output=&maxima_eval($input,$library);
       } else {
          $output='Error: unrecognized CAS';
     }      }
     return $output;      return $output;
 }  }
Line 1024  sub sec { Line 1026  sub sec {
     return $sec;      return $sec;
 }  }
   
   sub submission {
      my ($partid,$responseid,$subnumber)=@_;
      my $sub='';
      if ($subnumber) { $sub=$subnumber.':'; }
      return &EXT('user.resource.'.$sub.'resource.'.$partid.'.'.$responseid.'.submission');
   }
   
   sub currentpart {
      return $external::part;
   }
   
 sub eval_time {  sub eval_time {
    my ($timestamp)=@_;     my ($timestamp)=@_;
    unless ($timestamp) { return ''; }     unless ($timestamp) { return ''; }
Line 1048  sub answer_date { Line 1061  sub answer_date {
     return &eval_time(&EXT('resource.'.$partid.'.answerdate'));      return &eval_time(&EXT('resource.'.$partid.'.answerdate'));
 }  }
   
   sub open_date_epoch {
       my ($partid)=@_;
       unless ($partid) { $partid=0; }
       return &EXT('resource.'.$partid.'.opendate');
   }
   
   sub due_date_epoch {
       my ($partid)=@_;
       unless ($partid) { $partid=0; }
       return &EXT('resource.'.$partid.'.duedate');
   }
   
   sub answer_date_epoch {
       my ($partid)=@_;
       unless ($partid) { $partid=0; }
       return &EXT('resource.'.$partid.'.answerdate');
   }
   
 sub array_moments {  sub array_moments {
     my @input=@_;      my @input=@_;
     my (@output,$N);      my (@output,$N);
Removed from v.1.135  
changed lines
  Added in v.1.137

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