[Koha-cvs] koha/C4 Biblio.pm

[Tumer Garip]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         
Changes by:     Tumer Garip <address@hidden>    06/04/10 20:39:49

Modified files:
        C4             : Biblio.pm 

Log message:
        New sub to use by Circ2.pm . Allows one subfield of MARC holdings 
fields to be updated to use with branch transfer(holdingbranch) and onloan flag 
when set

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/C4/Biblio.pm.diff?tr1=1.168&tr2=1.169&r1=text&r2=text

Patches:
Index: koha/C4/Biblio.pm
diff -u koha/C4/Biblio.pm:1.168 koha/C4/Biblio.pm:1.169
--- koha/C4/Biblio.pm:1.168     Mon Apr  3 04:00:02 2006
+++ koha/C4/Biblio.pm   Mon Apr 10 20:39:49 2006
@@ -32,7 +32,7 @@
 use vars qw($VERSION @ISA @EXPORT);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.168 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.169 $' =~ /\d+/g;
                 shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
 
 @ISA = qw(Exporter);
@@ -70,7 +70,7 @@
   &MARCkoha2marcBiblio &MARCmarc2koha
   &MARCkoha2marcItem &MARChtml2marc &MARChtml2xml
   &MARCgetbiblio &MARCgetitem
-  MARCfind_MARCbibid_from_oldbiblionumber
+  &MARCmoditemonefield
   &XMLgetbiblio
   
   &FindDuplicate
