From 155e4f633a7fb8dc62c307b04748b39bf3cd8aec Mon Sep 17 00:00:00 2001
From: Lyon3 Team <koha@univ-lyon3.fr>
Date: Wed, 10 Oct 2012 10:11:11 +0200
Subject: [PATCH] Delete serials no more missing from missinglist

With manual history disabled, a serial prevously marked as missing was
not deleted from missinglist if received at the end or status changed to 'claimed or 'late'
---
 C4/Serials.pm |    5 ++++-
 1 files changed, 4 insertions(+), 1 deletions(-)

diff --git a/C4/Serials.pm b/C4/Serials.pm
index 574f88a..658a27f 100644
--- a/C4/Serials.pm
+++ b/C4/Serials.pm
@@ -1040,7 +1040,10 @@ sub ModSerialStatus {
                 $recievedlist .= "; $serialseq"
                   unless ( index( "$recievedlist", "$serialseq" ) >= 0 );
             }
-
+            # in case serial has been previously marked as missing
+            if ( $status ~~ (2,3,7)) {
+                $missinglist =~ s/[,;]?\s?$serialseq//g;
+            }
             #         warn "missinglist : $missinglist serialseq :$serialseq, ".index("$missinglist","$serialseq");
             $missinglist .= "; $serialseq"
               if ( $status == 4
-- 
1.7.2.5