|
Lines 79-85
BEGIN {
Link Here
|
| 79 |
&GetPreviousSerialid |
79 |
&GetPreviousSerialid |
| 80 |
|
80 |
|
| 81 |
&GetSuppliersWithLateIssues |
81 |
&GetSuppliersWithLateIssues |
| 82 |
&GetDistributedTo &SetDistributedTo |
|
|
| 83 |
&getroutinglist &delroutingmember &addroutingmember |
82 |
&getroutinglist &delroutingmember &addroutingmember |
| 84 |
&reorder_members |
83 |
&reorder_members |
| 85 |
&check_routing &updateClaim |
84 |
&check_routing &updateClaim |
|
Lines 162-187
sub GetSubscriptionHistoryFromSubscriptionId {
Link Here
|
| 162 |
return $results; |
161 |
return $results; |
| 163 |
} |
162 |
} |
| 164 |
|
163 |
|
| 165 |
=head2 GetSerialStatusFromSerialId |
|
|
| 166 |
|
| 167 |
$sth = GetSerialStatusFromSerialId(); |
| 168 |
this function returns a statement handle |
| 169 |
After this function, don't forget to execute it by using $sth->execute($serialid) |
| 170 |
return : |
| 171 |
$sth = $dbh->prepare($query). |
| 172 |
|
| 173 |
=cut |
| 174 |
|
| 175 |
sub GetSerialStatusFromSerialId { |
| 176 |
my $dbh = C4::Context->dbh; |
| 177 |
my $query = qq| |
| 178 |
SELECT status |
| 179 |
FROM serial |
| 180 |
WHERE serialid = ? |
| 181 |
|; |
| 182 |
return $dbh->prepare($query); |
| 183 |
} |
| 184 |
|
| 185 |
=head2 GetSerialInformation |
164 |
=head2 GetSerialInformation |
| 186 |
|
165 |
|
| 187 |
$data = GetSerialInformation($serialid); |
166 |
$data = GetSerialInformation($serialid); |
|
Lines 843-870
sub GetPreviousSerialid {
Link Here
|
| 843 |
return $return; |
822 |
return $return; |
| 844 |
} |
823 |
} |
| 845 |
|
824 |
|
| 846 |
|
|
|
| 847 |
|
| 848 |
=head2 GetDistributedTo |
| 849 |
|
| 850 |
$distributedto=GetDistributedTo($subscriptionid) |
| 851 |
This function returns the field distributedto for the subscription matching subscriptionid |
| 852 |
|
| 853 |
=cut |
| 854 |
|
| 855 |
sub GetDistributedTo { |
| 856 |
my $dbh = C4::Context->dbh; |
| 857 |
my $distributedto; |
| 858 |
my ($subscriptionid) = @_; |
| 859 |
|
| 860 |
return unless ($subscriptionid); |
| 861 |
|
| 862 |
my $query = "SELECT distributedto FROM subscription WHERE subscriptionid=?"; |
| 863 |
my $sth = $dbh->prepare($query); |
| 864 |
$sth->execute($subscriptionid); |
| 865 |
return ($distributedto) = $sth->fetchrow; |
| 866 |
} |
| 867 |
|
| 868 |
=head2 GetNextSeq |
825 |
=head2 GetNextSeq |
| 869 |
|
826 |
|
| 870 |
my ( |
827 |
my ( |
|
Lines 1718-1743
sub HasSubscriptionExpired {
Link Here
|
| 1718 |
return 0; # Notice that you'll never get here. |
1675 |
return 0; # Notice that you'll never get here. |
| 1719 |
} |
1676 |
} |
| 1720 |
|
1677 |
|
| 1721 |
=head2 SetDistributedto |
|
|
| 1722 |
|
| 1723 |
SetDistributedto($distributedto,$subscriptionid); |
| 1724 |
This function update the value of distributedto for a subscription given on input arg. |
| 1725 |
|
| 1726 |
=cut |
| 1727 |
|
| 1728 |
sub SetDistributedto { |
| 1729 |
my ( $distributedto, $subscriptionid ) = @_; |
| 1730 |
my $dbh = C4::Context->dbh; |
| 1731 |
my $query = qq| |
| 1732 |
UPDATE subscription |
| 1733 |
SET distributedto=? |
| 1734 |
WHERE subscriptionid=? |
| 1735 |
|; |
| 1736 |
my $sth = $dbh->prepare($query); |
| 1737 |
$sth->execute( $distributedto, $subscriptionid ); |
| 1738 |
return; |
| 1739 |
} |
| 1740 |
|
| 1741 |
=head2 DelSubscription |
1678 |
=head2 DelSubscription |
| 1742 |
|
1679 |
|
| 1743 |
DelSubscription($subscriptionid) |
1680 |
DelSubscription($subscriptionid) |
|
Lines 2187-2202
sub abouttoexpire {
Link Here
|
| 2187 |
return 0; |
2124 |
return 0; |
| 2188 |
} |
2125 |
} |
| 2189 |
|
2126 |
|
| 2190 |
sub in_array { # used in next sub down |
|
|
| 2191 |
my ( $val, @elements ) = @_; |
| 2192 |
foreach my $elem (@elements) { |
| 2193 |
if ( $val == $elem ) { |
| 2194 |
return 1; |
| 2195 |
} |
| 2196 |
} |
| 2197 |
return 0; |
| 2198 |
} |
| 2199 |
|
| 2200 |
=head2 GetFictiveIssueNumber |
2127 |
=head2 GetFictiveIssueNumber |
| 2201 |
|
2128 |
|
| 2202 |
$issueno = GetFictiveIssueNumber($subscription, $publishedate); |
2129 |
$issueno = GetFictiveIssueNumber($subscription, $publishedate); |
|
Lines 2520-2545
sub _numeration {
Link Here
|
| 2520 |
return $string; |
2447 |
return $string; |
| 2521 |
} |
2448 |
} |
| 2522 |
|
2449 |
|
| 2523 |
=head2 is_barcode_in_use |
|
|
| 2524 |
|
| 2525 |
Returns number of occurrences of the barcode in the items table |
| 2526 |
Can be used as a boolean test of whether the barcode has |
| 2527 |
been deployed as yet |
| 2528 |
|
| 2529 |
=cut |
| 2530 |
|
| 2531 |
sub is_barcode_in_use { |
| 2532 |
my $barcode = shift; |
| 2533 |
my $dbh = C4::Context->dbh; |
| 2534 |
my $occurrences = $dbh->selectall_arrayref( |
| 2535 |
'SELECT itemnumber from items where barcode = ?', |
| 2536 |
{}, $barcode |
| 2537 |
|
| 2538 |
); |
| 2539 |
|
| 2540 |
return @{$occurrences}; |
| 2541 |
} |
| 2542 |
|
| 2543 |
=head2 CloseSubscription |
2450 |
=head2 CloseSubscription |
| 2544 |
|
2451 |
|
| 2545 |
Close a subscription given a subscriptionid |
2452 |
Close a subscription given a subscriptionid |