C4/Date.pm

   1 #!/usr/bin/perl -w
   2
   3 package C4::Date;
   4
   5 use strict;
   6 use C4::Context;
   7 use Date::Manip;
   8
   9 require Exporter;
  10
  11 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
  12
  13 $VERSION = 0.01;
  14
  15 @ISA = qw(Exporter);
  16
  17 @EXPORT = qw(
  18              &display_date_format
  19              &format_date
  20 );
  21
  22
  23
  24 sub get_date_format
  25 {
  26         #Get the database handle
  27         my $dbh = C4::Context->dbh;
  28
  29         #Query the database to get the dateformat
  30         my $sth = $dbh->prepare("SELECT value FROM systempreferences WHERE variable='dateformat'");
  31
  32         $sth->execute();
  33
  34         my ($dateformat) = $sth->fetchrow;
  35
  36         return $dateformat
  37 }
  38
  39 sub display_date_format
  40 {
  41         my $dateformat = get_date_format();
  42
  43         if ( $dateformat eq "us" )
  44         {
  45                 return "mm/dd/yyyy";
  46         }
  47         elsif ( $dateformat eq "metric" )
  48         {
  49                 return "dd/mm/yyyy";
  50         }
  51         elsif ( $dateformat eq "iso" )
  52         {
  53                 return "yyyy-mm-dd";
  54         }
  55         else
  56         {
  57                 return "Invalid date format: $dateformat. Please change in system preferences";
  58         }
  59 }
  60
  61
  62 sub format_date
  63 {
  64         my $olddate = shift;
  65         my $newdate;
  66
  67         my $dateformat = get_date_format();
  68
  69         if ( $dateformat eq "us" )
  70         {
  71                 $olddate = ParseDate($olddate);
  72                 $newdate = UnixDate($olddate,'%m/%d/%Y');
  73         }
  74         elsif ( $dateformat eq "metric" )
  75         {
  76                 $olddate = ParseDate($olddate);
  77                 $newdate = UnixDate($olddate,'%d/%m/%Y');
  78         }
  79         elsif ( $dateformat eq "iso" )
  80         {
  81                 $olddate = ParseDate($olddate);
  82                 $newdate = UnixDate($olddate,'%Y-%m-%d');
  83         }
  84         else
  85         {
  86                 return "Invalid date format: $dateformat. Please change in system preferences";
  87         }
  88 }
  89
  90 1;