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

bugfixing of the itemtypes infos in branchreserves,currenttransfers,waitingreservestransfers

This commit is contained in:
alaurin 2006-05-30 12:03:54 +00:00
parent ca23c659fc
commit f3fd911dc8
3 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
circ/branchreserves.pl
View File

@ -30,6 +30,7 @@ use C4::Circulation::Circ2;
use Date::Manip;
use C4::Reserves2;
use C4::Search;
use C4::Koha;
my $input = new CGI;
@ -103,6 +104,7 @@ foreach my $num (@getreserves) {
my %env;
my $gettitle = getiteminformation(\%env,$num->{'itemnumber'});
my $getborrower = getpatroninformation (\%env,$num->{'borrowernumber'});
my $itemtypeinfo = getitemtypeinfo($gettitle->{'itemtype'});
$getreserv{'waitingdate'} = format_date($num->{'waitingdate'});
my $calcDate=DateCalc($num->{'waitingdate'},"+".C4::Context->preference('ReservesMaxPickUpDelay')." days");
my $warning=Date_Cmp(ParseDate("today"),$calcDate);
@ -113,7 +115,7 @@ foreach my $num (@getreserves) {
$getreserv{'itemnumber'} = $gettitle->{'itemnumber'};
$getreserv{'biblionumber'} = $gettitle->{'biblionumber'};
$getreserv{'barcode'} = $gettitle->{'barcode'};
# $getreserv{'itemtype'} = ItemType($gettitle->{'itemtype'});
$getreserv{'itemtype'} = $itemtypeinfo->{'description'};
$getreserv{'homebranch'} = $gettitle->{'homebranch'};
$getreserv{'holdingbranch'} = $gettitle->{'holdingbranch'};
if ($gettitle->{'homebranch'} ne $gettitle->{'holdingbranch'}){

4
circ/currenttransfers.pl
View File

@ -78,12 +78,14 @@ foreach my $br (keys %$branches) {
$getransf{'messcompa'} = 1;
}
my $gettitle = getiteminformation(\%env,$num->{'itemnumber'});
my $itemtypeinfo = getitemtypeinfo($gettitle->{'itemtype'});
$getransf{'title'} = $gettitle->{'title'};
$getransf{'datetransfer'} = format_date($num->{'datesent'});
$getransf{'biblionumber'} = $gettitle->{'biblionumber'};
$getransf{'itemnumber'} = $gettitle->{'itemnumber'};
$getransf{'barcode'} = $gettitle->{'barcode'};
# $getransf{'itemtype'} = ItemType($gettitle->{'itemtype'});
$getransf{'itemtype'} = $itemtypeinfo->{'description'};
$getransf{'homebranch'} = $gettitle->{'homebranch'};
$getransf{'holdingbranch'} = $gettitle->{'holdingbranch'};
$getransf{'itemcallnumber'} = $gettitle->{'itemcallnumber'};

3
circ/waitingreservestransfers.pl
View File

@ -74,6 +74,7 @@ foreach my $br (keys %$branches) {
my %getreserv;
my %env;
my $gettitle = getiteminformation(\%env,$num->{'itemnumber'});
my $itemtypeinfo = getitemtypeinfo($gettitle->{'itemtype'});
if ($gettitle->{'holdingbranch'} eq $default){
my $getborrower = getpatroninformation (\%env,$num->{'borrowernumber'});
$getreserv{'reservedate'} = format_date($num->{'reservedate'});
@ -86,7 +87,7 @@ foreach my $br (keys %$branches) {
$getreserv{'biblionumber'} = $gettitle->{'biblionumber'};
$getreserv{'itemnumber'} = $gettitle->{'itemnumber'};
$getreserv{'barcode'} = $gettitle->{'barcode'};
# $getreserv{'itemtype'} = get_iteminfos_of($gettitle->{'itemtype'}->{'description'});
$getreserv{'itemtype'} = $itemtypeinfo->{'description'};
$getreserv{'holdingbranch'} = $gettitle->{'holdingbranch'};
$getreserv{'itemcallnumber'} = $gettitle->{'itemcallnumber'};
$getreserv{'borrowernum'} = $getborrower->{'borrowernumber'};