MISSING_LOST

    MISSING_LOST

);

);

BEGIN {

BEGIN {

    $VERSION = 3.07.00.049;    # set version for version checking

    $VERSION = 3.07.00.049;    # set version for version checking

    require Exporter;

    require Exporter;

    my $query = "

    my $query = "

        UPDATE serial

        UPDATE serial

        SET claimdate = ?,

        SET claimdate = ?,

            claims_count = claims_count + 1

            claims_count = claims_count + 1

        WHERE  serialid in (" . join( ",", map { '?' } @$serialids ) . ")

        WHERE  serialid in (" . join( ",", map { '?' } @$serialids ) . ")

    ";

    ";

    my $rq = $dbh->prepare($query);

    my $rq = $dbh->prepare($query);

    return $rq->rows;

    return $rq->rows;

}

}

=head2 GetSerials2

=head2 GetSerials2

this function returns every serial waited for a given subscription

this function returns every serial waited for a given subscription

as well as the number of issues registered in the database (all types)

as well as the number of issues registered in the database (all types)

this number is used to see if a subscription can be deleted (=it must have only 1 issue)

this number is used to see if a subscription can be deleted (=it must have only 1 issue)

=cut

=cut

sub GetSerials2 {

sub GetSerials2 {

    my $dbh   = C4::Context->dbh;

    my $dbh   = C4::Context->dbh;

    my $query = qq|

    my $query = qq|

                 SELECT   serialid,serialseq, status, planneddate, publisheddate,notes, routingnotes

                 SELECT   serialid,serialseq, status, planneddate, publisheddate,notes, routingnotes

                 FROM     serial 

                 FROM     serial 

                 ORDER BY publisheddate,serialid DESC

                 ORDER BY publisheddate,serialid DESC

                    |;

                    |;

    $debug and warn "GetSerials2 query: $query";

    $debug and warn "GetSerials2 query: $query";

    my $dbh = C4::Context->dbh;

    my $dbh = C4::Context->dbh;

    my $strsth = "SELECT   serialid,serialseq, status, planneddate, publisheddate, notes

    my $strsth = "SELECT   serialid,serialseq, status, planneddate, publisheddate, notes

                        FROM     serial

                        FROM     serial

                        WHERE    subscriptionid = ?

                        WHERE    subscriptionid = ?

                        ORDER BY publisheddate DESC LIMIT 0,$limit

                        ORDER BY publisheddate DESC LIMIT 0,$limit

                ";

                ";

    my $sth = $dbh->prepare($strsth);

    my $sth = $dbh->prepare($strsth);

    # change status & update subscriptionhistory

    # change status & update subscriptionhistory

    my $val;

    my $val;

        DelIssue( { 'serialid' => $serialid, 'subscriptionid' => $subscriptionid, 'serialseq' => $serialseq } );

        DelIssue( { 'serialid' => $serialid, 'subscriptionid' => $subscriptionid, 'serialseq' => $serialseq } );

    } else {

    } else {

            $sth->execute($subscriptionid);

            $sth->execute($subscriptionid);

            my ( $missinglist, $recievedlist ) = $sth->fetchrow;

            my ( $missinglist, $recievedlist ) = $sth->fetchrow;

                $recievedlist .= "; $serialseq"

                $recievedlist .= "; $serialseq"

                    if ($recievedlist !~ /(^|;)\s*$serialseq(?=;|$)/);

                    if ($recievedlist !~ /(^|;)\s*$serialseq(?=;|$)/);

            }

            }

            # in case serial has been previously marked as missing

            # in case serial has been previously marked as missing

                $missinglist=~ s/(^|;)\s*$serialseq(?=;|$)//g;

                $missinglist=~ s/(^|;)\s*$serialseq(?=;|$)//g;

            }

            }

            $missinglist .= "; $serialseq"

            $missinglist .= "; $serialseq"

            $missinglist .= "; not issued $serialseq"

            $missinglist .= "; not issued $serialseq"

            $query = "UPDATE subscriptionhistory SET recievedlist=?, missinglist=? WHERE  subscriptionid=?";

            $query = "UPDATE subscriptionhistory SET recievedlist=?, missinglist=? WHERE  subscriptionid=?";

            $sth   = $dbh->prepare($query);

            $sth   = $dbh->prepare($query);

    }

    }

    # create new waited entry if needed (ie : was a "waited" and has changed)

    # create new waited entry if needed (ie : was a "waited" and has changed)

        my $subscription = GetSubscription($subscriptionid);

        my $subscription = GetSubscription($subscriptionid);

        my $pattern = C4::Serials::Numberpattern::GetSubscriptionNumberpattern($subscription->{numberpattern});

        my $pattern = C4::Serials::Numberpattern::GetSubscriptionNumberpattern($subscription->{numberpattern});

        $sth->execute( $newlastvalue1, $newlastvalue2, $newlastvalue3, $newinnerloop1, $newinnerloop2, $newinnerloop3, $subscriptionid );

        $sth->execute( $newlastvalue1, $newlastvalue2, $newlastvalue3, $newinnerloop1, $newinnerloop2, $newinnerloop3, $subscriptionid );

        # check if an alert must be sent... (= a letter is defined & status became "arrived"

        # check if an alert must be sent... (= a letter is defined & status became "arrived"

            require C4::Letters;

            require C4::Letters;

            C4::Letters::SendAlerts( 'issue', $subscription->{subscriptionid}, $subscription->{letter} );

            C4::Letters::SendAlerts( 'issue', $subscription->{subscriptionid}, $subscription->{letter} );

        }

        }

    };

    };

    my $sth = $dbh->prepare($query);

    my $sth = $dbh->prepare($query);

    my $nextissue = $sth->fetchrow_hashref;

    my $nextissue = $sth->fetchrow_hashref;

    if ( !$nextissue ) {

    if ( !$nextissue ) {

        $query = qq{

        $query = qq{

    #FIXME: Would expect to only set planneddate, but we set both on new issue creation, so updating it here

    #FIXME: Would expect to only set planneddate, but we set both on new issue creation, so updating it here

    my $sth = $dbh->prepare('UPDATE serial SET planneddate=?,publisheddate=? WHERE subscriptionid=? AND status=?');

    my $sth = $dbh->prepare('UPDATE serial SET planneddate=?,publisheddate=? WHERE subscriptionid=? AND status=?');

    return 0;

    return 0;

}

}

        VALUES (?,?,?,?,?,?)

        VALUES (?,?,?,?,?,?)

    |;

    |;

    $sth = $dbh->prepare($query);

    $sth = $dbh->prepare($query);

    logaction( "SERIAL", "ADD", $subscriptionid, "" ) if C4::Context->preference("SubscriptionLog");

    logaction( "SERIAL", "ADD", $subscriptionid, "" ) if C4::Context->preference("SubscriptionLog");

    $sth->execute($subscriptionid);

    $sth->execute($subscriptionid);

    my ( $missinglist, $recievedlist ) = $sth->fetchrow;

    my ( $missinglist, $recievedlist ) = $sth->fetchrow;

      ### TODO Add a feature that improves recognition and description.

      ### TODO Add a feature that improves recognition and description.

      ### As such count (serialseq) i.e. : N18,2(N19),N20

      ### As such count (serialseq) i.e. : N18,2(N19),N20

      ### Would use substr and index But be careful to previous presence of ()

      ### Would use substr and index But be careful to previous presence of ()

        $recievedlist .= "; $serialseq" unless (index($recievedlist,$serialseq)>0);

        $recievedlist .= "; $serialseq" unless (index($recievedlist,$serialseq)>0);

    }

    }

        $missinglist .= "; $serialseq" unless (index($missinglist,$serialseq)>0);

        $missinglist .= "; $serialseq" unless (index($missinglist,$serialseq)>0);

    }

    }

    $query = qq|

    $query = qq|

