9 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
23 #Get the database handle
24 my $dbh = C4::Context->dbh;
26 #Query the database to get the dateformat
27 my $sth = $dbh->prepare("SELECT value FROM systempreferences WHERE variable='dateformat'");
31 my ($dateformat) = $sth->fetchrow;
36 sub display_date_format
38 my $dateformat = get_date_format();
40 if ( $dateformat eq "us" )
44 elsif ( $dateformat eq "metric" )
48 elsif ( $dateformat eq "iso" )
54 return "Invalid date format: $dateformat. Please change in system preferences";
64 my $dateformat = get_date_format();
66 if ( $dateformat eq "us" )
68 Date_Init("DateFormat=US");
69 $olddate = ParseDate($olddate);
70 $newdate = UnixDate($olddate,'%m/%d/%Y');
72 elsif ( $dateformat eq "metric" )
74 Date_Init("DateFormat=metric");
75 $olddate = ParseDate($olddate);
76 $newdate = UnixDate($olddate,'%d/%m/%Y');
78 elsif ( $dateformat eq "iso" )
80 Date_Init("DateFormat=iso");
81 $olddate = ParseDate($olddate);
82 $newdate = UnixDate($olddate,'%Y-%m-%d');
86 return "Invalid date format: $dateformat. Please change in system preferences";
90 sub format_date_in_iso
95 my $dateformat = get_date_format();
97 if ( $dateformat eq "us" )
99 Date_Init("DateFormat=US");
100 $olddate = ParseDate($olddate);
102 elsif ( $dateformat eq "metric" )
104 Date_Init("DateFormat=metric");
105 $olddate = ParseDate($olddate);
107 elsif ( $dateformat eq "iso" )
109 Date_Init("DateFormat=iso");
110 $olddate = ParseDate($olddate);
117 $newdate = UnixDate($olddate, '%Y-%m-%d');