&UpdateClaimdateIssues
&GetSuppliersWithLateIssues &getsupplierbyserialid
- &GetDistributedTo &SetDistributedTo
&getroutinglist &delroutingmember &addroutingmember
&reorder_members
&check_routing &updateClaim &removeMissingIssue
- &old_newsubscription &old_modsubscription &old_getserials
);
}
while ( my ( $id, $name ) = $sth->fetchrow ) {
$supplierlist{$id} = $name;
}
- if ( C4::Context->preference("RoutingSerials") ) {
- $supplierlist{''} = "All Suppliers";
- }
return %supplierlist;
}
aqbudget.bookfundid,aqbooksellers.name as aqbooksellername,
biblio.title as bibliotitle,
subscription.branchcode AS branchcode,
+ branches.branchname AS branchname,
subscription.subscriptionid AS subscriptionid|;
if (C4::Context->preference('IndependantBranches') &&
C4::Context->userenv &&
(serial.subscriptionid=subscription.subscriptionid)
LEFT JOIN aqbudget ON subscription.aqbudgetid=aqbudget.aqbudgetid
LEFT JOIN aqbooksellers on subscription.aqbooksellerid=aqbooksellers.id
+ LEFT JOIN branches ON branches.branchcode=subscription.branchcode
LEFT JOIN biblio on biblio.biblionumber=subscription.biblionumber
WHERE subscription.biblionumber = ?
ORDER BY year DESC,
FROM serial
WHERE subscriptionid = ?
AND (status =2 or status=4)
- ORDER BY planneddate DESC LIMIT 0,$limit
+ ORDER BY publisheddate DESC LIMIT 0,$limit
";
my $sth = $dbh->prepare($strsth);
$sth->execute($subscriptionid);
return \@serials;
}
-=head2 GetDistributedTo
-
-=over 4
-
-$distributedto=GetDistributedTo($subscriptionid)
-This function select the old previous value of distributedto in the database.
-
-=back
-
-=cut
-
-sub GetDistributedTo {
- my $dbh = C4::Context->dbh;
- my $distributedto;
- my $subscriptionid = @_;
- my $query = "SELECT distributedto FROM subscription WHERE subscriptionid=?";
- my $sth = $dbh->prepare($query);
- $sth->execute($subscriptionid);
- return ($distributedto) = $sth->fetchrow;
-}
-
=head2 GetNextSeq
=over 4
my $dbh = C4::Context->dbh;
my $subscription = GetSubscription($subscriptionid);
my $enddate = $subscription->{startdate};
-
+
+ return if not $subscription->{startdate};
+
# we don't do the same test if the subscription is based on X numbers or on X weeks/months
if (($subscription->{periodicity} % 16) >0){
if ( $subscription->{numberlength} ) {
WHERE subscriptionid=?
";
my $sth = $dbh->prepare($query);
- $recievedlist =~ s/^,//g;
- $missinglist =~ s/^,//g;
- $opacnote =~ s/^,//g;
+ $recievedlist =~ s/^; //;
+ $missinglist =~ s/^; //;
+ $opacnote =~ s/^; //;
$sth->execute(
$histstartdate, $enddate, $recievedlist, $missinglist,
$opacnote, $librariannote, $subscriptionid
my ( $missinglist, $recievedlist ) = $sth->fetchrow;
if ( $status eq 2 ) {
-# warn "receivedlist : $recievedlist serialseq :$serialseq, ".index("$recievedlist","$serialseq");
- $recievedlist .= ",$serialseq"
+ $recievedlist .= "; $serialseq"
unless ( index( "$recievedlist", "$serialseq" ) >= 0 );
}
# warn "missinglist : $missinglist serialseq :$serialseq, ".index("$missinglist","$serialseq");
- $missinglist .= ",$serialseq"
+ $missinglist .= "; $serialseq"
if ( $status eq 4
and not index( "$missinglist", "$serialseq" ) >= 0 );
- $missinglist .= ",not issued $serialseq"
+ $missinglist .= "; not issued $serialseq"
if ( $status eq 5
and index( "$missinglist", "$serialseq" ) >= 0 );
$query =
"UPDATE subscriptionhistory SET recievedlist=?, missinglist=? WHERE subscriptionid=?";
$sth = $dbh->prepare($query);
+ $recievedlist =~ s/^; //;
+ $missinglist =~ s/^; //;
$sth->execute( $recievedlist, $missinglist, $subscriptionid );
}
}
### TODO Add a feature that improves recognition and description.
### As such count (serialseq) i.e. : N18,2(N19),N20
### 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);
}
if ( $status eq 4 ) {
- $missinglist .= ",$serialseq" unless (index($missinglist,$serialseq)>0);
+ $missinglist .= "; $serialseq" unless (index($missinglist,$serialseq)>0);
}
$query = qq|
UPDATE subscriptionhistory
WHERE subscriptionid=?
|;
$sth = $dbh->prepare($query);
+ $recievedlist =~ s/^; //;
+ $missinglist =~ s/^; //;
$sth->execute( $recievedlist, $missinglist, $subscriptionid );
return $serialid;
}
=over 4
-1 or 0 = HasSubscriptionExpired($subscriptionid)
+$has_expired = HasSubscriptionExpired($subscriptionid)
the subscription has expired when the next issue to arrive is out of subscription limit.
return :
-1 if true, 0 if false.
+0 if the subscription has not expired
+1 if the subscription has expired
+2 if has subscription does not have a valid expiration date set
=back
my ($res) = $sth->fetchrow ;
my @res=split (/-/,$res);
my @endofsubscriptiondate=split(/-/,$expirationdate);
- return 2 if (not check_date(@res) || not check_date(@endofsubscriptiondate));
+ return 2 if (scalar(@res)!=3 || scalar(@endofsubscriptiondate)!=3||not check_date(@res) || not check_date(@endofsubscriptiondate));
return 1 if ( (@endofsubscriptiondate && Delta_Days($res[0],$res[1],$res[2],
$endofsubscriptiondate[0],$endofsubscriptiondate[1],$endofsubscriptiondate[2]) <= 0)
|| (!$res));
return 0; # Notice that you'll never get here.
}
-=head2 SetDistributedto
-
-=over 4
-
-SetDistributedto($distributedto,$subscriptionid);
-This function update the value of distributedto for a subscription given on input arg.
-
-=back
-
-=cut
-
-sub SetDistributedto {
- my ( $distributedto, $subscriptionid ) = @_;
- my $dbh = C4::Context->dbh;
- my $query = qq|
- UPDATE subscription
- SET distributedto=?
- WHERE subscriptionid=?
- |;
- my $sth = $dbh->prepare($query);
- $sth->execute( $distributedto, $subscriptionid );
-}
-
=head2 DelSubscription
=over 4
} else {return 0}
}
-=head2 old_newsubscription
-
-=over 4
-
-($subscriptionid) = &old_newsubscription($auser,$aqbooksellerid,$cost,$aqbudgetid,$biblionumber,
- $startdate,$periodicity,$firstacquidate,$dow,$irregularity,$numberpattern,$numberlength,$weeklength,$monthlength,
- $add1,$every1,$whenmorethan1,$setto1,$lastvalue1,
- $add2,$every2,$whenmorethan2,$setto2,$lastvalue2,
- $add3,$every3,$whenmorethan3,$setto3,$lastvalue3,
- $numberingmethod, $status, $callnumber, $notes, $hemisphere)
-
-this function is similar to the NewSubscription subroutine but has a few different
-values passed in
-$firstacquidate - date of first serial issue to arrive
-$irregularity - the issues not expected separated by a '|'
-- eg. monthly issue but not expecting issue for june and july would have $irregularity of '6|7'
-$numberpattern - the number for an array of labels to reconstruct the javascript correctly in the
- subscription-add.tmpl file
-$callnumber - display the callnumber of the serial
-$hemisphere - either 2 = southern hemisphere or 1 = northern hemisphere - used for quarterly serials
-
-return :
-the $subscriptionid number of the new subscription
-
-=back
-
-=cut
-
-sub old_newsubscription {
- my (
- $auser, $aqbooksellerid, $cost, $aqbudgetid,
- $biblionumber, $startdate, $periodicity, $firstacquidate,
- $dow, $irregularity, $numberpattern, $numberlength,
- $weeklength, $monthlength, $add1, $every1,
- $whenmorethan1, $setto1, $lastvalue1, $add2,
- $every2, $whenmorethan2, $setto2, $lastvalue2,
- $add3, $every3, $whenmorethan3, $setto3,
- $lastvalue3, $numberingmethod, $status, $callnumber,
- $notes, $hemisphere
- ) = @_;
- my $dbh = C4::Context->dbh;
-
- #save subscription
- my $sth = $dbh->prepare(
-"insert into subscription (librarian,aqbooksellerid,cost,aqbudgetid,biblionumber,
- startdate,periodicity,firstacquidate,dow,irregularity,numberpattern,numberlength,weeklength,monthlength,
- add1,every1,whenmorethan1,setto1,lastvalue1,
- add2,every2,whenmorethan2,setto2,lastvalue2,
- add3,every3,whenmorethan3,setto3,lastvalue3,
- numberingmethod, status, callnumber, notes, hemisphere) values
- (?,?,?,?,?,?,?,?,?,?,?,
- ?,?,?,?,?,?,?,?,?,?,?,
- ?,?,?,?,?,?,?,?,?,?,?,?)"
- );
- $sth->execute(
- $auser, $aqbooksellerid,
- $cost, $aqbudgetid,
- $biblionumber, format_date_in_iso($startdate),
- $periodicity, format_date_in_iso($firstacquidate),
- $dow, $irregularity,
- $numberpattern, $numberlength,
- $weeklength, $monthlength,
- $add1, $every1,
- $whenmorethan1, $setto1,
- $lastvalue1, $add2,
- $every2, $whenmorethan2,
- $setto2, $lastvalue2,
- $add3, $every3,
- $whenmorethan3, $setto3,
- $lastvalue3, $numberingmethod,
- $status, $callnumber,
- $notes, $hemisphere
- );
-
- #then create the 1st waited number
- my $subscriptionid = $dbh->{'mysql_insertid'};
- my $enddate = GetExpirationDate($subscriptionid);
-
- $sth =
- $dbh->prepare(
-"insert into subscriptionhistory (biblionumber, subscriptionid, histstartdate, enddate, missinglist, recievedlist, opacnote, librariannote) values (?,?,?,?,?,?,?,?)"
- );
- $sth->execute(
- $biblionumber, $subscriptionid,
- format_date_in_iso($startdate),
- format_date_in_iso($enddate),
- "", "", "", $notes
- );
-
- # reread subscription to get a hash (for calculation of the 1st issue number)
- $sth =
- $dbh->prepare("select * from subscription where subscriptionid = ? ");
- $sth->execute($subscriptionid);
- my $val = $sth->fetchrow_hashref;
-
- # calculate issue number
- my $serialseq = GetSeq($val);
- $sth =
- $dbh->prepare(
-"insert into serial (serialseq,subscriptionid,biblionumber,status, planneddate) values (?,?,?,?,?)"
- );
- $sth->execute( $serialseq, $subscriptionid, $val->{'biblionumber'},
- 1, format_date_in_iso($startdate) );
- return $subscriptionid;
-}
-
-=head2 old_modsubscription
-
-=over 4
-
-($subscriptionid) = &old_modsubscription($auser,$aqbooksellerid,$cost,$aqbudgetid,$biblionumber,
- $startdate,$periodicity,$firstacquidate,$dow,$irregularity,$numberpattern,$numberlength,$weeklength,$monthlength,
- $add1,$every1,$whenmorethan1,$setto1,$lastvalue1,
- $add2,$every2,$whenmorethan2,$setto2,$lastvalue2,
- $add3,$every3,$whenmorethan3,$setto3,$lastvalue3,
- $numberingmethod, $status, $callnumber, $notes, $hemisphere, $subscriptionid)
-
-this function is similar to the ModSubscription subroutine but has a few different
-values passed in
-$firstacquidate - date of first serial issue to arrive
-$irregularity - the issues not expected separated by a '|'
-- eg. monthly issue but not expecting issue for june and july would have $irregularity of '6|7'
-$numberpattern - the number for an array of labels to reconstruct the javascript correctly in the
- subscription-add.tmpl file
-$callnumber - display the callnumber of the serial
-$hemisphere - either 2 = southern hemisphere or 1 = northern hemisphere - used for quarterly serials
-
-=back
-
-=cut
-
-sub old_modsubscription {
- my (
- $auser, $aqbooksellerid, $cost, $aqbudgetid,
- $startdate, $periodicity, $firstacquidate, $dow,
- $irregularity, $numberpattern, $numberlength, $weeklength,
- $monthlength, $add1, $every1, $whenmorethan1,
- $setto1, $lastvalue1, $innerloop1, $add2,
- $every2, $whenmorethan2, $setto2, $lastvalue2,
- $innerloop2, $add3, $every3, $whenmorethan3,
- $setto3, $lastvalue3, $innerloop3, $numberingmethod,
- $status, $biblionumber, $callnumber, $notes,
- $hemisphere, $subscriptionid
- ) = @_;
- my $dbh = C4::Context->dbh;
- my $sth = $dbh->prepare(
-"update subscription set librarian=?, aqbooksellerid=?,cost=?,aqbudgetid=?,startdate=?,
- periodicity=?,firstacquidate=?,dow=?,irregularity=?,numberpattern=?,numberlength=?,weeklength=?,monthlength=?,
- add1=?,every1=?,whenmorethan1=?,setto1=?,lastvalue1=?,innerloop1=?,
- add2=?,every2=?,whenmorethan2=?,setto2=?,lastvalue2=?,innerloop2=?,
- add3=?,every3=?,whenmorethan3=?,setto3=?,lastvalue3=?,innerloop3=?,
- numberingmethod=?, status=?, biblionumber=?, callnumber=?, notes=?, hemisphere=? where subscriptionid = ?"
- );
- $sth->execute(
- $auser, $aqbooksellerid, $cost, $aqbudgetid,
- $startdate, $periodicity, $firstacquidate, $dow,
- $irregularity, $numberpattern, $numberlength, $weeklength,
- $monthlength, $add1, $every1, $whenmorethan1,
- $setto1, $lastvalue1, $innerloop1, $add2,
- $every2, $whenmorethan2, $setto2, $lastvalue2,
- $innerloop2, $add3, $every3, $whenmorethan3,
- $setto3, $lastvalue3, $innerloop3, $numberingmethod,
- $status, $biblionumber, $callnumber, $notes,
- $hemisphere, $subscriptionid
- );
- $sth->finish;
-
- $sth =
- $dbh->prepare("select * from subscription where subscriptionid = ? ");
- $sth->execute($subscriptionid);
- my $val = $sth->fetchrow_hashref;
-
- # calculate issue number
- my $serialseq = Get_Seq($val);
- $sth =
- $dbh->prepare("UPDATE serial SET serialseq = ? WHERE subscriptionid = ?");
- $sth->execute( $serialseq, $subscriptionid );
-
- my $enddate = subscriptionexpirationdate($subscriptionid);
- $sth = $dbh->prepare("update subscriptionhistory set enddate=?");
- $sth->execute( format_date_in_iso($enddate) );
-}
-
-=head2 old_getserials
-
-=over 4
-
-($totalissues,@serials) = &old_getserials($subscriptionid)
-
-this function get a hashref of serials and the total count of them
-
-return :
-$totalissues - number of serial lines
-the serials into a table. Each line of this table containts a ref to a hash which it containts
-serialid, serialseq, status,planneddate,notes,routingnotes from tables : serial where status is not 2, 4, or 5
-
-=back
-
-=cut
-
-sub old_getserials {
- my ($subscriptionid) = @_;
- my $dbh = C4::Context->dbh;
-
- # status = 2 is "arrived"
- my $sth =
- $dbh->prepare(
-"select serialid,serialseq, status, planneddate,notes,routingnotes from serial where subscriptionid = ? and status <>2 and status <>4 and status <>5"
- );
- $sth->execute($subscriptionid);
- my @serials;
- my $num = 1;
- while ( my $line = $sth->fetchrow_hashref ) {
- $line->{ "status" . $line->{status} } =
- 1; # fills a "statusX" value, used for template status select list
- $line->{"planneddate"} = format_date( $line->{"planneddate"} );
- $line->{"num"} = $num;
- $num++;
- push @serials, $line;
- }
- $sth = $dbh->prepare("select count(*) from serial where subscriptionid=?");
- $sth->execute($subscriptionid);
- my ($totalissues) = $sth->fetchrow;
- return ( $totalissues, @serials );
-}
-
=head2 GetNextDate
($resultdate) = &GetNextDate($planneddate,$subscription)
#date supposed to be in ISO.
my ( $year, $month, $day ) = split(/-/, $planneddate);
+ return undef if not check_date($year, $month, $day);
$month=1 unless ($month);
$day=1 unless ($day);
my @resultdate;