[Koha-cvs] koha/C4 Biblio.pm [rel_2_2]
Chris Cormack
chris at katipo.co.nz
Wed Mar 1 04:09:15 CET 2006
CVSROOT: /sources/koha
Module name: koha
Branch: rel_2_2
Changes by: Chris Cormack <rangi at savannah.gnu.org> 06/03/01 03:09:15
Modified files:
C4 : Biblio.pm
Log message:
Commiting for joshua to test
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/C4/Biblio.pm.diff?only_with_tag=rel_2_2&tr1=1.115.2.35&tr2=1.115.2.36&r1=text&r2=text
Patches:
Index: koha/C4/Biblio.pm
diff -u koha/C4/Biblio.pm:1.115.2.35 koha/C4/Biblio.pm:1.115.2.36
--- koha/C4/Biblio.pm:1.115.2.35 Wed Mar 1 03:02:59 2006
+++ koha/C4/Biblio.pm Wed Mar 1 03:09:15 2006
@@ -1059,24 +1059,26 @@
# leader
if (@$tags[$i] eq "000") {
- $xml.="<leader>@$values[$i]</leader>\n";
- $first=1;
+ $xml.="<leader>@$values[$i]</leader>\n";
+ $first=1;
- # rest of the fixed fields
+ # rest of the fixed fields
} elsif (@$tags[$i] lt "010") {
- warn "IN THE IF";
- $xml.="<controlfield tag=\"@$tags[$i]\">@$values[$i]</controlfield>\n";
- $first=1;
+ warn "IN THE IF";
+ $xml.="<controlfield tag=\"@$tags[$i]\">@$values[$i]</controlfield>\n";
+ $first=1;
# everything else
} else {
- warn "NOT CALLED";
- warn @$tags[$i];
- $xml.="<datafield tag=\"@$tags[$i]\" ind1=\" \" ind2=\" \">\n";
- $first=0;
+ warn "NOT CALLED";
+ warn @$tags[$i];
+ $xml.="<datafield tag=\"@$tags[$i]\" ind1=\" \" ind2=\" \">\n";
+ $first=0;
}
}
- $xml.="<subfield code=\"@$subfields[$i]\">@$values[$i]</subfield>\n";
+ if (!$first){
+ $xml.="<subfield code=\"@$subfields[$i]\">@$values[$i]</subfield>\n";
+ }
}
}
$prevtag = @$tags[$i];
@@ -2980,8 +2982,11 @@
=cut
-# $Id: Biblio.pm,v 1.115.2.35 2006/03/01 03:02:59 kados Exp $
+# $Id: Biblio.pm,v 1.115.2.36 2006/03/01 03:09:15 rangi Exp $
# $Log: Biblio.pm,v $
+# Revision 1.115.2.36 2006/03/01 03:09:15 rangi
+# Commiting for joshua to test
+#
# Revision 1.115.2.35 2006/03/01 03:02:59 kados
# some updates.
#
More information about the Koha-cvs
mailing list