@@ -275,7 +275,7 @@
 sub marc2xml {
        my ($record) = @_;
        my $xmlrecord;
-       eval { $xmlrecord=$record->as_xml() };
+       eval { $xmlrecord=$record->as_xml_record() };
        #TODO: better error handling here
        if ($@){
                warn "ERROR: I suspect a badly formatted MARC record";
@@ -476,7 +476,7 @@
        $sth->execute($biblionumber);
        my ($rawmarc) = $sth->fetchrow;
        my $record = C4::Search::get_record($biblionumber);
-       warn "ITEMRECORD".$record->as_formatted;
+#      warn "ITEMRECORD".$record->as_formatted;
        # now, find the relevant itemnumber
        my ($itemnumberfield,$itemnumbersubfield) = 
MARCfind_marc_from_kohafield($dbh,'items.itemnumber',$frameworkcode);
        # prepare the new item record
@@ -484,19 +484,53 @@
        # parse all fields fields from the complete record
        foreach ($record->field($itemnumberfield)) {
                # when the item field is found, save it
-               warn "Itenumberfield = $itemnumberfield";
+#              warn "Itenumberfield = $itemnumberfield";
                if ($_->subfield($itemnumbersubfield) == $itemnumber) {
-                       warn "Inside if subfield=$itemnumbersubfield";
+#                      warn "Inside if subfield=$itemnumbersubfield";
                        $itemrecord->append_fields($_);
                } else {
                        warn "No match subfield=$itemnumbersubfield and
                                       itemnumber=$itemnumber";
                }
        }
-       warn "ITEMS".$itemrecord->as_formatted;
+#      warn "ITEMS".$itemrecord->as_formatted;
     return $itemrecord;
 }
 
+
+##Changes only field or subfield from the holdings fields of MARC record used 
for branch transfers or onloan flag -TG
+
+
+sub MARCmoditemonefield{
+my ($dbh,$biblionumber,$itemnumber,$itemfield,$newvalue)address@hidden;
+
+my $frameworkcode=MARCfind_frameworkcode($dbh,$biblionumber);
+       # get the complete MARC record
+       my $sth = $dbh->prepare("select marc from biblioitems where 
biblionumber=?");
+       $sth->execute($biblionumber);
+       my ($rawmarc) = $sth->fetchrow;
+my $bibliorecord=MARC::File::USMARC::decode($rawmarc);
+       # now, find the relevant itemnumber
+       my ($itemnumberfield,$itemnumbersubfield) = 
MARCfind_marc_from_kohafield($dbh,'items.itemnumber',$frameworkcode);
+       my ($tagfield,$tagsubfield) = 
MARCfind_marc_from_kohafield($dbh,$itemfield,$frameworkcode);
+       
+       # parse all fields fields from the complete record
+       foreach ($bibliorecord->field($itemnumberfield)) {
+               # when the item field is found, update it
+               if ($_->subfield($itemnumbersubfield) == $itemnumber) {
+                       $_->update($tagsubfield =>$newvalue);
+               } 
+       }
+
+ # save the record into biblioitem
+$dbh->do('lock tables biblioitems WRITE');
+       $sth=$dbh->prepare("update biblioitems set marc=?,marcxml=? where 
biblionumber=?");
+       
$sth->execute($bibliorecord->as_usmarc(),$bibliorecord->as_xml_record(),$biblionumber);
+       
z3950_extended_services('update',set_service_options('update'),$bibliorecord);
+        z3950_extended_services('commit');
+       $dbh->do('unlock tables');
+}
+
 =head2 find_biblioitemnumber
 
 my $biblioitemnumber = find_biblioitemnumber($dbh,$biblionumber);
@@ -867,7 +901,7 @@
 
        #create the marc entry, that stores the rax marc record in Koha 3.0
        $olddata->{marc} = $record->as_usmarc();
-       $olddata->{marcxml} = $record->as_xml();
+       $olddata->{marcxml} = $record->as_xml_record();
        # and create biblioitem, that's all folks !
     $biblioitemnumber = REALnewbiblioitem( $dbh, $olddata );
 
@@ -947,7 +981,7 @@
        #create the marc entry, that stores the rax marc record in Koha 3.0
        $oldbiblio->{biblionumber} = $biblionumber unless 
$oldbiblio->{biblionumber};
        $oldbiblio->{marc} = $record->as_usmarc();
-       $oldbiblio->{marcxml} = $record->as_xml();
+       $oldbiblio->{marcxml} = $record->as_xml_record();
        warn "dans NEWmodbiblio $biblionumber = ".$oldbiblio->{biblionumber}." 
= ".$oldbiblio->{marcxml};
        REALmodbiblio($dbh,$oldbiblio);
        REALmodbiblioitem($dbh,$oldbiblio);
@@ -1376,7 +1410,7 @@
        my $field=$record->field($biblioitemnumberfield);
        $field->update($biblioitemnumbersubfield => "$biblioitemnumber");
        $biblioitem->{marc} = $record->as_usmarc();
-       $biblioitem->{marcxml} = $record->as_xml();
+       $biblioitem->{marcxml} = $record->as_xml_record();
 
        $sth = $dbh->prepare( "insert into biblioitems set
                                                                        
biblioitemnumber = ?,           biblionumber     = ?,
@@ -1552,7 +1586,7 @@
        $record->insert_grouped_field($itemfield);
        # save the record into biblioitem
        $sth=$dbh->prepare("update biblioitems set marc=?,marcxml=? where 
biblionumber=?");
-       
$sth->execute($record->as_usmarc(),$record->as_xml(),$item->{biblionumber});
+       
$sth->execute($record->as_usmarc(),$record->as_xml_record(),$item->{biblionumber});
     if ( defined $sth->errstr ) {
         $error .= $sth->errstr;
     }
@@ -1651,7 +1685,7 @@
 #      $record->insert_grouped_field($itemfield);
        # save the record into biblioitem
        $sth=$dbh->prepare("update biblioitems set marc=?,marcxml=? where 
biblionumber=? and biblioitemnumber=?");
-       
$sth->execute($record->as_usmarc(),$record->as_xml(),$item->{biblionumber},$item->{biblioitemnumber});
+       
$sth->execute($record->as_usmarc(),$record->as_xml_record(),$item->{biblionumber},$item->{biblioitemnumber});
        z3950_extended_services('update',set_service_options('update'),$record);
         z3950_extended_services('commit');
     if ( defined $sth->errstr ) {
@@ -3027,8 +3061,11 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.168 2006/04/03 04:00:02 rangi Exp $
+# $Id: Biblio.pm,v 1.169 2006/04/10 20:39:49 tgarip1957 Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.169  2006/04/10 20:39:49  tgarip1957
+# New sub to use by Circ2.pm . Allows one subfield of MARC holdings fields to 
be updated to use with branch transfer(holdingbranch) and onloan flag when set
+#
 # Revision 1.168  2006/04/03 04:00:02  rangi
 # Modify item now works
 #