[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.134 and 1.136

version 1.134, 2008/05/30 01:16:04 version 1.136, 2008/06/12 00:46:52
Line 1024  sub sec { Line 1024  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 {
      my ($timestamp)=@_;
      unless ($timestamp) { return ''; }
      return &locallocaltime($timestamp);
   }
   
 sub open_date {   sub open_date { 
     my ($partid)=@_;      my ($partid)=@_;
     unless ($partid) { $partid=0; }      unless ($partid) { $partid=0; }
     my @dc = split(/\s+/,localtime(&EXT('resource.'.$partid.'.opendate')));      return &eval_time(&EXT('resource.'.$partid.'.opendate'));
     return '' if ($dc[0] eq "Wed" and $dc[2] == 31 and $dc[4] == 1969);  
     my @hm = split(/:/,$dc[3]);  
     my $ampm = " am";  
     if ($hm[0] > 12) {  
  $hm[0]-=12;  
  $ampm = " pm";  
     }  
     return $dc[0].', '.$dc[1].' '.$dc[2].', '.$dc[4].' at '.$hm[0].':'.$hm[1].$ampm;  
 }  }
   
 sub due_date {  sub due_date {
     my ($partid)=@_;      my ($partid)=@_;
     unless ($partid) { $partid=0; }       unless ($partid) { $partid=0; } 
     my @dc = split(/\s+/,localtime(&EXT('resource.'.$partid.'.duedate')));      return &eval_time(&EXT('resource.'.$partid.'.duedate'));
     return '' if ($dc[0] eq "Wed" and $dc[2] == 31 and $dc[4] == 1969);  
     my @hm = split(/:/,$dc[3]);  
     my $ampm = " am";  
     if ($hm[0] > 12) {  
  $hm[0]-=12;  
  $ampm = " pm";  
     }  
     return $dc[0].', '.$dc[1].' '.$dc[2].', '.$dc[4].' at '.$hm[0].':'.$hm[1].$ampm;  
 }  }
   
 sub answer_date {   sub answer_date { 
     my ($partid)=@_;      my ($partid)=@_;
     unless ($partid) { $partid=0; }      unless ($partid) { $partid=0; }
     my @dc = split(/\s+/,localtime(&EXT('resource.'.$partid.'.answerdate')));      return &eval_time(&EXT('resource.'.$partid.'.answerdate'));
     return '' if ($dc[0] eq "Wed" and $dc[2] == 31 and $dc[4] == 1969);  }
     my @hm = split(/:/,$dc[3]);  
     my $ampm = " am";  sub open_date_epoch {
     if ($hm[0] > 12) {      my ($partid)=@_;
  $hm[0]-=12;      unless ($partid) { $partid=0; }
  $ampm = " pm";      return &EXT('resource.'.$partid.'.opendate');
     }  }
     return $dc[0].', '.$dc[1].' '.$dc[2].', '.$dc[4].' at '.$hm[0].':'.$hm[1].$ampm;  
   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 {
Removed from v.1.134  
changed lines
  Added in v.1.136

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