marc to dublincore

LibreCat · May 16, 2012 · 2803e6a · 2803e6a
1 parent aaea50a
commit 2803e6a
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 4 deletions.
diff --git a/fix/marc2dublincore b/fix/marc2dublincore
@@ -127,8 +127,8 @@ marc_map('001','sys');
 marc_map('003','prefix');
 move_field('prefix','id.$append');
 move_field('sys','id.$append');
-#join_field('id',':');
+join_field('id',':');
-#move_field('id','identifier.$append');
+move_field('id','identifier.$append');
 
 marc_map('020a','identifier.$append');
 marc_map('022a','identifier.$append');
@@ -210,4 +210,5 @@ marc_map('247','title.$append');
 marc_map('Leader06','type.$append');
 marc_map('Leader07','type.$append');
 marc_map('655','type.$append');
-#remove_field('record');
+remove_field('record');
+remove_field('_id');
diff --git a/test/marc2dublin.pl b/test/marc2dublin.pl
@@ -37,7 +37,18 @@ BEGIN
         my $importer = Catmandu::Importer::MARC->new(file => $fh, type => 'XML');
         $fixer->fix($importer)->each(sub{
             my $ref = shift;
-            print Dumper($ref);
+            foreach(keys %$ref){
+                if(is_array_ref($ref->{$_})){
+                    delete $ref->{$_} if scalar(@{ $ref->{$_} }) <= 0;
+                }
+            }
+            foreach my $key(sort keys %$ref){
+                if(is_array_ref($ref->{$key})){
+                    printf("%20s : %s\n",$key,$_) foreach(@{ $ref->{$key} });
+                }else{
+
+                }
+            }
         });
         close $fh;
     }