gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

last commits before 1.9.1

This commit is contained in:
tipaul 2003-04-04 08:44:39 +00:00
parent e60f831e1f
commit 0435cd1e25
4 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
circ/selectbranchprinter.pl
View File

@ -28,6 +28,7 @@ use C4::Print;
use C4::Interface::CGI::Output;
use HTML::Template;
use DBI;
use C4::Koha;
# this is a reorganisation of circulationold.pl

2
detail.pl
View File

@ -33,8 +33,6 @@ my $type=$query->param('type');
($type) || ($type='intra');
my $biblionumber=$query->param('bib');
#my $type='intra'; # FIXME - There's already a $type in this scope
# change back when ive fixed request.pl
my @items = ItemInfo(undef, $biblionumber, $type);

8
insertdata.pl
View File

@ -51,8 +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'}=format_date_in_iso($data{'dateofbirth'});
$data{'joining'}=format_date_in_iso($data{'joining'});
$data{'dateofbirth'}=format_date($data{'dateofbirth'});
$data{'joining'}=format_date($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'}',
@ -67,8 +67,8 @@ if (my $data=$sth->fetchrow_hashref){
# print $query;
}else{
$data{'dateofbirth'}=format_date_in_iso($data{'dateofbirth'});
$data{'joining'}=format_date_in_iso($data{'joining'});
$data{'dateofbirth'}=format_date($data{'dateofbirth'});
$data{'joining'}=format_date($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,

6
updater/updatedatabase
View File

@ -279,7 +279,8 @@ my %tabledata=(
{ uniquefieldrequired => 'variable', variable => 'marc', value => 'ON', explanation => 'MARC support (ON or OFF)' },
{ uniquefieldrequired => 'variable', variable => 'marcflavour', value => 'MARC21', explanation => 'your MARC flavor (MARC21 or UNIMARC) used for character encoding' },
{ uniquefieldrequired => 'variable', variable => 'checkdigit', value => 'katipo', explanation => 'none= no check on member cardnumber. katipo= katipo check' },
],
{ uniquefieldrequired => 'variable', variable => 'dateformat', value => 'ISO', explanation => 'date format (US mm/dd/yyyy, metric dd/mm/yyy, ISO yyyy/mm/dd) ' },
],
);
@ -544,6 +545,9 @@ $sth->finish;
exit;
# $Log$
# Revision 1.39 2003/04/04 08:45:00 tipaul
# last commits before 1.9.1
#
# Revision 1.38 2003/03/18 10:58:19 tipaul
# adding checkdigit parameter that choose how to check the members cardnumber.
# At the moment :