Diff for /loncom/homework/default_homework.lcpm between versions 1.134 and 1.135

version 1.134, 2008/05/30 01:16:04 version 1.135, 2008/06/10 16:20:29
Line 1024  sub sec { Line 1024  sub sec {
     return $sec;      return $sec;
 }  }
   
   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";  
     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 array_moments {  sub array_moments {

Removed from v.1.134  
changed lines
  Added in v.1.135


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