[Koha-cvs] koha/C4/Circulation Circ2.pm [dev_week]
Joshua Ferraro
jmf at kados.org
Sun Aug 27 02:32:06 CEST 2006
CVSROOT: /sources/koha
Module name: koha
Branch: dev_week
Changes by: Joshua Ferraro <kados> 06/08/27 00:32:06
Modified files:
C4/Circulation : Circ2.pm
Log message:
removing transfer's update of MARC record, we do it in batch now.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Circulation/Circ2.pm?cvsroot=koha&only_with_tag=dev_week&r1=1.87.2.14.2.6&r2=1.87.2.14.2.7
Patches:
Index: Circ2.pm
===================================================================
RCS file: /sources/koha/koha/C4/Circulation/Circ2.pm,v
retrieving revision 1.87.2.14.2.6
retrieving revision 1.87.2.14.2.7
diff -u -b -r1.87.2.14.2.6 -r1.87.2.14.2.7
--- Circ2.pm 27 Aug 2006 00:20:45 -0000 1.87.2.14.2.6
+++ Circ2.pm 27 Aug 2006 00:32:05 -0000 1.87.2.14.2.7
@@ -3,7 +3,7 @@
package C4::Circulation::Circ2;
-# $Id: Circ2.pm,v 1.87.2.14.2.6 2006/08/27 00:20:45 kados Exp $
+# $Id: Circ2.pm,v 1.87.2.14.2.7 2006/08/27 00:32:05 kados Exp $
#package to deal with Returns
#written 3/11/99 by olwen at katipo.co.nz
@@ -490,14 +490,15 @@
#actually do the transfer....
if ($dotransfer) {
dotransfer($iteminformation->{'itemnumber'}, $fbr, $tbr);
- my $dbh= C4::Context->dbh;
- my ($tagfield,$tagsubfield) = MARCfind_marc_from_kohafield($dbh,"items.holdingbranch");
- my $bibid = MARCfind_MARCbibid_from_oldbiblionumber( $dbh, $iteminformation->{'biblionumber'} );
- my $marcitem = MARCgetitem($dbh, $bibid, $iteminformation->{'itemnumber'});
- if ($marcitem->field($tagfield)){
- $marcitem->field($tagfield)->update($tagsubfield=> $tbr);
- MARCmoditem($dbh,$marcitem,$bibid,$iteminformation->{'itemnumber'});
- }
+ # don't need to update MARC anymore, we do it in batch now
+ #my $dbh= C4::Context->dbh;
+ #my ($tagfield,$tagsubfield) = MARCfind_marc_from_kohafield($dbh,"items.holdingbranch");
+ #my $bibid = MARCfind_MARCbibid_from_oldbiblionumber( $dbh, $iteminformation->{'biblionumber'} );
+ #my $marcitem = MARCgetitem($dbh, $bibid, $iteminformation->{'itemnumber'});
+ #if ($marcitem->field($tagfield)){
+ # $marcitem->field($tagfield)->update($tagsubfield=> $tbr);
+ # MARCmoditem($dbh,$marcitem,$bibid,$iteminformation->{'itemnumber'});
+ # }
$messages->{'WasTransfered'} = 1;
}
return ($dotransfer, $messages, $iteminformation);
More information about the Koha-cvs
mailing list