@issuelist = GetLateMissingIssues($supplierid,$serialid)

@issuelist = GetLateMissingIssues($supplierid,$serialid)

return :

return :

the issuelist as an array of hash refs. Each element of this array contains 

the issuelist as an array of hash refs. Each element of this array contains 

    } else {

    } else {

        $order = "title";

        $order = "title";

    }

    }

    if ($supplierid) {

    if ($supplierid) {

        $sth = $dbh->prepare(

        $sth = $dbh->prepare(

            "SELECT

            "SELECT

                LEFT JOIN biblioitems   ON subscription.biblionumber=biblioitems.biblionumber

                LEFT JOIN biblioitems   ON subscription.biblionumber=biblioitems.biblionumber

                LEFT JOIN aqbooksellers ON subscription.aqbooksellerid = aqbooksellers.id

                LEFT JOIN aqbooksellers ON subscription.aqbooksellerid = aqbooksellers.id

                WHERE subscription.subscriptionid = serial.subscriptionid

                WHERE subscription.subscriptionid = serial.subscriptionid

                AND subscription.aqbooksellerid=$supplierid

                AND subscription.aqbooksellerid=$supplierid

                $byserial

                $byserial

                ORDER BY $order"

                ORDER BY $order"

                LEFT JOIN biblio ON subscription.biblionumber=biblio.biblionumber

                LEFT JOIN biblio ON subscription.biblionumber=biblio.biblionumber

                LEFT JOIN aqbooksellers ON subscription.aqbooksellerid = aqbooksellers.id

                LEFT JOIN aqbooksellers ON subscription.aqbooksellerid = aqbooksellers.id

                WHERE subscription.subscriptionid = serial.subscriptionid

                WHERE subscription.subscriptionid = serial.subscriptionid

                $byserial

                $byserial

                ORDER BY $order"

                ORDER BY $order"

        );

        );

    }

    }

    my @issuelist;

    my @issuelist;

    while ( my $line = $sth->fetchrow_hashref ) {

    while ( my $line = $sth->fetchrow_hashref ) {

    my ( $subscriptionid ) = @_;

    my ( $subscriptionid ) = @_;

    return unless $subscriptionid;

    return unless $subscriptionid;

    my $dbh = C4::Context->dbh;

    my $dbh = C4::Context->dbh;

        UPDATE subscription

        UPDATE subscription

        SET closed = 1

        SET closed = 1

        WHERE subscriptionid = ?

        WHERE subscriptionid = ?

    $sth->execute( $subscriptionid );

    $sth->execute( $subscriptionid );

    # Set status = missing when status = stopped

    # Set status = missing when status = stopped

        UPDATE serial

        UPDATE serial

        WHERE subscriptionid = ?

        WHERE subscriptionid = ?

    } );

    } );

}

}

