loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.135, 2008/06/10 16:20:29
+version 1.136, 2008/06/12 00:46:52
  Line 1024  sub 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 {
     my ($timestamp)=@_;
     unless ($timestamp) { return ''; }
- Line 1048  sub answer_date {
+ Line 1059  sub answer_date {
      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 {
      my @input=@_;
      my (@output,$N);