[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4 Date.pm,NONE,1.1
From: |
Mike Hansen |
Subject: |
[Koha-cvs] CVS: koha/C4 Date.pm,NONE,1.1 |
Date: |
Tue, 25 Mar 2003 18:49:02 -0800 |
Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv15399/koha/C4
Added Files:
Date.pm
Log Message:
Module to format dates in the correct manner.
--- NEW FILE ---
#!/usr/bin/perl -w
package C4::Date;
use strict;
use C4::Context;
use Date::Manip;
require Exporter;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
$VERSION = 0.01;
@ISA = qw(Exporter);
@EXPORT = qw(
&display_date_format
&format_date
);
sub get_date_format
{
#Get the database handle
my $dbh = C4::Context->dbh;
#Query the database to get the dateformat
my $sth = $dbh->prepare("SELECT value FROM systempreferences WHERE
variable='dateformat'");
$sth->execute();
my ($dateformat) = $sth->fetchrow;
return $dateformat
}
sub display_date_format
{
my $dateformat = get_date_format();
if ( $dateformat eq "us" )
{
return "mm/dd/yyyy";
}
elsif ( $dateformat eq "metric" )
{
return "dd/mm/yyyy";
}
elsif ( $dateformat eq "iso" )
{
return "yyyy-mm-dd";
}
else
{
return "Invalid date format: $dateformat. Please change in
system preferences";
}
}
sub format_date
{
my $olddate = shift;
my $newdate;
my $dateformat = get_date_format();
if ( $dateformat eq "us" )
{
$olddate = ParseDate($olddate);
$newdate = UnixDate($olddate,'%m/%d/%Y');
}
elsif ( $dateformat eq "metric" )
{
$olddate = ParseDate($olddate);
$newdate = UnixDate($olddate,'%d/%m/%Y');
}
elsif ( $dateformat eq "iso" )
{
$olddate = ParseDate($olddate);
$newdate = UnixDate($olddate,'%Y-%m-%d');
}
else
{
return "Invalid date format: $dateformat. Please change in
system preferences";
}
}
1;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4 Date.pm,NONE,1.1,
Mike Hansen <=