From 0aaeb4370650f12e3033ba55ef8829138ca15f53 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 --- C4/Ris.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C4/Ris.pm b/C4/Ris.pm index 137b99d..4d36c61 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 -- 1.9.1