=head2 ReopenSubscription

=head2 ReopenSubscription

    my ( $subscriptionid ) = @_;

    my ( $subscriptionid ) = @_;

    return unless $subscriptionid;

    return unless $subscriptionid;

    my $dbh = C4::Context->dbh;

    my $dbh = C4::Context->dbh;

        UPDATE subscription

        UPDATE subscription

        SET closed = 0

        SET closed = 0

        WHERE subscriptionid = ?

        WHERE subscriptionid = ?

    $sth->execute( $subscriptionid );

    $sth->execute( $subscriptionid );

    # Set status = expected when status = stopped

    # Set status = expected when status = stopped

        UPDATE serial

        UPDATE serial

        WHERE subscriptionid = ?

        WHERE subscriptionid = ?

    } );

    } );

}

}

=head2 subscriptionCurrentlyOnOrder

=head2 subscriptionCurrentlyOnOrder

# If user comes from subscription details

# If user comes from subscription details

unless (@serialids) {

unless (@serialids) {

    my $serstatus = $query->param('serstatus');

    my $serstatus = $query->param('serstatus');

    if ($serstatus) {

    if ($serstatus) {

        foreach my $subscriptionid (@subscriptionids) {

        foreach my $subscriptionid (@subscriptionids) {

            push @serialids, map { $_->{serialid} } @tmpser;

            push @serialids, map { $_->{serialid} } @tmpser;

        }

        }

    }

    }