From 155e4f633a7fb8dc62c307b04748b39bf3cd8aec Mon Sep 17 00:00:00 2001 From: Lyon3 Team 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