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

Holding branch gets updated in MARC when a branch transfer occurs

Browse source
This commit is contained in:
tgarip1957 2006-04-10 20:42:18 +00:00
parent 64e4a87e49
commit 4d79160310
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
C4/Circulation/Circ2.pm
View file

@ -36,6 +36,7 @@ use C4::Reserves2;
use C4::Koha;
use C4::Accounts2;
use Date::Manip;
use C4::Biblio;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
@ -512,9 +513,23 @@ sub dotransfer {
#update holdingbranch in items .....
$dbh->do("UPDATE items set holdingbranch = $tbr WHERE items.itemnumber = $itm");
&itemseen($itm);
&domarctransfer($dbh,$itm);
return;
}
##New sub to dotransfer in marc tables as well. Not exported -TG 10/04/2006
sub domarctransfer{
my ($dbh,$itemnumber) = @_;
$itemnumber=~s /\'//g; ##itemnumber seems to come with quotes-TG
my $sth=$dbh->prepare("select biblionumber,holdingbranch from items where itemnumber=$itemnumber");
$sth->execute();
while (my ($biblionumber,$holdingbranch)=$sth->fetchrow ){
&MARCmoditemonefield($dbh,$biblionumber,$itemnumber,'items.holdingbranch',$holdingbranch,0);
}
return;
}
=head2 canbookbeissued
Check if a book can be issued.