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

[Joshua Ferraro]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_2_2
Changes by:     Joshua Ferraro <address@hidden> 06/03/01 03:03:00

Modified files:
        C4             : Biblio.pm 

Log message:
        some updates.

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

Patches:
Index: koha/C4/Biblio.pm
diff -u koha/C4/Biblio.pm:1.115.2.34 koha/C4/Biblio.pm:1.115.2.35
--- koha/C4/Biblio.pm:1.115.2.34        Mon Feb 27 07:17:55 2006
+++ koha/C4/Biblio.pm   Wed Mar  1 03:02:59 2006
@@ -64,7 +64,7 @@
   &MARCmodsubfield &MARCaddsubfield
   &MARCmodbiblio &MARCmoditem
   &MARCkoha2marcBiblio &MARCmarc2koha
-  &MARCkoha2marcItem &MARChtml2marc
+  &MARCkoha2marcItem &MARChtml2marc &MARChtml2xml
   &MARCgetbiblio &MARCgetitem
   &MARCaddword &MARCdelword
   &MARCdelsubfield
@@ -1036,7 +1036,54 @@
     }
     return $record;
 }
+sub MARChtml2xml {
+       my ($tags,$subfields,$values,$indicator,$ind_tag) = @_;
+        
+       my $xml= MARC::File::XML::header();
+        my $prevvalue;
+        my $prevtag=-1;
+        my $first=1;
+
+        for (my $i=0;$i<address@hidden;$i++){
+
+            if ((@$tags[$i] ne $prevtag) && ($prevtag != -1)){
+                if ($first == 0){
+              $xml.="</datafield>\n";
+                $first=1;
+                }
+            } else {
+                if (@$values[$i] eq "") {
+                }
+                else {
+                    if ($first == 1){
+
+                       # leader
+                       if (@$tags[$i] eq "000") {
+                       $xml.="<leader>@$values[$i]</leader>\n";
+                       $first=1;
+
+                       # 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;
 
+                       # everything else
+                       } else {
+                       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";
+                }
+            }
+            $prevtag = @$tags[$i];
+        }
+        $xml.= MARC::File::XML::footer();
+       return $xml
+}
 sub MARChtml2marc {
        my ($dbh,$rtags,$rsubfields,$rvalues,%indicators) = @_;
        my $prevtag = -1;
@@ -2933,8 +2980,11 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.115.2.34 2006/02/27 07:17:55 rangi Exp $
+# $Id: Biblio.pm,v 1.115.2.35 2006/03/01 03:02:59 kados Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.115.2.35  2006/03/01 03:02:59  kados
+# some updates.
+#
 # Revision 1.115.2.34  2006/02/27 07:17:55  rangi
 # Hopefully a fix for a problem Joshua was having with blank tags being added
 #