[Koha-cvs] koha/C4 Biblio.pm [dev_week]
Tumer Garip
tgarip at neu.edu.tr
Tue May 9 10:27:42 CEST 2006
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 ***
#
More information about the Koha-cvs
mailing list