support single fields without delimiters in marc_template

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1019 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/lib/WebPAC/Normalize.pm b/lib/WebPAC/Normalize.pm
index e5ade0e..3f089fb 100644 (file)
--- a/lib/WebPAC/Normalize.pm
+++ b/lib/WebPAC/Normalize.pm
@@ -959,7 +959,10 @@ sub marc_template {
 
                $fill_in = {};
 
-               foreach my $sf ( split(/\|/, $template ) ) {
+               my @templates = split(/\|/, $template );
+               @templates = ( $template );
+
+               foreach my $sf ( @templates ) {
                        sub fill_in {
                                my ( $r, $sf, $nr ) = @_;
                                my ( $from_sf, $from_nr ) = @{ $new_r->{ $sf }->[ $nr ] };

diff --git a/t/3-normalize.t b/t/3-normalize.t
index 0ca11f7..105c279 100755 (executable)
--- a/t/3-normalize.t
+++ b/t/3-normalize.t
@@ -917,6 +917,8 @@ sub test_s {
                                'v' => 'v-4-1',
                                'i' => 'i-4-1',
                                'w' => 'w-4-1',
+                       },{
+                               'a' => 'a-5-1',
                        }],
                },
                qq{
@@ -931,6 +933,7 @@ sub test_s {
                                        'w' => 'v',
                                ],
                                marc_template => [
+                                       'a',
                                        'a, |x ; |v. |n, |p ; |v',
                                        'a ; |v. |p ; |v',
                                        'a. |p ; |v',
@@ -942,6 +945,7 @@ sub test_s {
                        [440, " ", " ", "a", "a-2-1", "p", "i-2-1", "v", "v-2-1"],
                        [440, " ", " ", "a", "a-3-1", "p", "i-3-1", "v", "v-3-1"],
                        [440, " ", " ", "a", "a-4-1", "v", "v-4-1", "p", "i-4-1", "v", "w-4-1"],
+                       [440, " ", " ", "a", "a-5-1"],
                ],
        );
 }