From fc725ae6435cbd8dce3be4f92303c308a975779b Mon Sep 17 00:00:00 2001
From: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
Date: Thu, 20 May 2010 20:54:59 +0200
Subject: [PATCH] MT3667 : multiple display of same subscription

The same subscription would be displayed multiple times when coming from serials-edit.
This patch fixes that problem

Signed-off-by: Colin Campbell <colin.campbell@ptfs-europe.com>
---
 serials/serials-edit.pl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/serials/serials-edit.pl b/serials/serials-edit.pl
index 6357fc71f2..a2e4713e9b 100755
--- a/serials/serials-edit.pl
+++ b/serials/serials-edit.pl
@@ -71,6 +71,7 @@ use C4::Koha;
 use C4::Output;
 use C4::Context;
 use C4::Serials;
+use List::MoreUtils qw/uniq/;
 
 my $query           = CGI->new();
 my $dbh             = C4::Context->dbh;
@@ -85,6 +86,7 @@ my $op              = $query->param('op');
 if ( scalar(@subscriptionids) == 1 && index( $subscriptionids[0], q|,| ) > 0 ) {
     @subscriptionids = split( /,/, $subscriptionids[0] );
 }
+my @subscriptionids=uniq @subscriptionids;
 my @errors;
 my @errseq;
 
-- 
2.39.5