Lines 42-56
BEGIN {
Link Here
|
42 |
); |
42 |
); |
43 |
} |
43 |
} |
44 |
|
44 |
|
45 |
=head3 GetSubscriptionNumberpatterns |
|
|
46 |
|
45 |
|
47 |
=over 4 |
46 |
=head1 NAME |
|
|
47 |
|
48 |
C4::Serials::Numberpattern - Serials numbering pattern module |
49 |
|
50 |
=head1 FUNCTIONS |
51 |
|
52 |
=head2 GetSubscriptionNumberpatterns |
48 |
|
53 |
|
49 |
@results = GetSubscriptionNumberpatterns; |
54 |
@results = GetSubscriptionNumberpatterns; |
50 |
this function get all subscription number patterns entered in table |
55 |
this function get all subscription number patterns entered in table |
51 |
|
56 |
|
52 |
=back |
|
|
53 |
|
54 |
=cut |
57 |
=cut |
55 |
|
58 |
|
56 |
sub GetSubscriptionNumberpatterns { |
59 |
sub GetSubscriptionNumberpatterns { |
Lines 67-81
sub GetSubscriptionNumberpatterns {
Link Here
|
67 |
return @$results; |
70 |
return @$results; |
68 |
} |
71 |
} |
69 |
|
72 |
|
70 |
=head3 GetSubscriptionNumberpattern |
73 |
=head2 GetSubscriptionNumberpattern |
71 |
|
|
|
72 |
=over 4 |
73 |
|
74 |
|
74 |
$result = GetSubscriptionNumberpattern($numberpatternid); |
75 |
$result = GetSubscriptionNumberpattern($numberpatternid); |
75 |
this function get the data of the subscription numberpatterns which id is $numberpatternid |
76 |
this function get the data of the subscription numberpatterns which id is $numberpatternid |
76 |
|
77 |
|
77 |
=back |
|
|
78 |
|
79 |
=cut |
78 |
=cut |
80 |
|
79 |
|
81 |
sub GetSubscriptionNumberpattern { |
80 |
sub GetSubscriptionNumberpattern { |
Lines 92-106
sub GetSubscriptionNumberpattern {
Link Here
|
92 |
return $sth->fetchrow_hashref; |
91 |
return $sth->fetchrow_hashref; |
93 |
} |
92 |
} |
94 |
|
93 |
|
95 |
=head3 GetSubscriptionNumberpatternByName |
94 |
=head2 GetSubscriptionNumberpatternByName |
96 |
|
|
|
97 |
=over 4 |
98 |
|
95 |
|
99 |
$result = GetSubscriptionNumberpatternByName($name); |
96 |
$result = GetSubscriptionNumberpatternByName($name); |
100 |
this function get the data of the subscription numberpatterns which name is $name |
97 |
this function get the data of the subscription numberpatterns which name is $name |
101 |
|
98 |
|
102 |
=back |
|
|
103 |
|
104 |
=cut |
99 |
=cut |
105 |
|
100 |
|
106 |
sub GetSubscriptionNumberpatternByName { |
101 |
sub GetSubscriptionNumberpatternByName { |
Lines 117-123
sub GetSubscriptionNumberpatternByName {
Link Here
|
117 |
return $sth->fetchrow_hashref; |
112 |
return $sth->fetchrow_hashref; |
118 |
} |
113 |
} |
119 |
|
114 |
|
120 |
=head3 AddSubscriptionNumberpattern |
115 |
=head2 AddSubscriptionNumberpattern |
121 |
|
116 |
|
122 |
=over 4 |
117 |
=over 4 |
123 |
|
118 |
|
Lines 172-178
sub AddSubscriptionNumberpattern {
Link Here
|
172 |
return $rv; |
167 |
return $rv; |
173 |
} |
168 |
} |
174 |
|
169 |
|
175 |
=head3 ModSubscriptionNumberpattern |
170 |
=head2 ModSubscriptionNumberpattern |
176 |
|
171 |
|
177 |
=over 4 |
172 |
=over 4 |
178 |
|
173 |
|
Lines 230-236
sub ModSubscriptionNumberpattern {
Link Here
|
230 |
return $sth->execute(@values, $numberpattern->{'id'}); |
225 |
return $sth->execute(@values, $numberpattern->{'id'}); |
231 |
} |
226 |
} |
232 |
|
227 |
|
233 |
=head3 DelSubscriptionNumberpattern |
228 |
=head2 DelSubscriptionNumberpattern |
234 |
|
229 |
|
235 |
=over 4 |
230 |
=over 4 |
236 |
|
231 |
|
Lines 254-260
sub DelSubscriptionNumberpattern {
Link Here
|
254 |
$sth->execute($numberpatternid); |
249 |
$sth->execute($numberpatternid); |
255 |
} |
250 |
} |
256 |
|
251 |
|
257 |
=head3 GetSubscriptionsWithNumberpattern |
252 |
=head2 GetSubscriptionsWithNumberpattern |
258 |
|
253 |
|
259 |
my @subs = GetSubscriptionsWithNumberpattern($numberpatternid); |
254 |
my @subs = GetSubscriptionsWithNumberpattern($numberpatternid); |
260 |
|
255 |
|
261 |
- |
|
|