|
Lines 78-84
BEGIN {
Link Here
|
| 78 |
&PrepareSerialsData &GetNextExpected &ModNextExpected |
78 |
&PrepareSerialsData &GetNextExpected &ModNextExpected |
| 79 |
&GetPreviousSerialid |
79 |
&GetPreviousSerialid |
| 80 |
|
80 |
|
| 81 |
&GetSuppliersWithLateIssues &getsupplierbyserialid |
81 |
&GetSuppliersWithLateIssues |
| 82 |
&GetDistributedTo &SetDistributedTo |
82 |
&GetDistributedTo &SetDistributedTo |
| 83 |
&getroutinglist &delroutingmember &addroutingmember |
83 |
&getroutinglist &delroutingmember &addroutingmember |
| 84 |
&reorder_members |
84 |
&reorder_members |
|
Lines 1920-1952
sub updateClaim {
Link Here
|
| 1920 |
{}, CLAIMED, @$serialids ); |
1920 |
{}, CLAIMED, @$serialids ); |
| 1921 |
} |
1921 |
} |
| 1922 |
|
1922 |
|
| 1923 |
=head2 getsupplierbyserialid |
|
|
| 1924 |
|
| 1925 |
$result = getsupplierbyserialid($serialid) |
| 1926 |
|
| 1927 |
this function is used to find the supplier id given a serial id |
| 1928 |
|
| 1929 |
return : |
| 1930 |
hashref containing serialid, subscriptionid, and aqbooksellerid |
| 1931 |
|
| 1932 |
=cut |
| 1933 |
|
| 1934 |
sub getsupplierbyserialid { |
| 1935 |
my ($serialid) = @_; |
| 1936 |
my $dbh = C4::Context->dbh; |
| 1937 |
my $sth = $dbh->prepare( |
| 1938 |
"SELECT serialid, serial.subscriptionid, aqbooksellerid |
| 1939 |
FROM serial |
| 1940 |
LEFT JOIN subscription ON serial.subscriptionid = subscription.subscriptionid |
| 1941 |
WHERE serialid = ? |
| 1942 |
" |
| 1943 |
); |
| 1944 |
$sth->execute($serialid); |
| 1945 |
my $line = $sth->fetchrow_hashref; |
| 1946 |
my $result = $line->{'aqbooksellerid'}; |
| 1947 |
return $result; |
| 1948 |
} |
| 1949 |
|
| 1950 |
=head2 check_routing |
1923 |
=head2 check_routing |
| 1951 |
|
1924 |
|
| 1952 |
$result = &check_routing($subscriptionid) |
1925 |
$result = &check_routing($subscriptionid) |