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

[Chris Cormack]

CVSROOT:	/sources/koha
Module name:	koha
Branch: 	rel_2_2
Changes by:	Chris Cormack <rangi at savannah.gnu.org>	06/03/01 04:52:08

Modified files:
	C4             : Biblio.pm 

Log message:
	More testing

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

Patches:
Index: koha/C4/Biblio.pm
diff -u koha/C4/Biblio.pm:1.115.2.38 koha/C4/Biblio.pm:1.115.2.39
--- koha/C4/Biblio.pm:1.115.2.38	Wed Mar  1 04:43:25 2006
+++ koha/C4/Biblio.pm	Wed Mar  1 04:52:08 2006
@@ -1043,7 +1043,7 @@
         my $prevtag=-1;
         my $first=1;
         for (my $i=0;$i<=@$tags;$i++){
-            if ((@$tags[$i] ne $prevtag) && ($prevtag != -1)){
+            if ((@$tags[$i] ne $prevtag)){
                 if (!$first){
 		    $xml.="</datafield>\n";
 		    $first=1;
@@ -1062,6 +1062,7 @@
 		    }
 		    else {
 			$xml.="<datafield tag=\"@$tags[$i]\" ind1=\"   \" ind2=\"   \">\n";
+			$xml.="<subfield code=\"@$subfields[$i]\">@$values[$i]</subfield>\n";
 			$first=0;			
 		    }
 		    }
@@ -1070,9 +1071,9 @@
                 if (@$values[$i] eq "") {
                 }
                 else {
-		    if (!$first){
-			$xml.="<subfield code=\"@$subfields[$i]\">@$values[$i]</subfield>\n";
-		    }
+		    
+		    $xml.="<subfield code=\"@$subfields[$i]\">@$values[$i]</subfield>\n";
+
                 }
             }
             $prevtag = @$tags[$i];
@@ -2976,8 +2977,11 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.115.2.38 2006/03/01 04:43:25 rangi Exp $
+# $Id: Biblio.pm,v 1.115.2.39 2006/03/01 04:52:08 rangi Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.115.2.39  2006/03/01 04:52:08  rangi
+# More testing
+#
 # Revision 1.115.2.38  2006/03/01 04:43:25  rangi
 # Fixing it again, for testing
 #