[Bio] / FigKernelPackages / FIG.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FIG.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.61, Thu Apr 1 22:10:34 2004 UTC revision 1.62, Thu Apr 1 22:58:44 2004 UTC
# Line 2906  Line 2906 
2906          my($mm,$dd,$yyyy) = ($1,$2,$3);          my($mm,$dd,$yyyy) = ($1,$2,$3);
2907          $epoch_date = &Time::Local::timelocal(0,0,0,$dd,$mm-1,$yyyy-1900,0,0,0);          $epoch_date = &Time::Local::timelocal(0,0,0,$dd,$mm-1,$yyyy-1900,0,0,0);
2908      }      }
2909        elsif ($date =~ /^\d+$/)
2910        {
2911            $epoch_date = $date;
2912        }
2913      else      else
2914      {      {
2915          $epoch_date = 0;          $epoch_date = 0;
# Line 2960  Line 2964 
2964          my($mm,$dd,$yyyy) = ($1,$2,$3);          my($mm,$dd,$yyyy) = ($1,$2,$3);
2965          $epoch_date = &Time::Local::timelocal(0,0,0,$dd,$mm-1,$yyyy-1900,0,0,0);          $epoch_date = &Time::Local::timelocal(0,0,0,$dd,$mm-1,$yyyy-1900,0,0,0);
2966      }      }
2967        elsif ($date =~ /^\d+$/)
2968        {
2969            $epoch_date = $date;
2970        }
2971      else      else
2972      {      {
2973          $epoch_date = 0;          $epoch_date = 0;

Legend:
Removed from v.1.61  
changed lines
  Added in v.1.62

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3