Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Hmm.. having problems getting my changes to Date.pm saved...

Browse source
This commit is contained in:
wolfpac444 2003-03-26 04:09:06 +00:00
parent 20da23088a
commit 00d780e00e
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
C4/Date.pm
View file

@ -21,7 +21,6 @@ $VERSION = 0.01;
);
sub get_date_format
{
#Get the database handle

9
insertdata.pl
View file

@ -27,6 +27,7 @@ use C4::Context;
use C4::Input;
use C4::Search;
use Date::Manip;
use C4::Date;
use strict;
my $input= new CGI;
@ -50,6 +51,8 @@ my $query="Select * from borrowers where borrowernumber=$data{'borrowernumber'}"
my $sth=$dbh->prepare($query);
$sth->execute;
if (my $data=$sth->fetchrow_hashref){
$data{'dateofbirth'}=fomat_date_in_iso($data{'dateofbirth'});
$data{'joining'}=format_date_in_iso($data{'joining'});
$query="update borrowers set title='$data{'title'}',expiry='$data{'expiry'}',
cardnumber='$data{'cardnumber'}',sex='$data{'sex'}',ethnotes='$data{'ethnicnotes'}',
streetaddress='$data{'address'}',faxnumber='$data{'faxnumber'}',firstname='$data{'firstname'}',
@ -64,10 +67,8 @@ if (my $data=$sth->fetchrow_hashref){
# print $query;
}else{
$data{'dateofbirth'}=ParseDate($data{'dateofbirth'});
$data{'dateofbirth'}=UnixDate($data{'dateofbirth'},'%Y-%m-%d');
$data{'joining'}=ParseDate($data{'joining'});
$data{'joining'}=UnixDate($data{'joining'},'%Y-%m-%d');
$data{'dateofbirth'}=fomat_date_in_iso($data{'dateofbirth'});
$data{'joining'}=format_date_in_iso($data{'joining'});
$query="insert into borrowers (title,expiry,cardnumber,sex,ethnotes,streetaddress,faxnumber,
firstname,altnotes,dateofbirth,contactname,emailaddress,textmessaging,dateenrolled,streetcity,
altrelationship,othernames,phoneday,categorycode,city,area,phone,borrowernotes,altphone,surname,