Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug Fixing.

Browse source 
An inconsistency in function signature caused a shift between date received and publication date.
This commit is contained in:
hdl 2007-06-27 15:10:44 +00:00
parent d71a9d3d5b
commit 5292b2c0fc
1 changed files with 20 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
C4/Serials.pm
View file

@ -1153,7 +1153,7 @@ sub ModSubscriptionHistory {
=over 4
ModSerialStatus($serialid,$serialseq, $publisheddate,$planneddate,$status,$notes)
ModSerialStatus($serialid,$serialseq, $planneddate,$publisheddate,$status,$notes)
This function modify the serial status. Serial status is a number.(eg 2 is "arrived")
Note : if we change from "waited" to something else,then we will have to create a new "waited" entry
@ -1163,7 +1163,7 @@ Note : if we change from "waited" to something else,then we will have to create
=cut
sub ModSerialStatus {
my ( $serialid, $serialseq, $publisheddate, $planneddate, $status, $notes )
my ( $serialid, $serialseq, $planneddate,$publisheddate, $status, $notes )
= @_;
#It is a usual serial
@ -1442,23 +1442,23 @@ sub ReNewSubscription {
= @_;
my $dbh = C4::Context->dbh;
my $subscription = GetSubscription($subscriptionid);
# my $query = qq|
# SELECT *
# FROM biblio,biblioitems
# WHERE biblio.biblionumber=biblioitems.biblionumber
# AND biblio.biblionumber=?
# |;
# my $sth = $dbh->prepare($query);
# $sth->execute( $subscription->{biblionumber} );
# my $biblio = $sth->fetchrow_hashref;
# NewSuggestion(
# $user, $subscription->{bibliotitle},
# $biblio->{author}, $biblio->{publishercode},
# $biblio->{note}, '',
# '', '',
# '', '',
# $subscription->{biblionumber}
# );
my $query = qq|
SELECT *
FROM biblio,biblioitems
WHERE biblio.biblionumber=biblioitems.biblionumber
AND biblio.biblionumber=?
|;
my $sth = $dbh->prepare($query);
$sth->execute( $subscription->{biblionumber} );
my $biblio = $sth->fetchrow_hashref;
NewSuggestion(
$user, $subscription->{bibliotitle},
$biblio->{author}, $biblio->{publishercode},
$biblio->{note}, '',
'', '',
'', '',
$subscription->{biblionumber}
);
# renew subscription
my $query = qq|
@ -1478,7 +1478,7 @@ sub ReNewSubscription {
=over 4
NewIssue($serialseq,$subscriptionid,$biblionumber,$status, $publisheddate, $planneddate)
NewIssue($serialseq,$subscriptionid,$biblionumber,$status, $planneddate, $publisheddate, $notes)
Create a new issue stored on the database.
Note : we have to update the recievedlist and missinglist on subscriptionhistory for this subscription.