View | Details | Raw Unified | Return to bug 10092
Collapse All | Expand All

(-)a/C4/Serials.pm (-8 / +14 lines)
Lines 1131-1148 sub ModSerialStatus { Link Here
1131
            $sth   = $dbh->prepare($query);
1131
            $sth   = $dbh->prepare($query);
1132
            $sth->execute($subscriptionid);
1132
            $sth->execute($subscriptionid);
1133
            my ( $missinglist, $recievedlist ) = $sth->fetchrow;
1133
            my ( $missinglist, $recievedlist ) = $sth->fetchrow;
1134
            if ( $status == 2 ) {
1134
1135
            #Arrived: add to received list, remove from missing
1136
            if($status==2) {
1135
                $recievedlist .= "; $serialseq"
1137
                $recievedlist .= "; $serialseq"
1136
                    if $recievedlist!~/(^|;)\s*$serialseq(?=;|$)/;
1138
                    if $recievedlist!~/(^|;)\s*$serialseq(?=;|$)/;
1139
                $missinglist=~ s/(^|;)\s*$serialseq(?=;|$)//g;
1137
            }
1140
            }
1138
            # in case serial has been previously marked as missing
1141
            #Expected,late,claimed: remove optionally from received+missing
1139
            if (grep /$status/, (1,2,3,7)) {
1142
            if (grep /$status/, (1,3,7)) {
1143
                $recievedlist=~ s/(^|;)\s*$serialseq(?=;|$)//g;
1140
                $missinglist=~ s/(^|;)\s*$serialseq(?=;|$)//g;
1144
                $missinglist=~ s/(^|;)\s*$serialseq(?=;|$)//g;
1141
            }
1145
            }
1142
            $missinglist .= "; $serialseq"
1146
            #Missing, not available: add to missing, remove from received
1143
                if $status==4 && $missinglist!~/(^|;)\s*$serialseq(?=;|$)/;
1147
            #No longer putting additional text into missing field
1144
            $missinglist .= "; not issued $serialseq"
1148
            if($status==4 || $status==5) {
1145
                if $status==5 && $missinglist!~/(^|;)\s*$serialseq(?=;|$)/;
1149
                $missinglist .= "; $serialseq"
1150
                    if $missinglist!~/(^|;)\s*$serialseq(?=;|$)/;
1151
                $recievedlist=~ s/(^|;)\s*$serialseq(?=;|$)//g;
1152
            }
1146
1153
1147
            $query = "UPDATE subscriptionhistory SET recievedlist=?, missinglist=? WHERE  subscriptionid=?";
1154
            $query = "UPDATE subscriptionhistory SET recievedlist=?, missinglist=? WHERE  subscriptionid=?";
1148
            $sth   = $dbh->prepare($query);
1155
            $sth   = $dbh->prepare($query);
1149
- 

Return to bug 10092