[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 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.
 #