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

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

Return to bug 10092