From 0da9ce83ee67ecbf17249e502aca5b58a72012bd Mon Sep 17 00:00:00 2001
From: kados <kados>
Date: Wed, 1 Mar 2006 05:20:17 +0000
Subject: [PATCH] Repeated tags working now. Indicators next

---
 C4/Biblio.pm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index 89b47b0fc9..8496855696 100644
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -1043,6 +1043,8 @@ sub MARChtml2xml {
         my $prevtag=-1;
         my $first=1;
         for (my $i=0;$i<=@$tags;$i++){
+
+	
             if ((@$tags[$i] ne $prevtag)){
                 if (!$first){
 		    $xml.="</datafield>\n";
@@ -1055,7 +1057,7 @@ sub MARChtml2xml {
 			$xml.="<leader>@$values[$i]</leader>\n";
 			$first=1;
 			# rest of the fixed fields
-		    } elsif (@$tags[$i] lt "010") {
+		    } elsif (@$tags[$i] < 10) {
 			warn "IN THE IF";
 			$xml.="<controlfield tag=\"@$tags[$i]\">@$values[$i]</controlfield>\n";
 			$first=1;
@@ -1071,7 +1073,10 @@ sub MARChtml2xml {
                 if (@$values[$i] eq "") {
                 }
                 else {
-		    
+		if ($first){
+		$xml.="<datafield tag=\"@$tags[$i]\" ind1=\"   \" ind2=\"   \">\n";
+		$first=0;
+		}
 		    $xml.="<subfield code=\"@$subfields[$i]\">@$values[$i]</subfield>\n";
 
                 }
@@ -1079,6 +1084,7 @@ sub MARChtml2xml {
             $prevtag = @$tags[$i];
         }
         $xml.= MARC::File::XML::footer();
+	warn $xml;
 	return $xml
 }
 sub MARChtml2marc {
@@ -2979,6 +2985,9 @@ Paul POULAIN paul.poulain@free.fr
 
 # $Id$
 # $Log$
+# Revision 1.115.2.40  2006/03/01 05:20:17  kados
+# Repeated tags working now. Indicators next
+#
 # Revision 1.115.2.39  2006/03/01 04:52:08  rangi
 # More testing
 #