From aa29fb5e9b206c981c4fb7167f994045c0e6ca33 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 17 Mar 2015 11:56:56 +0100 Subject: [PATCH] Bug 13850: Fix typo in C4::Ris In C4/Ris.pm: @field_list = ('600', '601', '602', '604', '605', '606','607', '608', '610', '615', '620', '660'. '661', '670', '675', '676', '680', '686'); Note the '660'. '661' instead of '660', '661' Test plan: Add a 660 and 661 field to a record and export it in RIS The 660 and 661 field should be displayed (after "KW"). Signed-off-by: Mark Tompsett Signed-off-by: Katrin Fischer Signed-off-by: Tomas Cohen Arazi (cherry picked from commit a6facaa534d4378de37b8fd6a868e9e3a1ef908f) Signed-off-by: Chris Cormack --- C4/Ris.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C4/Ris.pm b/C4/Ris.pm index 137b99dd6a..4d36c613f2 100644 --- a/C4/Ris.pm +++ b/C4/Ris.pm @@ -222,7 +222,7 @@ sub marc2ris { my @field_list; if ($intype eq "unimarc") { - @field_list = ('600', '601', '602', '604', '605', '606','607', '608', '610', '615', '620', '660'. '661', '670', '675', '676', '680', '686'); + @field_list = ('600', '601', '602', '604', '605', '606','607', '608', '610', '615', '620', '660', '661', '670', '675', '676', '680', '686'); } elsif ($intype eq "ukmarc") { @field_list = ('600', '610', '611', '630', '650', '651','653', '655', '660', '661', '668', '690', '691', '692', '695'); } else { ## assume marc21 -- 2.39.5