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

[Tumer Garip]

CVSROOT:	/sources/koha
Module name:	koha
Branch: 	dev_week
Changes by:	Tumer Garip <tgarip1957 at savannah.gnu.org>	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=>".@$rtags[$i].@$rsubfields[$i]." = ".@$rvalues[$i].": ";
 		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 ***
 #