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

version 1.133, 2008/03/06 14:27:43 version 1.134, 2008/05/30 01:16:04
Line 1025  sub sec { Line 1025  sub sec {
 }  }
   
 sub open_date {   sub open_date { 
     my @dc = split(/\s+/,localtime(&EXT('resource.0.opendate')));      my ($partid)=@_;
       unless ($partid) { $partid=0; }
       my @dc = split(/\s+/,localtime(&EXT('resource.'.$partid.'.opendate')));
     return '' if ($dc[0] eq "Wed" and $dc[2] == 31 and $dc[4] == 1969);      return '' if ($dc[0] eq "Wed" and $dc[2] == 31 and $dc[4] == 1969);
     my @hm = split(/:/,$dc[3]);      my @hm = split(/:/,$dc[3]);
     my $ampm = " am";      my $ampm = " am";
Line 1036  sub open_date { Line 1038  sub open_date {
     return $dc[0].', '.$dc[1].' '.$dc[2].', '.$dc[4].' at '.$hm[0].':'.$hm[1].$ampm;      return $dc[0].', '.$dc[1].' '.$dc[2].', '.$dc[4].' at '.$hm[0].':'.$hm[1].$ampm;
 }  }
   
 sub due_date {   sub due_date {
     my @dc = split(/\s+/,localtime(&EXT('resource.0.duedate')));      my ($partid)=@_;
       unless ($partid) { $partid=0; } 
       my @dc = split(/\s+/,localtime(&EXT('resource.'.$partid.'.duedate')));
     return '' if ($dc[0] eq "Wed" and $dc[2] == 31 and $dc[4] == 1969);      return '' if ($dc[0] eq "Wed" and $dc[2] == 31 and $dc[4] == 1969);
     my @hm = split(/:/,$dc[3]);      my @hm = split(/:/,$dc[3]);
     my $ampm = " am";      my $ampm = " am";
Line 1049  sub due_date { Line 1053  sub due_date {
 }  }
   
 sub answer_date {   sub answer_date { 
     my @dc = split(/\s+/,localtime(&EXT('resource.0.answerdate')));      my ($partid)=@_;
       unless ($partid) { $partid=0; }
       my @dc = split(/\s+/,localtime(&EXT('resource.'.$partid.'.answerdate')));
     return '' if ($dc[0] eq "Wed" and $dc[2] == 31 and $dc[4] == 1969);      return '' if ($dc[0] eq "Wed" and $dc[2] == 31 and $dc[4] == 1969);
     my @hm = split(/:/,$dc[3]);      my @hm = split(/:/,$dc[3]);
     my $ampm = " am";      my $ampm = " am";

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


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