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>
This commit is contained in:
Henri-Damien LAURENT 2010-05-20 20:54:59 +02:00 committed by Colin Campbell
parent 36e766aa4a
commit fc725ae643
1 changed files with 2 additions and 0 deletions

View File

@ -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;