Lines 121-126
name,title,planneddate,serialseq,serial.subscriptionid from tables : subscriptio
Link Here
|
121 |
|
121 |
|
122 |
sub GetLateIssues { |
122 |
sub GetLateIssues { |
123 |
my ($supplierid) = @_; |
123 |
my ($supplierid) = @_; |
|
|
124 |
|
125 |
return unless ($supplierid); |
126 |
|
124 |
my $dbh = C4::Context->dbh; |
127 |
my $dbh = C4::Context->dbh; |
125 |
my $sth; |
128 |
my $sth; |
126 |
if ($supplierid) { |
129 |
if ($supplierid) { |
Lines 153-162
sub GetLateIssues {
Link Here
|
153 |
} |
156 |
} |
154 |
my @issuelist; |
157 |
my @issuelist; |
155 |
my $last_title; |
158 |
my $last_title; |
156 |
my $odd = 0; |
|
|
157 |
while ( my $line = $sth->fetchrow_hashref ) { |
159 |
while ( my $line = $sth->fetchrow_hashref ) { |
158 |
$odd++ unless $line->{title} eq $last_title; |
160 |
$line->{title} = "" if $last_title and $line->{title} eq $last_title; |
159 |
$line->{title} = "" if $line->{title} eq $last_title; |
|
|
160 |
$last_title = $line->{title} if ( $line->{title} ); |
161 |
$last_title = $line->{title} if ( $line->{title} ); |
161 |
$line->{planneddate} = format_date( $line->{planneddate} ); |
162 |
$line->{planneddate} = format_date( $line->{planneddate} ); |
162 |
push @issuelist, $line; |
163 |
push @issuelist, $line; |
Lines 287-292
returns the number of rows affected
Link Here
|
287 |
|
288 |
|
288 |
sub AddItem2Serial { |
289 |
sub AddItem2Serial { |
289 |
my ( $serialid, $itemnumber ) = @_; |
290 |
my ( $serialid, $itemnumber ) = @_; |
|
|
291 |
|
292 |
return unless ($serialid and $itemnumber); |
293 |
|
290 |
my $dbh = C4::Context->dbh; |
294 |
my $dbh = C4::Context->dbh; |
291 |
my $rq = $dbh->prepare("INSERT INTO `serialitems` SET serialid=? , itemnumber=?"); |
295 |
my $rq = $dbh->prepare("INSERT INTO `serialitems` SET serialid=? , itemnumber=?"); |
292 |
$rq->execute( $serialid, $itemnumber ); |
296 |
$rq->execute( $serialid, $itemnumber ); |
Lines 304-309
Update Claimdate for issues in @$serialids list with date $date
Link Here
|
304 |
|
308 |
|
305 |
sub UpdateClaimdateIssues { |
309 |
sub UpdateClaimdateIssues { |
306 |
my ( $serialids, $date ) = @_; |
310 |
my ( $serialids, $date ) = @_; |
|
|
311 |
|
312 |
return unless ($serialids); |
313 |
|
307 |
my $dbh = C4::Context->dbh; |
314 |
my $dbh = C4::Context->dbh; |
308 |
$date = strftime( "%Y-%m-%d", localtime ) unless ($date); |
315 |
$date = strftime( "%Y-%m-%d", localtime ) unless ($date); |
309 |
my $query = " |
316 |
my $query = " |
Lines 369-374
sub GetSubscription {
Link Here
|
369 |
|
376 |
|
370 |
sub GetFullSubscription { |
377 |
sub GetFullSubscription { |
371 |
my ($subscriptionid) = @_; |
378 |
my ($subscriptionid) = @_; |
|
|
379 |
|
380 |
return unless ($subscriptionid); |
381 |
|
372 |
my $dbh = C4::Context->dbh; |
382 |
my $dbh = C4::Context->dbh; |
373 |
my $query = qq| |
383 |
my $query = qq| |
374 |
SELECT serial.serialid, |
384 |
SELECT serial.serialid, |
Lines 415-420
sub GetFullSubscription {
Link Here
|
415 |
|
425 |
|
416 |
sub PrepareSerialsData { |
426 |
sub PrepareSerialsData { |
417 |
my ($lines) = @_; |
427 |
my ($lines) = @_; |
|
|
428 |
|
429 |
return unless ($lines); |
430 |
|
418 |
my %tmpresults; |
431 |
my %tmpresults; |
419 |
my $year; |
432 |
my $year; |
420 |
my @res; |
433 |
my @res; |
Lines 474-479
startdate, histstartdate,opacnote,missinglist,recievedlist,periodicity,status &
Link Here
|
474 |
|
487 |
|
475 |
sub GetSubscriptionsFromBiblionumber { |
488 |
sub GetSubscriptionsFromBiblionumber { |
476 |
my ($biblionumber) = @_; |
489 |
my ($biblionumber) = @_; |
|
|
490 |
|
491 |
return unless ($biblionumber); |
492 |
|
477 |
my $dbh = C4::Context->dbh; |
493 |
my $dbh = C4::Context->dbh; |
478 |
my $query = qq( |
494 |
my $query = qq( |
479 |
SELECT subscription.*, |
495 |
SELECT subscription.*, |
Lines 745-750
FIXME: We should return \@serials.
Link Here
|
745 |
|
761 |
|
746 |
sub GetSerials { |
762 |
sub GetSerials { |
747 |
my ( $subscriptionid, $count ) = @_; |
763 |
my ( $subscriptionid, $count ) = @_; |
|
|
764 |
|
765 |
return unless $subscriptionid; |
766 |
|
748 |
my $dbh = C4::Context->dbh; |
767 |
my $dbh = C4::Context->dbh; |
749 |
|
768 |
|
750 |
# status = 2 is "arrived" |
769 |
# status = 2 is "arrived" |
Lines 811-816
this number is used to see if a subscription can be deleted (=it must have only
Link Here
|
811 |
|
830 |
|
812 |
sub GetSerials2 { |
831 |
sub GetSerials2 { |
813 |
my ( $subscription, $status ) = @_; |
832 |
my ( $subscription, $status ) = @_; |
|
|
833 |
|
834 |
return unless ($subscription and $status); |
835 |
|
814 |
my $dbh = C4::Context->dbh; |
836 |
my $dbh = C4::Context->dbh; |
815 |
my $query = qq| |
837 |
my $query = qq| |
816 |
SELECT serialid,serialseq, status, planneddate, publisheddate,notes, routingnotes |
838 |
SELECT serialid,serialseq, status, planneddate, publisheddate,notes, routingnotes |
Lines 850-855
a ref to an array which contains all of the latest serials stored into a hash.
Link Here
|
850 |
|
872 |
|
851 |
sub GetLatestSerials { |
873 |
sub GetLatestSerials { |
852 |
my ( $subscriptionid, $limit ) = @_; |
874 |
my ( $subscriptionid, $limit ) = @_; |
|
|
875 |
|
876 |
return unless ($subscriptionid and $limit); |
877 |
|
853 |
my $dbh = C4::Context->dbh; |
878 |
my $dbh = C4::Context->dbh; |
854 |
|
879 |
|
855 |
# status = 2 is "arrived" |
880 |
# status = 2 is "arrived" |
Lines 881-887
This function returns the field distributedto for the subscription matching subs
Link Here
|
881 |
sub GetDistributedTo { |
906 |
sub GetDistributedTo { |
882 |
my $dbh = C4::Context->dbh; |
907 |
my $dbh = C4::Context->dbh; |
883 |
my $distributedto; |
908 |
my $distributedto; |
884 |
my $subscriptionid = @_; |
909 |
my ($subscriptionid) = @_; |
|
|
910 |
|
911 |
return unless ($subscriptionid); |
912 |
|
885 |
my $query = "SELECT distributedto FROM subscription WHERE subscriptionid=?"; |
913 |
my $query = "SELECT distributedto FROM subscription WHERE subscriptionid=?"; |
886 |
my $sth = $dbh->prepare($query); |
914 |
my $sth = $dbh->prepare($query); |
887 |
$sth->execute($subscriptionid); |
915 |
$sth->execute($subscriptionid); |
Lines 906-912
This function get the next issue for the subscription given on input arg
Link Here
|
906 |
|
934 |
|
907 |
sub GetNextSeq { |
935 |
sub GetNextSeq { |
908 |
my ($subscription, $pattern, $planneddate) = @_; |
936 |
my ($subscription, $pattern, $planneddate) = @_; |
909 |
my ( $calculated, $newlastvalue1, $newlastvalue2, $newlastvalue3, |
937 |
|
|
|
938 |
return unless ($subscription and $pattern); |
939 |
|
940 |
my ( $newlastvalue1, $newlastvalue2, $newlastvalue3, |
910 |
$newinnerloop1, $newinnerloop2, $newinnerloop3 ); |
941 |
$newinnerloop1, $newinnerloop2, $newinnerloop3 ); |
911 |
my $count = 1; |
942 |
my $count = 1; |
912 |
|
943 |
|
Lines 924-986
sub GetNextSeq {
Link Here
|
924 |
} |
955 |
} |
925 |
|
956 |
|
926 |
my $numberingmethod = $pattern->{numberingmethod}; |
957 |
my $numberingmethod = $pattern->{numberingmethod}; |
927 |
$calculated = $numberingmethod; |
958 |
my $calculated = ""; |
928 |
my $locale = $subscription->{locale}; |
959 |
if ($numberingmethod) { |
929 |
$newlastvalue1 = $subscription->{lastvalue1} || 0; |
960 |
$calculated = $numberingmethod; |
930 |
$newlastvalue2 = $subscription->{lastvalue2} || 0; |
961 |
my $locale = $subscription->{locale}; |
931 |
$newlastvalue3 = $subscription->{lastvalue3} || 0; |
962 |
$newlastvalue1 = $subscription->{lastvalue1} || 0; |
932 |
$newinnerloop1 = $subscription->{innerloop1} || 0; |
963 |
$newlastvalue2 = $subscription->{lastvalue2} || 0; |
933 |
$newinnerloop2 = $subscription->{innerloop2} || 0; |
964 |
$newlastvalue3 = $subscription->{lastvalue3} || 0; |
934 |
$newinnerloop3 = $subscription->{innerloop3} || 0; |
965 |
$newinnerloop1 = $subscription->{innerloop1} || 0; |
935 |
my %calc; |
966 |
$newinnerloop2 = $subscription->{innerloop2} || 0; |
936 |
foreach(qw/X Y Z/) { |
967 |
$newinnerloop3 = $subscription->{innerloop3} || 0; |
937 |
$calc{$_} = 1 if ($numberingmethod =~ /\{$_\}/); |
968 |
my %calc; |
938 |
} |
969 |
foreach(qw/X Y Z/) { |
939 |
|
970 |
$calc{$_} = 1 if ($numberingmethod =~ /\{$_\}/); |
940 |
for(my $i = 0; $i < $count; $i++) { |
971 |
} |
941 |
if($calc{'X'}) { |
972 |
|
942 |
# check if we have to increase the new value. |
973 |
for(my $i = 0; $i < $count; $i++) { |
943 |
$newinnerloop1 += 1; |
974 |
if($calc{'X'}) { |
944 |
if ($newinnerloop1 >= $pattern->{every1}) { |
975 |
# check if we have to increase the new value. |
945 |
$newinnerloop1 = 0; |
976 |
$newinnerloop1 += 1; |
946 |
$newlastvalue1 += $pattern->{add1}; |
977 |
if ($newinnerloop1 >= $pattern->{every1}) { |
|
|
978 |
$newinnerloop1 = 0; |
979 |
$newlastvalue1 += $pattern->{add1}; |
980 |
} |
981 |
# reset counter if needed. |
982 |
$newlastvalue1 = $pattern->{setto1} if ($newlastvalue1 > $pattern->{whenmorethan1}); |
983 |
} |
984 |
if($calc{'Y'}) { |
985 |
# check if we have to increase the new value. |
986 |
$newinnerloop2 += 1; |
987 |
if ($newinnerloop2 >= $pattern->{every2}) { |
988 |
$newinnerloop2 = 0; |
989 |
$newlastvalue2 += $pattern->{add2}; |
990 |
} |
991 |
# reset counter if needed. |
992 |
$newlastvalue2 = $pattern->{setto2} if ($newlastvalue2 > $pattern->{whenmorethan2}); |
947 |
} |
993 |
} |
948 |
# reset counter if needed. |
994 |
if($calc{'Z'}) { |
949 |
$newlastvalue1 = $pattern->{setto1} if ($newlastvalue1 > $pattern->{whenmorethan1}); |
995 |
# check if we have to increase the new value. |
|
|
996 |
$newinnerloop3 += 1; |
997 |
if ($newinnerloop3 >= $pattern->{every3}) { |
998 |
$newinnerloop3 = 0; |
999 |
$newlastvalue3 += $pattern->{add3}; |
1000 |
} |
1001 |
# reset counter if needed. |
1002 |
$newlastvalue3 = $pattern->{setto3} if ($newlastvalue3 > $pattern->{whenmorethan3}); |
1003 |
} |
1004 |
} |
1005 |
if($calc{'X'}) { |
1006 |
my $newlastvalue1string = _numeration( $newlastvalue1, $pattern->{numbering1}, $locale ); |
1007 |
$calculated =~ s/\{X\}/$newlastvalue1string/g; |
950 |
} |
1008 |
} |
951 |
if($calc{'Y'}) { |
1009 |
if($calc{'Y'}) { |
952 |
# check if we have to increase the new value. |
1010 |
my $newlastvalue2string = _numeration( $newlastvalue2, $pattern->{numbering2}, $locale ); |
953 |
$newinnerloop2 += 1; |
1011 |
$calculated =~ s/\{Y\}/$newlastvalue2string/g; |
954 |
if ($newinnerloop2 >= $pattern->{every2}) { |
|
|
955 |
$newinnerloop2 = 0; |
956 |
$newlastvalue2 += $pattern->{add2}; |
957 |
} |
958 |
# reset counter if needed. |
959 |
$newlastvalue2 = $pattern->{setto2} if ($newlastvalue2 > $pattern->{whenmorethan2}); |
960 |
} |
1012 |
} |
961 |
if($calc{'Z'}) { |
1013 |
if($calc{'Z'}) { |
962 |
# check if we have to increase the new value. |
1014 |
my $newlastvalue3string = _numeration( $newlastvalue3, $pattern->{numbering3}, $locale ); |
963 |
$newinnerloop3 += 1; |
1015 |
$calculated =~ s/\{Z\}/$newlastvalue3string/g; |
964 |
if ($newinnerloop3 >= $pattern->{every3}) { |
|
|
965 |
$newinnerloop3 = 0; |
966 |
$newlastvalue3 += $pattern->{add3}; |
967 |
} |
968 |
# reset counter if needed. |
969 |
$newlastvalue3 = $pattern->{setto3} if ($newlastvalue3 > $pattern->{whenmorethan3}); |
970 |
} |
1016 |
} |
971 |
} |
1017 |
} |
972 |
if($calc{'X'}) { |
|
|
973 |
my $newlastvalue1string = _numeration( $newlastvalue1, $pattern->{numbering1}, $locale ); |
974 |
$calculated =~ s/\{X\}/$newlastvalue1string/g; |
975 |
} |
976 |
if($calc{'Y'}) { |
977 |
my $newlastvalue2string = _numeration( $newlastvalue2, $pattern->{numbering2}, $locale ); |
978 |
$calculated =~ s/\{Y\}/$newlastvalue2string/g; |
979 |
} |
980 |
if($calc{'Z'}) { |
981 |
my $newlastvalue3string = _numeration( $newlastvalue3, $pattern->{numbering3}, $locale ); |
982 |
$calculated =~ s/\{Z\}/$newlastvalue3string/g; |
983 |
} |
984 |
|
1018 |
|
985 |
return ($calculated, |
1019 |
return ($calculated, |
986 |
$newlastvalue1, $newlastvalue2, $newlastvalue3, |
1020 |
$newlastvalue1, $newlastvalue2, $newlastvalue3, |
Lines 1000-1005
the sequence in string format
Link Here
|
1000 |
|
1034 |
|
1001 |
sub GetSeq { |
1035 |
sub GetSeq { |
1002 |
my ($subscription, $pattern) = @_; |
1036 |
my ($subscription, $pattern) = @_; |
|
|
1037 |
|
1038 |
return unless ($subscription and $pattern); |
1039 |
|
1003 |
my $locale = $subscription->{locale}; |
1040 |
my $locale = $subscription->{locale}; |
1004 |
|
1041 |
|
1005 |
my $calculated = $pattern->{numberingmethod}; |
1042 |
my $calculated = $pattern->{numberingmethod}; |
Lines 1031-1036
the enddate or undef
Link Here
|
1031 |
|
1068 |
|
1032 |
sub GetExpirationDate { |
1069 |
sub GetExpirationDate { |
1033 |
my ( $subscriptionid, $startdate ) = @_; |
1070 |
my ( $subscriptionid, $startdate ) = @_; |
|
|
1071 |
|
1072 |
return unless ($subscriptionid); |
1073 |
|
1034 |
my $dbh = C4::Context->dbh; |
1074 |
my $dbh = C4::Context->dbh; |
1035 |
my $subscription = GetSubscription($subscriptionid); |
1075 |
my $subscription = GetSubscription($subscriptionid); |
1036 |
my $enddate; |
1076 |
my $enddate; |
Lines 1080-1085
the number of subscriptions
Link Here
|
1080 |
|
1120 |
|
1081 |
sub CountSubscriptionFromBiblionumber { |
1121 |
sub CountSubscriptionFromBiblionumber { |
1082 |
my ($biblionumber) = @_; |
1122 |
my ($biblionumber) = @_; |
|
|
1123 |
|
1124 |
return unless ($biblionumber); |
1125 |
|
1083 |
my $dbh = C4::Context->dbh; |
1126 |
my $dbh = C4::Context->dbh; |
1084 |
my $query = "SELECT count(*) FROM subscription WHERE biblionumber=?"; |
1127 |
my $query = "SELECT count(*) FROM subscription WHERE biblionumber=?"; |
1085 |
my $sth = $dbh->prepare($query); |
1128 |
my $sth = $dbh->prepare($query); |
Lines 1099-1104
returns the number of rows affected
Link Here
|
1099 |
|
1142 |
|
1100 |
sub ModSubscriptionHistory { |
1143 |
sub ModSubscriptionHistory { |
1101 |
my ( $subscriptionid, $histstartdate, $enddate, $receivedlist, $missinglist, $opacnote, $librariannote ) = @_; |
1144 |
my ( $subscriptionid, $histstartdate, $enddate, $receivedlist, $missinglist, $opacnote, $librariannote ) = @_; |
|
|
1145 |
|
1146 |
return unless ($subscriptionid); |
1147 |
|
1102 |
my $dbh = C4::Context->dbh; |
1148 |
my $dbh = C4::Context->dbh; |
1103 |
my $query = "UPDATE subscriptionhistory |
1149 |
my $query = "UPDATE subscriptionhistory |
1104 |
SET histstartdate=?,histenddate=?,recievedlist=?,missinglist=?,opacnote=?,librariannote=? |
1150 |
SET histstartdate=?,histenddate=?,recievedlist=?,missinglist=?,opacnote=?,librariannote=? |
Lines 1168-1173
Note : if we change from "waited" to something else,then we will have to create
Link Here
|
1168 |
sub ModSerialStatus { |
1214 |
sub ModSerialStatus { |
1169 |
my ( $serialid, $serialseq, $planneddate, $publisheddate, $status, $notes ) = @_; |
1215 |
my ( $serialid, $serialseq, $planneddate, $publisheddate, $status, $notes ) = @_; |
1170 |
|
1216 |
|
|
|
1217 |
return unless ($serialid); |
1171 |
|
1218 |
|
1172 |
#It is a usual serial |
1219 |
#It is a usual serial |
1173 |
# 1st, get previous status : |
1220 |
# 1st, get previous status : |
Lines 1583-1588
sub NewIssue {
Link Here
|
1583 |
my ( $serialseq, $subscriptionid, $biblionumber, $status, $planneddate, $publisheddate, $notes ) = @_; |
1630 |
my ( $serialseq, $subscriptionid, $biblionumber, $status, $planneddate, $publisheddate, $notes ) = @_; |
1584 |
### FIXME biblionumber CAN be provided by subscriptionid. So Do we STILL NEED IT ? |
1631 |
### FIXME biblionumber CAN be provided by subscriptionid. So Do we STILL NEED IT ? |
1585 |
|
1632 |
|
|
|
1633 |
return unless ($subscriptionid); |
1634 |
|
1586 |
my $dbh = C4::Context->dbh; |
1635 |
my $dbh = C4::Context->dbh; |
1587 |
my $query = qq| |
1636 |
my $query = qq| |
1588 |
INSERT INTO serial |
1637 |
INSERT INTO serial |
Lines 1635-1640
return :
Link Here
|
1635 |
|
1684 |
|
1636 |
sub ItemizeSerials { |
1685 |
sub ItemizeSerials { |
1637 |
my ( $serialid, $info ) = @_; |
1686 |
my ( $serialid, $info ) = @_; |
|
|
1687 |
|
1688 |
return unless ($serialid); |
1689 |
|
1638 |
my $now = POSIX::strftime( "%Y-%m-%d", localtime ); |
1690 |
my $now = POSIX::strftime( "%Y-%m-%d", localtime ); |
1639 |
|
1691 |
|
1640 |
my $dbh = C4::Context->dbh; |
1692 |
my $dbh = C4::Context->dbh; |
Lines 1769-1774
sub HasSubscriptionStrictlyExpired {
Link Here
|
1769 |
|
1821 |
|
1770 |
# Getting end of subscription date |
1822 |
# Getting end of subscription date |
1771 |
my ($subscriptionid) = @_; |
1823 |
my ($subscriptionid) = @_; |
|
|
1824 |
|
1825 |
return unless ($subscriptionid); |
1826 |
|
1772 |
my $dbh = C4::Context->dbh; |
1827 |
my $dbh = C4::Context->dbh; |
1773 |
my $subscription = GetSubscription($subscriptionid); |
1828 |
my $subscription = GetSubscription($subscriptionid); |
1774 |
my $expirationdate = $subscription->{enddate} || GetExpirationDate($subscriptionid); |
1829 |
my $expirationdate = $subscription->{enddate} || GetExpirationDate($subscriptionid); |
Lines 1810-1815
return :
Link Here
|
1810 |
|
1865 |
|
1811 |
sub HasSubscriptionExpired { |
1866 |
sub HasSubscriptionExpired { |
1812 |
my ($subscriptionid) = @_; |
1867 |
my ($subscriptionid) = @_; |
|
|
1868 |
|
1869 |
return unless ($subscriptionid); |
1870 |
|
1813 |
my $dbh = C4::Context->dbh; |
1871 |
my $dbh = C4::Context->dbh; |
1814 |
my $subscription = GetSubscription($subscriptionid); |
1872 |
my $subscription = GetSubscription($subscriptionid); |
1815 |
my $frequency = C4::Serials::Frequency::GetSubscriptionFrequency($subscription->{periodicity}); |
1873 |
my $frequency = C4::Serials::Frequency::GetSubscriptionFrequency($subscription->{periodicity}); |
Lines 1947-1952
name,title,planneddate,serialseq,serial.subscriptionid from tables : subscriptio
Link Here
|
1947 |
|
2005 |
|
1948 |
sub GetLateOrMissingIssues { |
2006 |
sub GetLateOrMissingIssues { |
1949 |
my ( $supplierid, $serialid, $order ) = @_; |
2007 |
my ( $supplierid, $serialid, $order ) = @_; |
|
|
2008 |
|
2009 |
return unless ($supplierid); |
2010 |
|
1950 |
my $dbh = C4::Context->dbh; |
2011 |
my $dbh = C4::Context->dbh; |
1951 |
my $sth; |
2012 |
my $sth; |
1952 |
my $byserial = ''; |
2013 |
my $byserial = ''; |
Lines 2021-2026
called when a missing issue is found from the serials-recieve.pl file
Link Here
|
2021 |
|
2082 |
|
2022 |
sub removeMissingIssue { |
2083 |
sub removeMissingIssue { |
2023 |
my ( $sequence, $subscriptionid ) = @_; |
2084 |
my ( $sequence, $subscriptionid ) = @_; |
|
|
2085 |
|
2086 |
return unless ($sequence and $subscriptionid); |
2087 |
|
2024 |
my $dbh = C4::Context->dbh; |
2088 |
my $dbh = C4::Context->dbh; |
2025 |
my $sth = $dbh->prepare("SELECT * FROM subscriptionhistory WHERE subscriptionid = ?"); |
2089 |
my $sth = $dbh->prepare("SELECT * FROM subscriptionhistory WHERE subscriptionid = ?"); |
2026 |
$sth->execute($subscriptionid); |
2090 |
$sth->execute($subscriptionid); |
Lines 2106-2111
used to show either an 'add' or 'edit' link
Link Here
|
2106 |
|
2170 |
|
2107 |
sub check_routing { |
2171 |
sub check_routing { |
2108 |
my ($subscriptionid) = @_; |
2172 |
my ($subscriptionid) = @_; |
|
|
2173 |
|
2174 |
return unless ($subscriptionid); |
2175 |
|
2109 |
my $dbh = C4::Context->dbh; |
2176 |
my $dbh = C4::Context->dbh; |
2110 |
my $sth = $dbh->prepare( |
2177 |
my $sth = $dbh->prepare( |
2111 |
"SELECT count(routingid) routingids FROM subscription LEFT JOIN subscriptionroutinglist |
2178 |
"SELECT count(routingid) routingids FROM subscription LEFT JOIN subscriptionroutinglist |
Lines 2131-2136
of either 1 or highest current rank + 1
Link Here
|
2131 |
|
2198 |
|
2132 |
sub addroutingmember { |
2199 |
sub addroutingmember { |
2133 |
my ( $borrowernumber, $subscriptionid ) = @_; |
2200 |
my ( $borrowernumber, $subscriptionid ) = @_; |
|
|
2201 |
|
2202 |
return unless ($borrowernumber and $subscriptionid); |
2203 |
|
2134 |
my $rank; |
2204 |
my $rank; |
2135 |
my $dbh = C4::Context->dbh; |
2205 |
my $dbh = C4::Context->dbh; |
2136 |
my $sth = $dbh->prepare( "SELECT max(ranking) rank FROM subscriptionroutinglist WHERE subscriptionid = ?" ); |
2206 |
my $sth = $dbh->prepare( "SELECT max(ranking) rank FROM subscriptionroutinglist WHERE subscriptionid = ?" ); |