[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4 Search.pm,1.18.2.19,1.18.2.20 Reserves2.pm,1.5.2
From: |
Finlay Thompson |
Subject: |
[Koha-cvs] CVS: koha/C4 Search.pm,1.18.2.19,1.18.2.20 Reserves2.pm,1.5.2.13,1.5.2.14 |
Date: |
Thu, 28 Nov 2002 02:53:40 -0800 |
Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv31395
Modified Files:
Tag: rel-1-2
Search.pm Reserves2.pm
Log Message:
Some small changes to handle to new opac
Index: Search.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Search.pm,v
retrieving revision 1.18.2.19
retrieving revision 1.18.2.20
diff -C2 -r1.18.2.19 -r1.18.2.20
*** Search.pm 27 Nov 2002 01:48:53 -0000 1.18.2.19
--- Search.pm 28 Nov 2002 10:53:38 -0000 1.18.2.20
***************
*** 1265,1268 ****
--- 1265,1269 ----
# according to local convention.
my @temp=split('-',$idata->{'date_due'});
+ $data->{'date_due'} = $idata->{'date_due'};
$datedue = "$temp[2]/$temp[1]/$temp[0]";
}
***************
*** 1301,1305 ****
$data->{'publictype'} = $bdata->{'publictype'};
}
-
my $class = $data->{'classification'};
--- 1302,1305 ----
Index: Reserves2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Reserves2.pm,v
retrieving revision 1.5.2.13
retrieving revision 1.5.2.14
diff -C2 -r1.5.2.13 -r1.5.2.14
*** Reserves2.pm 26 Nov 2002 04:45:03 -0000 1.5.2.13
--- Reserves2.pm 28 Nov 2002 10:53:38 -0000 1.5.2.14
***************
*** 304,309 ****
sub CreateReserve {
! my
!
($env,$branch,$borrnum,$biblionumber,$constraint,$bibitems,$priority,$notes,$title,$required_date,
$expires_date)= @_;
my $fee=CalcReserveFee($env,$borrnum,$biblionumber,$constraint,$bibitems);
my $dbh = &C4Connect;
--- 304,308 ----
sub CreateReserve {
! my
($env,$branch,$borrnum,$biblionumber,$constraint,$bibitems,$priority,$notes,$title)=
@_;
my $fee=CalcReserveFee($env,$borrnum,$biblionumber,$constraint,$bibitems);
my $dbh = &C4Connect;
***************
*** 326,332 ****
#if ($const eq 'a'){
my $query="insert into reserves
!
(borrowernumber,biblionumber,reservedate,branchcode,constrainttype,priority,reservenotes,required_date,expires_date)
! values
! (?, ?, ?, ?, ?, ?, ?, ?, ?)";
my $sth = $dbh->prepare($query);
$sth->execute($borrnum,
--- 325,330 ----
#if ($const eq 'a'){
my $query="insert into reserves
!
(borrowernumber,biblionumber,reservedate,branchcode,constrainttype,priority,reservenotes)
! values (?, ?, ?, ?, ?, ?, ?)";
my $sth = $dbh->prepare($query);
$sth->execute($borrnum,
***************
*** 336,342 ****
$const,
$priority,
! $notes,
! $required_date,
! $expires_date);
$sth->finish;
#}
--- 334,338 ----
$const,
$priority,
! $notes);
$sth->finish;
#}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4 Search.pm,1.18.2.19,1.18.2.20 Reserves2.pm,1.5.2.13,1.5.2.14,
Finlay Thompson <=
- Prev by Date:
[Koha-cvs] CVS: koha/opac opac-reserve.pl,1.1.2.7,1.1.2.8
- Next by Date:
[Koha-cvs] CVS: koha/koha-tmpl/opac-tmpl/hlt/en/includes search-botnav.inc,1.1.2.1,1.1.2.2 search-left-nav.inc,1.1.2.1,1.1.2.2
- Previous by thread:
[Koha-cvs] CVS: koha/opac opac-reserve.pl,1.1.2.7,1.1.2.8
- Next by thread:
[Koha-cvs] CVS: koha/koha-tmpl/opac-tmpl/hlt/en/includes search-botnav.inc,1.1.2.1,1.1.2.2 search-left-nav.inc,1.1.2.1,1.1.2.2
- Index(es):