[Koha-cvs] koha/C4 Biblio.pm [dev_week]

[Tumer Garip]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Tumer Garip <address@hidden>    06/05/09 08:27:42

Modified files:
        C4             : Biblio.pm 

Log message:
        koha_dev version with zebrasupport

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

Patches:
Index: koha/C4/Biblio.pm
diff -u koha/C4/Biblio.pm:1.115.2.51.2.3 koha/C4/Biblio.pm:1.115.2.51.2.4
--- koha/C4/Biblio.pm:1.115.2.51.2.3    Tue May  9 07:57:15 2006
+++ koha/C4/Biblio.pm   Tue May  9 08:27:41 2006
@@ -693,6 +693,7 @@
        my ($tags,$subfields,$values,$indicator,$ind_tag) = @_;        
        #use MARC::File::XML;
        my $xml= 
MARC::File::XML::header(C4::Context->preference('marcflavour'),C4::Context->preference('TemplateEncoding'));
 
+#my $xml= MARC::File::XML::header('UTF-8'); ##Uncommment the line above when 
new MARC::XML installed
        #$xml =~ s/UTF-8/ISO-8859-1/;
     my $prevvalue;
     my $prevtag=-1;
@@ -765,6 +766,7 @@
        my $prevvalue; # if tag <10
        my $field; # if tag >=10
        for (my $i=0; $i< @$rtags; $i++) {
+       next unless @$rvalues[$i];
                # rebuild MARC::Record
 #                      warn "0=>"address@hidden@$rsubfields[$i]." = 
"address@hidden": ";
                if (@$rtags[$i] ne $prevtag) {
@@ -1126,7 +1128,7 @@
     $item->{'biblionumber'}= $biblionumber;
      my $sth =
       $dbh->prepare(
-        "select biblioitemnumber,itemtypes from biblioitems where 
biblionumber=?");
+        "select biblioitemnumber,itemtype from biblioitems where 
biblionumber=?");
     $sth->execute( $item->{'biblionumber'} );
  my $itemtype;
     ( $item->{'biblioitemnumber'}, $itemtype ) = $sth->fetchrow;
@@ -2706,8 +2708,11 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.115.2.51.2.3 2006/05/09 07:57:15 tgarip1957 Exp $
+# $Id: Biblio.pm,v 1.115.2.51.2.4 2006/05/09 08:27:41 tgarip1957 Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.115.2.51.2.4  2006/05/09 08:27:41  tgarip1957
+# koha_dev version with zebrasupport
+#
 # Revision 1.115.2.51.2.3  2006/05/09 07:57:15  tgarip1957
 # *** empty log message ***
 #