View | Details | Raw Unified | Return to bug 39367
Collapse All | Expand All

(-)a/C4/Acquisition.pm (+18 lines)
Lines 95-100 BEGIN { Link Here
95
    );
95
    );
96
}
96
}
97
97
98
=head2 GetOrderFromItemnumber
99
100
Missing POD for GetOrderFromItemnumber.
101
102
=cut
103
98
sub GetOrderFromItemnumber {
104
sub GetOrderFromItemnumber {
99
    my ($itemnumber) = @_;
105
    my ($itemnumber) = @_;
100
    my $dbh          = C4::Context->dbh;
106
    my $dbh          = C4::Context->dbh;
Lines 491-496 reopen a basketgroup Link Here
491
497
492
=cut
498
=cut
493
499
500
=head2 ReOpenBasketgroup
501
502
Missing POD for ReOpenBasketgroup.
503
504
=cut
505
494
sub ReOpenBasketgroup {
506
sub ReOpenBasketgroup {
495
    my ($basketgroupno) = @_;
507
    my ($basketgroupno) = @_;
496
    my $dbh             = C4::Context->dbh;
508
    my $dbh             = C4::Context->dbh;
Lines 2904-2909 sub ModOrderUsers { Link Here
2904
    }
2916
    }
2905
}
2917
}
2906
2918
2919
=head2 NotifyOrderUsers
2920
2921
Missing POD for NotifyOrderUsers.
2922
2923
=cut
2924
2907
sub NotifyOrderUsers {
2925
sub NotifyOrderUsers {
2908
    my ($ordernumber) = @_;
2926
    my ($ordernumber) = @_;
2909
2927
(-)a/C4/Auth.pm (+32 lines)
Lines 63-68 use vars qw($ldap $cas $caslogout); Link Here
63
our ( @ISA, @EXPORT_OK );
63
our ( @ISA, @EXPORT_OK );
64
64
65
#NOTE: The utility of keeping the safe_exit function is that it can be easily re-defined in unit tests and plugins
65
#NOTE: The utility of keeping the safe_exit function is that it can be easily re-defined in unit tests and plugins
66
67
=head2 safe_exit
68
69
Missing POD for safe_exit.
70
71
=cut
72
66
sub safe_exit {
73
sub safe_exit {
67
74
68
    # It's fine for us to "exit" because CGI::Compile (used in Plack::App::WrapCGI) redefines "exit" for us automatically.
75
    # It's fine for us to "exit" because CGI::Compile (used in Plack::App::WrapCGI) redefines "exit" for us automatically.
Lines 2029-2034 sub create_basic_session { Link Here
2029
# (or something similar)
2036
# (or something similar)
2030
# Currently it's only passed from C4::SIP::ILS::Patron::check_password, but
2037
# Currently it's only passed from C4::SIP::ILS::Patron::check_password, but
2031
# not having a userenv defined could cause a crash.
2038
# not having a userenv defined could cause a crash.
2039
2040
=head2 checkpw
2041
2042
Missing POD for checkpw.
2043
2044
=cut
2045
2032
sub checkpw {
2046
sub checkpw {
2033
    my ( $userid, $password, $query, $type, $no_set_userenv ) = @_;
2047
    my ( $userid, $password, $query, $type, $no_set_userenv ) = @_;
2034
    $type = 'opac' unless $type;
2048
    $type = 'opac' unless $type;
Lines 2138-2143 sub checkpw { Link Here
2138
    return @return;
2152
    return @return;
2139
}
2153
}
2140
2154
2155
=head2 checkpw_internal
2156
2157
Missing POD for checkpw_internal.
2158
2159
=cut
2160
2141
sub checkpw_internal {
2161
sub checkpw_internal {
2142
    my ( $userid, $password, $no_set_userenv ) = @_;
2162
    my ( $userid, $password, $no_set_userenv ) = @_;
2143
2163
Lines 2169-2174 sub checkpw_internal { Link Here
2169
    return 0;
2189
    return 0;
2170
}
2190
}
2171
2191
2192
=head2 checkpw_hash
2193
2194
Missing POD for checkpw_hash.
2195
2196
=cut
2197
2172
sub checkpw_hash {
2198
sub checkpw_hash {
2173
    my ( $password, $stored_hash ) = @_;
2199
    my ( $password, $stored_hash ) = @_;
2174
2200
Lines 2434-2439 sub in_iprange { Link Here
2434
    return $result ? 1 : 0;
2460
    return $result ? 1 : 0;
2435
}
2461
}
2436
2462
2463
=head2 getborrowernumber
2464
2465
Missing POD for getborrowernumber.
2466
2467
=cut
2468
2437
sub getborrowernumber {
2469
sub getborrowernumber {
2438
    my ($userid) = @_;
2470
    my ($userid) = @_;
2439
    my $userenv = C4::Context->userenv;
2471
    my $userenv = C4::Context->userenv;
(-)a/C4/Auth_with_cas.pm (+55 lines)
Lines 57-72 if ( multipleAuth() ) { Link Here
57
=cut
57
=cut
58
58
59
# Is there a configuration file for multiple cas servers?
59
# Is there a configuration file for multiple cas servers?
60
61
=head2 multipleAuth
62
63
Missing POD for multipleAuth.
64
65
=cut
66
60
sub multipleAuth {
67
sub multipleAuth {
61
    return ( -e qq($yamlauthfile) );
68
    return ( -e qq($yamlauthfile) );
62
}
69
}
63
70
64
# Returns configured CAS servers' list if multiple authentication is enabled
71
# Returns configured CAS servers' list if multiple authentication is enabled
72
73
=head2 getMultipleAuth
74
75
Missing POD for getMultipleAuth.
76
77
=cut
78
65
sub getMultipleAuth {
79
sub getMultipleAuth {
66
    return $casservers;
80
    return $casservers;
67
}
81
}
68
82
69
# Logout from CAS
83
# Logout from CAS
84
85
=head2 logout_cas
86
87
Missing POD for logout_cas.
88
89
=cut
90
70
sub logout_cas {
91
sub logout_cas {
71
    my ( $query, $type ) = @_;
92
    my ( $query, $type ) = @_;
72
    my ( $cas,   $uri )  = _get_cas_and_service( $query, undef, $type );
93
    my ( $cas,   $uri )  = _get_cas_and_service( $query, undef, $type );
Lines 83-88 sub logout_cas { Link Here
83
}
104
}
84
105
85
# Login to CAS
106
# Login to CAS
107
108
=head2 login_cas
109
110
Missing POD for login_cas.
111
112
=cut
113
86
sub login_cas {
114
sub login_cas {
87
    my ( $query, $type ) = @_;
115
    my ( $query, $type ) = @_;
88
    my ( $cas,   $uri )  = _get_cas_and_service( $query, undef, $type );
116
    my ( $cas,   $uri )  = _get_cas_and_service( $query, undef, $type );
Lines 90-95 sub login_cas { Link Here
90
}
118
}
91
119
92
# Returns CAS login URL with callback to the requesting URL
120
# Returns CAS login URL with callback to the requesting URL
121
122
=head2 login_cas_url
123
124
Missing POD for login_cas_url.
125
126
=cut
127
93
sub login_cas_url {
128
sub login_cas_url {
94
    my ( $query, $key, $type ) = @_;
129
    my ( $query, $key, $type ) = @_;
95
    my ( $cas, $uri ) = _get_cas_and_service( $query, $key, $type );
130
    my ( $cas, $uri ) = _get_cas_and_service( $query, $key, $type );
Lines 98-103 sub login_cas_url { Link Here
98
133
99
# Checks for password correctness
134
# Checks for password correctness
100
# In our case : is there a ticket, is it valid and does it match one of our users ?
135
# In our case : is there a ticket, is it valid and does it match one of our users ?
136
137
=head2 checkpw_cas
138
139
Missing POD for checkpw_cas.
140
141
=cut
142
101
sub checkpw_cas {
143
sub checkpw_cas {
102
    my ( $ticket, $query, $type ) = @_;
144
    my ( $ticket, $query, $type ) = @_;
103
    my $retnumber;
145
    my $retnumber;
Lines 143-148 sub checkpw_cas { Link Here
143
}
185
}
144
186
145
# Proxy CAS auth
187
# Proxy CAS auth
188
189
=head2 check_api_auth_cas
190
191
Missing POD for check_api_auth_cas.
192
193
=cut
194
146
sub check_api_auth_cas {
195
sub check_api_auth_cas {
147
    my ( $PT, $query, $type ) = @_;
196
    my ( $PT, $query, $type ) = @_;
148
    my $retnumber;
197
    my $retnumber;
Lines 263-268 sub logout_if_required { Link Here
263
    exit;
312
    exit;
264
}
313
}
265
314
315
=head2 delete_cas_session
316
317
Missing POD for delete_cas_session.
318
319
=cut
320
266
sub delete_cas_session {
321
sub delete_cas_session {
267
    my $session = shift;
322
    my $session = shift;
268
    my $ticket  = shift;
323
    my $ticket  = shift;
(-)a/C4/Auth_with_shibboleth.pm (+7 lines)
Lines 39-44 BEGIN { Link Here
39
}
39
}
40
40
41
# Check that shib config is not malformed
41
# Check that shib config is not malformed
42
43
=head2 shib_ok
44
45
Missing POD for shib_ok.
46
47
=cut
48
42
sub shib_ok {
49
sub shib_ok {
43
    my $config = _get_shib_config();
50
    my $config = _get_shib_config();
44
51
(-)a/C4/AuthoritiesMarc.pm (+6 lines)
Lines 1775-1780 sub _merge_newtag { Link Here
1775
    return @same_block ? $same_block[0] : $new_tags->[0];
1775
    return @same_block ? $same_block[0] : $new_tags->[0];
1776
}
1776
}
1777
1777
1778
=head2 append_fields_ordered
1779
1780
Missing POD for append_fields_ordered.
1781
1782
=cut
1783
1778
sub append_fields_ordered {
1784
sub append_fields_ordered {
1779
1785
1780
    # while we lack this function in MARC::Record
1786
    # while we lack this function in MARC::Record
(-)a/C4/Barcodes.pm (+96 lines)
Lines 40-63 sub _prefformat { Link Here
40
    return $prefformat;
40
    return $prefformat;
41
}
41
}
42
42
43
=head2 initial
44
45
Missing POD for initial.
46
47
=cut
48
43
sub initial {
49
sub initial {
44
    return '0000001';
50
    return '0000001';
45
}
51
}
46
52
53
=head2 width
54
55
Missing POD for width.
56
57
=cut
58
47
sub width {
59
sub width {
48
    return;
60
    return;
49
}
61
}
50
62
63
=head2 process_head
64
65
Missing POD for process_head.
66
67
=cut
68
51
sub process_head {    # (self,head,whole,specific)
69
sub process_head {    # (self,head,whole,specific)
52
    my $self = shift;
70
    my $self = shift;
53
    return shift;     # Default: just return the head unchanged.
71
    return shift;     # Default: just return the head unchanged.
54
}
72
}
55
73
74
=head2 process_tail
75
76
Missing POD for process_tail.
77
78
=cut
79
56
sub process_tail {    # (self,tail,whole,specific)
80
sub process_tail {    # (self,tail,whole,specific)
57
    my $self = shift;
81
    my $self = shift;
58
    return shift;     # Default: just return the tail unchanged.
82
    return shift;     # Default: just return the tail unchanged.
59
}
83
}
60
84
85
=head2 is_max
86
87
Missing POD for is_max.
88
89
=cut
90
61
sub is_max {
91
sub is_max {
62
    my $self = shift;
92
    my $self = shift;
63
    ref($self) or carp "Called is_max on a non-object: '$self'";
93
    ref($self) or carp "Called is_max on a non-object: '$self'";
Lines 65-70 sub is_max { Link Here
65
    return $self->{is_max} || 0;
95
    return $self->{is_max} || 0;
66
}
96
}
67
97
98
=head2 value
99
100
Missing POD for value.
101
102
=cut
103
68
sub value {
104
sub value {
69
    my $self = shift;
105
    my $self = shift;
70
    if (@_) {
106
    if (@_) {
Lines 76-81 sub value { Link Here
76
    return $self->{value};
112
    return $self->{value};
77
}
113
}
78
114
115
=head2 autoBarcode
116
117
Missing POD for autoBarcode.
118
119
=cut
120
79
sub autoBarcode {
121
sub autoBarcode {
80
    (@_) or return _prefformat;
122
    (@_) or return _prefformat;
81
    my $self  = shift;
123
    my $self  = shift;
Lines 84-89 sub autoBarcode { Link Here
84
    return $value;
126
    return $value;
85
}
127
}
86
128
129
=head2 parse
130
131
Missing POD for parse.
132
133
=cut
134
87
sub parse {    # return 3 parts of barcode: non-incrementing, incrementing, non-incrementing
135
sub parse {    # return 3 parts of barcode: non-incrementing, incrementing, non-incrementing
88
    my $self    = shift;
136
    my $self    = shift;
89
    my $barcode = (@_) ? shift : $self->value;
137
    my $barcode = (@_) ? shift : $self->value;
Lines 94-99 sub parse { # return 3 parts of barcode: non-incrementing, incrementing, non- Link Here
94
    return ( $1, $2, '' );                    # the third part is in anticipation of barcodes that include checkdigits
142
    return ( $1, $2, '' );                    # the third part is in anticipation of barcodes that include checkdigits
95
}
143
}
96
144
145
=head2 max
146
147
Missing POD for max.
148
149
=cut
150
97
sub max {
151
sub max {
98
    my $self = shift;
152
    my $self = shift;
99
    if ( $self->{is_max} ) {
153
    if ( $self->{is_max} ) {
Lines 102-107 sub max { Link Here
102
    return $self->db_max;
156
    return $self->db_max;
103
}
157
}
104
158
159
=head2 db_max
160
161
Missing POD for db_max.
162
163
=cut
164
105
sub db_max {
165
sub db_max {
106
    my $self  = shift;
166
    my $self  = shift;
107
    my $query = "SELECT max(abs(CAST(barcode AS UNSIGNED))) FROM items LIMIT 1"
167
    my $query = "SELECT max(abs(CAST(barcode AS UNSIGNED))) FROM items LIMIT 1"
Lines 111-116 sub db_max { Link Here
111
    return $sth->fetchrow_array || $self->initial;
171
    return $sth->fetchrow_array || $self->initial;
112
}
172
}
113
173
174
=head2 next_value
175
176
Missing POD for next_value.
177
178
=cut
179
114
sub next_value {
180
sub next_value {
115
    my $self     = shift;
181
    my $self     = shift;
116
    my $specific = ( scalar @_ ) ? 1     : 0;
182
    my $specific = ( scalar @_ ) ? 1     : 0;
Lines 136-159 sub next_value { Link Here
136
    return $next_value;
202
    return $next_value;
137
}
203
}
138
204
205
=head2 next
206
207
Missing POD for next.
208
209
=cut
210
139
sub next {
211
sub next {
140
    my $self = shift or return;
212
    my $self = shift or return;
141
    (@_) and $self->{next} = shift;
213
    (@_) and $self->{next} = shift;
142
    return $self->{next};
214
    return $self->{next};
143
}
215
}
144
216
217
=head2 previous
218
219
Missing POD for previous.
220
221
=cut
222
145
sub previous {
223
sub previous {
146
    my $self = shift or return;
224
    my $self = shift or return;
147
    (@_) and $self->{previous} = shift;
225
    (@_) and $self->{previous} = shift;
148
    return $self->{previous};
226
    return $self->{previous};
149
}
227
}
150
228
229
=head2 serial
230
231
Missing POD for serial.
232
233
=cut
234
151
sub serial {
235
sub serial {
152
    my $self = shift or return;
236
    my $self = shift or return;
153
    (@_) and $self->{serial} = shift;
237
    (@_) and $self->{serial} = shift;
154
    return $self->{serial};
238
    return $self->{serial};
155
}
239
}
156
240
241
=head2 default_self
242
243
Missing POD for default_self.
244
245
=cut
246
157
sub default_self {
247
sub default_self {
158
    (@_) or carp "default_self called with no argument.  Reverting to _prefformat.";
248
    (@_) or carp "default_self called with no argument.  Reverting to _prefformat.";
159
    my $autoBarcode = (@_) ? shift : _prefformat;
249
    my $autoBarcode = (@_) ? shift : _prefformat;
Lines 221-226 sub new { Link Here
221
    return;
311
    return;
222
}
312
}
223
313
314
=head2 new_object
315
316
Missing POD for new_object.
317
318
=cut
319
224
sub new_object {
320
sub new_object {
225
    my $class_or_object = shift;
321
    my $class_or_object = shift;
226
    my $type            = ref($class_or_object) || $class_or_object;
322
    my $type            = ref($class_or_object) || $class_or_object;
(-)a/C4/Barcodes/hbyymmincr.pm (+36 lines)
Lines 37-42 BEGIN { Link Here
37
# Generates barcode where hb = home branch Code, yymm = year/month catalogued, incr = incremental number,
37
# Generates barcode where hb = home branch Code, yymm = year/month catalogued, incr = incremental number,
38
# 	increment resets yearly -fbcit
38
# 	increment resets yearly -fbcit
39
39
40
=head2 db_max
41
42
Missing POD for db_max.
43
44
=cut
45
40
sub db_max {
46
sub db_max {
41
    my $self  = shift;
47
    my $self  = shift;
42
    my $width = WIDTH;
48
    my $width = WIDTH;
Lines 68-73 sub db_max { Link Here
68
    return ( $max || 0 );
74
    return ( $max || 0 );
69
}
75
}
70
76
77
=head2 initial
78
79
Missing POD for initial.
80
81
=cut
82
71
sub initial {
83
sub initial {
72
    my $self = shift;
84
    my $self = shift;
73
85
Lines 78-83 sub initial { Link Here
78
    return $self->branch . substr( $iso, 2, 2 ) . substr( $iso, 5, 2 ) . sprintf( '%' . "$width.$width" . 'd', 1 );
90
    return $self->branch . substr( $iso, 2, 2 ) . substr( $iso, 5, 2 ) . sprintf( '%' . "$width.$width" . 'd', 1 );
79
}
91
}
80
92
93
=head2 parse
94
95
Missing POD for parse.
96
97
=cut
98
81
sub parse {    # return 3 parts of barcode: non-incrementing, incrementing, non-incrementing
99
sub parse {    # return 3 parts of barcode: non-incrementing, incrementing, non-incrementing
82
    my $self    = shift;
100
    my $self    = shift;
83
    my $barcode = (@_) ? shift : $self->value;
101
    my $barcode = (@_) ? shift : $self->value;
Lines 89-94 sub parse { # return 3 parts of barcode: non-incrementing, incrementing, non- Link Here
89
    return ( $1, $2, '' );    # the third part is in anticipation of barcodes that include checkdigits
107
    return ( $1, $2, '' );    # the third part is in anticipation of barcodes that include checkdigits
90
}
108
}
91
109
110
=head2 branch
111
112
Missing POD for branch.
113
114
=cut
115
92
sub branch {
116
sub branch {
93
    my $self = shift;
117
    my $self = shift;
94
    (@_) and $self->{branch} = shift;
118
    (@_) and $self->{branch} = shift;
Lines 102-107 sub branch { Link Here
102
#    return $width;
126
#    return $width;
103
#}
127
#}
104
128
129
=head2 process_head
130
131
Missing POD for process_head.
132
133
=cut
134
105
sub process_head {    # (self,head,whole,specific)
135
sub process_head {    # (self,head,whole,specific)
106
    my ( $self, $head, $whole, $specific ) = @_;
136
    my ( $self, $head, $whole, $specific ) = @_;
107
    $specific and return $head;    # if this is built off an existing barcode, just return the head unchanged.
137
    $specific and return $head;    # if this is built off an existing barcode, just return the head unchanged.
Lines 110-115 sub process_head { # (self,head,whole,specific) Link Here
110
    return $head . substr( $iso, 2, 2 ) . substr( $iso, 5, 2 );
140
    return $head . substr( $iso, 2, 2 ) . substr( $iso, 5, 2 );
111
}
141
}
112
142
143
=head2 new_object
144
145
Missing POD for new_object.
146
147
=cut
148
113
sub new_object {
149
sub new_object {
114
    my $class_or_object = shift;
150
    my $class_or_object = shift;
115
151
(-)a/C4/Budgets.pm (+152 lines)
Lines 90-95 BEGIN { Link Here
90
90
91
=cut
91
=cut
92
92
93
=head2 HideCols
94
95
Missing POD for HideCols.
96
97
=cut
98
93
sub HideCols {
99
sub HideCols {
94
    my ( $authcat, @hide_cols ) = @_;
100
    my ( $authcat, @hide_cols ) = @_;
95
    my $dbh = C4::Context->dbh;
101
    my $dbh = C4::Context->dbh;
Lines 107-112 sub HideCols { Link Here
107
    }
113
    }
108
}
114
}
109
115
116
=head2 GetCols
117
118
Missing POD for GetCols.
119
120
=cut
121
110
sub GetCols {
122
sub GetCols {
111
    my ( $authcat, $authvalue ) = @_;
123
    my ( $authcat, $authvalue ) = @_;
112
124
Lines 126-131 sub GetCols { Link Here
126
138
127
}
139
}
128
140
141
=head2 CheckBudgetParentPerm
142
143
Missing POD for CheckBudgetParentPerm.
144
145
=cut
146
129
sub CheckBudgetParentPerm {
147
sub CheckBudgetParentPerm {
130
    my ( $budget, $borrower_id ) = @_;
148
    my ( $budget, $borrower_id ) = @_;
131
    my $depth     = $budget->{depth};
149
    my $depth     = $budget->{depth};
Lines 141-146 sub CheckBudgetParentPerm { Link Here
141
    return 0;
159
    return 0;
142
}
160
}
143
161
162
=head2 AddBudgetPeriod
163
164
Missing POD for AddBudgetPeriod.
165
166
=cut
167
144
sub AddBudgetPeriod {
168
sub AddBudgetPeriod {
145
    my ($budgetperiod) = @_;
169
    my ($budgetperiod) = @_;
146
    return unless ( $budgetperiod->{budget_period_startdate} && $budgetperiod->{budget_period_enddate} );
170
    return unless ( $budgetperiod->{budget_period_startdate} && $budgetperiod->{budget_period_enddate} );
Lines 151-156 sub AddBudgetPeriod { Link Here
151
}
175
}
152
176
153
# -------------------------------------------------------------------
177
# -------------------------------------------------------------------
178
179
=head2 GetPeriodsCount
180
181
Missing POD for GetPeriodsCount.
182
183
=cut
184
154
sub GetPeriodsCount {
185
sub GetPeriodsCount {
155
    my $dbh = C4::Context->dbh;
186
    my $dbh = C4::Context->dbh;
156
    my $sth = $dbh->prepare( "
187
    my $sth = $dbh->prepare( "
Lines 161-166 sub GetPeriodsCount { Link Here
161
}
192
}
162
193
163
# -------------------------------------------------------------------
194
# -------------------------------------------------------------------
195
196
=head2 CheckBudgetParent
197
198
Missing POD for CheckBudgetParent.
199
200
=cut
201
164
sub CheckBudgetParent {
202
sub CheckBudgetParent {
165
    my ( $new_parent, $budget ) = @_;
203
    my ( $new_parent, $budget ) = @_;
166
    my $new_parent_id = $new_parent->{'budget_id'};
204
    my $new_parent_id = $new_parent->{'budget_id'};
Lines 188-193 sub CheckBudgetParent { Link Here
188
}
226
}
189
227
190
# -------------------------------------------------------------------
228
# -------------------------------------------------------------------
229
230
=head2 BudgetHasChildren
231
232
Missing POD for BudgetHasChildren.
233
234
=cut
235
191
sub BudgetHasChildren {
236
sub BudgetHasChildren {
192
    my ($budget_id) = @_;
237
    my ($budget_id) = @_;
193
    my $dbh         = C4::Context->dbh;
238
    my $dbh         = C4::Context->dbh;
Lines 201-206 sub BudgetHasChildren { Link Here
201
    return $sum->{'sum'};
246
    return $sum->{'sum'};
202
}
247
}
203
248
249
=head2 GetBudgetChildren
250
251
Missing POD for GetBudgetChildren.
252
253
=cut
254
204
sub GetBudgetChildren {
255
sub GetBudgetChildren {
205
    my ($budget_id) = @_;
256
    my ($budget_id) = @_;
206
    my $dbh = C4::Context->dbh;
257
    my $dbh = C4::Context->dbh;
Lines 212-217 sub GetBudgetChildren { Link Here
212
    );
263
    );
213
}
264
}
214
265
266
=head2 SetOwnerToFundHierarchy
267
268
Missing POD for SetOwnerToFundHierarchy.
269
270
=cut
271
215
sub SetOwnerToFundHierarchy {
272
sub SetOwnerToFundHierarchy {
216
    my ( $budget_id, $borrowernumber ) = @_;
273
    my ( $budget_id, $borrowernumber ) = @_;
217
274
Lines 225-230 sub SetOwnerToFundHierarchy { Link Here
225
}
282
}
226
283
227
# -------------------------------------------------------------------
284
# -------------------------------------------------------------------
285
286
=head2 GetBudgetsPlanCell
287
288
Missing POD for GetBudgetsPlanCell.
289
290
=cut
291
228
sub GetBudgetsPlanCell {
292
sub GetBudgetsPlanCell {
229
    my ( $cell, $period, $budget ) = @_;    #FIXME we don't use $period
293
    my ( $cell, $period, $budget ) = @_;    #FIXME we don't use $period
230
    my ( $actual, $sth );
294
    my ( $actual, $sth );
Lines 324-329 sub GetBudgetsPlanCell { Link Here
324
}
388
}
325
389
326
# -------------------------------------------------------------------
390
# -------------------------------------------------------------------
391
392
=head2 ModBudgetPlan
393
394
Missing POD for ModBudgetPlan.
395
396
=cut
397
327
sub ModBudgetPlan {
398
sub ModBudgetPlan {
328
    my ( $budget_plan, $budget_period_id, $authcat ) = @_;
399
    my ( $budget_plan, $budget_period_id, $authcat ) = @_;
329
    my $dbh = C4::Context->dbh;
400
    my $dbh = C4::Context->dbh;
Lines 364-369 sub ModBudgetPlan { Link Here
364
}
435
}
365
436
366
# -------------------------------------------------------------------
437
# -------------------------------------------------------------------
438
439
=head2 GetBudgetSpent
440
441
Missing POD for GetBudgetSpent.
442
443
=cut
444
367
sub GetBudgetSpent {
445
sub GetBudgetSpent {
368
    my ($budget_id) = @_;
446
    my ($budget_id) = @_;
369
    my $dbh = C4::Context->dbh;
447
    my $dbh = C4::Context->dbh;
Lines 408-413 sub GetBudgetSpent { Link Here
408
}
486
}
409
487
410
# -------------------------------------------------------------------
488
# -------------------------------------------------------------------
489
490
=head2 GetBudgetOrdered
491
492
Missing POD for GetBudgetOrdered.
493
494
=cut
495
411
sub GetBudgetOrdered {
496
sub GetBudgetOrdered {
412
    my ($budget_id) = @_;
497
    my ($budget_id) = @_;
413
    my $dbh = C4::Context->dbh;
498
    my $dbh = C4::Context->dbh;
Lines 483-488 sub GetBudgetAuthCats { Link Here
483
}
568
}
484
569
485
# -------------------------------------------------------------------
570
# -------------------------------------------------------------------
571
572
=head2 GetBudgetPeriods
573
574
Missing POD for GetBudgetPeriods.
575
576
=cut
577
486
sub GetBudgetPeriods {
578
sub GetBudgetPeriods {
487
    my ( $filters, $orderby ) = @_;
579
    my ( $filters, $orderby ) = @_;
488
580
Lines 493-498 sub GetBudgetPeriods { Link Here
493
}
585
}
494
586
495
# -------------------------------------------------------------------
587
# -------------------------------------------------------------------
588
589
=head2 GetBudgetPeriod
590
591
Missing POD for GetBudgetPeriod.
592
593
=cut
594
496
sub GetBudgetPeriod {
595
sub GetBudgetPeriod {
497
    my ($budget_period_id) = @_;
596
    my ($budget_period_id) = @_;
498
    my $dbh                = C4::Context->dbh;
597
    my $dbh                = C4::Context->dbh;
Lines 506-511 sub GetBudgetPeriod { Link Here
506
    return $sth->fetchrow_hashref;
605
    return $sth->fetchrow_hashref;
507
}
606
}
508
607
608
=head2 DelBudgetPeriod
609
610
Missing POD for DelBudgetPeriod.
611
612
=cut
613
509
sub DelBudgetPeriod {
614
sub DelBudgetPeriod {
510
    my ($budget_period_id) = @_;
615
    my ($budget_period_id) = @_;
511
    my $dbh = C4::Context->dbh;
616
    my $dbh = C4::Context->dbh;
Lines 523-528 sub DelBudgetPeriod { Link Here
523
}
628
}
524
629
525
# -------------------------------------------------------------------
630
# -------------------------------------------------------------------
631
632
=head2 ModBudgetPeriod
633
634
Missing POD for ModBudgetPeriod.
635
636
=cut
637
526
sub ModBudgetPeriod {
638
sub ModBudgetPeriod {
527
    my ($budget_period) = @_;
639
    my ($budget_period) = @_;
528
    my $result = Koha::Database->new()->schema->resultset('Aqbudgetperiod')->find($budget_period);
640
    my $result = Koha::Database->new()->schema->resultset('Aqbudgetperiod')->find($budget_period);
Lines 533-538 sub ModBudgetPeriod { Link Here
533
}
645
}
534
646
535
# -------------------------------------------------------------------
647
# -------------------------------------------------------------------
648
649
=head2 GetBudgetHierarchy
650
651
Missing POD for GetBudgetHierarchy.
652
653
=cut
654
536
sub GetBudgetHierarchy {
655
sub GetBudgetHierarchy {
537
    my ( $budget_period_id, $branchcode, $owner, $skiptotals ) = @_;
656
    my ( $budget_period_id, $branchcode, $owner, $skiptotals ) = @_;
538
    my @bind_params;
657
    my @bind_params;
Lines 715-720 sub _add_budget_children { Link Here
715
834
716
# -------------------------------------------------------------------
835
# -------------------------------------------------------------------
717
# FIXME Must be replaced by Koha::Acquisition::Fund->store
836
# FIXME Must be replaced by Koha::Acquisition::Fund->store
837
838
=head2 AddBudget
839
840
Missing POD for AddBudget.
841
842
=cut
843
718
sub AddBudget {
844
sub AddBudget {
719
    my ($budget) = @_;
845
    my ($budget) = @_;
720
    return unless ($budget);
846
    return unless ($budget);
Lines 743-748 sub AddBudget { Link Here
743
869
744
# -------------------------------------------------------------------
870
# -------------------------------------------------------------------
745
# FIXME Must be replaced by Koha::Acquisition::Fund->store
871
# FIXME Must be replaced by Koha::Acquisition::Fund->store
872
873
=head2 ModBudget
874
875
Missing POD for ModBudget.
876
877
=cut
878
746
sub ModBudget {
879
sub ModBudget {
747
    my ($budget) = @_;
880
    my ($budget) = @_;
748
    my $result = Koha::Database->new()->schema->resultset('Aqbudget')->find($budget);
881
    my $result = Koha::Database->new()->schema->resultset('Aqbudget')->find($budget);
Lines 775-780 sub ModBudget { Link Here
775
908
776
# -------------------------------------------------------------------
909
# -------------------------------------------------------------------
777
# FIXME Must be replaced by Koha::Acquisition::Fund->delete
910
# FIXME Must be replaced by Koha::Acquisition::Fund->delete
911
912
=head2 DelBudget
913
914
Missing POD for DelBudget.
915
916
=cut
917
778
sub DelBudget {
918
sub DelBudget {
779
    my ($budget_id) = @_;
919
    my ($budget_id) = @_;
780
    my $dbh         = C4::Context->dbh;
920
    my $dbh         = C4::Context->dbh;
Lines 1106-1111 sub ModBudgetUsers { Link Here
1106
    }
1246
    }
1107
}
1247
}
1108
1248
1249
=head2 CanUserUseBudget
1250
1251
Missing POD for CanUserUseBudget.
1252
1253
=cut
1254
1109
sub CanUserUseBudget {
1255
sub CanUserUseBudget {
1110
    my ( $borrower, $budget, $userflags ) = @_;
1256
    my ( $borrower, $budget, $userflags ) = @_;
1111
1257
Lines 1188-1193 sub CanUserUseBudget { Link Here
1188
    return 1;
1334
    return 1;
1189
}
1335
}
1190
1336
1337
=head2 CanUserModifyBudget
1338
1339
Missing POD for CanUserModifyBudget.
1340
1341
=cut
1342
1191
sub CanUserModifyBudget {
1343
sub CanUserModifyBudget {
1192
    my ( $borrower, $budget, $userflags ) = @_;
1344
    my ( $borrower, $budget, $userflags ) = @_;
1193
1345
(-)a/C4/Circulation.pm (+84 lines)
Lines 417-422 sub transferbook { Link Here
417
    return ( $dotransfer, $messages );
417
    return ( $dotransfer, $messages );
418
}
418
}
419
419
420
=head2 TooMany
421
422
Missing POD for TooMany.
423
424
=cut
425
420
sub TooMany {
426
sub TooMany {
421
    my ( $patron, $item, $params ) = @_;
427
    my ( $patron, $item, $params ) = @_;
422
    my $onsite_checkout        = $params->{onsite_checkout}        || 0;
428
    my $onsite_checkout        = $params->{onsite_checkout}        || 0;
Lines 1416-1421 sub CanBookBeReturned { Link Here
1416
1422
1417
=cut
1423
=cut
1418
1424
1425
=head2 checkHighHolds
1426
1427
Missing POD for checkHighHolds.
1428
1429
=cut
1430
1419
sub checkHighHolds {
1431
sub checkHighHolds {
1420
    my ( $item, $patron ) = @_;
1432
    my ( $item, $patron ) = @_;
1421
    my $branchcode = _GetCircControlBranch( $item, $patron );
1433
    my $branchcode = _GetCircControlBranch( $item, $patron );
Lines 3533-3538 sub AddRenewal { Link Here
3533
    return $datedue;
3545
    return $datedue;
3534
}
3546
}
3535
3547
3548
=head2 GetRenewCount
3549
3550
Missing POD for GetRenewCount.
3551
3552
=cut
3553
3536
sub GetRenewCount {
3554
sub GetRenewCount {
3537
3555
3538
    # check renewal status
3556
    # check renewal status
Lines 4154-4159 sub CalcDateDue { Link Here
4154
    return $datedue;
4172
    return $datedue;
4155
}
4173
}
4156
4174
4175
=head2 CheckValidBarcode
4176
4177
Missing POD for CheckValidBarcode.
4178
4179
=cut
4180
4157
sub CheckValidBarcode {
4181
sub CheckValidBarcode {
4158
    my ($barcode) = @_;
4182
    my ($barcode) = @_;
4159
    my $dbh       = C4::Context->dbh;
4183
    my $dbh       = C4::Context->dbh;
Lines 4243-4248 sub DeleteBranchTransferLimits { Link Here
4243
    return $sth->execute($branch);
4267
    return $sth->execute($branch);
4244
}
4268
}
4245
4269
4270
=head2 ReturnLostItem
4271
4272
Missing POD for ReturnLostItem.
4273
4274
=cut
4275
4246
sub ReturnLostItem {
4276
sub ReturnLostItem {
4247
    my ( $borrowernumber, $itemnum ) = @_;
4277
    my ( $borrowernumber, $itemnum ) = @_;
4248
    MarkIssueReturned( $borrowernumber, $itemnum );
4278
    MarkIssueReturned( $borrowernumber, $itemnum );
Lines 4330-4335 sub LostItem { Link Here
4330
    }
4360
    }
4331
}
4361
}
4332
4362
4363
=head2 GetOfflineOperations
4364
4365
Missing POD for GetOfflineOperations.
4366
4367
=cut
4368
4333
sub GetOfflineOperations {
4369
sub GetOfflineOperations {
4334
    my $dbh = C4::Context->dbh;
4370
    my $dbh = C4::Context->dbh;
4335
    my $sth = $dbh->prepare("SELECT * FROM pending_offline_operations WHERE branchcode=? ORDER BY timestamp");
4371
    my $sth = $dbh->prepare("SELECT * FROM pending_offline_operations WHERE branchcode=? ORDER BY timestamp");
Lines 4338-4343 sub GetOfflineOperations { Link Here
4338
    return $results;
4374
    return $results;
4339
}
4375
}
4340
4376
4377
=head2 GetOfflineOperation
4378
4379
Missing POD for GetOfflineOperation.
4380
4381
=cut
4382
4341
sub GetOfflineOperation {
4383
sub GetOfflineOperation {
4342
    my $operationid = shift;
4384
    my $operationid = shift;
4343
    return unless $operationid;
4385
    return unless $operationid;
Lines 4347-4352 sub GetOfflineOperation { Link Here
4347
    return $sth->fetchrow_hashref;
4389
    return $sth->fetchrow_hashref;
4348
}
4390
}
4349
4391
4392
=head2 AddOfflineOperation
4393
4394
Missing POD for AddOfflineOperation.
4395
4396
=cut
4397
4350
sub AddOfflineOperation {
4398
sub AddOfflineOperation {
4351
    my ( $userid, $branchcode, $timestamp, $action, $barcode, $cardnumber, $amount ) = @_;
4399
    my ( $userid, $branchcode, $timestamp, $action, $barcode, $cardnumber, $amount ) = @_;
4352
    my $dbh = C4::Context->dbh;
4400
    my $dbh = C4::Context->dbh;
Lines 4357-4362 sub AddOfflineOperation { Link Here
4357
    return "Added.";
4405
    return "Added.";
4358
}
4406
}
4359
4407
4408
=head2 DeleteOfflineOperation
4409
4410
Missing POD for DeleteOfflineOperation.
4411
4412
=cut
4413
4360
sub DeleteOfflineOperation {
4414
sub DeleteOfflineOperation {
4361
    my $dbh = C4::Context->dbh;
4415
    my $dbh = C4::Context->dbh;
4362
    my $sth = $dbh->prepare("DELETE FROM pending_offline_operations WHERE operationid=?");
4416
    my $sth = $dbh->prepare("DELETE FROM pending_offline_operations WHERE operationid=?");
Lines 4364-4369 sub DeleteOfflineOperation { Link Here
4364
    return "Deleted.";
4418
    return "Deleted.";
4365
}
4419
}
4366
4420
4421
=head2 ProcessOfflineOperation
4422
4423
Missing POD for ProcessOfflineOperation.
4424
4425
=cut
4426
4367
sub ProcessOfflineOperation {
4427
sub ProcessOfflineOperation {
4368
    my $operation = shift;
4428
    my $operation = shift;
4369
4429
Lines 4381-4386 sub ProcessOfflineOperation { Link Here
4381
    return $report;
4441
    return $report;
4382
}
4442
}
4383
4443
4444
=head2 ProcessOfflineReturn
4445
4446
Missing POD for ProcessOfflineReturn.
4447
4448
=cut
4449
4384
sub ProcessOfflineReturn {
4450
sub ProcessOfflineReturn {
4385
    my $operation = shift;
4451
    my $operation = shift;
4386
4452
Lines 4408-4413 sub ProcessOfflineReturn { Link Here
4408
    }
4474
    }
4409
}
4475
}
4410
4476
4477
=head2 ProcessOfflineIssue
4478
4479
Missing POD for ProcessOfflineIssue.
4480
4481
=cut
4482
4411
sub ProcessOfflineIssue {
4483
sub ProcessOfflineIssue {
4412
    my $operation = shift;
4484
    my $operation = shift;
4413
4485
Lines 4444-4449 sub ProcessOfflineIssue { Link Here
4444
    }
4516
    }
4445
}
4517
}
4446
4518
4519
=head2 ProcessOfflinePayment
4520
4521
Missing POD for ProcessOfflinePayment.
4522
4523
=cut
4524
4447
sub ProcessOfflinePayment {
4525
sub ProcessOfflinePayment {
4448
    my $operation = shift;
4526
    my $operation = shift;
4449
4527
Lines 4617-4622 sub GetPendingOnSiteCheckouts { Link Here
4617
    );
4695
    );
4618
}
4696
}
4619
4697
4698
=head2 GetTopIssues
4699
4700
Missing POD for GetTopIssues.
4701
4702
=cut
4703
4620
sub GetTopIssues {
4704
sub GetTopIssues {
4621
    my ($params) = @_;
4705
    my ($params) = @_;
4622
4706
(-)a/C4/Context.pm (+13 lines)
Lines 234-239 sub config { Link Here
234
    return _common_config( $_[1], 'config' );
234
    return _common_config( $_[1], 'config' );
235
}
235
}
236
236
237
=head2 zebraconfig
238
239
Missing POD for zebraconfig.
240
241
=cut
242
237
sub zebraconfig {
243
sub zebraconfig {
238
    return _common_config( $_[1], 'server' );
244
    return _common_config( $_[1], 'server' );
239
}
245
}
Lines 823-828 sub interface { Link Here
823
}
829
}
824
830
825
# always returns a string for OK comparison via "eq" or "ne"
831
# always returns a string for OK comparison via "eq" or "ne"
832
833
=head2 mybranch
834
835
Missing POD for mybranch.
836
837
=cut
838
826
sub mybranch {
839
sub mybranch {
827
    C4::Context->userenv or return '';
840
    C4::Context->userenv or return '';
828
    return C4::Context->userenv->{branch} || '';
841
    return C4::Context->userenv->{branch} || '';
(-)a/C4/Contract.pm (+18 lines)
Lines 109-114 sub GetContract { Link Here
109
    return $contracts->[0];
109
    return $contracts->[0];
110
}
110
}
111
111
112
=head2 AddContract
113
114
Missing POD for AddContract.
115
116
=cut
117
112
sub AddContract {
118
sub AddContract {
113
    my ($contract) = @_;
119
    my ($contract) = @_;
114
    return unless ( $contract->{booksellerid} );
120
    return unless ( $contract->{booksellerid} );
Lines 117-122 sub AddContract { Link Here
117
    return $rs->create($contract)->id;
123
    return $rs->create($contract)->id;
118
}
124
}
119
125
126
=head2 ModContract
127
128
Missing POD for ModContract.
129
130
=cut
131
120
sub ModContract {
132
sub ModContract {
121
    my ($contract) = @_;
133
    my ($contract) = @_;
122
    my $result = Koha::Database->new()->schema->resultset('Aqcontract')->find($contract);
134
    my $result = Koha::Database->new()->schema->resultset('Aqcontract')->find($contract);
Lines 126-131 sub ModContract { Link Here
126
    return $result->in_storage;
138
    return $result->in_storage;
127
}
139
}
128
140
141
=head2 DelContract
142
143
Missing POD for DelContract.
144
145
=cut
146
129
sub DelContract {
147
sub DelContract {
130
    my ($contract) = @_;
148
    my ($contract) = @_;
131
    return unless ( $contract->{contractnumber} );
149
    return unless ( $contract->{contractnumber} );
(-)a/C4/CourseReserves.pm (-1 / +20 lines)
Lines 1081-1089 sub SearchCourses { Link Here
1081
    return $courses;
1081
    return $courses;
1082
}
1082
}
1083
1083
1084
sub whoami  { ( caller(1) )[3] }
1084
=head2 whoami
1085
1086
Missing POD for whoami.
1087
1088
=cut
1089
1090
sub whoami { ( caller(1) )[3] }
1091
1092
=head2 whowasi
1093
1094
Missing POD for whowasi.
1095
1096
=cut
1097
1085
sub whowasi { ( caller(2) )[3] }
1098
sub whowasi { ( caller(2) )[3] }
1086
1099
1100
=head2 stringify_params
1101
1102
Missing POD for stringify_params.
1103
1104
=cut
1105
1087
sub stringify_params {
1106
sub stringify_params {
1088
    my (%params) = @_;
1107
    my (%params) = @_;
1089
1108
(-)a/C4/Creators/PDF.pm (+240 lines)
Lines 61-66 sub _InitVars { Link Here
61
    prInitVars($param);
61
    prInitVars($param);
62
}
62
}
63
63
64
=head2 new
65
66
Missing POD for new.
67
68
=cut
69
64
sub new {
70
sub new {
65
    my $invocant = shift;
71
    my $invocant = shift;
66
    my $type     = ref($invocant) || $invocant;
72
    my $type     = ref($invocant) || $invocant;
Lines 81-86 sub new { Link Here
81
    return $self;
87
    return $self;
82
}
88
}
83
89
90
=head2 End
91
92
Missing POD for End.
93
94
=cut
95
84
sub End {
96
sub End {
85
    my $self = shift;
97
    my $self = shift;
86
98
Lines 94-141 sub End { Link Here
94
    unlink $self->{filename};
106
    unlink $self->{filename};
95
}
107
}
96
108
109
=head2 Add
110
111
Missing POD for Add.
112
113
=cut
114
97
sub Add {
115
sub Add {
98
    my $self   = shift;
116
    my $self   = shift;
99
    my $string = shift;
117
    my $string = shift;
100
    prAdd($string);
118
    prAdd($string);
101
}
119
}
102
120
121
=head2 Bookmark
122
123
Missing POD for Bookmark.
124
125
=cut
126
103
sub Bookmark {
127
sub Bookmark {
104
    my $self      = shift;
128
    my $self      = shift;
105
    my $reference = shift;
129
    my $reference = shift;
106
    prBookmark($reference);
130
    prBookmark($reference);
107
}
131
}
108
132
133
=head2 Compress
134
135
Missing POD for Compress.
136
137
=cut
138
109
sub Compress {
139
sub Compress {
110
    my $self      = shift;
140
    my $self      = shift;
111
    my $directive = shift;
141
    my $directive = shift;
112
    prCompress($directive);
142
    prCompress($directive);
113
}
143
}
114
144
145
=head2 Doc
146
147
Missing POD for Doc.
148
149
=cut
150
115
sub Doc {
151
sub Doc {
116
    my $self   = shift;
152
    my $self   = shift;
117
    my %params = @_;
153
    my %params = @_;
118
    prDoc(%params);
154
    prDoc(%params);
119
}
155
}
120
156
157
=head2 DocForm
158
159
Missing POD for DocForm.
160
161
=cut
162
121
sub DocForm {
163
sub DocForm {
122
    my $self   = shift;
164
    my $self   = shift;
123
    my %params = @_;
165
    my %params = @_;
124
    return prDocForm(%params);
166
    return prDocForm(%params);
125
}
167
}
126
168
169
=head2 Extract
170
171
Missing POD for Extract.
172
173
=cut
174
127
sub Extract {
175
sub Extract {
128
    my $self = shift;
176
    my $self = shift;
129
    my ( $pdfFile, $pageNo, $oldInternalName ) = @_;
177
    my ( $pdfFile, $pageNo, $oldInternalName ) = @_;
130
    return prExtract( $pdfFile, $pageNo, $oldInternalName );
178
    return prExtract( $pdfFile, $pageNo, $oldInternalName );
131
}
179
}
132
180
181
=head2 Field
182
183
Missing POD for Field.
184
185
=cut
186
133
sub Field {
187
sub Field {
134
    my $self = shift;
188
    my $self = shift;
135
    my ( $fieldName, $value ) = @_;
189
    my ( $fieldName, $value ) = @_;
136
    prField( $fieldName, $value );
190
    prField( $fieldName, $value );
137
}
191
}
138
192
193
=head2 Font
194
195
Missing POD for Font.
196
197
=cut
198
139
sub Font {
199
sub Font {
140
    my $self     = shift;
200
    my $self     = shift;
141
    my $fontName = shift;
201
    my $fontName = shift;
Lines 153-193 sub Font { Link Here
153
    return prFont($fontName);
213
    return prFont($fontName);
154
}
214
}
155
215
216
=head2 FontSize
217
218
Missing POD for FontSize.
219
220
=cut
221
156
sub FontSize {
222
sub FontSize {
157
    my $self = shift;
223
    my $self = shift;
158
    my $size = shift;
224
    my $size = shift;
159
    return prFontSize($size);
225
    return prFontSize($size);
160
}
226
}
161
227
228
=head2 Form
229
230
Missing POD for Form.
231
232
=cut
233
162
sub Form {
234
sub Form {
163
    my $self   = shift;
235
    my $self   = shift;
164
    my %params = @_;
236
    my %params = @_;
165
    return prForm(%params);
237
    return prForm(%params);
166
}
238
}
167
239
240
=head2 GetLogBuffer
241
242
Missing POD for GetLogBuffer.
243
244
=cut
245
168
sub GetLogBuffer {
246
sub GetLogBuffer {
169
    my $self = shift;
247
    my $self = shift;
170
    return prGetLogBuffer();
248
    return prGetLogBuffer();
171
}
249
}
172
250
251
=head2 GraphState
252
253
Missing POD for GraphState.
254
255
=cut
256
173
sub GraphState {
257
sub GraphState {
174
    my $self   = shift;
258
    my $self   = shift;
175
    my $string = shift;
259
    my $string = shift;
176
    prGraphState($string);
260
    prGraphState($string);
177
}
261
}
178
262
263
=head2 Image
264
265
Missing POD for Image.
266
267
=cut
268
179
sub Image {
269
sub Image {
180
    my $self   = shift;
270
    my $self   = shift;
181
    my %params = @_;
271
    my %params = @_;
182
    return prImage(%params);
272
    return prImage(%params);
183
}
273
}
184
274
275
=head2 Init
276
277
Missing POD for Init.
278
279
=cut
280
185
sub Init {
281
sub Init {
186
    my $self = shift;
282
    my $self = shift;
187
    my ( $string, $duplicateCode ) = @_;
283
    my ( $string, $duplicateCode ) = @_;
188
    prInit( $string, $duplicateCode );
284
    prInit( $string, $duplicateCode );
189
}
285
}
190
286
287
=head2 AltJpeg
288
289
Missing POD for AltJpeg.
290
291
=cut
292
191
sub AltJpeg {
293
sub AltJpeg {
192
    my $self = shift;
294
    my $self = shift;
193
    my ( $imageData, $width, $height, $imageFormat, $altImageData, $altImageWidth, $altImageHeight, $altImageFormat ) =
295
    my ( $imageData, $width, $height, $imageFormat, $altImageData, $altImageWidth, $altImageHeight, $altImageFormat ) =
Lines 198-251 sub AltJpeg { Link Here
198
    );
300
    );
199
}
301
}
200
302
303
=head2 Jpeg
304
305
Missing POD for Jpeg.
306
307
=cut
308
201
sub Jpeg {
309
sub Jpeg {
202
    my $self = shift;
310
    my $self = shift;
203
    my ( $imageData, $width, $height, $imageFormat ) = @_;
311
    my ( $imageData, $width, $height, $imageFormat ) = @_;
204
    return prJpeg( $imageData, $width, $height, $imageFormat );
312
    return prJpeg( $imageData, $width, $height, $imageFormat );
205
}
313
}
206
314
315
=head2 Js
316
317
Missing POD for Js.
318
319
=cut
320
207
sub Js {
321
sub Js {
208
    my $self               = shift;
322
    my $self               = shift;
209
    my $string_or_fileName = shift;
323
    my $string_or_fileName = shift;
210
    prJs($string_or_fileName);
324
    prJs($string_or_fileName);
211
}
325
}
212
326
327
=head2 Link
328
329
Missing POD for Link.
330
331
=cut
332
213
sub Link {
333
sub Link {
214
    my $self   = shift;
334
    my $self   = shift;
215
    my %params = @_;
335
    my %params = @_;
216
    prLink(%params);
336
    prLink(%params);
217
}
337
}
218
338
339
=head2 Log
340
341
Missing POD for Log.
342
343
=cut
344
219
sub Log {
345
sub Log {
220
    my $self   = shift;
346
    my $self   = shift;
221
    my $string = shift;
347
    my $string = shift;
222
    prLog($string);
348
    prLog($string);
223
}
349
}
224
350
351
=head2 LogDir
352
353
Missing POD for LogDir.
354
355
=cut
356
225
sub LogDir {
357
sub LogDir {
226
    my $self      = shift;
358
    my $self      = shift;
227
    my $directory = shift;
359
    my $directory = shift;
228
    prLogDir($directory);
360
    prLogDir($directory);
229
}
361
}
230
362
363
=head2 Mbox
364
365
Missing POD for Mbox.
366
367
=cut
368
231
sub Mbox {
369
sub Mbox {
232
    my $self = shift;
370
    my $self = shift;
233
    my ( $lowerLeftX, $lowerLeftY, $upperRightX, $upperRightY ) = @_;
371
    my ( $lowerLeftX, $lowerLeftY, $upperRightX, $upperRightY ) = @_;
234
    prMbox( $lowerLeftX, $lowerLeftY, $upperRightX, $upperRightY );
372
    prMbox( $lowerLeftX, $lowerLeftY, $upperRightX, $upperRightY );
235
}
373
}
236
374
375
=head2 Page
376
377
Missing POD for Page.
378
379
=cut
380
237
sub Page {
381
sub Page {
238
    my $self  = shift;
382
    my $self  = shift;
239
    my $noLog = shift;
383
    my $noLog = shift;
240
    prPage($noLog);
384
    prPage($noLog);
241
}
385
}
242
386
387
=head2 SinglePage
388
389
Missing POD for SinglePage.
390
391
=cut
392
243
sub SinglePage {
393
sub SinglePage {
244
    my $self = shift;
394
    my $self = shift;
245
    my ( $file, $pageNumber ) = @_;
395
    my ( $file, $pageNumber ) = @_;
246
    return prSinglePage( $file, $pageNumber );
396
    return prSinglePage( $file, $pageNumber );
247
}
397
}
248
398
399
=head2 StrWidth
400
401
Missing POD for StrWidth.
402
403
=cut
404
249
sub StrWidth {
405
sub StrWidth {
250
    my $self = shift;
406
    my $self = shift;
251
    my ( $string, $font, $fontSize ) = @_;
407
    my ( $string, $font, $fontSize ) = @_;
Lines 256-339 sub StrWidth { Link Here
256
    return prStrWidth( $string, $font, $fontSize );
412
    return prStrWidth( $string, $font, $fontSize );
257
}
413
}
258
414
415
=head2 Text
416
417
Missing POD for Text.
418
419
=cut
420
259
sub Text {
421
sub Text {
260
    my $self = shift;
422
    my $self = shift;
261
    my ( $x, $y, $string, $align, $rotation ) = @_;
423
    my ( $x, $y, $string, $align, $rotation ) = @_;
262
    return prText( $x, $y, $string, $align, $rotation );
424
    return prText( $x, $y, $string, $align, $rotation );
263
}
425
}
264
426
427
=head2 TTFont
428
429
Missing POD for TTFont.
430
431
=cut
432
265
sub TTFont {
433
sub TTFont {
266
    my $self = shift;
434
    my $self = shift;
267
    my $path = shift;
435
    my $path = shift;
268
    return prTTFont($path);
436
    return prTTFont($path);
269
}
437
}
270
438
439
=head2 Code128
440
441
Missing POD for Code128.
442
443
=cut
444
271
sub Code128 {
445
sub Code128 {
272
    my $self = shift;
446
    my $self = shift;
273
    my %opts = @_;
447
    my %opts = @_;
274
    PDF::Reuse::Barcode::Code128(%opts);
448
    PDF::Reuse::Barcode::Code128(%opts);
275
}
449
}
276
450
451
=head2 Code39
452
453
Missing POD for Code39.
454
455
=cut
456
277
sub Code39 {
457
sub Code39 {
278
    my $self = shift;
458
    my $self = shift;
279
    my %opts = @_;
459
    my %opts = @_;
280
    PDF::Reuse::Barcode::Code39(%opts);
460
    PDF::Reuse::Barcode::Code39(%opts);
281
}
461
}
282
462
463
=head2 COOP2of5
464
465
Missing POD for COOP2of5.
466
467
=cut
468
283
sub COOP2of5 {
469
sub COOP2of5 {
284
    my $self = shift;
470
    my $self = shift;
285
    my %opts = @_;
471
    my %opts = @_;
286
    PDF::Reuse::Barcode::COOP2of5(%opts);
472
    PDF::Reuse::Barcode::COOP2of5(%opts);
287
}
473
}
288
474
475
=head2 EAN13
476
477
Missing POD for EAN13.
478
479
=cut
480
289
sub EAN13 {
481
sub EAN13 {
290
    my $self = shift;
482
    my $self = shift;
291
    my %opts = @_;
483
    my %opts = @_;
292
    PDF::Reuse::Barcode::EAN13(%opts);
484
    PDF::Reuse::Barcode::EAN13(%opts);
293
}
485
}
294
486
487
=head2 EAN8
488
489
Missing POD for EAN8.
490
491
=cut
492
295
sub EAN8 {
493
sub EAN8 {
296
    my $self = shift;
494
    my $self = shift;
297
    my %opts = @_;
495
    my %opts = @_;
298
    PDF::Reuse::Barcode::EAN8(%opts);
496
    PDF::Reuse::Barcode::EAN8(%opts);
299
}
497
}
300
498
499
=head2 IATA2of5
500
501
Missing POD for IATA2of5.
502
503
=cut
504
301
sub IATA2of5 {
505
sub IATA2of5 {
302
    my $self = shift;
506
    my $self = shift;
303
    my %opts = @_;
507
    my %opts = @_;
304
    PDF::Reuse::Barcode::IATA2of5(%opts);
508
    PDF::Reuse::Barcode::IATA2of5(%opts);
305
}
509
}
306
510
511
=head2 Industrial2of5
512
513
Missing POD for Industrial2of5.
514
515
=cut
516
307
sub Industrial2of5 {
517
sub Industrial2of5 {
308
    my $self = shift;
518
    my $self = shift;
309
    my %opts = @_;
519
    my %opts = @_;
310
    PDF::Reuse::Barcode::Industrial2of5(%opts);
520
    PDF::Reuse::Barcode::Industrial2of5(%opts);
311
}
521
}
312
522
523
=head2 ITF
524
525
Missing POD for ITF.
526
527
=cut
528
313
sub ITF {
529
sub ITF {
314
    my $self = shift;
530
    my $self = shift;
315
    my %opts = @_;
531
    my %opts = @_;
316
    PDF::Reuse::Barcode::ITF(%opts);
532
    PDF::Reuse::Barcode::ITF(%opts);
317
}
533
}
318
534
535
=head2 Matrix2of5
536
537
Missing POD for Matrix2of5.
538
539
=cut
540
319
sub Matrix2of5 {
541
sub Matrix2of5 {
320
    my $self = shift;
542
    my $self = shift;
321
    my %opts = @_;
543
    my %opts = @_;
322
    PDF::Reuse::Barcode::Matrix2of5(%opts);
544
    PDF::Reuse::Barcode::Matrix2of5(%opts);
323
}
545
}
324
546
547
=head2 NW7
548
549
Missing POD for NW7.
550
551
=cut
552
325
sub NW7 {
553
sub NW7 {
326
    my $self = shift;
554
    my $self = shift;
327
    my %opts = @_;
555
    my %opts = @_;
328
    PDF::Reuse::Barcode::NW7(%opts);
556
    PDF::Reuse::Barcode::NW7(%opts);
329
}
557
}
330
558
559
=head2 UPCA
560
561
Missing POD for UPCA.
562
563
=cut
564
331
sub UPCA {
565
sub UPCA {
332
    my $self = shift;
566
    my $self = shift;
333
    my %opts = @_;
567
    my %opts = @_;
334
    PDF::Reuse::Barcode::UPCA(%opts);
568
    PDF::Reuse::Barcode::UPCA(%opts);
335
}
569
}
336
570
571
=head2 UPCE
572
573
Missing POD for UPCE.
574
575
=cut
576
337
sub UPCE {
577
sub UPCE {
338
    my $self = shift;
578
    my $self = shift;
339
    my %opts = @_;
579
    my %opts = @_;
(-)a/C4/Creators/Template.pm (+6 lines)
Lines 266-271 sub get_label_position { Link Here
266
    }
266
    }
267
}
267
}
268
268
269
=head2 get_next_label_pos
270
271
Missing POD for get_next_label_pos.
272
273
=cut
274
269
sub get_next_label_pos {
275
sub get_next_label_pos {
270
    my $self          = shift;
276
    my $self          = shift;
271
    my $current_label = $self->{'current_label'};
277
    my $current_label = $self->{'current_label'};
(-)a/C4/External/BakerTaylor.pm (+24 lines)
Lines 49-54 sub _initialize { Link Here
49
    #"Mozilla/4.76 [en] (Win98; U)",	#  if for some reason you want to go stealth, you might prefer this
49
    #"Mozilla/4.76 [en] (Win98; U)",	#  if for some reason you want to go stealth, you might prefer this
50
}
50
}
51
51
52
=head2 image_url
53
54
Missing POD for image_url.
55
56
=cut
57
52
sub image_url {
58
sub image_url {
53
    _initialize();
59
    _initialize();
54
    ( $user and $pass ) or return;
60
    ( $user and $pass ) or return;
Lines 57-62 sub image_url { Link Here
57
    return $image_url . $isbn;
63
    return $image_url . $isbn;
58
}
64
}
59
65
66
=head2 link_url
67
68
Missing POD for link_url.
69
70
=cut
71
60
sub link_url {
72
sub link_url {
61
    _initialize();
73
    _initialize();
62
    my $isbn = ( @_ ? shift : '' );
74
    my $isbn = ( @_ ? shift : '' );
Lines 65-70 sub link_url { Link Here
65
    return $link_url . $isbn;
77
    return $link_url . $isbn;
66
}
78
}
67
79
80
=head2 content_cafe_url
81
82
Missing POD for content_cafe_url.
83
84
=cut
85
68
sub content_cafe_url {
86
sub content_cafe_url {
69
    _initialize();
87
    _initialize();
70
    ( $user and $pass ) or return;
88
    ( $user and $pass ) or return;
Lines 74-79 sub content_cafe_url { Link Here
74
        "https://contentcafe2.btol.com/ContentCafeClient/ContentCafe.aspx?UserID=$user&Password=$pass&Options=Y&ItemKey=$isbn";
92
        "https://contentcafe2.btol.com/ContentCafeClient/ContentCafe.aspx?UserID=$user&Password=$pass&Options=Y&ItemKey=$isbn";
75
}
93
}
76
94
95
=head2 http_jacket_link
96
97
Missing POD for http_jacket_link.
98
99
=cut
100
77
sub http_jacket_link {
101
sub http_jacket_link {
78
    _initialize();
102
    _initialize();
79
    my $isbn = shift or return;
103
    my $isbn = shift or return;
(-)a/C4/External/Syndetics.pm (+36 lines)
Lines 61-66 Get Summary data from Syndetics Link Here
61
61
62
=cut
62
=cut
63
63
64
=head2 get_syndetics_index
65
66
Missing POD for get_syndetics_index.
67
68
=cut
69
64
sub get_syndetics_index {
70
sub get_syndetics_index {
65
    my ( $isbn, $upc, $oclc ) = @_;
71
    my ( $isbn, $upc, $oclc ) = @_;
66
72
Lines 114-119 sub get_syndetics_summary { Link Here
114
    return $summary if $summary;
120
    return $summary if $summary;
115
}
121
}
116
122
123
=head2 get_syndetics_toc
124
125
Missing POD for get_syndetics_toc.
126
127
=cut
128
117
sub get_syndetics_toc {
129
sub get_syndetics_toc {
118
    my ( $isbn, $upc, $oclc ) = @_;
130
    my ( $isbn, $upc, $oclc ) = @_;
119
131
Lines 135-140 sub get_syndetics_toc { Link Here
135
    return $toc                                                        if $toc;
147
    return $toc                                                        if $toc;
136
}
148
}
137
149
150
=head2 get_syndetics_excerpt
151
152
Missing POD for get_syndetics_excerpt.
153
154
=cut
155
138
sub get_syndetics_excerpt {
156
sub get_syndetics_excerpt {
139
    my ( $isbn, $upc, $oclc ) = @_;
157
    my ( $isbn, $upc, $oclc ) = @_;
140
158
Lines 156-161 sub get_syndetics_excerpt { Link Here
156
    return XMLout( $excerpt, NoEscape => 1 )                             if $excerpt;
174
    return XMLout( $excerpt, NoEscape => 1 )                             if $excerpt;
157
}
175
}
158
176
177
=head2 get_syndetics_reviews
178
179
Missing POD for get_syndetics_reviews.
180
181
=cut
182
159
sub get_syndetics_reviews {
183
sub get_syndetics_reviews {
160
    my ( $isbn, $upc, $oclc, $syndetics_elements ) = @_;
184
    my ( $isbn, $upc, $oclc, $syndetics_elements ) = @_;
161
185
Lines 208-213 sub get_syndetics_reviews { Link Here
208
    return \@reviews;
232
    return \@reviews;
209
}
233
}
210
234
235
=head2 get_syndetics_editions
236
237
Missing POD for get_syndetics_editions.
238
239
=cut
240
211
sub get_syndetics_editions {
241
sub get_syndetics_editions {
212
    my ( $isbn, $upc, $oclc ) = @_;
242
    my ( $isbn, $upc, $oclc ) = @_;
213
243
Lines 230-235 sub get_syndetics_editions { Link Here
230
    return $similar_items                                                         if $similar_items;
260
    return $similar_items                                                         if $similar_items;
231
}
261
}
232
262
263
=head2 get_syndetics_anotes
264
265
Missing POD for get_syndetics_anotes.
266
267
=cut
268
233
sub get_syndetics_anotes {
269
sub get_syndetics_anotes {
234
    my ( $isbn, $upc, $oclc ) = @_;
270
    my ( $isbn, $upc, $oclc ) = @_;
235
271
(-)a/C4/HoldsQueue.pm (+18 lines)
Lines 992-997 sub _can_item_fill_request { Link Here
992
992
993
=cut
993
=cut
994
994
995
=head2 CreatePicklistFromItemMap
996
997
Missing POD for CreatePicklistFromItemMap.
998
999
=cut
1000
995
sub CreatePicklistFromItemMap {
1001
sub CreatePicklistFromItemMap {
996
    my $item_map = shift;
1002
    my $item_map = shift;
997
1003
Lines 1073-1078 sub _trim { Link Here
1073
    $_[0];
1079
    $_[0];
1074
}
1080
}
1075
1081
1082
=head2 load_branches_to_pull_from
1083
1084
Missing POD for load_branches_to_pull_from.
1085
1086
=cut
1087
1076
sub load_branches_to_pull_from {
1088
sub load_branches_to_pull_from {
1077
    my $use_transport_cost_matrix = shift;
1089
    my $use_transport_cost_matrix = shift;
1078
1090
Lines 1098-1103 sub load_branches_to_pull_from { Link Here
1098
    return \@branches_to_use;
1110
    return \@branches_to_use;
1099
}
1111
}
1100
1112
1113
=head2 least_cost_branch
1114
1115
Missing POD for least_cost_branch.
1116
1117
=cut
1118
1101
sub least_cost_branch {
1119
sub least_cost_branch {
1102
1120
1103
    #$from - arrayref
1121
    #$from - arrayref
(-)a/C4/ImportBatch.pm (+6 lines)
Lines 1165-1170 WHERE import_batch_id = ?|; Link Here
1165
1165
1166
=cut
1166
=cut
1167
1167
1168
=head2 GetNumberOfNonZ3950ImportBatches
1169
1170
Missing POD for GetNumberOfNonZ3950ImportBatches.
1171
1172
=cut
1173
1168
sub GetNumberOfNonZ3950ImportBatches {
1174
sub GetNumberOfNonZ3950ImportBatches {
1169
    my $dbh = C4::Context->dbh;
1175
    my $dbh = C4::Context->dbh;
1170
    my $sth = $dbh->prepare("SELECT COUNT(*) FROM import_batches WHERE batch_type != 'z3950'");
1176
    my $sth = $dbh->prepare("SELECT COUNT(*) FROM import_batches WHERE batch_type != 'z3950'");
(-)a/C4/InstallAuth.pm (+6 lines)
Lines 413-418 sub checkauth { Link Here
413
    exit;
413
    exit;
414
}
414
}
415
415
416
=head2 checkpw
417
418
Missing POD for checkpw.
419
420
=cut
421
416
sub checkpw {
422
sub checkpw {
417
423
418
    my ( $userid, $password ) = @_;
424
    my ( $userid, $password ) = @_;
(-)a/C4/Installer.pm (+91 lines)
Lines 662-667 sub get_file_path_from_name { Link Here
662
662
663
}
663
}
664
664
665
=head2 primary_key_exists
666
667
Missing POD for primary_key_exists.
668
669
=cut
670
665
sub primary_key_exists {
671
sub primary_key_exists {
666
    my ( $table_name, $key_name ) = @_;
672
    my ( $table_name, $key_name ) = @_;
667
    my $dbh = C4::Context->dbh;
673
    my $dbh = C4::Context->dbh;
Lines 677-682 sub primary_key_exists { Link Here
677
    return $exists;
683
    return $exists;
678
}
684
}
679
685
686
=head2 foreign_key_exists
687
688
Missing POD for foreign_key_exists.
689
690
=cut
691
680
sub foreign_key_exists {
692
sub foreign_key_exists {
681
    my ( $table_name, $constraint_name ) = @_;
693
    my ( $table_name, $constraint_name ) = @_;
682
    my $dbh = C4::Context->dbh;
694
    my $dbh = C4::Context->dbh;
Lines 684-689 sub foreign_key_exists { Link Here
684
    return $infos =~ m|CONSTRAINT `$constraint_name` FOREIGN KEY|;
696
    return $infos =~ m|CONSTRAINT `$constraint_name` FOREIGN KEY|;
685
}
697
}
686
698
699
=head2 unique_key_exists
700
701
Missing POD for unique_key_exists.
702
703
=cut
704
687
sub unique_key_exists {
705
sub unique_key_exists {
688
    my ( $table_name, $constraint_name ) = @_;
706
    my ( $table_name, $constraint_name ) = @_;
689
    my $dbh = C4::Context->dbh;
707
    my $dbh = C4::Context->dbh;
Lines 691-696 sub unique_key_exists { Link Here
691
    return $infos =~ m|UNIQUE KEY `$constraint_name`|;
709
    return $infos =~ m|UNIQUE KEY `$constraint_name`|;
692
}
710
}
693
711
712
=head2 index_exists
713
714
Missing POD for index_exists.
715
716
=cut
717
694
sub index_exists {
718
sub index_exists {
695
    my ( $table_name, $key_name ) = @_;
719
    my ( $table_name, $key_name ) = @_;
696
    my $dbh = C4::Context->dbh;
720
    my $dbh = C4::Context->dbh;
Lines 703-708 sub index_exists { Link Here
703
    return $exists;
727
    return $exists;
704
}
728
}
705
729
730
=head2 column_exists
731
732
Missing POD for column_exists.
733
734
=cut
735
706
sub column_exists {
736
sub column_exists {
707
    my ( $table_name, $column_name ) = @_;
737
    my ( $table_name, $column_name ) = @_;
708
    return unless TableExists($table_name);
738
    return unless TableExists($table_name);
Lines 716-721 sub column_exists { Link Here
716
    return $exists;
746
    return $exists;
717
}
747
}
718
748
749
=head2 TableExists
750
751
Missing POD for TableExists.
752
753
=cut
754
719
sub TableExists {    # Could be renamed table_exists for consistency
755
sub TableExists {    # Could be renamed table_exists for consistency
720
    my $table = shift;
756
    my $table = shift;
721
    eval {
757
    eval {
Lines 728-739 sub TableExists { # Could be renamed table_exists for consistency Link Here
728
    return 0;
764
    return 0;
729
}
765
}
730
766
767
=head2 version_from_file
768
769
Missing POD for version_from_file.
770
771
=cut
772
731
sub version_from_file {
773
sub version_from_file {
732
    my $file = shift;
774
    my $file = shift;
733
    return unless $file =~ m|(^\|/)(\d{2})(\d{2})(\d{2})(\d{3}).pl$|;
775
    return unless $file =~ m|(^\|/)(\d{2})(\d{2})(\d{2})(\d{3}).pl$|;
734
    return sprintf "%s.%s.%s.%s", $2, $3, $4, $5;
776
    return sprintf "%s.%s.%s.%s", $2, $3, $4, $5;
735
}
777
}
736
778
779
=head2 get_db_entries
780
781
Missing POD for get_db_entries.
782
783
=cut
784
737
sub get_db_entries {
785
sub get_db_entries {
738
    my $db_revs_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/db_revs';
786
    my $db_revs_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/db_revs';
739
    opendir my $dh, $db_revs_dir or die "Cannot open $db_revs_dir dir ($!)";
787
    opendir my $dh, $db_revs_dir or die "Cannot open $db_revs_dir dir ($!)";
Lines 754-759 sub get_db_entries { Link Here
754
    return \@need_update;
802
    return \@need_update;
755
}
803
}
756
804
805
=head2 run_db_rev
806
807
Missing POD for run_db_rev.
808
809
=cut
810
757
sub run_db_rev {
811
sub run_db_rev {
758
    my ($file) = @_;
812
    my ($file) = @_;
759
813
Lines 790-795 sub run_db_rev { Link Here
790
    return $db_entry;
844
    return $db_entry;
791
}
845
}
792
846
847
=head2 update
848
849
Missing POD for update.
850
851
=cut
852
793
sub update {
853
sub update {
794
    my ( $files, $params ) = @_;
854
    my ( $files, $params ) = @_;
795
855
Lines 813-818 sub update { Link Here
813
    return { success => \@done, error => \@errors };
873
    return { success => \@done, error => \@errors };
814
}
874
}
815
875
876
=head2 generate_output_db_entry
877
878
Missing POD for generate_output_db_entry.
879
880
=cut
881
816
sub generate_output_db_entry {
882
sub generate_output_db_entry {
817
    my ($db_entry) = @_;
883
    my ($db_entry) = @_;
818
884
Lines 859-869 sub generate_output_db_entry { Link Here
859
    return \@output;
925
    return \@output;
860
}
926
}
861
927
928
=head2 get_atomic_updates
929
930
Missing POD for get_atomic_updates.
931
932
=cut
933
862
sub get_atomic_updates {
934
sub get_atomic_updates {
863
    my $atomic_updates = Koha::Installer::get_atomic_updates();
935
    my $atomic_updates = Koha::Installer::get_atomic_updates();
864
    return $atomic_updates;
936
    return $atomic_updates;
865
}
937
}
866
938
939
=head2 run_atomic_updates
940
941
Missing POD for run_atomic_updates.
942
943
=cut
944
867
sub run_atomic_updates {
945
sub run_atomic_updates {
868
    my ($files) = @_;
946
    my ($files) = @_;
869
947
Lines 990-995 sub SetVersion { Link Here
990
1068
991
# DEPRECATED Don't use it!
1069
# DEPRECATED Don't use it!
992
# Used for compatibility with older versions (from updatedatabase.pl)
1070
# Used for compatibility with older versions (from updatedatabase.pl)
1071
1072
=head2 NewVersion
1073
1074
Missing POD for NewVersion.
1075
1076
=cut
1077
993
sub NewVersion {
1078
sub NewVersion {
994
    my ( $DBversion, $bug_number, $descriptions ) = @_;
1079
    my ( $DBversion, $bug_number, $descriptions ) = @_;
995
1080
Lines 1044-1049 sub CheckVersion { Link Here
1044
    return 0;
1129
    return 0;
1045
}
1130
}
1046
1131
1132
=head2 sanitize_zero_date
1133
1134
Missing POD for sanitize_zero_date.
1135
1136
=cut
1137
1047
sub sanitize_zero_date {
1138
sub sanitize_zero_date {
1048
    my ( $table_name, $column_name ) = @_;
1139
    my ( $table_name, $column_name ) = @_;
1049
1140
(-)a/C4/Installer/PerlModules.pm (+6 lines)
Lines 19-24 sub new { Link Here
19
    return $self;
19
    return $self;
20
}
20
}
21
21
22
=head2 prereqs
23
24
Missing POD for prereqs.
25
26
=cut
27
22
sub prereqs {
28
sub prereqs {
23
    my $self = shift;
29
    my $self = shift;
24
30
(-)a/C4/Installer/UpgradeBackup.pm (+6 lines)
Lines 41-46 creates backups of files updated during an upgrade. Link Here
41
41
42
=cut
42
=cut
43
43
44
=head2 backup_changed_files
45
46
Missing POD for backup_changed_files.
47
48
=cut
49
44
sub backup_changed_files {
50
sub backup_changed_files {
45
    my $from_to       = shift;
51
    my $from_to       = shift;
46
    my $suffix        = shift;
52
    my $suffix        = shift;
(-)a/C4/ItemCirculationAlertPreference.pm (+6 lines)
Lines 223-228 B<Example>: Link Here
223
223
224
=cut
224
=cut
225
225
226
=head2 is_disabled_for
227
228
Missing POD for is_disabled_for.
229
230
=cut
231
226
sub is_disabled_for {
232
sub is_disabled_for {
227
    my ( $class, $opts ) = @_;
233
    my ( $class, $opts ) = @_;
228
    $valid->($opts);
234
    $valid->($opts);
(-)a/C4/Items.pm (+12 lines)
Lines 827-832 sub GetMarcItem { Link Here
827
827
828
}
828
}
829
829
830
=head2 Item2Marc
831
832
Missing POD for Item2Marc.
833
834
=cut
835
830
sub Item2Marc {
836
sub Item2Marc {
831
    my ( $itemrecord, $biblionumber ) = @_;
837
    my ( $itemrecord, $biblionumber ) = @_;
832
    my $mungeditem = {
838
    my $mungeditem = {
Lines 1653-1658 sub PrepareItemrecordDisplay { Link Here
1653
    };
1659
    };
1654
}
1660
}
1655
1661
1662
=head2 ToggleNewStatus
1663
1664
Missing POD for ToggleNewStatus.
1665
1666
=cut
1667
1656
sub ToggleNewStatus {
1668
sub ToggleNewStatus {
1657
    my ($params)    = @_;
1669
    my ($params)    = @_;
1658
    my @rules       = @{ $params->{rules} };
1670
    my @rules       = @{ $params->{rules} };
(-)a/C4/Koha.pm (+49 lines)
Lines 132-137 sub getitemtypeimagedir { Link Here
132
    }
132
    }
133
}
133
}
134
134
135
=head2 getitemtypeimagesrc
136
137
Missing POD for getitemtypeimagesrc.
138
139
=cut
140
135
sub getitemtypeimagesrc {
141
sub getitemtypeimagesrc {
136
    my $src = shift || 'opac';
142
    my $src = shift || 'opac';
137
    if ( $src eq 'intranet' ) {
143
    if ( $src eq 'intranet' ) {
Lines 141-146 sub getitemtypeimagesrc { Link Here
141
    }
147
    }
142
}
148
}
143
149
150
=head2 getitemtypeimagelocation
151
152
Missing POD for getitemtypeimagelocation.
153
154
=cut
155
144
sub getitemtypeimagelocation {
156
sub getitemtypeimagelocation {
145
    my ( $src, $image ) = @_;
157
    my ( $src, $image ) = @_;
146
158
Lines 319-324 sub getallthemes { Link Here
319
    return @themes;
331
    return @themes;
320
}
332
}
321
333
334
=head2 getFacets
335
336
Missing POD for getFacets.
337
338
=cut
339
322
sub getFacets {
340
sub getFacets {
323
    my $facets;
341
    my $facets;
324
    if ( C4::Context->preference("marcflavour") eq "UNIMARC" ) {
342
    if ( C4::Context->preference("marcflavour") eq "UNIMARC" ) {
Lines 584-589 sub display_marc_indicators { Link Here
584
    return $indicators;
602
    return $indicators;
585
}
603
}
586
604
605
=head2 GetNormalizedUPC
606
607
Missing POD for GetNormalizedUPC.
608
609
=cut
610
587
sub GetNormalizedUPC {
611
sub GetNormalizedUPC {
588
    my ( $marcrecord, $marcflavour ) = @_;
612
    my ( $marcrecord, $marcflavour ) = @_;
589
613
Lines 613-618 sub GetNormalizedUPC { Link Here
613
637
614
# Normalizes and returns the first valid ISBN found in the record
638
# Normalizes and returns the first valid ISBN found in the record
615
# ISBN13 are converted into ISBN10. This is required to get some book cover images.
639
# ISBN13 are converted into ISBN10. This is required to get some book cover images.
640
641
=head2 GetNormalizedISBN
642
643
Missing POD for GetNormalizedISBN.
644
645
=cut
646
616
sub GetNormalizedISBN {
647
sub GetNormalizedISBN {
617
    my ( $isbn, $marcrecord, $marcflavour ) = @_;
648
    my ( $isbn, $marcrecord, $marcflavour ) = @_;
618
    if ($isbn) {
649
    if ($isbn) {
Lines 644-649 sub GetNormalizedISBN { Link Here
644
    }
675
    }
645
}
676
}
646
677
678
=head2 GetNormalizedEAN
679
680
Missing POD for GetNormalizedEAN.
681
682
=cut
683
647
sub GetNormalizedEAN {
684
sub GetNormalizedEAN {
648
    my ( $marcrecord, $marcflavour ) = @_;
685
    my ( $marcrecord, $marcflavour ) = @_;
649
686
Lines 669-674 sub GetNormalizedEAN { Link Here
669
    }
706
    }
670
}
707
}
671
708
709
=head2 GetNormalizedOCLCNumber
710
711
Missing POD for GetNormalizedOCLCNumber.
712
713
=cut
714
672
sub GetNormalizedOCLCNumber {
715
sub GetNormalizedOCLCNumber {
673
    my ( $marcrecord, $marcflavour ) = @_;
716
    my ( $marcrecord, $marcflavour ) = @_;
674
    return unless $marcrecord;
717
    return unless $marcrecord;
Lines 830-835 sub GetVariationsOfISBNs { Link Here
830
873
831
=cut
874
=cut
832
875
876
=head2 NormalizeISSN
877
878
Missing POD for NormalizeISSN.
879
880
=cut
881
833
sub NormalizeISSN {
882
sub NormalizeISSN {
834
    my ($params) = @_;
883
    my ($params) = @_;
835
884
(-)a/C4/Labels/Label.pm (+6 lines)
Lines 504-509 LABEL_FIELDS: # process data for requested fields on current label Link Here
504
    return \@label_text;
504
    return \@label_text;
505
}
505
}
506
506
507
=head2 draw_guide_box
508
509
Missing POD for draw_guide_box.
510
511
=cut
512
507
sub draw_guide_box {
513
sub draw_guide_box {
508
    return $_[0]->{'guidebox'};
514
    return $_[0]->{'guidebox'};
509
}
515
}
(-)a/C4/Languages.pm (+19 lines)
Lines 474-479 sub _build_languages_arrayref { Link Here
474
    return \@languages_loop;
474
    return \@languages_loop;
475
}
475
}
476
476
477
=head2 language_get_description
478
479
Missing POD for language_get_description.
480
481
=cut
482
477
sub language_get_description {
483
sub language_get_description {
478
    my ( $script, $lang, $type ) = @_;
484
    my ( $script, $lang, $type ) = @_;
479
    my $dbh = C4::Context->dbh;
485
    my $dbh = C4::Context->dbh;
Lines 585-590 sub regex_lang_subtags { Link Here
585
591
586
# Script Direction Resources:
592
# Script Direction Resources:
587
# http://www.w3.org/International/questions/qa-scripts
593
# http://www.w3.org/International/questions/qa-scripts
594
595
=head2 get_bidi
596
597
Missing POD for get_bidi.
598
599
=cut
600
588
sub get_bidi {
601
sub get_bidi {
589
    my ($language_script) = @_;
602
    my ($language_script) = @_;
590
    my $dbh = C4::Context->dbh;
603
    my $dbh = C4::Context->dbh;
Lines 597-602 sub get_bidi { Link Here
597
    return $bidi;
610
    return $bidi;
598
}
611
}
599
612
613
=head2 accept_language
614
615
Missing POD for accept_language.
616
617
=cut
618
600
sub accept_language {
619
sub accept_language {
601
620
602
    # referenced http://search.cpan.org/src/CGILMORE/I18N-AcceptLanguage-1.04/lib/I18N/AcceptLanguage.pm
621
    # referenced http://search.cpan.org/src/CGILMORE/I18N-AcceptLanguage-1.04/lib/I18N/AcceptLanguage.pm
(-)a/C4/Linker.pm (+6 lines)
Lines 53-58 use base qw(Class::Accessor); Link Here
53
53
54
__PACKAGE__->mk_accessors(qw( ));
54
__PACKAGE__->mk_accessors(qw( ));
55
55
56
=head2 new
57
58
Missing POD for new.
59
60
=cut
61
56
sub new {
62
sub new {
57
    my $class = shift;
63
    my $class = shift;
58
    my $param = shift;
64
    my $param = shift;
(-)a/C4/Linker/Default.pm (+18 lines)
Lines 24-29 use C4::Heading; Link Here
24
24
25
use base qw(C4::Linker);
25
use base qw(C4::Linker);
26
26
27
=head2 get_link
28
29
Missing POD for get_link.
30
31
=cut
32
27
sub get_link {
33
sub get_link {
28
    my $self        = shift;
34
    my $self        = shift;
29
    my $heading     = shift;
35
    my $heading     = shift;
Lines 82-87 sub get_link { Link Here
82
    return $self->SUPER::_handle_auth_limit($authid), $fuzzy, $match_count;
88
    return $self->SUPER::_handle_auth_limit($authid), $fuzzy, $match_count;
83
}
89
}
84
90
91
=head2 update_cache
92
93
Missing POD for update_cache.
94
95
=cut
96
85
sub update_cache {
97
sub update_cache {
86
    my $self        = shift;
98
    my $self        = shift;
87
    my $heading     = shift;
99
    my $heading     = shift;
Lines 97-102 sub update_cache { Link Here
97
    $self->{'cache'}->{ $search_form . $auth_type . $thesaurus }->{'fuzzy'}  = $fuzzy;
109
    $self->{'cache'}->{ $search_form . $auth_type . $thesaurus }->{'fuzzy'}  = $fuzzy;
98
}
110
}
99
111
112
=head2 flip_heading
113
114
Missing POD for flip_heading.
115
116
=cut
117
100
sub flip_heading {
118
sub flip_heading {
101
    my $self    = shift;
119
    my $self    = shift;
102
    my $heading = shift;
120
    my $heading = shift;
(-)a/C4/Linker/FirstMatch.pm (+24 lines)
Lines 24-29 use C4::Linker::Default; # Use Default for flipping Link Here
24
24
25
use base qw(C4::Linker);
25
use base qw(C4::Linker);
26
26
27
=head2 new
28
29
Missing POD for new.
30
31
=cut
32
27
sub new {
33
sub new {
28
    my $class = shift;
34
    my $class = shift;
29
    my $param = shift;
35
    my $param = shift;
Lines 34-45 sub new { Link Here
34
    return $self;
40
    return $self;
35
}
41
}
36
42
43
=head2 get_link
44
45
Missing POD for get_link.
46
47
=cut
48
37
sub get_link {
49
sub get_link {
38
    my $self    = shift;
50
    my $self    = shift;
39
    my $heading = shift;
51
    my $heading = shift;
40
    return $self->{'default_linker'}->get_link( $heading, 'first' );
52
    return $self->{'default_linker'}->get_link( $heading, 'first' );
41
}
53
}
42
54
55
=head2 update_cache
56
57
Missing POD for update_cache.
58
59
=cut
60
43
sub update_cache {
61
sub update_cache {
44
    my $self    = shift;
62
    my $self    = shift;
45
    my $heading = shift;
63
    my $heading = shift;
Lines 47-52 sub update_cache { Link Here
47
    $self->{'default_linker'}->update_cache( $heading, $authid );
65
    $self->{'default_linker'}->update_cache( $heading, $authid );
48
}
66
}
49
67
68
=head2 flip_heading
69
70
Missing POD for flip_heading.
71
72
=cut
73
50
sub flip_heading {
74
sub flip_heading {
51
    my $self    = shift;
75
    my $self    = shift;
52
    my $heading = shift;
76
    my $heading = shift;
(-)a/C4/Linker/LastMatch.pm (+24 lines)
Lines 24-29 use C4::Linker::Default; # Use Default for flipping Link Here
24
24
25
use base qw(C4::Linker);
25
use base qw(C4::Linker);
26
26
27
=head2 new
28
29
Missing POD for new.
30
31
=cut
32
27
sub new {
33
sub new {
28
    my $class = shift;
34
    my $class = shift;
29
    my $param = shift;
35
    my $param = shift;
Lines 34-45 sub new { Link Here
34
    return $self;
40
    return $self;
35
}
41
}
36
42
43
=head2 get_link
44
45
Missing POD for get_link.
46
47
=cut
48
37
sub get_link {
49
sub get_link {
38
    my $self    = shift;
50
    my $self    = shift;
39
    my $heading = shift;
51
    my $heading = shift;
40
    return $self->{'default_linker'}->get_link( $heading, 'last' );
52
    return $self->{'default_linker'}->get_link( $heading, 'last' );
41
}
53
}
42
54
55
=head2 update_cache
56
57
Missing POD for update_cache.
58
59
=cut
60
43
sub update_cache {
61
sub update_cache {
44
    my $self    = shift;
62
    my $self    = shift;
45
    my $heading = shift;
63
    my $heading = shift;
Lines 47-52 sub update_cache { Link Here
47
    $self->{'default_linker'}->update_cache( $heading, $authid );
65
    $self->{'default_linker'}->update_cache( $heading, $authid );
48
}
66
}
49
67
68
=head2 flip_heading
69
70
Missing POD for flip_heading.
71
72
=cut
73
50
sub flip_heading {
74
sub flip_heading {
51
    my $self    = shift;
75
    my $self    = shift;
52
    my $heading = shift;
76
    my $heading = shift;
(-)a/C4/Matcher.pm (+6 lines)
Lines 958-963 sub _parse_match_component { Link Here
958
    return $component;
958
    return $component;
959
}
959
}
960
960
961
=head2 valid_normalization_routines
962
963
Missing POD for valid_normalization_routines.
964
965
=cut
966
961
sub valid_normalization_routines {
967
sub valid_normalization_routines {
962
968
963
    return (
969
    return (
(-)a/C4/Message.pm (+7 lines)
Lines 279-284 sub metadata { Link Here
279
}
279
}
280
280
281
# turn $object->metadata into a string suitable for $object->content
281
# turn $object->metadata into a string suitable for $object->content
282
283
=head2 render_metadata
284
285
Missing POD for render_metadata.
286
287
=cut
288
282
sub render_metadata {
289
sub render_metadata {
283
    my ( $self, $format ) = @_;
290
    my ( $self, $format ) = @_;
284
    $format ||= sub { $_[0] || "" };
291
    $format ||= sub { $_[0] || "" };
(-)a/C4/Output.pm (+30 lines)
Lines 276-286 sub output_with_http_headers { Link Here
276
    print $query->header($options), $data;
276
    print $query->header($options), $data;
277
}
277
}
278
278
279
=head2 output_html_with_http_headers
280
281
Missing POD for output_html_with_http_headers.
282
283
=cut
284
279
sub output_html_with_http_headers {
285
sub output_html_with_http_headers {
280
    my ( $query, $cookie, $data, $status, $extra_options ) = @_;
286
    my ( $query, $cookie, $data, $status, $extra_options ) = @_;
281
    output_with_http_headers( $query, $cookie, $data, 'html', $status, $extra_options );
287
    output_with_http_headers( $query, $cookie, $data, 'html', $status, $extra_options );
282
}
288
}
283
289
290
=head2 output_ajax_with_http_headers
291
292
Missing POD for output_ajax_with_http_headers.
293
294
=cut
295
284
sub output_ajax_with_http_headers {
296
sub output_ajax_with_http_headers {
285
    my ( $query, $js ) = @_;
297
    my ( $query, $js ) = @_;
286
    print $query->header(
298
    print $query->header(
Lines 292-297 sub output_ajax_with_http_headers { Link Here
292
    ), $js;
304
    ), $js;
293
}
305
}
294
306
307
=head2 is_ajax
308
309
Missing POD for is_ajax.
310
311
=cut
312
295
sub is_ajax {
313
sub is_ajax {
296
    my $x_req = $ENV{HTTP_X_REQUESTED_WITH};
314
    my $x_req = $ENV{HTTP_X_REQUESTED_WITH};
297
    return ( $x_req and $x_req =~ /XMLHttpRequest/i ) ? 1 : 0;
315
    return ( $x_req and $x_req =~ /XMLHttpRequest/i ) ? 1 : 0;
Lines 369-374 sub output_and_exit { Link Here
369
    exit;
387
    exit;
370
}
388
}
371
389
390
=head2 output_error
391
392
Missing POD for output_error.
393
394
=cut
395
372
sub output_error {
396
sub output_error {
373
    my ( $query, $error ) = @_;
397
    my ( $query, $error ) = @_;
374
    my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
398
    my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
Lines 387-392 sub output_error { Link Here
387
    output_with_http_headers $query, $cookie, $template->output, 'html', '404 Not Found';
411
    output_with_http_headers $query, $cookie, $template->output, 'html', '404 Not Found';
388
}
412
}
389
413
414
=head2 parametrized_url
415
416
Missing POD for parametrized_url.
417
418
=cut
419
390
sub parametrized_url {
420
sub parametrized_url {
391
    my $url  = shift || '';    # ie page.pl?ln={LANG}
421
    my $url  = shift || '';    # ie page.pl?ln={LANG}
392
    my $vars = shift || {};    # ie { LANG => en }
422
    my $vars = shift || {};    # ie { LANG => en }
(-)a/C4/Output/JSONStream.pm (+18 lines)
Lines 41-46 use warnings; Link Here
41
41
42
use JSON qw( to_json );
42
use JSON qw( to_json );
43
43
44
=head2 new
45
46
Missing POD for new.
47
48
=cut
49
44
sub new {
50
sub new {
45
    my $class = shift;
51
    my $class = shift;
46
    my $self  = {
52
    my $self  = {
Lines 53-58 sub new { Link Here
53
    return $self;
59
    return $self;
54
}
60
}
55
61
62
=head2 param
63
64
Missing POD for param.
65
66
=cut
67
56
sub param {
68
sub param {
57
    my $self = shift;
69
    my $self = shift;
58
70
Lines 65-70 sub param { Link Here
65
    }
77
    }
66
}
78
}
67
79
80
=head2 output
81
82
Missing POD for output.
83
84
=cut
85
68
sub output {
86
sub output {
69
    my $self = shift;
87
    my $self = shift;
70
88
(-)a/C4/Overdues.pm (+6 lines)
Lines 456-461 C<$itemnumber> is item number. Link Here
456
456
457
=cut
457
=cut
458
458
459
=head2 GetWdayFromItemnumber
460
461
Missing POD for GetWdayFromItemnumber.
462
463
=cut
464
459
sub GetWdayFromItemnumber {
465
sub GetWdayFromItemnumber {
460
    my ($itemnumber) = @_;
466
    my ($itemnumber) = @_;
461
    my $iteminfo = GetIssuesIteminfo($itemnumber);
467
    my $iteminfo = GetIssuesIteminfo($itemnumber);
(-)a/C4/Patroncards/Lib.pm (+24 lines)
Lines 84-89 sub box { Link Here
84
    $pdf->Add($obj_stream);
84
    $pdf->Add($obj_stream);
85
}
85
}
86
86
87
=head2 get_borrower_attributes
88
89
Missing POD for get_borrower_attributes.
90
91
=cut
92
87
sub get_borrower_attributes {
93
sub get_borrower_attributes {
88
    my ( $borrower_number, @fields ) = @_;
94
    my ( $borrower_number, @fields ) = @_;
89
    my $get_branch = 0;
95
    my $get_branch = 0;
Lines 117-122 sub get_borrower_attributes { Link Here
117
    return $borrower_attributes;
123
    return $borrower_attributes;
118
}
124
}
119
125
126
=head2 put_image
127
128
Missing POD for put_image.
129
130
=cut
131
120
sub put_image {
132
sub put_image {
121
    my ( $image_name, $image_file ) = @_;
133
    my ( $image_name, $image_file ) = @_;
122
    if ( my $image_limit = C4::Context->preference('ImageLimit') ) {    # enforce quota if set
134
    if ( my $image_limit = C4::Context->preference('ImageLimit') ) {    # enforce quota if set
Lines 140-145 sub put_image { Link Here
140
    return;
152
    return;
141
}
153
}
142
154
155
=head2 get_image
156
157
Missing POD for get_image.
158
159
=cut
160
143
sub get_image {
161
sub get_image {
144
    my ( $image_name, $fields ) = @_;
162
    my ( $image_name, $fields ) = @_;
145
    $fields = '*' unless $fields;
163
    $fields = '*' unless $fields;
Lines 158-163 sub get_image { Link Here
158
    return $sth->fetchall_arrayref( {} );
176
    return $sth->fetchall_arrayref( {} );
159
}
177
}
160
178
179
=head2 rm_image
180
181
Missing POD for rm_image.
182
183
=cut
184
161
sub rm_image {
185
sub rm_image {
162
    my $image_ids = shift;
186
    my $image_ids = shift;
163
    my $errstr    = ();
187
    my $errstr    = ();
(-)a/C4/Record.pm (+6 lines)
Lines 361-366 sub _transformWithStylesheet { Link Here
361
    return C4::XSLT::engine->transform( $xmlrecord, $xslfile );
361
    return C4::XSLT::engine->transform( $xmlrecord, $xslfile );
362
}
362
}
363
363
364
=head2 marc2endnote
365
366
Missing POD for marc2endnote.
367
368
=cut
369
364
sub marc2endnote {
370
sub marc2endnote {
365
    my ($marc) = @_;
371
    my ($marc) = @_;
366
    my $marc_rec_obj = MARC::Record->new_from_usmarc($marc);
372
    my $marc_rec_obj = MARC::Record->new_from_usmarc($marc);
(-)a/C4/Reports/Guided.pm (+78 lines)
Lines 81-86 This will return a list of all the available report areas Link Here
81
81
82
=cut
82
=cut
83
83
84
=head2 get_area_name_sql_snippet
85
86
Missing POD for get_area_name_sql_snippet.
87
88
=cut
89
84
sub get_area_name_sql_snippet {
90
sub get_area_name_sql_snippet {
85
    my @REPORT_AREA = (
91
    my @REPORT_AREA = (
86
        [ CIRC => "Circulation" ],
92
        [ CIRC => "Circulation" ],
Lines 101-106 sub get_report_areas { Link Here
101
    return $report_areas;
107
    return $report_areas;
102
}
108
}
103
109
110
=head2 get_table_areas
111
112
Missing POD for get_table_areas.
113
114
=cut
115
104
sub get_table_areas {
116
sub get_table_areas {
105
    return (
117
    return (
106
        CIRC => [ 'borrowers', 'statistics',  'items', 'biblioitems' ],
118
        CIRC => [ 'borrowers', 'statistics',  'items', 'biblioitems' ],
Lines 430-435 sub get_criteria { Link Here
430
    return ( \@criteria_array );
442
    return ( \@criteria_array );
431
}
443
}
432
444
445
=head2 nb_rows
446
447
Missing POD for nb_rows.
448
449
=cut
450
433
sub nb_rows {
451
sub nb_rows {
434
    my $sql = shift or return;
452
    my $sql = shift or return;
435
453
Lines 690-695 sub save_report { Link Here
690
    return $report->id;
708
    return $report->id;
691
}
709
}
692
710
711
=head2 update_sql
712
713
Missing POD for update_sql.
714
715
=cut
716
693
sub update_sql {
717
sub update_sql {
694
    my $id           = shift || croak "No Id given";
718
    my $id           = shift || croak "No Id given";
695
    my $fields       = shift;
719
    my $fields       = shift;
Lines 720-725 sub update_sql { Link Here
720
    return $report;
744
    return $report;
721
}
745
}
722
746
747
=head2 store_results
748
749
Missing POD for store_results.
750
751
=cut
752
723
sub store_results {
753
sub store_results {
724
    my ( $id, $json ) = @_;
754
    my ( $id, $json ) = @_;
725
    my $dbh = C4::Context->dbh();
755
    my $dbh = C4::Context->dbh();
Lines 730-735 sub store_results { Link Here
730
    );
760
    );
731
}
761
}
732
762
763
=head2 format_results
764
765
Missing POD for format_results.
766
767
=cut
768
733
sub format_results {
769
sub format_results {
734
    my ($id) = @_;
770
    my ($id) = @_;
735
    my $dbh = C4::Context->dbh();
771
    my $dbh = C4::Context->dbh();
Lines 749-754 sub format_results { Link Here
749
    };
785
    };
750
}
786
}
751
787
788
=head2 delete_report
789
790
Missing POD for delete_report.
791
792
=cut
793
752
sub delete_report {
794
sub delete_report {
753
    my (@ids) = @_;
795
    my (@ids) = @_;
754
    return unless @ids;
796
    return unless @ids;
Lines 763-768 sub delete_report { Link Here
763
    return $sth->execute(@ids);
805
    return $sth->execute(@ids);
764
}
806
}
765
807
808
=head2 get_saved_reports_base_query
809
810
Missing POD for get_saved_reports_base_query.
811
812
=cut
813
766
sub get_saved_reports_base_query {
814
sub get_saved_reports_base_query {
767
    my $area_name_sql_snippet = get_area_name_sql_snippet;
815
    my $area_name_sql_snippet = get_area_name_sql_snippet;
768
    return <<EOQ;
816
    return <<EOQ;
Lines 776-781 LEFT OUTER JOIN borrowers b USING (borrowernumber) Link Here
776
EOQ
824
EOQ
777
}
825
}
778
826
827
=head2 get_saved_reports
828
829
Missing POD for get_saved_reports.
830
831
=cut
832
779
sub get_saved_reports {
833
sub get_saved_reports {
780
834
781
    # $filter is either { date => $d, author => $a, keyword => $kw, }
835
    # $filter is either { date => $d, author => $a, keyword => $kw, }
Lines 874-879 sub get_distinct_values { Link Here
874
    return $sth->fetchall_arrayref( {} );
928
    return $sth->fetchall_arrayref( {} );
875
}
929
}
876
930
931
=head2 save_dictionary
932
933
Missing POD for save_dictionary.
934
935
=cut
936
877
sub save_dictionary {
937
sub save_dictionary {
878
    my ( $name, $description, $sql, $area ) = @_;
938
    my ( $name, $description, $sql, $area ) = @_;
879
    my $dbh   = C4::Context->dbh();
939
    my $dbh   = C4::Context->dbh();
Lines 884-889 sub save_dictionary { Link Here
884
    return 1;
944
    return 1;
885
}
945
}
886
946
947
=head2 get_from_dictionary
948
949
Missing POD for get_from_dictionary.
950
951
=cut
952
887
sub get_from_dictionary {
953
sub get_from_dictionary {
888
    my ( $area, $id ) = @_;
954
    my ( $area, $id ) = @_;
889
    my $dbh                   = C4::Context->dbh();
955
    my $dbh                   = C4::Context->dbh();
Lines 913-918 EOQ Link Here
913
    return ( \@loop );
979
    return ( \@loop );
914
}
980
}
915
981
982
=head2 delete_definition
983
984
Missing POD for delete_definition.
985
986
=cut
987
916
sub delete_definition {
988
sub delete_definition {
917
    my ($id)  = @_ or return;
989
    my ($id)  = @_ or return;
918
    my $dbh   = C4::Context->dbh();
990
    my $dbh   = C4::Context->dbh();
Lines 938-943 sub get_sql { Link Here
938
    return $data->{'savedsql'};
1010
    return $data->{'savedsql'};
939
}
1011
}
940
1012
1013
=head2 get_results
1014
1015
Missing POD for get_results.
1016
1017
=cut
1018
941
sub get_results {
1019
sub get_results {
942
    my ($report_id) = @_;
1020
    my ($report_id) = @_;
943
    my $dbh = C4::Context->dbh;
1021
    my $dbh = C4::Context->dbh;
(-)a/C4/Ris.pm (+111 lines)
Lines 87-92 C<$record> - a MARC::Record object Link Here
87
87
88
=cut
88
=cut
89
89
90
=head2 marc2ris
91
92
Missing POD for marc2ris.
93
94
=cut
95
90
sub marc2ris {
96
sub marc2ris {
91
    my ($record) = @_;
97
    my ($record) = @_;
92
98
Lines 337-342 sub marc2ris { Link Here
337
## Argument: the leader of a MARC dataset
343
## Argument: the leader of a MARC dataset
338
## Returns: the value at leader position 06
344
## Returns: the value at leader position 06
339
##********************************************************************
345
##********************************************************************
346
347
=head2 print_typetag
348
349
Missing POD for print_typetag.
350
351
=cut
352
340
sub print_typetag {
353
sub print_typetag {
341
    my ($leader) = @_;
354
    my ($leader) = @_;
342
    ## the keys of typehash are the allowed values at position 06
355
    ## the keys of typehash are the allowed values at position 06
Lines 426-431 sub print_typetag { Link Here
426
##                               3=family, clan, dynasty name
439
##                               3=family, clan, dynasty name
427
## Returns: the normalized authorname
440
## Returns: the normalized authorname
428
##********************************************************************
441
##********************************************************************
442
443
=head2 normalize_author
444
445
Missing POD for normalize_author.
446
447
=cut
448
429
sub normalize_author {
449
sub normalize_author {
430
    my ( $rawauthora, $rawauthorb, $rawauthorc, $nametype ) = @_;
450
    my ( $rawauthora, $rawauthorb, $rawauthorc, $nametype ) = @_;
431
451
Lines 465-470 sub normalize_author { Link Here
465
## Argument: field (100 or 700)
485
## Argument: field (100 or 700)
466
## Returns: an author string in the format found in the record
486
## Returns: an author string in the format found in the record
467
##********************************************************************
487
##********************************************************************
488
489
=head2 get_author
490
491
Missing POD for get_author.
492
493
=cut
494
468
sub get_author {
495
sub get_author {
469
    my ($authorfield) = @_;
496
    my ($authorfield) = @_;
470
    my ($indicator);
497
    my ($indicator);
Lines 503-508 sub get_author { Link Here
503
## Argument: field (110, 111, 710, or 711)
530
## Argument: field (110, 111, 710, or 711)
504
## Returns: an author string in the format found in the record
531
## Returns: an author string in the format found in the record
505
##********************************************************************
532
##********************************************************************
533
534
=head2 get_editor
535
536
Missing POD for get_editor.
537
538
=cut
539
506
sub get_editor {
540
sub get_editor {
507
    my ($editorfield) = @_;
541
    my ($editorfield) = @_;
508
542
Lines 521-526 sub get_editor { Link Here
521
## Arguments: field (245)
555
## Arguments: field (245)
522
## Returns:
556
## Returns:
523
##********************************************************************
557
##********************************************************************
558
559
=head2 print_title
560
561
Missing POD for print_title.
562
563
=cut
564
524
sub print_title {
565
sub print_title {
525
    my ($titlefield) = @_;
566
    my ($titlefield) = @_;
526
    if ( !$titlefield ) {
567
    if ( !$titlefield ) {
Lines 572-577 sub print_title { Link Here
572
## Arguments: field
613
## Arguments: field
573
## Returns:
614
## Returns:
574
##********************************************************************
615
##********************************************************************
616
617
=head2 print_stitle
618
619
Missing POD for print_stitle.
620
621
=cut
622
575
sub print_stitle {
623
sub print_stitle {
576
    my ($titlefield) = @_;
624
    my ($titlefield) = @_;
577
625
Lines 603-608 sub print_stitle { Link Here
603
## print_isbn(): gets info from MARC field 020
651
## print_isbn(): gets info from MARC field 020
604
## Arguments: field (020)
652
## Arguments: field (020)
605
##********************************************************************
653
##********************************************************************
654
655
=head2 print_isbn
656
657
Missing POD for print_isbn.
658
659
=cut
660
606
sub print_isbn {
661
sub print_isbn {
607
    my ($isbnfield) = @_;
662
    my ($isbnfield) = @_;
608
663
Lines 624-629 sub print_isbn { Link Here
624
## print_issn(): gets info from MARC field 022
679
## print_issn(): gets info from MARC field 022
625
## Arguments: field (022)
680
## Arguments: field (022)
626
##********************************************************************
681
##********************************************************************
682
683
=head2 print_issn
684
685
Missing POD for print_issn.
686
687
=cut
688
627
sub print_issn {
689
sub print_issn {
628
    my ($issnfield) = @_;
690
    my ($issnfield) = @_;
629
691
Lines 644-649 sub print_issn { Link Here
644
###
706
###
645
# print_uri() prints info from 856 u
707
# print_uri() prints info from 856 u
646
###
708
###
709
710
=head2 print_uri
711
712
Missing POD for print_uri.
713
714
=cut
715
647
sub print_uri {
716
sub print_uri {
648
    my @f856s = @_;
717
    my @f856s = @_;
649
718
Lines 658-663 sub print_uri { Link Here
658
## print_loc_callno(): gets info from MARC field 050
727
## print_loc_callno(): gets info from MARC field 050
659
## Arguments: field (050)
728
## Arguments: field (050)
660
##********************************************************************
729
##********************************************************************
730
731
=head2 print_loc_callno
732
733
Missing POD for print_loc_callno.
734
735
=cut
736
661
sub print_loc_callno {
737
sub print_loc_callno {
662
    my ($callnofield) = @_;
738
    my ($callnofield) = @_;
663
739
Lines 673-678 sub print_loc_callno { Link Here
673
## print_dewey(): gets info from MARC field 082
749
## print_dewey(): gets info from MARC field 082
674
## Arguments: field (082)
750
## Arguments: field (082)
675
##********************************************************************
751
##********************************************************************
752
753
=head2 print_dewey
754
755
Missing POD for print_dewey.
756
757
=cut
758
676
sub print_dewey {
759
sub print_dewey {
677
    my ($deweyfield) = @_;
760
    my ($deweyfield) = @_;
678
761
Lines 688-693 sub print_dewey { Link Here
688
## print_pubinfo(): gets info from MARC field 260
771
## print_pubinfo(): gets info from MARC field 260
689
## Arguments: field (260)
772
## Arguments: field (260)
690
##********************************************************************
773
##********************************************************************
774
775
=head2 print_pubinfo
776
777
Missing POD for print_pubinfo.
778
779
=cut
780
691
sub print_pubinfo {
781
sub print_pubinfo {
692
    my ($pubinfofield) = @_;
782
    my ($pubinfofield) = @_;
693
783
Lines 802-807 sub print_pubinfo { Link Here
802
## get_keywords(): prints info from MARC fields 6XX
892
## get_keywords(): prints info from MARC fields 6XX
803
## Arguments: list of fields (6XX)
893
## Arguments: list of fields (6XX)
804
##********************************************************************
894
##********************************************************************
895
896
=head2 get_keywords
897
898
Missing POD for get_keywords.
899
900
=cut
901
805
sub get_keywords {
902
sub get_keywords {
806
    my ( $fieldname, @keywords ) = @_;
903
    my ( $fieldname, @keywords ) = @_;
807
904
Lines 859-864 sub get_keywords { Link Here
859
##            field name
956
##            field name
860
##            list of fields (5XX)
957
##            list of fields (5XX)
861
##********************************************************************
958
##********************************************************************
959
960
=head2 pool_subx
961
962
Missing POD for pool_subx.
963
964
=cut
965
862
sub pool_subx {
966
sub pool_subx {
863
    my ( $aref, $fieldname, @notefields ) = @_;
967
    my ( $aref, $fieldname, @notefields ) = @_;
864
968
Lines 948-953 sub pool_subx { Link Here
948
## print_abstract(): prints abstract fields
1052
## print_abstract(): prints abstract fields
949
## Arguments: list of fields (520)
1053
## Arguments: list of fields (520)
950
##********************************************************************
1054
##********************************************************************
1055
1056
=head2 print_abstract
1057
1058
Missing POD for print_abstract.
1059
1060
=cut
1061
951
sub print_abstract {
1062
sub print_abstract {
952
1063
953
    # ToDo: take care of repeatable subfields
1064
    # ToDo: take care of repeatable subfields
(-)a/C4/SIP/ILS.pm (+48 lines)
Lines 47-52 my %supports = ( Link Here
47
    "renew all"             => 1,
47
    "renew all"             => 1,
48
);
48
);
49
49
50
=head2 new
51
52
Missing POD for new.
53
54
=cut
55
50
sub new {
56
sub new {
51
    my ( $class, $institution ) = @_;
57
    my ( $class, $institution ) = @_;
52
    my $type = ref($class) || $class;
58
    my $type = ref($class) || $class;
Lines 56-66 sub new { Link Here
56
    return bless $self, $type;
62
    return bless $self, $type;
57
}
63
}
58
64
65
=head2 find_patron
66
67
Missing POD for find_patron.
68
69
=cut
70
59
sub find_patron {
71
sub find_patron {
60
    my $self = shift;
72
    my $self = shift;
61
    return C4::SIP::ILS::Patron->new(@_);
73
    return C4::SIP::ILS::Patron->new(@_);
62
}
74
}
63
75
76
=head2 find_item
77
78
Missing POD for find_item.
79
80
=cut
81
64
sub find_item {
82
sub find_item {
65
    my $self = shift;
83
    my $self = shift;
66
    return C4::SIP::ILS::Item->new(@_);
84
    return C4::SIP::ILS::Item->new(@_);
Lines 71-86 sub institution { Link Here
71
    return $self->{institution}->{id};    # consider making this return the whole institution
89
    return $self->{institution}->{id};    # consider making this return the whole institution
72
}
90
}
73
91
92
=head2 institution_id
93
94
Missing POD for institution_id.
95
96
=cut
97
74
sub institution_id {
98
sub institution_id {
75
    my $self = shift;
99
    my $self = shift;
76
    return $self->{institution}->{id};
100
    return $self->{institution}->{id};
77
}
101
}
78
102
103
=head2 supports
104
105
Missing POD for supports.
106
107
=cut
108
79
sub supports {
109
sub supports {
80
    my ( $self, $op ) = @_;
110
    my ( $self, $op ) = @_;
81
    return ( exists( $supports{$op} ) && $supports{$op} );
111
    return ( exists( $supports{$op} ) && $supports{$op} );
82
}
112
}
83
113
114
=head2 check_inst_id
115
116
Missing POD for check_inst_id.
117
118
=cut
119
84
sub check_inst_id {
120
sub check_inst_id {
85
    my ( $self, $id, $whence ) = @_;
121
    my ( $self, $id, $whence ) = @_;
86
    if ( $id ne $self->{institution}->{id} ) {
122
    if ( $id ne $self->{institution}->{id} ) {
Lines 93-98 sub check_inst_id { Link Here
93
    }
129
    }
94
}
130
}
95
131
132
=head2 to_bool
133
134
Missing POD for to_bool.
135
136
=cut
137
96
sub to_bool {
138
sub to_bool {
97
    my $bool = shift;
139
    my $bool = shift;
98
140
Lines 243-248 sub _ci_cardnumber_cmp { Link Here
243
285
244
# wrapper which allows above to be called for testing
286
# wrapper which allows above to be called for testing
245
287
288
=head2 test_cardnumber_compare
289
290
Missing POD for test_cardnumber_compare.
291
292
=cut
293
246
sub test_cardnumber_compare {
294
sub test_cardnumber_compare {
247
    my ( $self, $str1, $str2 ) = @_;
295
    my ( $self, $str1, $str2 ) = @_;
248
    return _ci_cardnumber_cmp( $str1, $str2 );
296
    return _ci_cardnumber_cmp( $str1, $str2 );
(-)a/C4/SIP/ILS/Item.pm (+79 lines)
Lines 72-77 use Koha::TemplateUtils qw( process_tt ); Link Here
72
72
73
=cut
73
=cut
74
74
75
=head2 new
76
77
Missing POD for new.
78
79
=cut
80
75
sub new {
81
sub new {
76
    my ( $class, $item_id ) = @_;
82
    my ( $class, $item_id ) = @_;
77
    my $type = ref($class) || $class;
83
    my $type = ref($class) || $class;
Lines 162-167 my %fields = ( Link Here
162
    itemtype                    => 0,
168
    itemtype                    => 0,
163
);
169
);
164
170
171
=head2 next_hold
172
173
Missing POD for next_hold.
174
175
=cut
176
165
sub next_hold {
177
sub next_hold {
166
    my $self = shift;
178
    my $self = shift;
167
179
Lines 181-186 sub next_hold { Link Here
181
# hold_patron_id is NOT the barcode.  It's the borrowernumber.
193
# hold_patron_id is NOT the barcode.  It's the borrowernumber.
182
# If a return triggers capture for a hold the borrowernumber is passed
194
# If a return triggers capture for a hold the borrowernumber is passed
183
# and saved so that other hold info can be retrieved
195
# and saved so that other hold info can be retrieved
196
197
=head2 hold_patron_id
198
199
Missing POD for hold_patron_id.
200
201
=cut
202
184
sub hold_patron_id {
203
sub hold_patron_id {
185
    my $self = shift;
204
    my $self = shift;
186
    my $id   = shift;
205
    my $id   = shift;
Lines 194-199 sub hold_patron_id { Link Here
194
213
195
}
214
}
196
215
216
=head2 hold_patron_name
217
218
Missing POD for hold_patron_name.
219
220
=cut
221
197
sub hold_patron_name {
222
sub hold_patron_name {
198
    my ( $self, $template ) = @_;
223
    my ( $self, $template ) = @_;
199
    my $borrowernumber = $self->hold_patron_id() or return q{};
224
    my $borrowernumber = $self->hold_patron_id() or return q{};
Lines 218-223 sub hold_patron_name { Link Here
218
    return $name;
243
    return $name;
219
}
244
}
220
245
246
=head2 hold_patron_bcode
247
248
Missing POD for hold_patron_bcode.
249
250
=cut
251
221
sub hold_patron_bcode {
252
sub hold_patron_bcode {
222
    my $self           = shift;
253
    my $self           = shift;
223
    my $borrowernumber = ( @_ ? shift : $self->hold_patron_id() ) or return q{};
254
    my $borrowernumber = ( @_ ? shift : $self->hold_patron_id() ) or return q{};
Lines 228-233 sub hold_patron_bcode { Link Here
228
    return q();
259
    return q();
229
}
260
}
230
261
262
=head2 destination_loc
263
264
Missing POD for destination_loc.
265
266
=cut
267
231
sub destination_loc {
268
sub destination_loc {
232
    my $self    = shift;
269
    my $self    = shift;
233
    my $set_loc = shift;
270
    my $set_loc = shift;
Lines 263-268 sub AUTOLOAD { Link Here
263
    }
300
    }
264
}
301
}
265
302
303
=head2 status_update
304
305
Missing POD for status_update.
306
307
=cut
308
266
sub status_update {    # FIXME: this looks unimplemented
309
sub status_update {    # FIXME: this looks unimplemented
267
    my ( $self, $props ) = @_;
310
    my ( $self, $props ) = @_;
268
    my $status = C4::SIP::ILS::Transaction->new();
311
    my $status = C4::SIP::ILS::Transaction->new();
Lines 339-350 sub hold_queue { Link Here
339
    return $self->{hold_queue};
382
    return $self->{hold_queue};
340
}
383
}
341
384
385
=head2 pending_queue
386
387
Missing POD for pending_queue.
388
389
=cut
390
342
sub pending_queue {
391
sub pending_queue {
343
    my $self = shift;
392
    my $self = shift;
344
    ( defined $self->{pending_queue} ) or return [];
393
    ( defined $self->{pending_queue} ) or return [];
345
    return $self->{pending_queue};
394
    return $self->{pending_queue};
346
}
395
}
347
396
397
=head2 hold_attached
398
399
Missing POD for hold_attached.
400
401
=cut
402
348
sub hold_attached {
403
sub hold_attached {
349
    my $self = shift;
404
    my $self = shift;
350
    ( defined $self->{hold_attached} ) or return [];
405
    ( defined $self->{hold_attached} ) or return [];
Lines 422-427 sub _barcode_to_borrowernumber { Link Here
422
    return $patron->borrowernumber;
477
    return $patron->borrowernumber;
423
}
478
}
424
479
480
=head2 barcode_is_borrowernumber
481
482
Missing POD for barcode_is_borrowernumber.
483
484
=cut
485
425
sub barcode_is_borrowernumber {    # because hold_queue only has borrowernumber...
486
sub barcode_is_borrowernumber {    # because hold_queue only has borrowernumber...
426
    my $self    = shift;
487
    my $self    = shift;
427
    my $barcode = shift;
488
    my $barcode = shift;
Lines 439-444 to send in the item related message responses Link Here
439
500
440
=cut
501
=cut
441
502
503
=head2 build_additional_item_fields_string
504
505
Missing POD for build_additional_item_fields_string.
506
507
=cut
508
442
sub build_additional_item_fields_string {
509
sub build_additional_item_fields_string {
443
    my ( $self, $server ) = @_;
510
    my ( $self, $server ) = @_;
444
511
Lines 482-487 This method builds the part of the sip message for custom item fields as defined Link Here
482
549
483
=cut
550
=cut
484
551
552
=head2 build_custom_field_string
553
554
Missing POD for build_custom_field_string.
555
556
=cut
557
485
sub build_custom_field_string {
558
sub build_custom_field_string {
486
    my ( $self, $server ) = @_;
559
    my ( $self, $server ) = @_;
487
560
Lines 497-502 If errors are encountered in processing template we log them and return nothing Link Here
497
570
498
=cut
571
=cut
499
572
573
=head2 format
574
575
Missing POD for format.
576
577
=cut
578
500
sub format {
579
sub format {
501
    my ( $self, $template ) = @_;
580
    my ( $self, $template ) = @_;
502
581
(-)a/C4/SIP/ILS/Patron.pm (+128 lines)
Lines 38-43 our $kp; # koha patron Link Here
38
38
39
=cut
39
=cut
40
40
41
=head2 new
42
43
Missing POD for new.
44
45
=cut
46
41
sub new {
47
sub new {
42
    my ( $class, $patron_id ) = @_;
48
    my ( $class, $patron_id ) = @_;
43
    my $type = ref($class) || $class;
49
    my $type = ref($class) || $class;
Lines 302-307 If errors are encountered in processing template we log them and return nothing Link Here
302
308
303
=cut
309
=cut
304
310
311
=head2 format
312
313
Missing POD for format.
314
315
=cut
316
305
sub format {
317
sub format {
306
    my ( $self, $template ) = @_;
318
    my ( $self, $template ) = @_;
307
319
Lines 335-340 This method checks if number of checkouts of lost items exceeds a threshold (def Link Here
335
347
336
=cut
348
=cut
337
349
350
=head2 too_many_lost
351
352
Missing POD for too_many_lost.
353
354
=cut
355
338
sub too_many_lost {
356
sub too_many_lost {
339
    my ( $self, $server ) = @_;
357
    my ( $self, $server ) = @_;
340
    my $too_many_lost = 0;
358
    my $too_many_lost = 0;
Lines 357-362 sub fee_amount { Link Here
357
    return 0;
375
    return 0;
358
}
376
}
359
377
378
=head2 fines_amount
379
380
Missing POD for fines_amount.
381
382
=cut
383
360
sub fines_amount {
384
sub fines_amount {
361
    my $self = shift;
385
    my $self = shift;
362
    return $self->fee_amount;
386
    return $self->fee_amount;
Lines 367-372 sub language { Link Here
367
    return $self->{language} || '000';    # Unspecified
391
    return $self->{language} || '000';    # Unspecified
368
}
392
}
369
393
394
=head2 expired
395
396
Missing POD for expired.
397
398
=cut
399
370
sub expired {
400
sub expired {
371
    my $self = shift;
401
    my $self = shift;
372
    return $self->{expired};
402
    return $self->{expired};
Lines 396-401 sub drop_hold { Link Here
396
# Accessor method for array_ref values, designed to get the "start" and "end" values
426
# Accessor method for array_ref values, designed to get the "start" and "end" values
397
# from the SIP request.  Note those incoming values are 1-indexed, not 0-indexed.
427
# from the SIP request.  Note those incoming values are 1-indexed, not 0-indexed.
398
#
428
#
429
430
=head2 x_items
431
432
Missing POD for x_items.
433
434
=cut
435
399
sub x_items {
436
sub x_items {
400
    my $self      = shift;
437
    my $self      = shift;
401
    my $array_var = shift or return;
438
    my $array_var = shift or return;
Lines 424-429 sub x_items { Link Here
424
#
461
#
425
# List of outstanding holds placed
462
# List of outstanding holds placed
426
#
463
#
464
465
=head2 hold_items
466
467
Missing POD for hold_items.
468
469
=cut
470
427
sub hold_items {
471
sub hold_items {
428
    my $self     = shift;
472
    my $self     = shift;
429
    my $item_arr = $self->x_items( 'hold_items', @_ );
473
    my $item_arr = $self->x_items( 'hold_items', @_ );
Lines 434-449 sub hold_items { Link Here
434
    return $item_arr;
478
    return $item_arr;
435
}
479
}
436
480
481
=head2 overdue_items
482
483
Missing POD for overdue_items.
484
485
=cut
486
437
sub overdue_items {
487
sub overdue_items {
438
    my $self = shift;
488
    my $self = shift;
439
    return $self->x_items( 'overdue_items', @_ );
489
    return $self->x_items( 'overdue_items', @_ );
440
}
490
}
441
491
492
=head2 charged_items
493
494
Missing POD for charged_items.
495
496
=cut
497
442
sub charged_items {
498
sub charged_items {
443
    my $self = shift;
499
    my $self = shift;
444
    return $self->x_items( 'items', @_ );
500
    return $self->x_items( 'items', @_ );
445
}
501
}
446
502
503
=head2 fine_items
504
505
Missing POD for fine_items.
506
507
=cut
508
447
sub fine_items {
509
sub fine_items {
448
510
449
    require Koha::Database;
511
    require Koha::Database;
Lines 481-491 sub fine_items { Link Here
481
543
482
}
544
}
483
545
546
=head2 recall_items
547
548
Missing POD for recall_items.
549
550
=cut
551
484
sub recall_items {
552
sub recall_items {
485
    my $self = shift;
553
    my $self = shift;
486
    return $self->x_items( 'recall_items', @_ );
554
    return $self->x_items( 'recall_items', @_ );
487
}
555
}
488
556
557
=head2 unavail_holds
558
559
Missing POD for unavail_holds.
560
561
=cut
562
489
sub unavail_holds {
563
sub unavail_holds {
490
    my $self = shift;
564
    my $self = shift;
491
    return $self->x_items( 'unavail_holds', @_ );
565
    return $self->x_items( 'unavail_holds', @_ );
Lines 517-542 sub enable { Link Here
517
    return $self;
591
    return $self;
518
}
592
}
519
593
594
=head2 inet_privileges
595
596
Missing POD for inet_privileges.
597
598
=cut
599
520
sub inet_privileges {
600
sub inet_privileges {
521
    my $self = shift;
601
    my $self = shift;
522
    return $self->{inet} ? 'Y' : 'N';
602
    return $self->{inet} ? 'Y' : 'N';
523
}
603
}
524
604
605
=head2 excessive_fees
606
607
Missing POD for excessive_fees.
608
609
=cut
610
525
sub excessive_fees {
611
sub excessive_fees {
526
    my $self = shift;
612
    my $self = shift;
527
    return ( $self->fee_amount and $self->fee_amount > $self->fee_limit );
613
    return ( $self->fee_amount and $self->fee_amount > $self->fee_limit );
528
}
614
}
529
615
616
=head2 excessive_fines
617
618
Missing POD for excessive_fines.
619
620
=cut
621
530
sub excessive_fines {
622
sub excessive_fines {
531
    my $self = shift;
623
    my $self = shift;
532
    return $self->excessive_fees;    # excessive_fines is the same thing as excessive_fees for Koha
624
    return $self->excessive_fees;    # excessive_fines is the same thing as excessive_fees for Koha
533
}
625
}
534
626
627
=head2 holds_blocked_by_excessive_fees
628
629
Missing POD for holds_blocked_by_excessive_fees.
630
631
=cut
632
535
sub holds_blocked_by_excessive_fees {
633
sub holds_blocked_by_excessive_fees {
536
    my $self = shift;
634
    my $self = shift;
537
    return ( $self->fee_amount && $self->fee_amount > C4::Context->preference("maxoutstanding") );
635
    return ( $self->fee_amount && $self->fee_amount > C4::Context->preference("maxoutstanding") );
538
}
636
}
539
637
638
=head2 library_name
639
640
Missing POD for library_name.
641
642
=cut
643
540
sub library_name {
644
sub library_name {
541
    my $self = shift;
645
    my $self = shift;
542
    unless ( $self->{library_name} ) {
646
    unless ( $self->{library_name} ) {
Lines 549-559 sub library_name { Link Here
549
# Messages
653
# Messages
550
#
654
#
551
655
656
=head2 invalid_patron
657
658
Missing POD for invalid_patron.
659
660
=cut
661
552
sub invalid_patron {
662
sub invalid_patron {
553
    my $self = shift;
663
    my $self = shift;
554
    return "Please contact library staff";
664
    return "Please contact library staff";
555
}
665
}
556
666
667
=head2 charge_denied
668
669
Missing POD for charge_denied.
670
671
=cut
672
557
sub charge_denied {
673
sub charge_denied {
558
    my $self = shift;
674
    my $self = shift;
559
    return "Please contact library staff";
675
    return "Please contact library staff";
Lines 608-613 attributes as defined in the sip config Link Here
608
724
609
=cut
725
=cut
610
726
727
=head2 build_patron_attributes_string
728
729
Missing POD for build_patron_attributes_string.
730
731
=cut
732
611
sub build_patron_attributes_string {
733
sub build_patron_attributes_string {
612
    my ( $self, $server ) = @_;
734
    my ( $self, $server ) = @_;
613
735
Lines 642-647 This method builds the part of the sip message for custom patron fields as defin Link Here
642
764
643
=cut
765
=cut
644
766
767
=head2 build_custom_field_string
768
769
Missing POD for build_custom_field_string.
770
771
=cut
772
645
sub build_custom_field_string {
773
sub build_custom_field_string {
646
    my ( $self, $server ) = @_;
774
    my ( $self, $server ) = @_;
647
775
(-)a/C4/SIP/ILS/Transaction/Checkin.pm (+24 lines)
Lines 33-38 my %fields = ( Link Here
33
    hold             => undef,
33
    hold             => undef,
34
);
34
);
35
35
36
=head2 new
37
38
Missing POD for new.
39
40
=cut
41
36
sub new {
42
sub new {
37
    my $class = shift;
43
    my $class = shift;
38
    my $self  = $class->SUPER::new();    # start with an ILS::Transaction object
44
    my $self  = $class->SUPER::new();    # start with an ILS::Transaction object
Lines 45-50 sub new { Link Here
45
    return bless $self, $class;
51
    return bless $self, $class;
46
}
52
}
47
53
54
=head2 do_checkin
55
56
Missing POD for do_checkin.
57
58
=cut
59
48
sub do_checkin {
60
sub do_checkin {
49
    my $self        = shift;
61
    my $self        = shift;
50
    my $branch      = shift;
62
    my $branch      = shift;
Lines 190-195 sub do_checkin { Link Here
190
    return { messages => $messages };
202
    return { messages => $messages };
191
}
203
}
192
204
205
=head2 resensitize
206
207
Missing POD for resensitize.
208
209
=cut
210
193
sub resensitize {
211
sub resensitize {
194
    my $self = shift;
212
    my $self = shift;
195
    unless ( $self->{item} ) {
213
    unless ( $self->{item} ) {
Lines 199-204 sub resensitize { Link Here
199
    return !$self->{item}->magnetic_media;
217
    return !$self->{item}->magnetic_media;
200
}
218
}
201
219
220
=head2 patron_id
221
222
Missing POD for patron_id.
223
224
=cut
225
202
sub patron_id {
226
sub patron_id {
203
    my $self = shift;
227
    my $self = shift;
204
    unless ( $self->{patron} ) {
228
    unless ( $self->{patron} ) {
(-)a/C4/SIP/Sip.pm (+65 lines)
Lines 48-53 our $field_delimiter = '|'; # Protocol Default Link Here
48
48
49
our $last_response = '';
49
our $last_response = '';
50
50
51
=head2 timestamp
52
53
Missing POD for timestamp.
54
55
=cut
56
51
sub timestamp {
57
sub timestamp {
52
    my $time = $_[0] || time();
58
    my $time = $_[0] || time();
53
    if ( ref $time eq 'DateTime' ) {
59
    if ( ref $time eq 'DateTime' ) {
Lines 64-69 sub timestamp { Link Here
64
# add_field(field_id, value)
70
# add_field(field_id, value)
65
#    return constructed field value
71
#    return constructed field value
66
#
72
#
73
74
=head2 add_field
75
76
Missing POD for add_field.
77
78
=cut
79
67
sub add_field {
80
sub add_field {
68
    my ( $field_id, $value, $server ) = @_;
81
    my ( $field_id, $value, $server ) = @_;
69
82
Lines 97-102 sub add_field { Link Here
97
#    constructed field value, otherwise return the empty string.
110
#    constructed field value, otherwise return the empty string.
98
#    NOTE: if zero is a valid value for your field, don't use maybe_add!
111
#    NOTE: if zero is a valid value for your field, don't use maybe_add!
99
#
112
#
113
114
=head2 maybe_add
115
116
Missing POD for maybe_add.
117
118
=cut
119
100
sub maybe_add {
120
sub maybe_add {
101
    my ( $fid, $value, $server ) = @_;
121
    my ( $fid, $value, $server ) = @_;
102
122
Lines 118-123 sub maybe_add { Link Here
118
        : '';
138
        : '';
119
}
139
}
120
140
141
=head2 should_hide
142
143
Missing POD for should_hide.
144
145
=cut
146
121
sub should_hide {
147
sub should_hide {
122
    my ( $field_id, $value, $server ) = @_;
148
    my ( $field_id, $value, $server ) = @_;
123
149
Lines 141-146 sub should_hide { Link Here
141
# or a string of four spaces if the count is invalid for some
167
# or a string of four spaces if the count is invalid for some
142
# reason
168
# reason
143
#
169
#
170
171
=head2 add_count
172
173
Missing POD for add_count.
174
175
=cut
176
144
sub add_count {
177
sub add_count {
145
    my ( $label, $count ) = @_;
178
    my ( $label, $count ) = @_;
146
179
Lines 169-179 sub add_count { Link Here
169
# that the user's not permitted to renew.  I assume that the ILS has
202
# that the user's not permitted to renew.  I assume that the ILS has
170
# real positive tests.
203
# real positive tests.
171
#
204
#
205
206
=head2 denied
207
208
Missing POD for denied.
209
210
=cut
211
172
sub denied {
212
sub denied {
173
    my $bool = shift;
213
    my $bool = shift;
174
    return boolspace( !$bool );
214
    return boolspace( !$bool );
175
}
215
}
176
216
217
=head2 sipbool
218
219
Missing POD for sipbool.
220
221
=cut
222
177
sub sipbool {
223
sub sipbool {
178
    my $bool = shift;
224
    my $bool = shift;
179
    return $bool ? 'Y' : 'N';
225
    return $bool ? 'Y' : 'N';
Lines 182-187 sub sipbool { Link Here
182
#
228
#
183
# boolspace: ' ' is false, 'Y' is true. (don't ask)
229
# boolspace: ' ' is false, 'Y' is true. (don't ask)
184
#
230
#
231
232
=head2 boolspace
233
234
Missing POD for boolspace.
235
236
=cut
237
185
sub boolspace {
238
sub boolspace {
186
    my $bool = shift;
239
    my $bool = shift;
187
    return $bool ? 'Y' : ' ';
240
    return $bool ? 'Y' : ' ';
Lines 198-203 sub boolspace { Link Here
198
# just write to the default destination.
251
# just write to the default destination.
199
#
252
#
200
253
254
=head2 write_msg
255
256
Missing POD for write_msg.
257
258
=cut
259
201
sub write_msg {
260
sub write_msg {
202
    my ( $self, $msg, $server ) = @_;
261
    my ( $self, $msg, $server ) = @_;
203
    my $terminator = $server->{account}->{terminator};
262
    my $terminator = $server->{account}->{terminator};
Lines 230-235 sub write_msg { Link Here
230
    $last_response = $msg;
289
    $last_response = $msg;
231
}
290
}
232
291
292
=head2 siplog
293
294
Missing POD for siplog.
295
296
=cut
297
233
sub siplog {
298
sub siplog {
234
    my ( $level, $mask, @args ) = @_;
299
    my ( $level, $mask, @args ) = @_;
235
300
(-)a/C4/Scheduler.pm (+6 lines)
Lines 125-130 sub add_at_job { Link Here
125
    }
125
    }
126
}
126
}
127
127
128
=head2 remove_at_job
129
130
Missing POD for remove_at_job.
131
132
=cut
133
128
sub remove_at_job {
134
sub remove_at_job {
129
    my ($jobid) = @_;
135
    my ($jobid) = @_;
130
    Schedule::At::remove( JOBID => $jobid );
136
    Schedule::At::remove( JOBID => $jobid );
(-)a/C4/Scrubber.pm (-1 / +7 lines)
Lines 37-44 my %scrubbertypes = ( Link Here
37
    },
37
    },
38
);
38
);
39
39
40
=head2 new
41
42
Missing POD for new.
43
44
=cut
45
40
sub new {
46
sub new {
41
    shift;            # ignore our class we are wrapper
47
    shift;    # ignore our class we are wrapper
42
    my $type = (@_) ? shift : 'default';
48
    my $type = (@_) ? shift : 'default';
43
    if ( !exists $scrubbertypes{$type} ) {
49
    if ( !exists $scrubbertypes{$type} ) {
44
        croak "New called with unrecognized type '$type'";
50
        croak "New called with unrecognized type '$type'";
(-)a/C4/Search.pm (+6 lines)
Lines 563-568 sub getRecords { Link Here
563
    return ( undef, $results_hashref, \@facets_loop );
563
    return ( undef, $results_hashref, \@facets_loop );
564
}
564
}
565
565
566
=head2 GetFacets
567
568
Missing POD for GetFacets.
569
570
=cut
571
566
sub GetFacets {
572
sub GetFacets {
567
573
568
    my $rs = shift;
574
    my $rs = shift;
(-)a/C4/Search/History.pm (+6 lines)
Lines 118-123 sub delete { Link Here
118
    );
118
    );
119
}
119
}
120
120
121
=head2 delete_from_cookie
122
123
Missing POD for delete_from_cookie.
124
125
=cut
126
121
sub delete_from_cookie {
127
sub delete_from_cookie {
122
    my ($params) = @_;
128
    my ($params) = @_;
123
    my $cookie   = $params->{cookie};
129
    my $cookie   = $params->{cookie};
(-)a/C4/Search/PazPar2.pm (+42 lines)
Lines 39-44 C4::Search::PazPar2 - implement client for PazPar2 Link Here
39
39
40
=cut
40
=cut
41
41
42
=head2 new
43
44
Missing POD for new.
45
46
=cut
47
42
sub new {
48
sub new {
43
    my $class    = shift;
49
    my $class    = shift;
44
    my $endpoint = shift;
50
    my $endpoint = shift;
Lines 52-57 sub new { Link Here
52
    return $self;
58
    return $self;
53
}
59
}
54
60
61
=head2 init
62
63
Missing POD for init.
64
65
=cut
66
55
sub init {
67
sub init {
56
    my $self = shift;
68
    my $self = shift;
57
69
Lines 68-73 sub init { Link Here
68
    }
80
    }
69
}
81
}
70
82
83
=head2 search
84
85
Missing POD for search.
86
87
=cut
88
71
sub search {
89
sub search {
72
    my $self  = shift;
90
    my $self  = shift;
73
    my $query = shift;
91
    my $query = shift;
Lines 86-91 sub search { Link Here
86
104
87
}
105
}
88
106
107
=head2 stat
108
109
Missing POD for stat.
110
111
=cut
112
89
sub stat {
113
sub stat {
90
    my $self = shift;
114
    my $self = shift;
91
115
Lines 101-106 sub stat { Link Here
101
    }
125
    }
102
}
126
}
103
127
128
=head2 show
129
130
Missing POD for show.
131
132
=cut
133
104
sub show {
134
sub show {
105
    my $self  = shift;
135
    my $self  = shift;
106
    my $start = shift;
136
    my $start = shift;
Lines 125-130 sub show { Link Here
125
155
126
}
156
}
127
157
158
=head2 record
159
160
Missing POD for record.
161
162
=cut
163
128
sub record {
164
sub record {
129
    my $self   = shift;
165
    my $self   = shift;
130
    my $id     = shift;
166
    my $id     = shift;
Lines 145-150 sub record { Link Here
145
    }
181
    }
146
}
182
}
147
183
184
=head2 termlist
185
186
Missing POD for termlist.
187
188
=cut
189
148
sub termlist {
190
sub termlist {
149
    my $self = shift;
191
    my $self = shift;
150
    my $name = shift;
192
    my $name = shift;
(-)a/C4/ShelfBrowser.pm (+7 lines)
Lines 216-221 sub GetNearbyItems { Link Here
216
216
217
# populate an item list with its title and upc, oclc and isbn normalized.
217
# populate an item list with its title and upc, oclc and isbn normalized.
218
# Not really intended to be exported.
218
# Not really intended to be exported.
219
220
=head2 GetShelfInfo
221
222
Missing POD for GetShelfInfo.
223
224
=cut
225
219
sub GetShelfInfo {
226
sub GetShelfInfo {
220
    my @items       = @_;
227
    my @items       = @_;
221
    my $marcflavour = C4::Context->preference("marcflavour");
228
    my $marcflavour = C4::Context->preference("marcflavour");
(-)a/C4/Suggestions.pm (+6 lines)
Lines 384-389 sub DelSuggestionsOlderThan { Link Here
384
    $sth->execute("-$days");
384
    $sth->execute("-$days");
385
}
385
}
386
386
387
=head2 GetUnprocessedSuggestions
388
389
Missing POD for GetUnprocessedSuggestions.
390
391
=cut
392
387
sub GetUnprocessedSuggestions {
393
sub GetUnprocessedSuggestions {
388
    my ($number_of_days_since_the_last_modification) = @_;
394
    my ($number_of_days_since_the_last_modification) = @_;
389
395
(-)a/C4/Tags.pm (+134 lines)
Lines 68-73 BEGIN { Link Here
68
68
69
=cut
69
=cut
70
70
71
=head2 get_filters
72
73
Missing POD for get_filters.
74
75
=cut
76
71
sub get_filters {
77
sub get_filters {
72
    my $query = "SELECT * FROM tags_filters ";
78
    my $query = "SELECT * FROM tags_filters ";
73
    my ($sth);
79
    my ($sth);
Lines 84-89 sub get_filters { Link Here
84
# 	(SELECT count(*) FROM tags_all     ) as tags_all,
90
# 	(SELECT count(*) FROM tags_all     ) as tags_all,
85
# 	(SELECT count(*) FROM tags_index   ) as tags_index,
91
# 	(SELECT count(*) FROM tags_index   ) as tags_index,
86
92
93
=head2 approval_counts
94
95
Missing POD for approval_counts.
96
97
=cut
98
87
sub approval_counts {
99
sub approval_counts {
88
    my $query = "SELECT
100
    my $query = "SELECT
89
		(SELECT count(*) FROM tags_approval WHERE approved= 1) as approved_count,
101
		(SELECT count(*) FROM tags_approval WHERE approved= 1) as approved_count,
Lines 114-119 sub get_count_by_tag_status { Link Here
114
    return $sth->fetchrow;
126
    return $sth->fetchrow;
115
}
127
}
116
128
129
=head2 remove_tag
130
131
Missing POD for remove_tag.
132
133
=cut
134
117
sub remove_tag {
135
sub remove_tag {
118
    my $tag_id  = shift or return;
136
    my $tag_id  = shift or return;
119
    my $user_id = (@_) ? shift : undef;
137
    my $user_id = (@_) ? shift : undef;
Lines 141-146 sub remove_tag { Link Here
141
    Koha::Tags->search( { tag_id => $tag_id } )->delete;
159
    Koha::Tags->search( { tag_id => $tag_id } )->delete;
142
}
160
}
143
161
162
=head2 get_tag_rows
163
164
Missing POD for get_tag_rows.
165
166
=cut
167
144
sub get_tag_rows {
168
sub get_tag_rows {
145
    my $hash      = shift || {};
169
    my $hash      = shift || {};
146
    my @ok_fields = TAG_FIELDS;
170
    my @ok_fields = TAG_FIELDS;
Lines 179-184 sub get_tag_rows { Link Here
179
    return $sth->fetchall_arrayref( {} );
203
    return $sth->fetchall_arrayref( {} );
180
}
204
}
181
205
206
=head2 get_tags
207
208
Missing POD for get_tags.
209
210
=cut
211
182
sub get_tags {    # i.e., from tags_index
212
sub get_tags {    # i.e., from tags_index
183
    my $hash      = shift || {};
213
    my $hash      = shift || {};
184
    my @ok_fields = qw(term biblionumber weight limit sort approved);
214
    my @ok_fields = qw(term biblionumber weight limit sort approved);
Lines 245-250 sub get_tags { # i.e., from tags_index Link Here
245
    return $sth->fetchall_arrayref( {} );
275
    return $sth->fetchall_arrayref( {} );
246
}
276
}
247
277
278
=head2 get_approval_rows
279
280
Missing POD for get_approval_rows.
281
282
=cut
283
248
sub get_approval_rows {    # i.e., from tags_approval
284
sub get_approval_rows {    # i.e., from tags_approval
249
    my $hash      = shift || {};
285
    my $hash      = shift || {};
250
    my @ok_fields = qw(term approved date_approved approved_by weight_total limit sort borrowernumber);
286
    my @ok_fields = qw(term approved date_approved approved_by weight_total limit sort borrowernumber);
Lines 315-320 sub get_approval_rows { # i.e., from tags_approval Link Here
315
    return $sth->fetchall_arrayref( {} );
351
    return $sth->fetchall_arrayref( {} );
316
}
352
}
317
353
354
=head2 is_approved
355
356
Missing POD for is_approved.
357
358
=cut
359
318
sub is_approved {
360
sub is_approved {
319
    my $term = shift or return;
361
    my $term = shift or return;
320
    my $sth  = C4::Context->dbh->prepare("SELECT approved FROM tags_approval WHERE term = ?");
362
    my $sth  = C4::Context->dbh->prepare("SELECT approved FROM tags_approval WHERE term = ?");
Lines 327-332 sub is_approved { Link Here
327
    return $sth->fetchrow;
369
    return $sth->fetchrow;
328
}
370
}
329
371
372
=head2 get_tag_index
373
374
Missing POD for get_tag_index.
375
376
=cut
377
330
sub get_tag_index {
378
sub get_tag_index {
331
    my $term = shift or return;
379
    my $term = shift or return;
332
    my $sth;
380
    my $sth;
Lines 340-345 sub get_tag_index { Link Here
340
    return $sth->fetchrow_hashref;
388
    return $sth->fetchrow_hashref;
341
}
389
}
342
390
391
=head2 whitelist
392
393
Missing POD for whitelist.
394
395
=cut
396
343
sub whitelist {
397
sub whitelist {
344
    my $operator = shift;
398
    my $operator = shift;
345
    defined $operator or return;    # have to test defined to allow =0 (kohaadmin)
399
    defined $operator or return;    # have to test defined to allow =0 (kohaadmin)
Lines 364-369 sub whitelist { Link Here
364
# note: there is no "unwhitelist" operation because there is no remove for Ispell.
418
# note: there is no "unwhitelist" operation because there is no remove for Ispell.
365
# The blacklist regexps should operate "in front of" the whitelist, so if you approve
419
# The blacklist regexps should operate "in front of" the whitelist, so if you approve
366
# a term mistakenly, you can still reverse it. But there is no going back to "neutral".
420
# a term mistakenly, you can still reverse it. But there is no going back to "neutral".
421
422
=head2 blacklist
423
424
Missing POD for blacklist.
425
426
=cut
427
367
sub blacklist {
428
sub blacklist {
368
    my $operator = shift;
429
    my $operator = shift;
369
    defined $operator or return;    # have to test defined to allow =0 (kohaadmin)
430
    defined $operator or return;    # have to test defined to allow =0 (kohaadmin)
Lines 378-383 sub blacklist { Link Here
378
    return scalar @_;
439
    return scalar @_;
379
}
440
}
380
441
442
=head2 add_filter
443
444
Missing POD for add_filter.
445
446
=cut
447
381
sub add_filter {
448
sub add_filter {
382
    my $operator = shift;
449
    my $operator = shift;
383
    defined $operator or return;    # have to test defined to allow =0 (kohaadmin)
450
    defined $operator or return;    # have to test defined to allow =0 (kohaadmin)
Lines 387-392 sub add_filter { Link Here
387
    return scalar @_;
454
    return scalar @_;
388
}
455
}
389
456
457
=head2 remove_filter
458
459
Missing POD for remove_filter.
460
461
=cut
462
390
sub remove_filter {
463
sub remove_filter {
391
    my $operator = shift;
464
    my $operator = shift;
392
    defined $operator or return;    # have to test defined to allow =0 (kohaadmin)
465
    defined $operator or return;    # have to test defined to allow =0 (kohaadmin)
Lines 397-402 sub remove_filter { Link Here
397
    return scalar @_;
470
    return scalar @_;
398
}
471
}
399
472
473
=head2 add_tag_approval
474
475
Missing POD for add_tag_approval.
476
477
=cut
478
400
sub add_tag_approval {    # or disapproval
479
sub add_tag_approval {    # or disapproval
401
    my $term  = shift or return;
480
    my $term  = shift or return;
402
    my $query = "SELECT * FROM tags_approval WHERE term = ?";
481
    my $query = "SELECT * FROM tags_approval WHERE term = ?";
Lines 421-426 sub add_tag_approval { # or disapproval Link Here
421
    return $sth->rows;
500
    return $sth->rows;
422
}
501
}
423
502
503
=head2 mod_tag_approval
504
505
Missing POD for mod_tag_approval.
506
507
=cut
508
424
sub mod_tag_approval {
509
sub mod_tag_approval {
425
    my $operator = shift;
510
    my $operator = shift;
426
    defined $operator or return;                 # have to test defined to allow =0 (kohaadmin)
511
    defined $operator or return;                 # have to test defined to allow =0 (kohaadmin)
Lines 431-436 sub mod_tag_approval { Link Here
431
    $sth->execute( $operator, $approval, $term );
516
    $sth->execute( $operator, $approval, $term );
432
}
517
}
433
518
519
=head2 add_tag_index
520
521
Missing POD for add_tag_index.
522
523
=cut
524
434
sub add_tag_index {
525
sub add_tag_index {
435
    my $term         = shift or return;
526
    my $term         = shift or return;
436
    my $biblionumber = shift or return;
527
    my $biblionumber = shift or return;
Lines 444-471 sub add_tag_index { Link Here
444
    return $sth->rows;
535
    return $sth->rows;
445
}
536
}
446
537
538
=head2 increment_weights
539
540
Missing POD for increment_weights.
541
542
=cut
543
447
sub increment_weights {
544
sub increment_weights {
448
    increment_weight(@_);
545
    increment_weight(@_);
449
    increment_weight_total(shift);
546
    increment_weight_total(shift);
450
}
547
}
451
548
549
=head2 decrement_weights
550
551
Missing POD for decrement_weights.
552
553
=cut
554
452
sub decrement_weights {
555
sub decrement_weights {
453
    decrement_weight(@_);
556
    decrement_weight(@_);
454
    decrement_weight_total(shift);
557
    decrement_weight_total(shift);
455
}
558
}
456
559
560
=head2 increment_weight_total
561
562
Missing POD for increment_weight_total.
563
564
=cut
565
457
sub increment_weight_total {
566
sub increment_weight_total {
458
    _set_weight_total( 'weight_total+1', shift );
567
    _set_weight_total( 'weight_total+1', shift );
459
}
568
}
460
569
570
=head2 increment_weight
571
572
Missing POD for increment_weight.
573
574
=cut
575
461
sub increment_weight {
576
sub increment_weight {
462
    _set_weight( 'weight+1', shift, shift );
577
    _set_weight( 'weight+1', shift, shift );
463
}
578
}
464
579
580
=head2 decrement_weight_total
581
582
Missing POD for decrement_weight_total.
583
584
=cut
585
465
sub decrement_weight_total {
586
sub decrement_weight_total {
466
    _set_weight_total( 'weight_total-1', shift );
587
    _set_weight_total( 'weight_total-1', shift );
467
}
588
}
468
589
590
=head2 decrement_weight
591
592
Missing POD for decrement_weight.
593
594
=cut
595
469
sub decrement_weight {
596
sub decrement_weight {
470
    _set_weight( 'weight-1', shift, shift );
597
    _set_weight( 'weight-1', shift, shift );
471
}
598
}
Lines 538-543 sub add_tag { # biblionumber,term,[borrowernumber,approvernumber] Link Here
538
# is only one weight. Beware of divide by zeros.
665
# is only one weight. Beware of divide by zeros.
539
# This will add a field to the tag called "stratum" containing the calculated
666
# This will add a field to the tag called "stratum" containing the calculated
540
# value.
667
# value.
668
669
=head2 stratify_tags
670
671
Missing POD for stratify_tags.
672
673
=cut
674
541
sub stratify_tags {
675
sub stratify_tags {
542
    my ( $strata, $tags ) = @_;
676
    my ( $strata, $tags ) = @_;
543
    return ( 0, 0 ) if !@$tags;
677
    return ( 0, 0 ) if !@$tags;
(-)a/C4/Templates.pm (+37 lines)
Lines 43-48 __PACKAGE__->mk_accessors(qw( theme activethemes preferredtheme lang filename ht Link Here
43
43
44
Template::Filters->use_rfc3986();
44
Template::Filters->use_rfc3986();
45
45
46
=head2 new
47
48
Missing POD for new.
49
50
=cut
51
46
sub new {
52
sub new {
47
    my $class     = shift;
53
    my $class     = shift;
48
    my $interface = shift;
54
    my $interface = shift;
Lines 99-104 sub new { Link Here
99
105
100
}
106
}
101
107
108
=head2 output
109
110
Missing POD for output.
111
112
=cut
113
102
sub output {
114
sub output {
103
    my $self = shift;
115
    my $self = shift;
104
    my $vars = shift;
116
    my $vars = shift;
Lines 137-142 sub output { Link Here
137
}
149
}
138
150
139
# wrapper method to allow easier transition from HTML template pro to Template Toolkit
151
# wrapper method to allow easier transition from HTML template pro to Template Toolkit
152
153
=head2 param
154
155
Missing POD for param.
156
157
=cut
158
140
sub param {
159
sub param {
141
    my $self = shift;
160
    my $self = shift;
142
    while (@_) {
161
    while (@_) {
Lines 219-224 sub badtemplatecheck { Link Here
219
    }
238
    }
220
}
239
}
221
240
241
=head2 gettemplate
242
243
Missing POD for gettemplate.
244
245
=cut
246
222
sub gettemplate {
247
sub gettemplate {
223
    my ( $tmplbase, $interface, $query ) = @_;
248
    my ( $tmplbase, $interface, $query ) = @_;
224
    my ( $htdocs, $theme, $lang, $filename ) = _get_template_file( $tmplbase, $interface, $query );
249
    my ( $htdocs, $theme, $lang, $filename ) = _get_template_file( $tmplbase, $interface, $query );
Lines 286-291 sub themelanguage { Link Here
286
    return availablethemes( $htdocs, $tmpl, $interface, $lang );
311
    return availablethemes( $htdocs, $tmpl, $interface, $lang );
287
}
312
}
288
313
314
=head2 availablethemes
315
316
Missing POD for availablethemes.
317
318
=cut
319
289
sub availablethemes {
320
sub availablethemes {
290
    my ( $htdocs, $tmpl, $interface, $lang ) = @_;
321
    my ( $htdocs, $tmpl, $interface, $lang ) = @_;
291
322
Lines 329-334 sub availablethemes { Link Here
329
    }
360
    }
330
}
361
}
331
362
363
=head2 setlanguagecookie
364
365
Missing POD for setlanguagecookie.
366
367
=cut
368
332
sub setlanguagecookie {
369
sub setlanguagecookie {
333
    my ( $query, $language, $uri ) = @_;
370
    my ( $query, $language, $uri ) = @_;
334
371
(-)a/C4/TmplToken.pm (+132 lines)
Lines 31-36 This is a class representing a token scanned from an HTML::Template .tmpl file. Link Here
31
31
32
=cut
32
=cut
33
33
34
=head2 new
35
36
Missing POD for new.
37
38
=cut
39
34
sub new {
40
sub new {
35
    my $this  = shift;
41
    my $this  = shift;
36
    my $class = ref($this) || $this;
42
    my $class = ref($this) || $this;
Lines 40-70 sub new { Link Here
40
    return $self;
46
    return $self;
41
}
47
}
42
48
49
=head2 string
50
51
Missing POD for string.
52
53
=cut
54
43
sub string {
55
sub string {
44
    my $this = shift;
56
    my $this = shift;
45
    return $this->{'_string'};
57
    return $this->{'_string'};
46
}
58
}
47
59
60
=head2 type
61
62
Missing POD for type.
63
64
=cut
65
48
sub type {
66
sub type {
49
    my $this = shift;
67
    my $this = shift;
50
    return $this->{'_type'};
68
    return $this->{'_type'};
51
}
69
}
52
70
71
=head2 pathname
72
73
Missing POD for pathname.
74
75
=cut
76
53
sub pathname {
77
sub pathname {
54
    my $this = shift;
78
    my $this = shift;
55
    return $this->{'_path'};
79
    return $this->{'_path'};
56
}
80
}
57
81
82
=head2 line_number
83
84
Missing POD for line_number.
85
86
=cut
87
58
sub line_number {
88
sub line_number {
59
    my $this = shift;
89
    my $this = shift;
60
    return $this->{'_lc'};
90
    return $this->{'_lc'};
61
}
91
}
62
92
93
=head2 attributes
94
95
Missing POD for attributes.
96
97
=cut
98
63
sub attributes {
99
sub attributes {
64
    my $this = shift;
100
    my $this = shift;
65
    return $this->{'_attr'};
101
    return $this->{'_attr'};
66
}
102
}
67
103
104
=head2 set_attributes
105
106
Missing POD for set_attributes.
107
108
=cut
109
68
sub set_attributes {
110
sub set_attributes {
69
    my $this = shift;
111
    my $this = shift;
70
    $this->{'_attr'} = ref $_[0] eq 'HASH' ? $_[0] : \@_;
112
    $this->{'_attr'} = ref $_[0] eq 'HASH' ? $_[0] : \@_;
Lines 72-83 sub set_attributes { Link Here
72
}
114
}
73
115
74
# only meaningful for TEXT_PARAMETRIZED tokens
116
# only meaningful for TEXT_PARAMETRIZED tokens
117
118
=head2 children
119
120
Missing POD for children.
121
122
=cut
123
75
sub children {
124
sub children {
76
    my $this = shift;
125
    my $this = shift;
77
    return $this->{'_kids'};
126
    return $this->{'_kids'};
78
}
127
}
79
128
80
# only meaningful for TEXT_PARAMETRIZED tokens
129
# only meaningful for TEXT_PARAMETRIZED tokens
130
131
=head2 set_children
132
133
Missing POD for set_children.
134
135
=cut
136
81
sub set_children {
137
sub set_children {
82
    my $this = shift;
138
    my $this = shift;
83
    $this->{'_kids'} = ref $_[0] eq 'ARRAY' ? $_[0] : \@_;
139
    $this->{'_kids'} = ref $_[0] eq 'ARRAY' ? $_[0] : \@_;
Lines 86-91 sub set_children { Link Here
86
142
87
# only meaningful for TEXT_PARAMETRIZED tokens
143
# only meaningful for TEXT_PARAMETRIZED tokens
88
# FIXME: DIRECTIVE is not necessarily TMPL_VAR !!
144
# FIXME: DIRECTIVE is not necessarily TMPL_VAR !!
145
146
=head2 parameters_and_fields
147
148
Missing POD for parameters_and_fields.
149
150
=cut
151
89
sub parameters_and_fields {
152
sub parameters_and_fields {
90
    my $this = shift;
153
    my $this = shift;
91
    return map {
154
    return map {
Lines 97-130 sub parameters_and_fields { Link Here
97
}
160
}
98
161
99
# only meaningful for TEXT_PARAMETRIZED tokens
162
# only meaningful for TEXT_PARAMETRIZED tokens
163
164
=head2 anchors
165
166
Missing POD for anchors.
167
168
=cut
169
100
sub anchors {
170
sub anchors {
101
    my $this = shift;
171
    my $this = shift;
102
    return map { $_->type == C4::TmplTokenType::TAG && $_->string =~ /^<a\b/is ? $_ : () } @{ $this->{'_kids'} };
172
    return map { $_->type == C4::TmplTokenType::TAG && $_->string =~ /^<a\b/is ? $_ : () } @{ $this->{'_kids'} };
103
}
173
}
104
174
105
# only meaningful for TEXT_PARAMETRIZED tokens
175
# only meaningful for TEXT_PARAMETRIZED tokens
176
177
=head2 form
178
179
Missing POD for form.
180
181
=cut
182
106
sub form {
183
sub form {
107
    my $this = shift;
184
    my $this = shift;
108
    return $this->{'_form'};
185
    return $this->{'_form'};
109
}
186
}
110
187
111
# only meaningful for TEXT_PARAMETRIZED tokens
188
# only meaningful for TEXT_PARAMETRIZED tokens
189
190
=head2 set_form
191
192
Missing POD for set_form.
193
194
=cut
195
112
sub set_form {
196
sub set_form {
113
    my $this = shift;
197
    my $this = shift;
114
    $this->{'_form'} = $_[0];
198
    $this->{'_form'} = $_[0];
115
    return $this;
199
    return $this;
116
}
200
}
117
201
202
=head2 has_js_data
203
204
Missing POD for has_js_data.
205
206
=cut
207
118
sub has_js_data {
208
sub has_js_data {
119
    my $this = shift;
209
    my $this = shift;
120
    return defined $this->{'_js_data'} && ref( $this->{'_js_data'} ) eq 'ARRAY';
210
    return defined $this->{'_js_data'} && ref( $this->{'_js_data'} ) eq 'ARRAY';
121
}
211
}
122
212
213
=head2 js_data
214
215
Missing POD for js_data.
216
217
=cut
218
123
sub js_data {
219
sub js_data {
124
    my $this = shift;
220
    my $this = shift;
125
    return $this->{'_js_data'};
221
    return $this->{'_js_data'};
126
}
222
}
127
223
224
=head2 set_js_data
225
226
Missing POD for set_js_data.
227
228
=cut
229
128
sub set_js_data {
230
sub set_js_data {
129
    my $this = shift;
231
    my $this = shift;
130
    $this->{'_js_data'} = $_[0];
232
    $this->{'_js_data'} = $_[0];
Lines 133-158 sub set_js_data { Link Here
133
235
134
# predefined tests
236
# predefined tests
135
237
238
=head2 tag_p
239
240
Missing POD for tag_p.
241
242
=cut
243
136
sub tag_p {
244
sub tag_p {
137
    my $this = shift;
245
    my $this = shift;
138
    return $this->type == C4::TmplTokenType::TAG;
246
    return $this->type == C4::TmplTokenType::TAG;
139
}
247
}
140
248
249
=head2 cdata_p
250
251
Missing POD for cdata_p.
252
253
=cut
254
141
sub cdata_p {
255
sub cdata_p {
142
    my $this = shift;
256
    my $this = shift;
143
    return $this->type == C4::TmplTokenType::CDATA;
257
    return $this->type == C4::TmplTokenType::CDATA;
144
}
258
}
145
259
260
=head2 text_p
261
262
Missing POD for text_p.
263
264
=cut
265
146
sub text_p {
266
sub text_p {
147
    my $this = shift;
267
    my $this = shift;
148
    return $this->type == C4::TmplTokenType::TEXT;
268
    return $this->type == C4::TmplTokenType::TEXT;
149
}
269
}
150
270
271
=head2 text_parametrized_p
272
273
Missing POD for text_parametrized_p.
274
275
=cut
276
151
sub text_parametrized_p {
277
sub text_parametrized_p {
152
    my $this = shift;
278
    my $this = shift;
153
    return $this->type == C4::TmplTokenType::TEXT_PARAMETRIZED;
279
    return $this->type == C4::TmplTokenType::TEXT_PARAMETRIZED;
154
}
280
}
155
281
282
=head2 directive_p
283
284
Missing POD for directive_p.
285
286
=cut
287
156
sub directive_p {
288
sub directive_p {
157
    my $this = shift;
289
    my $this = shift;
158
    return $this->type == C4::TmplTokenType::DIRECTIVE;
290
    return $this->type == C4::TmplTokenType::DIRECTIVE;
(-)a/C4/TmplTokenType.pm (+6 lines)
Lines 77-82 BEGIN { Link Here
77
    $_unknown           = &$new( 7, 'UNKNOWN' );
77
    $_unknown           = &$new( 7, 'UNKNOWN' );
78
}
78
}
79
79
80
=head2 to_string
81
82
Missing POD for to_string.
83
84
=cut
85
80
sub to_string {
86
sub to_string {
81
    my $this = shift;
87
    my $this = shift;
82
    return $this->{'name'};
88
    return $this->{'name'};
(-)a/C4/UsageStats.pm (+6 lines)
Lines 38-43 their structure,... Link Here
38
38
39
=cut
39
=cut
40
40
41
=head2 BuildReport
42
43
Missing POD for BuildReport.
44
45
=cut
46
41
sub BuildReport {
47
sub BuildReport {
42
    my $report;
48
    my $report;
43
    my @libraries;
49
    my @libraries;
(-)a/C4/Utils/DataTables/TablesSettings.pm (+24 lines)
Lines 17-22 C4::Utils::DataTables::TablesSettings - Koha DataTables Settings Link Here
17
17
18
=cut
18
=cut
19
19
20
=head2 get_yaml
21
22
Missing POD for get_yaml.
23
24
=cut
25
20
sub get_yaml {
26
sub get_yaml {
21
    my $yml_path = C4::Context->config('intranetdir') . '/admin/columns_settings.yml';
27
    my $yml_path = C4::Context->config('intranetdir') . '/admin/columns_settings.yml';
22
    my $cache    = Koha::Caches->get_instance();
28
    my $cache    = Koha::Caches->get_instance();
Lines 32-37 sub get_yaml { Link Here
32
    return $yaml;
38
    return $yaml;
33
}
39
}
34
40
41
=head2 get_columns
42
43
Missing POD for get_columns.
44
45
=cut
46
35
sub get_columns {
47
sub get_columns {
36
    my ( $module, $page, $tablename ) = @_;
48
    my ( $module, $page, $tablename ) = @_;
37
49
Lines 118-123 sub get_table_settings { Link Here
118
    };
130
    };
119
}
131
}
120
132
133
=head2 get_modules
134
135
Missing POD for get_modules.
136
137
=cut
138
121
sub get_modules {
139
sub get_modules {
122
    my $list = get_yaml;
140
    my $list = get_yaml;
123
141
Lines 136-141 sub get_modules { Link Here
136
    return $list->{modules};
154
    return $list->{modules};
137
}
155
}
138
156
157
=head2 update_columns
158
159
Missing POD for update_columns.
160
161
=cut
162
139
sub update_columns {
163
sub update_columns {
140
    my ($params) = @_;
164
    my ($params) = @_;
141
    my $columns = $params->{columns};
165
    my $columns = $params->{columns};
(-)a/C4/XISBN.pm (+6 lines)
Lines 82-87 sub _get_biblio_from_xisbn { Link Here
82
82
83
=cut
83
=cut
84
84
85
=head2 get_xisbns
86
87
Missing POD for get_xisbns.
88
89
=cut
90
85
sub get_xisbns {
91
sub get_xisbns {
86
    my ( $isbn, $biblionumber ) = @_;
92
    my ( $isbn, $biblionumber ) = @_;
87
    my ( $response, $thing_response, $syndetics_response, $errors );
93
    my ( $response, $thing_response, $syndetics_response, $errors );
(-)a/C4/XSLT.pm (+12 lines)
Lines 85-90 sub _get_best_default_xslt_filename { Link Here
85
    return $xslfilename;
85
    return $xslfilename;
86
}
86
}
87
87
88
=head2 get_xslt_sysprefs
89
90
Missing POD for get_xslt_sysprefs.
91
92
=cut
93
88
sub get_xslt_sysprefs {
94
sub get_xslt_sysprefs {
89
    my $sysxml = "<sysprefs>\n";
95
    my $sysxml = "<sysprefs>\n";
90
    foreach my $syspref (
96
    foreach my $syspref (
Lines 118-123 sub get_xslt_sysprefs { Link Here
118
    return $sysxml;
124
    return $sysxml;
119
}
125
}
120
126
127
=head2 get_xsl_filename
128
129
Missing POD for get_xsl_filename.
130
131
=cut
132
121
sub get_xsl_filename {
133
sub get_xsl_filename {
122
    my ($xslsyspref) = @_;
134
    my ($xslsyspref) = @_;
123
135
(-)a/Koha/Account.pm (+6 lines)
Lines 45-50 Koha::Accounts - Module for managing payments and fees for patrons Link Here
45
45
46
=cut
46
=cut
47
47
48
=head2 new
49
50
Missing POD for new.
51
52
=cut
53
48
sub new {
54
sub new {
49
    my ( $class, $params ) = @_;
55
    my ( $class, $params ) = @_;
50
56
(-)a/Koha/Account/Lines.pm (+6 lines)
Lines 148-153 sub _type { Link Here
148
    return 'Accountline';
148
    return 'Accountline';
149
}
149
}
150
150
151
=head2 object_class
152
153
Missing POD for object_class.
154
155
=cut
156
151
sub object_class {
157
sub object_class {
152
    return 'Koha::Account::Line';
158
    return 'Koha::Account::Line';
153
}
159
}
(-)a/Koha/Acquisition/Currencies.pm (+6 lines)
Lines 50-55 sub _type { Link Here
50
    return 'Currency';
50
    return 'Currency';
51
}
51
}
52
52
53
=head2 object_class
54
55
Missing POD for object_class.
56
57
=cut
58
53
sub object_class {
59
sub object_class {
54
    return 'Koha::Acquisition::Currency';
60
    return 'Koha::Acquisition::Currency';
55
}
61
}
(-)a/Koha/Acquisition/Invoice/Adjustments.pm (+6 lines)
Lines 42-47 sub _type { Link Here
42
    return 'AqinvoiceAdjustment';
42
    return 'AqinvoiceAdjustment';
43
}
43
}
44
44
45
=head2 object_class
46
47
Missing POD for object_class.
48
49
=cut
50
45
sub object_class {
51
sub object_class {
46
    return 'Koha::Acquisition::Invoice::Adjustment';
52
    return 'Koha::Acquisition::Invoice::Adjustment';
47
}
53
}
(-)a/Koha/AdditionalFieldValues.pm (-1 / +8 lines)
Lines 12-18 use Koha::AdditionalFieldValue; Link Here
12
12
13
use base 'Koha::Objects';
13
use base 'Koha::Objects';
14
14
15
sub _type        { 'AdditionalFieldValue' }
15
sub _type { 'AdditionalFieldValue' }
16
17
=head2 object_class
18
19
Missing POD for object_class.
20
21
=cut
22
16
sub object_class { 'Koha::AdditionalFieldValue' }
23
sub object_class { 'Koha::AdditionalFieldValue' }
17
24
18
=head1 AUTHOR
25
=head1 AUTHOR
(-)a/Koha/AdditionalFields.pm (-1 / +8 lines)
Lines 12-18 use base 'Koha::Objects'; Link Here
12
12
13
use Koha::AdditionalField;
13
use Koha::AdditionalField;
14
14
15
sub _type        { 'AdditionalField' }
15
sub _type { 'AdditionalField' }
16
17
=head2 object_class
18
19
Missing POD for object_class.
20
21
=cut
22
16
sub object_class { 'Koha::AdditionalField' }
23
sub object_class { 'Koha::AdditionalField' }
17
24
18
=head1 AUTHOR
25
=head1 AUTHOR
(-)a/Koha/ArticleRequests.pm (+6 lines)
Lines 166-171 sub _type { Link Here
166
    return 'ArticleRequest';
166
    return 'ArticleRequest';
167
}
167
}
168
168
169
=head2 object_class
170
171
Missing POD for object_class.
172
173
=cut
174
169
sub object_class {
175
sub object_class {
170
    return 'Koha::ArticleRequest';
176
    return 'Koha::ArticleRequest';
171
}
177
}
(-)a/Koha/AuthorisedValueCategories.pm (+6 lines)
Lines 61-66 sub _type { Link Here
61
    return 'AuthorisedValueCategory';
61
    return 'AuthorisedValueCategory';
62
}
62
}
63
63
64
=head2 object_class
65
66
Missing POD for object_class.
67
68
=cut
69
64
sub object_class {
70
sub object_class {
65
    return 'Koha::AuthorisedValueCategory';
71
    return 'Koha::AuthorisedValueCategory';
66
}
72
}
(-)a/Koha/AuthorisedValues.pm (+42 lines)
Lines 37-42 Koha::AuthorisedValues - Koha Authorised value Object set class Link Here
37
37
38
=cut
38
=cut
39
39
40
=head2 search_by_marc_field
41
42
Missing POD for search_by_marc_field.
43
44
=cut
45
40
sub search_by_marc_field {
46
sub search_by_marc_field {
41
    my ( $self, $params ) = @_;
47
    my ( $self, $params ) = @_;
42
    my $frameworkcode = $params->{frameworkcode} || '';
48
    my $frameworkcode = $params->{frameworkcode} || '';
Lines 58-63 sub search_by_marc_field { Link Here
58
    );
64
    );
59
}
65
}
60
66
67
=head2 search_by_koha_field
68
69
Missing POD for search_by_koha_field.
70
71
=cut
72
61
sub search_by_koha_field {
73
sub search_by_koha_field {
62
    my ( $self, $params ) = @_;
74
    my ( $self, $params ) = @_;
63
    my $frameworkcode = $params->{frameworkcode} || '';
75
    my $frameworkcode = $params->{frameworkcode} || '';
Lines 80-85 sub search_by_koha_field { Link Here
80
    );
92
    );
81
}
93
}
82
94
95
=head2 find_by_koha_field
96
97
Missing POD for find_by_koha_field.
98
99
=cut
100
83
sub find_by_koha_field {
101
sub find_by_koha_field {
84
    my ( $self, $params ) = @_;
102
    my ( $self, $params ) = @_;
85
    my $frameworkcode    = $params->{frameworkcode} || '';
103
    my $frameworkcode    = $params->{frameworkcode} || '';
Lines 100-105 sub find_by_koha_field { Link Here
100
    return $av->count ? $av->next : undef;
118
    return $av->count ? $av->next : undef;
101
}
119
}
102
120
121
=head2 get_description_by_koha_field
122
123
Missing POD for get_description_by_koha_field.
124
125
=cut
126
103
sub get_description_by_koha_field {
127
sub get_description_by_koha_field {
104
    my ( $self, $params ) = @_;
128
    my ( $self, $params ) = @_;
105
    my $frameworkcode    = $params->{frameworkcode} || '';
129
    my $frameworkcode    = $params->{frameworkcode} || '';
Lines 123-128 sub get_description_by_koha_field { Link Here
123
    return $descriptions;
147
    return $descriptions;
124
}
148
}
125
149
150
=head2 get_descriptions_by_koha_field
151
152
Missing POD for get_descriptions_by_koha_field.
153
154
=cut
155
126
sub get_descriptions_by_koha_field {
156
sub get_descriptions_by_koha_field {
127
    my ( $self, $params ) = @_;
157
    my ( $self, $params ) = @_;
128
    my $frameworkcode = $params->{frameworkcode} || '';
158
    my $frameworkcode = $params->{frameworkcode} || '';
Lines 177-182 sub get_descriptions_by_marc_field { Link Here
177
    return $descriptions;
207
    return $descriptions;
178
}
208
}
179
209
210
=head2 categories
211
212
Missing POD for categories.
213
214
=cut
215
180
sub categories {
216
sub categories {
181
    my ($self) = @_;
217
    my ($self) = @_;
182
    my $rs = $self->_resultset->search(
218
    my $rs = $self->_resultset->search(
Lines 198-203 sub _type { Link Here
198
    return 'AuthorisedValue';
234
    return 'AuthorisedValue';
199
}
235
}
200
236
237
=head2 object_class
238
239
Missing POD for object_class.
240
241
=cut
242
201
sub object_class {
243
sub object_class {
202
    return 'Koha::AuthorisedValue';
244
    return 'Koha::AuthorisedValue';
203
}
245
}
(-)a/Koha/Authority/Type.pm (+6 lines)
Lines 31-36 Koha::Authority::Type - Koha Authority Type Object class Link Here
31
31
32
=cut
32
=cut
33
33
34
=head2 auth_tag_structures
35
36
Missing POD for auth_tag_structures.
37
38
=cut
39
34
sub auth_tag_structures {
40
sub auth_tag_structures {
35
    my ($self) = @_;
41
    my ($self) = @_;
36
    return $self->_result->auth_tag_structures;
42
    return $self->_result->auth_tag_structures;
(-)a/Koha/Authority/Types.pm (+6 lines)
Lines 41-46 sub _type { Link Here
41
    return 'AuthType';
41
    return 'AuthType';
42
}
42
}
43
43
44
=head2 object_class
45
46
Missing POD for object_class.
47
48
=cut
49
44
sub object_class {
50
sub object_class {
45
    return 'Koha::Authority::Type';
51
    return 'Koha::Authority::Type';
46
}
52
}
(-)a/Koha/Biblio/Metadatas.pm (+6 lines)
Lines 41-46 sub _type { Link Here
41
    return 'BiblioMetadata';
41
    return 'BiblioMetadata';
42
}
42
}
43
43
44
=head2 object_class
45
46
Missing POD for object_class.
47
48
=cut
49
44
sub object_class {
50
sub object_class {
45
    return 'Koha::Biblio::Metadata';
51
    return 'Koha::Biblio::Metadata';
46
}
52
}
(-)a/Koha/BiblioFrameworks.pm (+6 lines)
Lines 41-46 sub _type { Link Here
41
    return 'BiblioFramework';
41
    return 'BiblioFramework';
42
}
42
}
43
43
44
=head2 object_class
45
46
Missing POD for object_class.
47
48
=cut
49
44
sub object_class {
50
sub object_class {
45
    return 'Koha::BiblioFramework';
51
    return 'Koha::BiblioFramework';
46
}
52
}
(-)a/Koha/Biblioitems.pm (+6 lines)
Lines 41-46 sub _type { Link Here
41
    return 'Biblioitem';
41
    return 'Biblioitem';
42
}
42
}
43
43
44
=head2 object_class
45
46
Missing POD for object_class.
47
48
=cut
49
44
sub object_class {
50
sub object_class {
45
    return 'Koha::Biblioitem';
51
    return 'Koha::Biblioitem';
46
}
52
}
(-)a/Koha/Cache.pm (+12 lines)
Lines 330-335 sub flush_all { Link Here
330
    return $self->{$cache}->clear();
330
    return $self->{$cache}->clear();
331
}
331
}
332
332
333
=head2 flush_L1_cache
334
335
Missing POD for flush_L1_cache.
336
337
=cut
338
333
sub flush_L1_cache {
339
sub flush_L1_cache {
334
    my ($self) = @_;
340
    my ($self) = @_;
335
    delete $L1_cache{ $self->{namespace} };
341
    delete $L1_cache{ $self->{namespace} };
Lines 448-453 sub create_scalar { Link Here
448
    return \$scalar;
454
    return \$scalar;
449
}
455
}
450
456
457
=head2 create_hash
458
459
Missing POD for create_hash.
460
461
=cut
462
451
sub create_hash {
463
sub create_hash {
452
    my ( $self, $args ) = @_;
464
    my ( $self, $args ) = @_;
453
465
(-)a/Koha/Cities.pm (+6 lines)
Lines 41-46 sub _type { Link Here
41
    return 'City';
41
    return 'City';
42
}
42
}
43
43
44
=head2 object_class
45
46
Missing POD for object_class.
47
48
=cut
49
44
sub object_class {
50
sub object_class {
45
    return 'Koha::City';
51
    return 'Koha::City';
46
}
52
}
(-)a/Koha/Club.pm (+6 lines)
Lines 77-82 sub club_enrollments { Link Here
77
77
78
=cut
78
=cut
79
79
80
=head2 branch
81
82
Missing POD for branch.
83
84
=cut
85
80
sub branch {
86
sub branch {
81
    my ($self) = @_;
87
    my ($self) = @_;
82
88
(-)a/Koha/Club/Enrollment/Fields.pm (+6 lines)
Lines 45-50 sub _type { Link Here
45
    return 'ClubEnrollmentField';
45
    return 'ClubEnrollmentField';
46
}
46
}
47
47
48
=head2 object_class
49
50
Missing POD for object_class.
51
52
=cut
53
48
sub object_class {
54
sub object_class {
49
    return 'Koha::Club::Enrollment::Field';
55
    return 'Koha::Club::Enrollment::Field';
50
}
56
}
(-)a/Koha/Club/Enrollments.pm (+6 lines)
Lines 45-50 sub _type { Link Here
45
    return 'ClubEnrollment';
45
    return 'ClubEnrollment';
46
}
46
}
47
47
48
=head2 object_class
49
50
Missing POD for object_class.
51
52
=cut
53
48
sub object_class {
54
sub object_class {
49
    return 'Koha::Club::Enrollment';
55
    return 'Koha::Club::Enrollment';
50
}
56
}
(-)a/Koha/Club/Fields.pm (+6 lines)
Lines 45-50 sub _type { Link Here
45
    return 'ClubField';
45
    return 'ClubField';
46
}
46
}
47
47
48
=head2 object_class
49
50
Missing POD for object_class.
51
52
=cut
53
48
sub object_class {
54
sub object_class {
49
    return 'Koha::Club::Field';
55
    return 'Koha::Club::Field';
50
}
56
}
(-)a/Koha/Club/Template.pm (+6 lines)
Lines 50-55 sub club_template_fields { Link Here
50
    return Koha::Club::Template::Fields->search( { club_template_id => $self->id() } );
50
    return Koha::Club::Template::Fields->search( { club_template_id => $self->id() } );
51
}
51
}
52
52
53
=head2 club_template_enrollment_fields
54
55
Missing POD for club_template_enrollment_fields.
56
57
=cut
58
53
sub club_template_enrollment_fields {
59
sub club_template_enrollment_fields {
54
    my ($self) = @_;
60
    my ($self) = @_;
55
61
(-)a/Koha/Club/Template/EnrollmentFields.pm (+6 lines)
Lines 45-50 sub _type { Link Here
45
    return 'ClubTemplateEnrollmentField';
45
    return 'ClubTemplateEnrollmentField';
46
}
46
}
47
47
48
=head2 object_class
49
50
Missing POD for object_class.
51
52
=cut
53
48
sub object_class {
54
sub object_class {
49
    return 'Koha::Club::Template::EnrollmentField';
55
    return 'Koha::Club::Template::EnrollmentField';
50
}
56
}
(-)a/Koha/Club/Template/Fields.pm (+6 lines)
Lines 45-50 sub _type { Link Here
45
    return 'ClubTemplateField';
45
    return 'ClubTemplateField';
46
}
46
}
47
47
48
=head2 object_class
49
50
Missing POD for object_class.
51
52
=cut
53
48
sub object_class {
54
sub object_class {
49
    return 'Koha::Club::Template::Field';
55
    return 'Koha::Club::Template::Field';
50
}
56
}
(-)a/Koha/Club/Templates.pm (+6 lines)
Lines 45-50 sub _type { Link Here
45
    return 'ClubTemplate';
45
    return 'ClubTemplate';
46
}
46
}
47
47
48
=head2 object_class
49
50
Missing POD for object_class.
51
52
=cut
53
48
sub object_class {
54
sub object_class {
49
    return 'Koha::Club::Template';
55
    return 'Koha::Club::Template';
50
}
56
}
(-)a/Koha/Clubs.pm (+6 lines)
Lines 104-109 sub _type { Link Here
104
    return 'Club';
104
    return 'Club';
105
}
105
}
106
106
107
=head2 object_class
108
109
Missing POD for object_class.
110
111
=cut
112
107
sub object_class {
113
sub object_class {
108
    return 'Koha::Club';
114
    return 'Koha::Club';
109
}
115
}
(-)a/Koha/Config/SysPrefs.pm (+6 lines)
Lines 43-48 sub _type { Link Here
43
    return 'Systempreference';
43
    return 'Systempreference';
44
}
44
}
45
45
46
=head2 object_class
47
48
Missing POD for object_class.
49
50
=cut
51
46
sub object_class {
52
sub object_class {
47
    return 'Koha::Config::SysPref';
53
    return 'Koha::Config::SysPref';
48
}
54
}
(-)a/Koha/CoverImages.pm (+6 lines)
Lines 62-67 sub _type { Link Here
62
    return 'CoverImage';
62
    return 'CoverImage';
63
}
63
}
64
64
65
=head2 object_class
66
67
Missing POD for object_class.
68
69
=cut
70
65
sub object_class {
71
sub object_class {
66
    return 'Koha::CoverImage';
72
    return 'Koha::CoverImage';
67
}
73
}
(-)a/Koha/CsvProfiles.pm (+6 lines)
Lines 41-46 sub _type { Link Here
41
    return 'ExportFormat';
41
    return 'ExportFormat';
42
}
42
}
43
43
44
=head2 object_class
45
46
Missing POD for object_class.
47
48
=cut
49
44
sub object_class {
50
sub object_class {
45
    return 'Koha::CsvProfile';
51
    return 'Koha::CsvProfile';
46
}
52
}
(-)a/Koha/DateUtils.pm (+6 lines)
Lines 57-62 to the system preferences. If the date string is empty DateTime->now is returned Link Here
57
57
58
=cut
58
=cut
59
59
60
=head2 dt_from_string
61
62
Missing POD for dt_from_string.
63
64
=cut
65
60
sub dt_from_string {
66
sub dt_from_string {
61
    my ( $date_string, $date_format, $tz ) = @_;
67
    my ( $date_string, $date_format, $tz ) = @_;
62
68
(-)a/Koha/ERM/EHoldings/Package/Agreements.pm (+6 lines)
Lines 41-46 sub _type { Link Here
41
    return 'ErmEholdingsPackagesAgreement';
41
    return 'ErmEholdingsPackagesAgreement';
42
}
42
}
43
43
44
=head2 object_class
45
46
Missing POD for object_class.
47
48
=cut
49
44
sub object_class {
50
sub object_class {
45
    return 'Koha::ERM::EHoldings::Package::Agreement';
51
    return 'Koha::ERM::EHoldings::Package::Agreement';
46
}
52
}
(-)a/Koha/ERM/EHoldings/Packages.pm (+6 lines)
Lines 41-46 sub _type { Link Here
41
    return 'ErmEholdingsPackage';
41
    return 'ErmEholdingsPackage';
42
}
42
}
43
43
44
=head2 object_class
45
46
Missing POD for object_class.
47
48
=cut
49
44
sub object_class {
50
sub object_class {
45
    return 'Koha::ERM::EHoldings::Package';
51
    return 'Koha::ERM::EHoldings::Package';
46
}
52
}
(-)a/Koha/ERM/EHoldings/Resources.pm (+6 lines)
Lines 41-46 sub _type { Link Here
41
    return 'ErmEholdingsResource';
41
    return 'ErmEholdingsResource';
42
}
42
}
43
43
44
=head2 object_class
45
46
Missing POD for object_class.
47
48
=cut
49
44
sub object_class {
50
sub object_class {
45
    return 'Koha::ERM::EHoldings::Resource';
51
    return 'Koha::ERM::EHoldings::Resource';
46
}
52
}
(-)a/Koha/ERM/EHoldings/Titles.pm (+6 lines)
Lines 41-46 sub _type { Link Here
41
    return 'ErmEholdingsTitle';
41
    return 'ErmEholdingsTitle';
42
}
42
}
43
43
44
=head2 object_class
45
46
Missing POD for object_class.
47
48
=cut
49
44
sub object_class {
50
sub object_class {
45
    return 'Koha::ERM::EHoldings::Title';
51
    return 'Koha::ERM::EHoldings::Title';
46
}
52
}
(-)a/Koha/Edifact/Line.pm (+315 lines)
Lines 176-181 sub _format_item_description { Link Here
176
    return $bibrec;
176
    return $bibrec;
177
}
177
}
178
178
179
=head2 marc_record
180
181
Missing POD for marc_record.
182
183
=cut
184
179
sub marc_record {
185
sub marc_record {
180
    my $self = shift;
186
    my $self = shift;
181
    my $b    = $self->{item_description};
187
    my $b    = $self->{item_description};
Lines 270-275 sub marc_record { Link Here
270
    return $bib;
276
    return $bib;
271
}
277
}
272
278
279
=head2 corpcon
280
281
Missing POD for corpcon.
282
283
=cut
284
273
sub corpcon {
285
sub corpcon {
274
    my ( $self, $level ) = @_;
286
    my ( $self, $level ) = @_;
275
    my $test_these = {
287
    my $test_these = {
Lines 303-308 sub corpcon { Link Here
303
    return new_field( $self->{item_description}, [ $tag, $i1, $i2 ], @spec );
315
    return new_field( $self->{item_description}, [ $tag, $i1, $i2 ], @spec );
304
}
316
}
305
317
318
=head2 new_field
319
320
Missing POD for new_field.
321
322
=cut
323
306
sub new_field {
324
sub new_field {
307
    my ( $b, $tag_ind, @sfd_elem ) = @_;
325
    my ( $b, $tag_ind, @sfd_elem ) = @_;
308
    my @sfd;
326
    my @sfd;
Lines 322-342 sub new_field { Link Here
322
340
323
# Accessor methods to line data
341
# Accessor methods to line data
324
342
343
=head2 item_number_id
344
345
Missing POD for item_number_id.
346
347
=cut
348
325
sub item_number_id {
349
sub item_number_id {
326
    my $self = shift;
350
    my $self = shift;
327
    return $self->{item_number_id};
351
    return $self->{item_number_id};
328
}
352
}
329
353
354
=head2 line_item_number
355
356
Missing POD for line_item_number.
357
358
=cut
359
330
sub line_item_number {
360
sub line_item_number {
331
    my $self = shift;
361
    my $self = shift;
332
    return $self->{line_item_number};
362
    return $self->{line_item_number};
333
}
363
}
334
364
365
=head2 additional_product_ids
366
367
Missing POD for additional_product_ids.
368
369
=cut
370
335
sub additional_product_ids {
371
sub additional_product_ids {
336
    my $self = shift;
372
    my $self = shift;
337
    return $self->{additional_product_ids};
373
    return $self->{additional_product_ids};
338
}
374
}
339
375
376
=head2 action_notification
377
378
Missing POD for action_notification.
379
380
=cut
381
340
sub action_notification {
382
sub action_notification {
341
    my $self = shift;
383
    my $self = shift;
342
    my $a    = $self->{action_notification};
384
    my $a    = $self->{action_notification};
Lines 346-416 sub action_notification { Link Here
346
    return $a;
388
    return $a;
347
}
389
}
348
390
391
=head2 item_description
392
393
Missing POD for item_description.
394
395
=cut
396
349
sub item_description {
397
sub item_description {
350
    my $self = shift;
398
    my $self = shift;
351
    return $self->{item_description};
399
    return $self->{item_description};
352
}
400
}
353
401
402
=head2 monetary_amount
403
404
Missing POD for monetary_amount.
405
406
=cut
407
354
sub monetary_amount {
408
sub monetary_amount {
355
    my $self = shift;
409
    my $self = shift;
356
    return $self->{monetary_amount};
410
    return $self->{monetary_amount};
357
}
411
}
358
412
413
=head2 quantity
414
415
Missing POD for quantity.
416
417
=cut
418
359
sub quantity {
419
sub quantity {
360
    my $self = shift;
420
    my $self = shift;
361
    return $self->{quantity};
421
    return $self->{quantity};
362
}
422
}
363
423
424
=head2 quantity_invoiced
425
426
Missing POD for quantity_invoiced.
427
428
=cut
429
364
sub quantity_invoiced {
430
sub quantity_invoiced {
365
    my $self = shift;
431
    my $self = shift;
366
    return $self->{quantity_invoiced};
432
    return $self->{quantity_invoiced};
367
}
433
}
368
434
435
=head2 price
436
437
Missing POD for price.
438
439
=cut
440
369
sub price {
441
sub price {
370
    my $self = shift;
442
    my $self = shift;
371
    return $self->{price};
443
    return $self->{price};
372
}
444
}
373
445
446
=head2 reference
447
448
Missing POD for reference.
449
450
=cut
451
374
sub reference {
452
sub reference {
375
    my $self = shift;
453
    my $self = shift;
376
    return $self->{reference};
454
    return $self->{reference};
377
}
455
}
378
456
457
=head2 orderline_reference_number
458
459
Missing POD for orderline_reference_number.
460
461
=cut
462
379
sub orderline_reference_number {
463
sub orderline_reference_number {
380
    my $self = shift;
464
    my $self = shift;
381
    return $self->{orderline_reference_number};
465
    return $self->{orderline_reference_number};
382
}
466
}
383
467
468
=head2 ordernumber
469
470
Missing POD for ordernumber.
471
472
=cut
473
384
sub ordernumber {
474
sub ordernumber {
385
    my $self = shift;
475
    my $self = shift;
386
    return $self->{ordernumber};
476
    return $self->{ordernumber};
387
}
477
}
388
478
479
=head2 free_text
480
481
Missing POD for free_text.
482
483
=cut
484
389
sub free_text {
485
sub free_text {
390
    my $self = shift;
486
    my $self = shift;
391
    return $self->{free_text};
487
    return $self->{free_text};
392
}
488
}
393
489
490
=head2 coded_free_text
491
492
Missing POD for coded_free_text.
493
494
=cut
495
394
sub coded_free_text {
496
sub coded_free_text {
395
    my $self = shift;
497
    my $self = shift;
396
    return $self->{coded_free_text}->{code};
498
    return $self->{coded_free_text}->{code};
397
}
499
}
398
500
501
=head2 internal_notes
502
503
Missing POD for internal_notes.
504
505
=cut
506
399
sub internal_notes {
507
sub internal_notes {
400
    my $self = shift;
508
    my $self = shift;
401
    return $self->{internal_notes};
509
    return $self->{internal_notes};
402
}
510
}
403
511
512
=head2 coded_internal_note
513
514
Missing POD for coded_internal_note.
515
516
=cut
517
404
sub coded_internal_note {
518
sub coded_internal_note {
405
    my $self = shift;
519
    my $self = shift;
406
    return $self->{coded_internal_note}->{code};
520
    return $self->{coded_internal_note}->{code};
407
}
521
}
408
522
523
=head2 orderline_free_text
524
525
Missing POD for orderline_free_text.
526
527
=cut
528
409
sub orderline_free_text {
529
sub orderline_free_text {
410
    my $self = shift;
530
    my $self = shift;
411
    return $self->{orderline_free_text};
531
    return $self->{orderline_free_text};
412
}
532
}
413
533
534
=head2 coded_orderline_text
535
536
Missing POD for coded_orderline_text.
537
538
=cut
539
414
sub coded_orderline_text {
540
sub coded_orderline_text {
415
    my $self  = shift;
541
    my $self  = shift;
416
    my $code  = $self->{coded_orderline_text}->{code};
542
    my $code  = $self->{coded_orderline_text}->{code};
Lines 427-437 sub coded_orderline_text { Link Here
427
    return $txt;
553
    return $txt;
428
}
554
}
429
555
556
=head2 substitute_free_text
557
558
Missing POD for substitute_free_text.
559
560
=cut
561
430
sub substitute_free_text {
562
sub substitute_free_text {
431
    my $self = shift;
563
    my $self = shift;
432
    return $self->{substitute_free_text};
564
    return $self->{substitute_free_text};
433
}
565
}
434
566
567
=head2 coded_substitute_text
568
569
Missing POD for coded_substitute_text.
570
571
=cut
572
435
sub coded_substitute_text {
573
sub coded_substitute_text {
436
    my $self = shift;
574
    my $self = shift;
437
    return $self->{coded_substitute_text}->{code};
575
    return $self->{coded_substitute_text}->{code};
Lines 440-445 sub coded_substitute_text { Link Here
440
# This will take a standard code as returned
578
# This will take a standard code as returned
441
# by (orderline|substitue)-free_text (FTX seg LIN)
579
# by (orderline|substitue)-free_text (FTX seg LIN)
442
# and expand it using EditEUR code list 8B
580
# and expand it using EditEUR code list 8B
581
582
=head2 translate_8B
583
584
Missing POD for translate_8B.
585
586
=cut
587
443
sub translate_8B {
588
sub translate_8B {
444
    my ($code) = @_;
589
    my ($code) = @_;
445
590
Lines 487-492 sub translate_8B { Link Here
487
    }
632
    }
488
}
633
}
489
634
635
=head2 translate_12B
636
637
Missing POD for translate_12B.
638
639
=cut
640
490
sub translate_12B {
641
sub translate_12B {
491
    my ($code) = @_;
642
    my ($code) = @_;
492
643
Lines 542-547 sub translate_12B { Link Here
542
693
543
# item_desription_fields accessors
694
# item_desription_fields accessors
544
695
696
=head2 title
697
698
Missing POD for title.
699
700
=cut
701
545
sub title {
702
sub title {
546
    my $self       = shift;
703
    my $self       = shift;
547
    my $titlefield = q{050};
704
    my $titlefield = q{050};
Lines 551-556 sub title { Link Here
551
    return;
708
    return;
552
}
709
}
553
710
711
=head2 author
712
713
Missing POD for author.
714
715
=cut
716
554
sub author {
717
sub author {
555
    my $self  = shift;
718
    my $self  = shift;
556
    my $field = q{010};
719
    my $field = q{010};
Lines 566-571 sub author { Link Here
566
    return;
729
    return;
567
}
730
}
568
731
732
=head2 series
733
734
Missing POD for series.
735
736
=cut
737
569
sub series {
738
sub series {
570
    my $self  = shift;
739
    my $self  = shift;
571
    my $field = q{190};
740
    my $field = q{190};
Lines 575-580 sub series { Link Here
575
    return;
744
    return;
576
}
745
}
577
746
747
=head2 publisher
748
749
Missing POD for publisher.
750
751
=cut
752
578
sub publisher {
753
sub publisher {
579
    my $self  = shift;
754
    my $self  = shift;
580
    my $field = q{120};
755
    my $field = q{120};
Lines 584-589 sub publisher { Link Here
584
    return;
759
    return;
585
}
760
}
586
761
762
=head2 publication_date
763
764
Missing POD for publication_date.
765
766
=cut
767
587
sub publication_date {
768
sub publication_date {
588
    my $self  = shift;
769
    my $self  = shift;
589
    my $field = q{170};
770
    my $field = q{170};
Lines 593-598 sub publication_date { Link Here
593
    return;
774
    return;
594
}
775
}
595
776
777
=head2 dewey_class
778
779
Missing POD for dewey_class.
780
781
=cut
782
596
sub dewey_class {
783
sub dewey_class {
597
    my $self  = shift;
784
    my $self  = shift;
598
    my $field = q{230};
785
    my $field = q{230};
Lines 602-607 sub dewey_class { Link Here
602
    return;
789
    return;
603
}
790
}
604
791
792
=head2 lc_class
793
794
Missing POD for lc_class.
795
796
=cut
797
605
sub lc_class {
798
sub lc_class {
606
    my $self  = shift;
799
    my $self  = shift;
607
    my $field = q{240};
800
    my $field = q{240};
Lines 611-616 sub lc_class { Link Here
611
    return;
804
    return;
612
}
805
}
613
806
807
=head2 girfield
808
809
Missing POD for girfield.
810
811
=cut
812
614
sub girfield {
813
sub girfield {
615
    my ( $self, $field, $occ ) = @_;
814
    my ( $self, $field, $occ ) = @_;
616
    if ( $self->number_of_girs ) {
815
    if ( $self->number_of_girs ) {
Lines 626-631 sub girfield { Link Here
626
    }
825
    }
627
}
826
}
628
827
828
=head2 number_of_girs
829
830
Missing POD for number_of_girs.
831
832
=cut
833
629
sub number_of_girs {
834
sub number_of_girs {
630
    my $self = shift;
835
    my $self = shift;
631
    if ( $self->{GIR} ) {
836
    if ( $self->{GIR} ) {
Lines 638-643 sub number_of_girs { Link Here
638
    }
843
    }
639
}
844
}
640
845
846
=head2 extract_gir
847
848
Missing POD for extract_gir.
849
850
=cut
851
641
sub extract_gir {
852
sub extract_gir {
642
    my $s    = shift;
853
    my $s    = shift;
643
    my %qmap = (
854
    my %qmap = (
Lines 684-689 sub extract_gir { Link Here
684
}
895
}
685
896
686
# mainly for invoice processing amt_ will derive from MOA price_ from PRI and tax_ from TAX/MOA pairsn
897
# mainly for invoice processing amt_ will derive from MOA price_ from PRI and tax_ from TAX/MOA pairsn
898
899
=head2 moa_amt
900
901
Missing POD for moa_amt.
902
903
=cut
904
687
sub moa_amt {
905
sub moa_amt {
688
    my ( $self, $qualifier ) = @_;
906
    my ( $self, $qualifier ) = @_;
689
    foreach my $s ( @{ $self->{segs} } ) {
907
    foreach my $s ( @{ $self->{segs} } ) {
Lines 694-699 sub moa_amt { Link Here
694
    return;
912
    return;
695
}
913
}
696
914
915
=head2 moa_multiple_amt
916
917
Missing POD for moa_multiple_amt.
918
919
=cut
920
697
sub moa_multiple_amt {
921
sub moa_multiple_amt {
698
    my ( $self, $qualifier ) = @_;
922
    my ( $self, $qualifier ) = @_;
699
923
Lines 712-750 sub moa_multiple_amt { Link Here
712
    return;
936
    return;
713
}
937
}
714
938
939
=head2 amt_discount
940
941
Missing POD for amt_discount.
942
943
=cut
944
715
sub amt_discount {
945
sub amt_discount {
716
    my $self = shift;
946
    my $self = shift;
717
    return $self->moa_amt('52');
947
    return $self->moa_amt('52');
718
}
948
}
719
949
950
=head2 amt_prepayment
951
952
Missing POD for amt_prepayment.
953
954
=cut
955
720
sub amt_prepayment {
956
sub amt_prepayment {
721
    my $self = shift;
957
    my $self = shift;
722
    return $self->moa_amt('113');
958
    return $self->moa_amt('113');
723
}
959
}
724
960
725
# total including allowances & tax
961
# total including allowances & tax
962
963
=head2 amt_total
964
965
Missing POD for amt_total.
966
967
=cut
968
726
sub amt_total {
969
sub amt_total {
727
    my $self = shift;
970
    my $self = shift;
728
    return $self->moa_amt('128');
971
    return $self->moa_amt('128');
729
}
972
}
730
973
731
# Used to give price in currency other than that given in price
974
# Used to give price in currency other than that given in price
975
976
=head2 amt_unitprice
977
978
Missing POD for amt_unitprice.
979
980
=cut
981
732
sub amt_unitprice {
982
sub amt_unitprice {
733
    my $self = shift;
983
    my $self = shift;
734
    return $self->moa_amt('146');
984
    return $self->moa_amt('146');
735
}
985
}
736
986
737
# item amount after allowances excluding tax
987
# item amount after allowances excluding tax
988
989
=head2 amt_lineitem
990
991
Missing POD for amt_lineitem.
992
993
=cut
994
738
sub amt_lineitem {
995
sub amt_lineitem {
739
    my $self = shift;
996
    my $self = shift;
740
    return $self->moa_amt('203');
997
    return $self->moa_amt('203');
741
}
998
}
742
999
1000
=head2 amt_taxoncharge
1001
1002
Missing POD for amt_taxoncharge.
1003
1004
=cut
1005
743
sub amt_taxoncharge {
1006
sub amt_taxoncharge {
744
    my $self = shift;
1007
    my $self = shift;
745
    return $self->moa_multiple_amt('124');
1008
    return $self->moa_multiple_amt('124');
746
}
1009
}
747
1010
1011
=head2 pri_price
1012
1013
Missing POD for pri_price.
1014
1015
=cut
1016
748
sub pri_price {
1017
sub pri_price {
749
    my ( $self, $price_qualifier ) = @_;
1018
    my ( $self, $price_qualifier ) = @_;
750
1019
Lines 774-779 sub pri_price { Link Here
774
}
1043
}
775
1044
776
# unit price that will be chaged excl tax
1045
# unit price that will be chaged excl tax
1046
1047
=head2 price_net
1048
1049
Missing POD for price_net.
1050
1051
=cut
1052
777
sub price_net {
1053
sub price_net {
778
    my $self = shift;
1054
    my $self = shift;
779
    my $p    = $self->pri_price('AAA');
1055
    my $p    = $self->pri_price('AAA');
Lines 784-789 sub price_net { Link Here
784
}
1060
}
785
1061
786
# unit price excluding all allowances, charges and taxes
1062
# unit price excluding all allowances, charges and taxes
1063
1064
=head2 price_gross
1065
1066
Missing POD for price_gross.
1067
1068
=cut
1069
787
sub price_gross {
1070
sub price_gross {
788
    my $self = shift;
1071
    my $self = shift;
789
    my $p    = $self->pri_price('AAB');
1072
    my $p    = $self->pri_price('AAB');
Lines 794-799 sub price_gross { Link Here
794
}
1077
}
795
1078
796
# information price incl tax excluding allowances, charges
1079
# information price incl tax excluding allowances, charges
1080
1081
=head2 price_info
1082
1083
Missing POD for price_info.
1084
1085
=cut
1086
797
sub price_info {
1087
sub price_info {
798
    my $self = shift;
1088
    my $self = shift;
799
    my $p    = $self->pri_price('AAE');
1089
    my $p    = $self->pri_price('AAE');
Lines 804-809 sub price_info { Link Here
804
}
1094
}
805
1095
806
# information price incl tax,allowances, charges
1096
# information price incl tax,allowances, charges
1097
1098
=head2 price_info_inclusive
1099
1100
Missing POD for price_info_inclusive.
1101
1102
=cut
1103
807
sub price_info_inclusive {
1104
sub price_info_inclusive {
808
    my $self = shift;
1105
    my $self = shift;
809
    my $p    = $self->pri_price('AAF');
1106
    my $p    = $self->pri_price('AAF');
Lines 813-823 sub price_info_inclusive { Link Here
813
    return;
1110
    return;
814
}
1111
}
815
1112
1113
=head2 tax
1114
1115
Missing POD for tax.
1116
1117
=cut
1118
816
sub tax {
1119
sub tax {
817
    my $self = shift;
1120
    my $self = shift;
818
    return $self->moa_amt('124');
1121
    return $self->moa_amt('124');
819
}
1122
}
820
1123
1124
=head2 tax_rate
1125
1126
Missing POD for tax_rate.
1127
1128
=cut
1129
821
sub tax_rate {
1130
sub tax_rate {
822
    my $self = shift;
1131
    my $self = shift;
823
    my $tr   = {};
1132
    my $tr   = {};
Lines 843-848 sub tax_rate { Link Here
843
    return;
1152
    return;
844
}
1153
}
845
1154
1155
=head2 availability_date
1156
1157
Missing POD for availability_date.
1158
1159
=cut
1160
846
sub availability_date {
1161
sub availability_date {
847
    my $self = shift;
1162
    my $self = shift;
848
    if ( exists $self->{availability_date} ) {
1163
    if ( exists $self->{availability_date} ) {
(-)a/Koha/Edifact/Message.pm (+78 lines)
Lines 46-56 sub new { Link Here
46
    return $self;
46
    return $self;
47
}
47
}
48
48
49
=head2 message_refno
50
51
Missing POD for message_refno.
52
53
=cut
54
49
sub message_refno {
55
sub message_refno {
50
    my $self = shift;
56
    my $self = shift;
51
    return $self->{message_reference_number};
57
    return $self->{message_reference_number};
52
}
58
}
53
59
60
=head2 function
61
62
Missing POD for function.
63
64
=cut
65
54
sub function {
66
sub function {
55
    my $self         = shift;
67
    my $self         = shift;
56
    my $msg_function = $self->{bgm}->elem(2);
68
    my $msg_function = $self->{bgm}->elem(2);
Lines 62-87 sub function { Link Here
62
    return;
74
    return;
63
}
75
}
64
76
77
=head2 message_reference_number
78
79
Missing POD for message_reference_number.
80
81
=cut
82
65
sub message_reference_number {
83
sub message_reference_number {
66
    my $self = shift;
84
    my $self = shift;
67
    return $self->{header}->elem(0);
85
    return $self->{header}->elem(0);
68
}
86
}
69
87
88
=head2 message_type
89
90
Missing POD for message_type.
91
92
=cut
93
70
sub message_type {
94
sub message_type {
71
    my $self = shift;
95
    my $self = shift;
72
    return $self->{header}->elem( 1, 0 );
96
    return $self->{header}->elem( 1, 0 );
73
}
97
}
74
98
99
=head2 message_code
100
101
Missing POD for message_code.
102
103
=cut
104
75
sub message_code {
105
sub message_code {
76
    my $self = shift;
106
    my $self = shift;
77
    return $self->{bgm}->elem( 0, 0 );
107
    return $self->{bgm}->elem( 0, 0 );
78
}
108
}
79
109
110
=head2 docmsg_number
111
112
Missing POD for docmsg_number.
113
114
=cut
115
80
sub docmsg_number {
116
sub docmsg_number {
81
    my $self = shift;
117
    my $self = shift;
82
    return $self->{bgm}->elem(1);
118
    return $self->{bgm}->elem(1);
83
}
119
}
84
120
121
=head2 message_date
122
123
Missing POD for message_date.
124
125
=cut
126
85
sub message_date {
127
sub message_date {
86
    my $self = shift;
128
    my $self = shift;
87
129
Lines 94-99 sub message_date { Link Here
94
    return;    # this should not happen
136
    return;    # this should not happen
95
}
137
}
96
138
139
=head2 tax_point_date
140
141
Missing POD for tax_point_date.
142
143
=cut
144
97
sub tax_point_date {
145
sub tax_point_date {
98
    my $self = shift;
146
    my $self = shift;
99
    if ( $self->message_type eq 'INVOIC' ) {
147
    if ( $self->message_type eq 'INVOIC' ) {
Lines 106-111 sub tax_point_date { Link Here
106
    return;
154
    return;
107
}
155
}
108
156
157
=head2 expiry_date
158
159
Missing POD for expiry_date.
160
161
=cut
162
109
sub expiry_date {
163
sub expiry_date {
110
    my $self = shift;
164
    my $self = shift;
111
    if ( $self->message_type eq 'QUOTES' ) {
165
    if ( $self->message_type eq 'QUOTES' ) {
Lines 118-123 sub expiry_date { Link Here
118
    return;
172
    return;
119
}
173
}
120
174
175
=head2 shipment_charge
176
177
Missing POD for shipment_charge.
178
179
=cut
180
121
sub shipment_charge {
181
sub shipment_charge {
122
    my $self = shift;
182
    my $self = shift;
123
183
Lines 150-155 sub shipment_charge { Link Here
150
210
151
# return NAD fields
211
# return NAD fields
152
212
213
=head2 buyer_ean
214
215
Missing POD for buyer_ean.
216
217
=cut
218
153
sub buyer_ean {
219
sub buyer_ean {
154
    my $self = shift;
220
    my $self = shift;
155
    foreach my $s ( @{ $self->{datasegs} } ) {
221
    foreach my $s ( @{ $self->{datasegs} } ) {
Lines 166-171 sub buyer_ean { Link Here
166
    return;
232
    return;
167
}
233
}
168
234
235
=head2 supplier_ean
236
237
Missing POD for supplier_ean.
238
239
=cut
240
169
sub supplier_ean {
241
sub supplier_ean {
170
    my $self = shift;
242
    my $self = shift;
171
    foreach my $s ( @{ $self->{datasegs} } ) {
243
    foreach my $s ( @{ $self->{datasegs} } ) {
Lines 183-188 sub supplier_ean { Link Here
183
255
184
}
256
}
185
257
258
=head2 lineitems
259
260
Missing POD for lineitems.
261
262
=cut
263
186
sub lineitems {
264
sub lineitems {
187
    my $self = shift;
265
    my $self = shift;
188
    if ( $self->{quotation_lines} ) {
266
    if ( $self->{quotation_lines} ) {
(-)a/Koha/Edifact/Transport.pm (+18 lines)
Lines 88-93 sub upload_messages { Link Here
88
    return;
88
    return;
89
}
89
}
90
90
91
=head2 file_download
92
93
Missing POD for file_download.
94
95
=cut
96
91
sub file_download {
97
sub file_download {
92
    my $self = shift;
98
    my $self = shift;
93
    my @downloaded_files;
99
    my @downloaded_files;
Lines 345-350 sub sftp_upload { Link Here
345
    return;
351
    return;
346
}
352
}
347
353
354
=head2 file_upload
355
356
Missing POD for file_upload.
357
358
=cut
359
348
sub file_upload {
360
sub file_upload {
349
    my ( $self, @messages ) = @_;
361
    my ( $self, @messages ) = @_;
350
    my $dir = $self->{account}->upload_directory;
362
    my $dir = $self->{account}->upload_directory;
Lines 406-411 sub _get_file_ext { Link Here
406
    return 'XXXX';    # non matching type
418
    return 'XXXX';    # non matching type
407
}
419
}
408
420
421
=head2 message_hash
422
423
Missing POD for message_hash.
424
425
=cut
426
409
sub message_hash {
427
sub message_hash {
410
    my $self = shift;
428
    my $self = shift;
411
    my $msg  = {
429
    my $msg  = {
(-)a/Koha/ExternalContent.pm (+30 lines)
Lines 48-57 common methods for getting Koha patron. Link Here
48
48
49
=cut
49
=cut
50
50
51
=head2 agent_string
52
53
Missing POD for agent_string.
54
55
=cut
56
51
sub agent_string {
57
sub agent_string {
52
    return 'Koha/' . Koha::version();
58
    return 'Koha/' . Koha::version();
53
}
59
}
54
60
61
=head2 new
62
63
Missing POD for new.
64
65
=cut
66
55
sub new {
67
sub new {
56
    my $class  = shift;
68
    my $class  = shift;
57
    my $params = shift || {};
69
    my $params = shift || {};
Lines 67-72 sub _koha_session { Link Here
67
    return C4::Auth::get_session($session_id);
79
    return C4::Auth::get_session($session_id);
68
}
80
}
69
81
82
=head2 get_from_koha_session
83
84
Missing POD for get_from_koha_session.
85
86
=cut
87
70
sub get_from_koha_session {
88
sub get_from_koha_session {
71
    my $self    = shift;
89
    my $self    = shift;
72
    my $key     = shift                or croak "No key";
90
    my $key     = shift                or croak "No key";
Lines 74-79 sub get_from_koha_session { Link Here
74
    return $session->param($key);
92
    return $session->param($key);
75
}
93
}
76
94
95
=head2 set_in_koha_session
96
97
Missing POD for set_in_koha_session.
98
99
=cut
100
77
sub set_in_koha_session {
101
sub set_in_koha_session {
78
    my $self    = shift;
102
    my $self    = shift;
79
    my $key     = shift or croak "No key";
103
    my $key     = shift or croak "No key";
Lines 82-87 sub set_in_koha_session { Link Here
82
    return $session->param( $key, $value );
106
    return $session->param( $key, $value );
83
}
107
}
84
108
109
=head2 koha_patron
110
111
Missing POD for koha_patron.
112
113
=cut
114
85
sub koha_patron {
115
sub koha_patron {
86
    my $self = shift;
116
    my $self = shift;
87
117
(-)a/Koha/ExternalContent/OverDrive.pm (+36 lines)
Lines 47-52 Takes "OverDrive*" Koha preferences Link Here
47
47
48
=cut
48
=cut
49
49
50
=head2 new
51
52
Missing POD for new.
53
54
=cut
55
50
sub new {
56
sub new {
51
    my $class  = shift;
57
    my $class  = shift;
52
    my $params = shift || {};
58
    my $params = shift || {};
Lines 181-186 sub _return_url { Link Here
181
187
182
use constant RETURN_PAGE_SESSION_KEY => "overdrive.return_page";
188
use constant RETURN_PAGE_SESSION_KEY => "overdrive.return_page";
183
189
190
=head2 get_return_page_from_koha_session
191
192
Missing POD for get_return_page_from_koha_session.
193
194
=cut
195
184
sub get_return_page_from_koha_session {
196
sub get_return_page_from_koha_session {
185
    my $self        = shift;
197
    my $self        = shift;
186
    my $return_page = $self->get_from_koha_session(RETURN_PAGE_SESSION_KEY) || "";
198
    my $return_page = $self->get_from_koha_session(RETURN_PAGE_SESSION_KEY) || "";
Lines 188-193 sub get_return_page_from_koha_session { Link Here
188
    return $return_page;
200
    return $return_page;
189
}
201
}
190
202
203
=head2 set_return_page_in_koha_session
204
205
Missing POD for set_return_page_in_koha_session.
206
207
=cut
208
191
sub set_return_page_in_koha_session {
209
sub set_return_page_in_koha_session {
192
    my $self        = shift;
210
    my $self        = shift;
193
    my $return_page = shift || "";
211
    my $return_page = shift || "";
Lines 198-203 sub set_return_page_in_koha_session { Link Here
198
use constant ACCESS_TOKEN_SESSION_KEY => "overdrive.access_token";
216
use constant ACCESS_TOKEN_SESSION_KEY => "overdrive.access_token";
199
my $ACCESS_TOKEN_DELIMITER = ":";
217
my $ACCESS_TOKEN_DELIMITER = ":";
200
218
219
=head2 get_token_from_koha_session
220
221
Missing POD for get_token_from_koha_session.
222
223
=cut
224
201
sub get_token_from_koha_session {
225
sub get_token_from_koha_session {
202
    my $self = shift;
226
    my $self = shift;
203
    my ( $token, $token_type ) = split $ACCESS_TOKEN_DELIMITER,
227
    my ( $token, $token_type ) = split $ACCESS_TOKEN_DELIMITER,
Lines 206-211 sub get_token_from_koha_session { Link Here
206
    return ( $token, $token_type );
230
    return ( $token, $token_type );
207
}
231
}
208
232
233
=head2 set_token_in_koha_session
234
235
Missing POD for set_token_in_koha_session.
236
237
=cut
238
209
sub set_token_in_koha_session {
239
sub set_token_in_koha_session {
210
    my $self       = shift;
240
    my $self       = shift;
211
    my $token      = shift || "";
241
    my $token      = shift || "";
Lines 256-261 sub is_logged_in { Link Here
256
    return $token;
286
    return $token;
257
}
287
}
258
288
289
=head2 auth_by_saved_token
290
291
Missing POD for auth_by_saved_token.
292
293
=cut
294
259
sub auth_by_saved_token {
295
sub auth_by_saved_token {
260
    my $self = shift;
296
    my $self = shift;
261
297
(-)a/Koha/Item/Transfer/Limits.pm (+6 lines)
Lines 42-47 sub _type { Link Here
42
    return 'BranchTransferLimit';
42
    return 'BranchTransferLimit';
43
}
43
}
44
44
45
=head2 object_class
46
47
Missing POD for object_class.
48
49
=cut
50
45
sub object_class {
51
sub object_class {
46
    return 'Koha::Item::Transfer::Limit';
52
    return 'Koha::Item::Transfer::Limit';
47
}
53
}
(-)a/Koha/Item/Transfers.pm (+6 lines)
Lines 58-63 sub _type { Link Here
58
    return 'Branchtransfer';
58
    return 'Branchtransfer';
59
}
59
}
60
60
61
=head2 object_class
62
63
Missing POD for object_class.
64
65
=cut
66
61
sub object_class {
67
sub object_class {
62
    return 'Koha::Item::Transfer';
68
    return 'Koha::Item::Transfer';
63
}
69
}
(-)a/Koha/Items.pm (+6 lines)
Lines 461-466 sub batch_update { Link Here
461
    return ( { modified_itemnumbers => \@modified_itemnumbers, modified_fields => $modified_fields }, $self );
461
    return ( { modified_itemnumbers => \@modified_itemnumbers, modified_fields => $modified_fields }, $self );
462
}
462
}
463
463
464
=head2 apply_regex
465
466
Missing POD for apply_regex.
467
468
=cut
469
464
sub apply_regex {
470
sub apply_regex {
465
471
466
    # FIXME Should be moved outside of Koha::Items
472
    # FIXME Should be moved outside of Koha::Items
(-)a/Koha/Libraries.pm (+6 lines)
Lines 71-76 sub _type { Link Here
71
    return 'Branch';
71
    return 'Branch';
72
}
72
}
73
73
74
=head2 object_class
75
76
Missing POD for object_class.
77
78
=cut
79
74
sub object_class {
80
sub object_class {
75
    return 'Koha::Library';
81
    return 'Koha::Library';
76
}
82
}
(-)a/Koha/Linktracker.pm (+6 lines)
Lines 37-42 use base qw(Class::Accessor); Link Here
37
37
38
__PACKAGE__->mk_accessors(qw( trackingmethod ));
38
__PACKAGE__->mk_accessors(qw( trackingmethod ));
39
39
40
=head2 trackclick
41
42
Missing POD for trackclick.
43
44
=cut
45
40
sub trackclick {
46
sub trackclick {
41
    my ( $self, $linkinfo ) = @_;
47
    my ( $self, $linkinfo ) = @_;
42
    my $dbh   = C4::Context->dbh();
48
    my $dbh   = C4::Context->dbh();
(-)a/Koha/MetadataRecord/Authority.pm (+6 lines)
Lines 162-167 sub get_from_breeding { Link Here
162
    return $self;
162
    return $self;
163
}
163
}
164
164
165
=head2 authorized_heading
166
167
Missing POD for authorized_heading.
168
169
=cut
170
165
sub authorized_heading {
171
sub authorized_heading {
166
    my ($self) = @_;
172
    my ($self) = @_;
167
    if ( $self->schema =~ m/marc/ ) {
173
    if ( $self->schema =~ m/marc/ ) {
(-)a/Koha/Middleware/SetEnv.pm (+6 lines)
Lines 73-78 my $allowed_setenvs = qr/^( Link Here
73
    TZ
73
    TZ
74
)\ /x;
74
)\ /x;
75
75
76
=head2 call
77
78
Missing POD for call.
79
80
=cut
81
76
sub call {
82
sub call {
77
    my ( $self, $env ) = @_;
83
    my ( $self, $env ) = @_;
78
    my $req = Plack::Request->new($env);
84
    my $req = Plack::Request->new($env);
(-)a/Koha/Notice/Messages.pm (+6 lines)
Lines 61-66 sub _type { Link Here
61
    return 'MessageQueue';
61
    return 'MessageQueue';
62
}
62
}
63
63
64
=head2 object_class
65
66
Missing POD for object_class.
67
68
=cut
69
64
sub object_class {
70
sub object_class {
65
    return 'Koha::Notice::Message';
71
    return 'Koha::Notice::Message';
66
}
72
}
(-)a/Koha/Notice/Templates.pm (+6 lines)
Lines 89-94 sub _type { Link Here
89
    return 'Letter';
89
    return 'Letter';
90
}
90
}
91
91
92
=head2 object_class
93
94
Missing POD for object_class.
95
96
=cut
97
92
sub object_class {
98
sub object_class {
93
    return 'Koha::Notice::Template';
99
    return 'Koha::Notice::Template';
94
}
100
}
(-)a/Koha/OAI/Server/ListBase.pm (+6 lines)
Lines 35-40 use Koha::OAI::Server::DeletedRecord; Link Here
35
use C4::OAI::Sets qw( GetOAISetBySpec GetOAISetsBiblio );
35
use C4::OAI::Sets qw( GetOAISetBySpec GetOAISetsBiblio );
36
use MARC::File::XML;
36
use MARC::File::XML;
37
37
38
=head2 GetRecords
39
40
Missing POD for GetRecords.
41
42
=cut
43
38
sub GetRecords {
44
sub GetRecords {
39
    my ( $class, $self, $repository, $metadata, %args ) = @_;
45
    my ( $class, $self, $repository, $metadata, %args ) = @_;
40
46
(-)a/Koha/OAI/Server/Repository.pm (+24 lines)
Lines 102-107 Note the 'include_items' parameter which is the only mean to return item-level i Link Here
102
102
103
=cut
103
=cut
104
104
105
=head2 new
106
107
Missing POD for new.
108
109
=cut
110
105
sub new {
111
sub new {
106
    my ( $class, %args ) = @_;
112
    my ( $class, %args ) = @_;
107
    my $self = $class->SUPER::new(%args);
113
    my $self = $class->SUPER::new(%args);
Lines 167-172 sub DESTROY { Link Here
167
        if $self->{mysql_orig_tz};
173
        if $self->{mysql_orig_tz};
168
}
174
}
169
175
176
=head2 get_biblio_marcxml
177
178
Missing POD for get_biblio_marcxml.
179
180
=cut
181
170
sub get_biblio_marcxml {
182
sub get_biblio_marcxml {
171
    my ( $self, $biblionumber, $format ) = @_;
183
    my ( $self, $biblionumber, $format ) = @_;
172
    my $with_items   = 0;
184
    my $with_items   = 0;
Lines 210-215 sub get_biblio_marcxml { Link Here
210
    return ( $record ? $record->as_xml_record( C4::Context->preference('marcflavour') ) : undef, $decoding_error );
222
    return ( $record ? $record->as_xml_record( C4::Context->preference('marcflavour') ) : undef, $decoding_error );
211
}
223
}
212
224
225
=head2 stylesheet
226
227
Missing POD for stylesheet.
228
229
=cut
230
213
sub stylesheet {
231
sub stylesheet {
214
    my ( $self, $format ) = @_;
232
    my ( $self, $format ) = @_;
215
    my $xsl_file =
233
    my $xsl_file =
Lines 222-227 sub stylesheet { Link Here
222
    return $xsl_file;
240
    return $xsl_file;
223
}
241
}
224
242
243
=head2 items_included
244
245
Missing POD for items_included.
246
247
=cut
248
225
sub items_included {
249
sub items_included {
226
    my ( $self, $format ) = @_;
250
    my ( $self, $format ) = @_;
227
251
(-)a/Koha/Patron.pm (+6 lines)
Lines 148-153 Could be moved to Koha::Object if need to be reused Link Here
148
148
149
=cut
149
=cut
150
150
151
=head2 trim_whitespaces
152
153
Missing POD for trim_whitespaces.
154
155
=cut
156
151
sub trim_whitespaces {
157
sub trim_whitespaces {
152
    my ($self) = @_;
158
    my ($self) = @_;
153
159
(-)a/Koha/Patron/Attribute/Types.pm (+6 lines)
Lines 39-44 sub _type { Link Here
39
    return 'BorrowerAttributeType';
39
    return 'BorrowerAttributeType';
40
}
40
}
41
41
42
=head2 object_class
43
44
Missing POD for object_class.
45
46
=cut
47
42
sub object_class {
48
sub object_class {
43
    return 'Koha::Patron::Attribute::Type';
49
    return 'Koha::Patron::Attribute::Type';
44
}
50
}
(-)a/Koha/Patron/Attributes.pm (+6 lines)
Lines 129-134 sub _type { Link Here
129
    return 'BorrowerAttribute';
129
    return 'BorrowerAttribute';
130
}
130
}
131
131
132
=head2 object_class
133
134
Missing POD for object_class.
135
136
=cut
137
132
sub object_class {
138
sub object_class {
133
    return 'Koha::Patron::Attribute';
139
    return 'Koha::Patron::Attribute';
134
}
140
}
(-)a/Koha/Patron/Category.pm (+6 lines)
Lines 145-150 sub default_messaging { Link Here
145
    return \@messaging;
145
    return \@messaging;
146
}
146
}
147
147
148
=head2 get_expiry_date
149
150
Missing POD for get_expiry_date.
151
152
=cut
153
148
sub get_expiry_date {
154
sub get_expiry_date {
149
    my ( $self, $date ) = @_;
155
    my ( $self, $date ) = @_;
150
    if ( $self->enrolmentperiod ) {
156
    if ( $self->enrolmentperiod ) {
(-)a/Koha/Patron/Files.pm (+6 lines)
Lines 32-37 Koha::Patron::Files - Module for managing patron files Link Here
32
32
33
=cut
33
=cut
34
34
35
=head2 new
36
37
Missing POD for new.
38
39
=cut
40
35
sub new {
41
sub new {
36
    my ( $class, %args ) = @_;
42
    my ( $class, %args ) = @_;
37
    my $self = bless( {}, $class );
43
    my $self = bless( {}, $class );
(-)a/Koha/Patron/HouseboundProfiles.pm (+6 lines)
Lines 48-53 sub _type { Link Here
48
    return 'HouseboundProfile';
48
    return 'HouseboundProfile';
49
}
49
}
50
50
51
=head2 object_class
52
53
Missing POD for object_class.
54
55
=cut
56
51
sub object_class {
57
sub object_class {
52
    return 'Koha::Patron::HouseboundProfile';
58
    return 'Koha::Patron::HouseboundProfile';
53
}
59
}
(-)a/Koha/Patron/HouseboundRoles.pm (+6 lines)
Lines 44-49 sub _type { Link Here
44
    return 'HouseboundRole';
44
    return 'HouseboundRole';
45
}
45
}
46
46
47
=head2 object_class
48
49
Missing POD for object_class.
50
51
=cut
52
47
sub object_class {
53
sub object_class {
48
    return 'Koha::Patron::HouseboundRole';
54
    return 'Koha::Patron::HouseboundRole';
49
}
55
}
(-)a/Koha/Patron/HouseboundVisits.pm (+6 lines)
Lines 89-94 sub _type { Link Here
89
    return 'HouseboundVisit';
89
    return 'HouseboundVisit';
90
}
90
}
91
91
92
=head2 object_class
93
94
Missing POD for object_class.
95
96
=cut
97
92
sub object_class {
98
sub object_class {
93
    return 'Koha::Patron::HouseboundVisit';
99
    return 'Koha::Patron::HouseboundVisit';
94
}
100
}
(-)a/Koha/Patron/Images.pm (+6 lines)
Lines 41-46 sub _type { Link Here
41
    return 'Patronimage';
41
    return 'Patronimage';
42
}
42
}
43
43
44
=head2 object_class
45
46
Missing POD for object_class.
47
48
=cut
49
44
sub object_class {
50
sub object_class {
45
    return 'Koha::Patron::Image';
51
    return 'Koha::Patron::Image';
46
}
52
}
(-)a/Koha/Plugins/Base.pm (+12 lines)
Lines 37-42 Koha::Plugins::Base - Base Module for plugins Link Here
37
37
38
=cut
38
=cut
39
39
40
=head2 new
41
42
Missing POD for new.
43
44
=cut
45
40
sub new {
46
sub new {
41
    my ( $class, $args ) = @_;
47
    my ( $class, $args ) = @_;
42
48
Lines 191-196 sub get_template { Link Here
191
    return $template;
197
    return $template;
192
}
198
}
193
199
200
=head2 get_metadata
201
202
Missing POD for get_metadata.
203
204
=cut
205
194
sub get_metadata {
206
sub get_metadata {
195
    my ( $self, $args ) = @_;
207
    my ( $self, $args ) = @_;
196
208
(-)a/Koha/REST/Plugin/Auth/IdP.pm (+6 lines)
Lines 39-44 Koha::REST::Plugin::Auth::IdP Link Here
39
39
40
=cut
40
=cut
41
41
42
=head2 register
43
44
Missing POD for register.
45
46
=cut
47
42
sub register {
48
sub register {
43
    my ( $self, $app ) = @_;
49
    my ( $self, $app ) = @_;
44
50
(-)a/Koha/REST/Plugin/Exceptions.pm (+6 lines)
Lines 47-52 can centralize the behaviour control (e.g. production vs. development environmet Link Here
47
47
48
=cut
48
=cut
49
49
50
=head2 register
51
52
Missing POD for register.
53
54
=cut
55
50
sub register {
56
sub register {
51
    my ( $self, $app ) = @_;
57
    my ( $self, $app ) = @_;
52
58
(-)a/Koha/REST/Plugin/Objects.pm (+6 lines)
Lines 31-36 Koha::REST::Plugin::Objects Link Here
31
31
32
=cut
32
=cut
33
33
34
=head2 register
35
36
Missing POD for register.
37
38
=cut
39
34
sub register {
40
sub register {
35
    my ( $self, $app ) = @_;
41
    my ( $self, $app ) = @_;
36
42
(-)a/Koha/REST/Plugin/Responses.pm (+6 lines)
Lines 29-34 Koha::REST::Plugin::Responses Link Here
29
29
30
=cut
30
=cut
31
31
32
=head2 register
33
34
Missing POD for register.
35
36
=cut
37
32
sub register {
38
sub register {
33
    my ( $self, $app ) = @_;
39
    my ( $self, $app ) = @_;
34
40
(-)a/Koha/Ratings.pm (+6 lines)
Lines 60-65 sub _type { Link Here
60
    return 'Rating';
60
    return 'Rating';
61
}
61
}
62
62
63
=head2 object_class
64
65
Missing POD for object_class.
66
67
=cut
68
63
sub object_class {
69
sub object_class {
64
    return 'Koha::Rating';
70
    return 'Koha::Rating';
65
}
71
}
(-)a/Koha/Reviews.pm (+6 lines)
Lines 65-70 sub _type { Link Here
65
    return 'Review';
65
    return 'Review';
66
}
66
}
67
67
68
=head2 object_class
69
70
Missing POD for object_class.
71
72
=cut
73
68
sub object_class {
74
sub object_class {
69
    return 'Koha::Review';
75
    return 'Koha::Review';
70
}
76
}
(-)a/Koha/Schema/Result/AccountCreditType.pm (+12 lines)
Lines 134-142 __PACKAGE__->add_columns( Link Here
134
    '+archived'              => { is_boolean => 1 }
134
    '+archived'              => { is_boolean => 1 }
135
);
135
);
136
136
137
=head2 koha_objects_class
138
139
Missing POD for koha_objects_class.
140
141
=cut
142
137
sub koha_objects_class {
143
sub koha_objects_class {
138
    'Koha::Account::CreditTypes';
144
    'Koha::Account::CreditTypes';
139
}
145
}
146
=head2 koha_object_class
147
148
Missing POD for koha_object_class.
149
150
=cut
151
140
sub koha_object_class {
152
sub koha_object_class {
141
    'Koha::Account::CreditType';
153
    'Koha::Account::CreditType';
142
}
154
}
(-)a/Koha/Schema/Result/AccountDebitType.pm (+12 lines)
Lines 164-172 __PACKAGE__->add_columns( Link Here
164
    "+restricts_checkouts" => { is_boolean => 1 }
164
    "+restricts_checkouts" => { is_boolean => 1 }
165
);
165
);
166
166
167
=head2 koha_objects_class
168
169
Missing POD for koha_objects_class.
170
171
=cut
172
167
sub koha_objects_class {
173
sub koha_objects_class {
168
    'Koha::Account::DebitTypes';
174
    'Koha::Account::DebitTypes';
169
}
175
}
176
=head2 koha_object_class
177
178
Missing POD for koha_object_class.
179
180
=cut
181
170
sub koha_object_class {
182
sub koha_object_class {
171
    'Koha::Account::DebitType';
183
    'Koha::Account::DebitType';
172
}
184
}
(-)a/Koha/Schema/Result/AccountOffset.pm (+12 lines)
Lines 162-170 __PACKAGE__->belongs_to( Link Here
162
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-06-21 15:27:32
162
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-06-21 15:27:32
163
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:zCeE/SWvdz898zlfcvfRGg
163
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:zCeE/SWvdz898zlfcvfRGg
164
164
165
=head2 koha_object_class
166
167
Missing POD for koha_object_class.
168
169
=cut
170
165
sub koha_object_class {
171
sub koha_object_class {
166
    'Koha::Account::Offset';
172
    'Koha::Account::Offset';
167
}
173
}
174
=head2 koha_objects_class
175
176
Missing POD for koha_objects_class.
177
178
=cut
179
168
sub koha_objects_class {
180
sub koha_objects_class {
169
    'Koha::Account::Offsets';
181
    'Koha::Account::Offsets';
170
}
182
}
(-)a/Koha/Schema/Result/Accountline.pm (+12 lines)
Lines 504-512 __PACKAGE__->has_many( Link Here
504
  { cascade_copy => 0, cascade_delete => 0 },
504
  { cascade_copy => 0, cascade_delete => 0 },
505
);
505
);
506
506
507
=head2 koha_objects_class
508
509
Missing POD for koha_objects_class.
510
511
=cut
512
507
sub koha_objects_class {
513
sub koha_objects_class {
508
    'Koha::Account::Lines';
514
    'Koha::Account::Lines';
509
}
515
}
516
=head2 koha_object_class
517
518
Missing POD for koha_object_class.
519
520
=cut
521
510
sub koha_object_class {
522
sub koha_object_class {
511
    'Koha::Account::Line';
523
    'Koha::Account::Line';
512
}
524
}
(-)a/Koha/Schema/Result/Aqbasket.pm (+12 lines)
Lines 379-387 __PACKAGE__->has_many( Link Here
379
  { cascade_copy => 0, cascade_delete => 0 },
379
  { cascade_copy => 0, cascade_delete => 0 },
380
);
380
);
381
381
382
=head2 koha_object_class
383
384
Missing POD for koha_object_class.
385
386
=cut
387
382
sub koha_object_class {
388
sub koha_object_class {
383
    'Koha::Acquisition::Basket';
389
    'Koha::Acquisition::Basket';
384
}
390
}
391
=head2 koha_objects_class
392
393
Missing POD for koha_objects_class.
394
395
=cut
396
385
sub koha_objects_class {
397
sub koha_objects_class {
386
    'Koha::Acquisition::Baskets';
398
    'Koha::Acquisition::Baskets';
387
}
399
}
(-)a/Koha/Schema/Result/Aqbasketgroup.pm (+12 lines)
Lines 142-150 __PACKAGE__->add_columns( Link Here
142
    '+closed' => { is_boolean => 1 }
142
    '+closed' => { is_boolean => 1 }
143
);
143
);
144
144
145
=head2 koha_object_class
146
147
Missing POD for koha_object_class.
148
149
=cut
150
145
sub koha_object_class {
151
sub koha_object_class {
146
    'Koha::Acquisition::BasketGroup';
152
    'Koha::Acquisition::BasketGroup';
147
}
153
}
154
=head2 koha_objects_class
155
156
Missing POD for koha_objects_class.
157
158
=cut
159
148
sub koha_objects_class {
160
sub koha_objects_class {
149
    'Koha::Acquisition::BasketGroups';
161
    'Koha::Acquisition::BasketGroups';
150
}
162
}
(-)a/Koha/Schema/Result/Aqbookseller.pm (+12 lines)
Lines 550-558 __PACKAGE__->add_columns( Link Here
550
    '+invoiceincgst' => { is_boolean => 1 },
550
    '+invoiceincgst' => { is_boolean => 1 },
551
);
551
);
552
552
553
=head2 koha_object_class
554
555
Missing POD for koha_object_class.
556
557
=cut
558
553
sub koha_object_class {
559
sub koha_object_class {
554
    'Koha::Acquisition::Bookseller';
560
    'Koha::Acquisition::Bookseller';
555
}
561
}
562
=head2 koha_objects_class
563
564
Missing POD for koha_objects_class.
565
566
=cut
567
556
sub koha_objects_class {
568
sub koha_objects_class {
557
    'Koha::Acquisition::Booksellers';
569
    'Koha::Acquisition::Booksellers';
558
}
570
}
(-)a/Koha/Schema/Result/AqbooksellerAlias.pm (+12 lines)
Lines 91-99 __PACKAGE__->belongs_to( Link Here
91
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-04-20 18:19:43
91
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-04-20 18:19:43
92
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:FmrIDHGkX2A+3aFZV2FZCA
92
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:FmrIDHGkX2A+3aFZV2FZCA
93
93
94
=head2 koha_object_class
95
96
Missing POD for koha_object_class.
97
98
=cut
99
94
sub koha_object_class {
100
sub koha_object_class {
95
    'Koha::Acquisition::Bookseller::Alias';
101
    'Koha::Acquisition::Bookseller::Alias';
96
}
102
}
103
=head2 koha_objects_class
104
105
Missing POD for koha_objects_class.
106
107
=cut
108
97
sub koha_objects_class {
109
sub koha_objects_class {
98
    'Koha::Acquisition::Bookseller::Aliases';
110
    'Koha::Acquisition::Bookseller::Aliases';
99
}
111
}
(-)a/Koha/Schema/Result/AqbooksellerInterface.pm (+12 lines)
Lines 147-155 __PACKAGE__->belongs_to( Link Here
147
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-05-05 12:54:39
147
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-05-05 12:54:39
148
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:NOk5VsJp5v7nTw39qxrEbw
148
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:NOk5VsJp5v7nTw39qxrEbw
149
149
150
=head2 koha_object_class
151
152
Missing POD for koha_object_class.
153
154
=cut
155
150
sub koha_object_class {
156
sub koha_object_class {
151
    'Koha::Acquisition::Bookseller::Interface';
157
    'Koha::Acquisition::Bookseller::Interface';
152
}
158
}
159
=head2 koha_objects_class
160
161
Missing POD for koha_objects_class.
162
163
=cut
164
153
sub koha_objects_class {
165
sub koha_objects_class {
154
    'Koha::Acquisition::Bookseller::Interfaces';
166
    'Koha::Acquisition::Bookseller::Interfaces';
155
}
167
}
(-)a/Koha/Schema/Result/AqbooksellerIssue.pm (+12 lines)
Lines 120-128 __PACKAGE__->belongs_to( Link Here
120
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-06-30 09:54:35
120
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-06-30 09:54:35
121
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:Ljn21/DFV5QvS5z3kDrBwQ
121
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:Ljn21/DFV5QvS5z3kDrBwQ
122
122
123
=head2 koha_object_class
124
125
Missing POD for koha_object_class.
126
127
=cut
128
123
sub koha_object_class {
129
sub koha_object_class {
124
    'Koha::Acquisition::Bookseller::Issue';
130
    'Koha::Acquisition::Bookseller::Issue';
125
}
131
}
132
=head2 koha_objects_class
133
134
Missing POD for koha_objects_class.
135
136
=cut
137
126
sub koha_objects_class {
138
sub koha_objects_class {
127
    'Koha::Acquisition::Bookseller::Issues';
139
    'Koha::Acquisition::Bookseller::Issues';
128
}
140
}
(-)a/Koha/Schema/Result/Aqbudget.pm (+12 lines)
Lines 369-377 __PACKAGE__->belongs_to( Link Here
369
  { is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },
369
  { is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },
370
);
370
);
371
371
372
=head2 koha_object_class
373
374
Missing POD for koha_object_class.
375
376
=cut
377
372
sub koha_object_class {
378
sub koha_object_class {
373
    'Koha::Acquisition::Fund';
379
    'Koha::Acquisition::Fund';
374
}
380
}
381
=head2 koha_objects_class
382
383
Missing POD for koha_objects_class.
384
385
=cut
386
375
sub koha_objects_class {
387
sub koha_objects_class {
376
    'Koha::Acquisition::Funds';
388
    'Koha::Acquisition::Funds';
377
}
389
}
(-)a/Koha/Schema/Result/Aqbudgetperiod.pm (+12 lines)
Lines 149-157 __PACKAGE__->has_many( Link Here
149
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
149
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
150
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:F/ipbU/Wrqy3pDInlmLOTw
150
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:F/ipbU/Wrqy3pDInlmLOTw
151
151
152
=head2 koha_object_class
153
154
Missing POD for koha_object_class.
155
156
=cut
157
152
sub koha_object_class {
158
sub koha_object_class {
153
    'Koha::Acquisition::Budget';
159
    'Koha::Acquisition::Budget';
154
}
160
}
161
=head2 koha_objects_class
162
163
Missing POD for koha_objects_class.
164
165
=cut
166
155
sub koha_objects_class {
167
sub koha_objects_class {
156
    'Koha::Acquisition::Budgets';
168
    'Koha::Acquisition::Budgets';
157
}
169
}
(-)a/Koha/Schema/Result/Aqcontact.pm (+12 lines)
Lines 206-214 __PACKAGE__->add_columns( Link Here
206
    '+serialsprimary'   => { is_boolean => 1 },
206
    '+serialsprimary'   => { is_boolean => 1 },
207
);
207
);
208
208
209
=head2 koha_object_class
210
211
Missing POD for koha_object_class.
212
213
=cut
214
209
sub koha_object_class {
215
sub koha_object_class {
210
    'Koha::Acquisition::Bookseller::Contact';
216
    'Koha::Acquisition::Bookseller::Contact';
211
}
217
}
218
=head2 koha_objects_class
219
220
Missing POD for koha_objects_class.
221
222
=cut
223
212
sub koha_objects_class {
224
sub koha_objects_class {
213
    'Koha::Acquisition::Bookseller::Contacts';
225
    'Koha::Acquisition::Bookseller::Contacts';
214
}
226
}
(-)a/Koha/Schema/Result/Aqinvoice.pm (+12 lines)
Lines 236-244 __PACKAGE__->has_many( Link Here
236
    { cascade_copy => 0, cascade_delete => 0 },
236
    { cascade_copy => 0, cascade_delete => 0 },
237
);
237
);
238
238
239
=head2 koha_object_class
240
241
Missing POD for koha_object_class.
242
243
=cut
244
239
sub koha_object_class {
245
sub koha_object_class {
240
    'Koha::Acquisition::Invoice';
246
    'Koha::Acquisition::Invoice';
241
}
247
}
248
=head2 koha_objects_class
249
250
Missing POD for koha_objects_class.
251
252
=cut
253
242
sub koha_objects_class {
254
sub koha_objects_class {
243
    'Koha::Acquisition::Invoices';
255
    'Koha::Acquisition::Invoices';
244
}
256
}
(-)a/Koha/Schema/Result/AqinvoiceAdjustment.pm (+12 lines)
Lines 166-174 __PACKAGE__->belongs_to( Link Here
166
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
166
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
167
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:gy1vtvgPtZgUtWhwPWqlWA
167
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:gy1vtvgPtZgUtWhwPWqlWA
168
168
169
=head2 koha_object_class
170
171
Missing POD for koha_object_class.
172
173
=cut
174
169
sub koha_object_class {
175
sub koha_object_class {
170
    'Koha::Acquisition::Invoice::Adjustment';
176
    'Koha::Acquisition::Invoice::Adjustment';
171
}
177
}
178
=head2 koha_objects_class
179
180
Missing POD for koha_objects_class.
181
182
=cut
183
172
sub koha_objects_class {
184
sub koha_objects_class {
173
    'Koha::Acquisition::Invoice::Adjustments';
185
    'Koha::Acquisition::Invoice::Adjustments';
174
}
186
}
(-)a/Koha/Schema/Result/Aqorder.pm (+12 lines)
Lines 900-909 __PACKAGE__->has_many( Link Here
900
  { cascade_copy => 0, cascade_delete => 0 },
900
  { cascade_copy => 0, cascade_delete => 0 },
901
);
901
);
902
902
903
=head2 koha_objects_class
904
905
Missing POD for koha_objects_class.
906
907
=cut
908
903
sub koha_objects_class {
909
sub koha_objects_class {
904
    'Koha::Acquisition::Orders';
910
    'Koha::Acquisition::Orders';
905
}
911
}
906
912
913
=head2 koha_object_class
914
915
Missing POD for koha_object_class.
916
917
=cut
918
907
sub koha_object_class {
919
sub koha_object_class {
908
    'Koha::Acquisition::Order';
920
    'Koha::Acquisition::Order';
909
}
921
}
(-)a/Koha/Schema/Result/AqordersClaim.pm (+12 lines)
Lines 97-105 __PACKAGE__->belongs_to( Link Here
97
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
97
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
98
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:4/GYhhysSbrh67vIq67xZw
98
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:4/GYhhysSbrh67vIq67xZw
99
99
100
=head2 koha_object_class
101
102
Missing POD for koha_object_class.
103
104
=cut
105
100
sub koha_object_class {
106
sub koha_object_class {
101
    'Koha::Acquisition::Order::Claim';
107
    'Koha::Acquisition::Order::Claim';
102
}
108
}
109
=head2 koha_objects_class
110
111
Missing POD for koha_objects_class.
112
113
=cut
114
103
sub koha_objects_class {
115
sub koha_objects_class {
104
    'Koha::Acquisition::Order::Claims';
116
    'Koha::Acquisition::Order::Claims';
105
}
117
}
(-)a/Koha/Schema/Result/AuthHeader.pm (+12 lines)
Lines 142-150 __PACKAGE__->has_many( Link Here
142
# Created by DBIx::Class::Schema::Loader v0.07051 @ 2025-02-21 09:20:19
142
# Created by DBIx::Class::Schema::Loader v0.07051 @ 2025-02-21 09:20:19
143
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:JkZ9DrxanaiZVU6d8pzpSA
143
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:JkZ9DrxanaiZVU6d8pzpSA
144
144
145
=head2 koha_object_class
146
147
Missing POD for koha_object_class.
148
149
=cut
150
145
sub koha_object_class {
151
sub koha_object_class {
146
    'Koha::Authority';
152
    'Koha::Authority';
147
}
153
}
154
=head2 koha_objects_class
155
156
Missing POD for koha_objects_class.
157
158
=cut
159
148
sub koha_objects_class {
160
sub koha_objects_class {
149
    'Koha::Authorities';
161
    'Koha::Authorities';
150
}
162
}
(-)a/Koha/Schema/Result/AuthSubfieldStructure.pm (+12 lines)
Lines 220-228 __PACKAGE__->belongs_to( Link Here
220
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-01-19 06:49:06
220
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-01-19 06:49:06
221
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:c6rPINoF/ZP4YzXU1VR+UQ
221
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:c6rPINoF/ZP4YzXU1VR+UQ
222
222
223
=head2 koha_object_class
224
225
Missing POD for koha_object_class.
226
227
=cut
228
223
sub koha_object_class {
229
sub koha_object_class {
224
    'Koha::Authority::Subfield';
230
    'Koha::Authority::Subfield';
225
}
231
}
232
=head2 koha_objects_class
233
234
Missing POD for koha_objects_class.
235
236
=cut
237
226
sub koha_objects_class {
238
sub koha_objects_class {
227
    'Koha::Authority::Subfields';
239
    'Koha::Authority::Subfields';
228
}
240
}
(-)a/Koha/Schema/Result/AuthTagStructure.pm (+12 lines)
Lines 130-138 __PACKAGE__->belongs_to( Link Here
130
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-01-19 06:49:06
130
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-01-19 06:49:06
131
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:Nfz88qZS9IgnDbZWcPwlvw
131
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:Nfz88qZS9IgnDbZWcPwlvw
132
132
133
=head2 koha_object_class
134
135
Missing POD for koha_object_class.
136
137
=cut
138
133
sub koha_object_class {
139
sub koha_object_class {
134
    'Koha::Authority::Tag';
140
    'Koha::Authority::Tag';
135
}
141
}
142
=head2 koha_objects_class
143
144
Missing POD for koha_objects_class.
145
146
=cut
147
136
sub koha_objects_class {
148
sub koha_objects_class {
137
    'Koha::Authority::Tags';
149
    'Koha::Authority::Tags';
138
}
150
}
(-)a/Koha/Schema/Result/AuthType.pm (+12 lines)
Lines 110-118 __PACKAGE__->has_many( Link Here
110
# Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-02-16 17:54:53
110
# Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-02-16 17:54:53
111
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:USULz4Y8i0JC73GxcxJ+BA
111
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:USULz4Y8i0JC73GxcxJ+BA
112
112
113
=head2 koha_object_class
114
115
Missing POD for koha_object_class.
116
117
=cut
118
113
sub koha_object_class {
119
sub koha_object_class {
114
    'Koha::Authority::Type';
120
    'Koha::Authority::Type';
115
}
121
}
122
=head2 koha_objects_class
123
124
Missing POD for koha_objects_class.
125
126
=cut
127
116
sub koha_objects_class {
128
sub koha_objects_class {
117
    'Koha::Authority::Types';
129
    'Koha::Authority::Types';
118
}
130
}
(-)a/Koha/Schema/Result/AuthorisedValueCategory.pm (+6 lines)
Lines 121-126 __PACKAGE__->add_columns( Link Here
121
    '+is_integer_only' => { is_boolean => 1 },
121
    '+is_integer_only' => { is_boolean => 1 },
122
);
122
);
123
123
124
=head2 koha_objects_class
125
126
Missing POD for koha_objects_class.
127
128
=cut
129
124
sub koha_objects_class {
130
sub koha_objects_class {
125
    'Koha::AuthorisedValueCategories';
131
    'Koha::AuthorisedValueCategories';
126
}
132
}
(-)a/Koha/Schema/Result/BiblioMetadata.pm (+12 lines)
Lines 165-173 __PACKAGE__->belongs_to( Link Here
165
# Created by DBIx::Class::Schema::Loader v0.07051 @ 2024-08-01 15:57:42
165
# Created by DBIx::Class::Schema::Loader v0.07051 @ 2024-08-01 15:57:42
166
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:Ar73Sy86oYHspxu0udvnoA
166
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:Ar73Sy86oYHspxu0udvnoA
167
167
168
=head2 koha_object_class
169
170
Missing POD for koha_object_class.
171
172
=cut
173
168
sub koha_object_class {
174
sub koha_object_class {
169
    'Koha::Biblio::Metadata';
175
    'Koha::Biblio::Metadata';
170
}
176
}
177
=head2 koha_objects_class
178
179
Missing POD for koha_objects_class.
180
181
=cut
182
171
sub koha_objects_class {
183
sub koha_objects_class {
172
    'Koha::Biblio::Metadatas';
184
    'Koha::Biblio::Metadatas';
173
}
185
}
(-)a/Koha/Schema/Result/Borrower.pm (+12 lines)
Lines 2230-2238 __PACKAGE__->add_columns( Link Here
2230
    '+protected'               => { is_boolean => 1 },
2230
    '+protected'               => { is_boolean => 1 },
2231
);
2231
);
2232
2232
2233
=head2 koha_objects_class
2234
2235
Missing POD for koha_objects_class.
2236
2237
=cut
2238
2233
sub koha_objects_class {
2239
sub koha_objects_class {
2234
    'Koha::Patrons';
2240
    'Koha::Patrons';
2235
}
2241
}
2242
=head2 koha_object_class
2243
2244
Missing POD for koha_object_class.
2245
2246
=cut
2247
2236
sub koha_object_class {
2248
sub koha_object_class {
2237
    'Koha::Patron';
2249
    'Koha::Patron';
2238
}
2250
}
(-)a/Koha/Schema/Result/BorrowerAttribute.pm (+12 lines)
Lines 132-140 __PACKAGE__->belongs_to( Link Here
132
    { is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },);
132
    { is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },);
133
133
134
134
135
=head2 koha_object_class
136
137
Missing POD for koha_object_class.
138
139
=cut
140
135
sub koha_object_class {
141
sub koha_object_class {
136
    'Koha::Patron::Attribute';
142
    'Koha::Patron::Attribute';
137
}
143
}
144
=head2 koha_objects_class
145
146
Missing POD for koha_objects_class.
147
148
=cut
149
138
sub koha_objects_class {
150
sub koha_objects_class {
139
    'Koha::Patron::Attributes';
151
    'Koha::Patron::Attributes';
140
}
152
}
(-)a/Koha/Schema/Result/BorrowerAttributeType.pm (+12 lines)
Lines 285-293 __PACKAGE__->add_columns( Link Here
285
    '+is_date' => { is_boolean => 1 },
285
    '+is_date' => { is_boolean => 1 },
286
);
286
);
287
287
288
=head2 koha_object_class
289
290
Missing POD for koha_object_class.
291
292
=cut
293
288
sub koha_object_class {
294
sub koha_object_class {
289
    'Koha::Patron::Attribute::Type';
295
    'Koha::Patron::Attribute::Type';
290
}
296
}
297
=head2 koha_objects_class
298
299
Missing POD for koha_objects_class.
300
301
=cut
302
291
sub koha_objects_class {
303
sub koha_objects_class {
292
    'Koha::Patron::Attribute::Types';
304
    'Koha::Patron::Attribute::Types';
293
}
305
}
(-)a/Koha/Schema/Result/BorrowerDebarment.pm (+12 lines)
Lines 165-173 __PACKAGE__->belongs_to( Link Here
165
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-08-19 17:53:04
165
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-08-19 17:53:04
166
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:kDCkA7XrjKXlrFG5lk8Lgg
166
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:kDCkA7XrjKXlrFG5lk8Lgg
167
167
168
=head2 koha_objects_class
169
170
Missing POD for koha_objects_class.
171
172
=cut
173
168
sub koha_objects_class {
174
sub koha_objects_class {
169
    'Koha::Patron::Restrictions';
175
    'Koha::Patron::Restrictions';
170
}
176
}
177
=head2 koha_object_class
178
179
Missing POD for koha_object_class.
180
181
=cut
182
171
sub koha_object_class {
183
sub koha_object_class {
172
    'Koha::Patron::Restriction';
184
    'Koha::Patron::Restriction';
173
}
185
}
(-)a/Koha/Schema/Result/BorrowerMessagePreference.pm (+12 lines)
Lines 194-202 __PACKAGE__->many_to_many( Link Here
194
194
195
# You can replace this text with custom content, and it will be preserved on regeneration
195
# You can replace this text with custom content, and it will be preserved on regeneration
196
196
197
=head2 koha_object_class
198
199
Missing POD for koha_object_class.
200
201
=cut
202
197
sub koha_object_class {
203
sub koha_object_class {
198
  'Koha::Patron::MessagePreference';
204
  'Koha::Patron::MessagePreference';
199
}
205
}
206
=head2 koha_objects_class
207
208
Missing POD for koha_objects_class.
209
210
=cut
211
200
sub koha_objects_class {
212
sub koha_objects_class {
201
  'Koha::Patron::MessagePreferences';
213
  'Koha::Patron::MessagePreferences';
202
}
214
}
(-)a/Koha/Schema/Result/BorrowerMessageTransportPreference.pm (+12 lines)
Lines 113-121 __PACKAGE__->belongs_to( Link Here
113
113
114
# You can replace this text with custom content, and it will be preserved on regeneration
114
# You can replace this text with custom content, and it will be preserved on regeneration
115
115
116
=head2 koha_object_class
117
118
Missing POD for koha_object_class.
119
120
=cut
121
116
sub koha_object_class {
122
sub koha_object_class {
117
  'Koha::Patron::MessagePreference::Transport::Preference';
123
  'Koha::Patron::MessagePreference::Transport::Preference';
118
}
124
}
125
=head2 koha_objects_class
126
127
Missing POD for koha_objects_class.
128
129
=cut
130
119
sub koha_objects_class {
131
sub koha_objects_class {
120
  'Koha::Patron::MessagePreference::Transport::Preferences';
132
  'Koha::Patron::MessagePreference::Transport::Preferences';
121
}
133
}
(-)a/Koha/Schema/Result/BorrowerModification.pm (+12 lines)
Lines 658-666 __PACKAGE__->set_primary_key("verification_token", "borrowernumber"); Link Here
658
# Created by DBIx::Class::Schema::Loader v0.07051 @ 2024-11-11 11:07:06
658
# Created by DBIx::Class::Schema::Loader v0.07051 @ 2024-11-11 11:07:06
659
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:QOqDkQ+8LuTY6qYrPhsQWw
659
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:QOqDkQ+8LuTY6qYrPhsQWw
660
660
661
=head2 koha_object_class
662
663
Missing POD for koha_object_class.
664
665
=cut
666
661
sub koha_object_class {
667
sub koha_object_class {
662
    'Koha::Patron::Modification';
668
    'Koha::Patron::Modification';
663
}
669
}
670
=head2 koha_objects_class
671
672
Missing POD for koha_objects_class.
673
674
=cut
675
664
sub koha_objects_class {
676
sub koha_objects_class {
665
    'Koha::Patron::Modifications';
677
    'Koha::Patron::Modifications';
666
}
678
}
(-)a/Koha/Schema/Result/BorrowerRelationship.pm (+12 lines)
Lines 124-132 __PACKAGE__->belongs_to( Link Here
124
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-09-19 18:12:00
124
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-09-19 18:12:00
125
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:3/qVK3qiXZPvE2y5D4WaRg
125
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:3/qVK3qiXZPvE2y5D4WaRg
126
126
127
=head2 koha_objects_class
128
129
Missing POD for koha_objects_class.
130
131
=cut
132
127
sub koha_objects_class {
133
sub koha_objects_class {
128
    'Koha::Patron::Relationships';
134
    'Koha::Patron::Relationships';
129
}
135
}
136
=head2 koha_object_class
137
138
Missing POD for koha_object_class.
139
140
=cut
141
130
sub koha_object_class {
142
sub koha_object_class {
131
    'Koha::Patron::Relationship';
143
    'Koha::Patron::Relationship';
132
}
144
}
(-)a/Koha/Schema/Result/Branch.pm (+12 lines)
Lines 1020-1028 __PACKAGE__->add_columns( Link Here
1020
    '+public'          => { is_boolean => 1 }
1020
    '+public'          => { is_boolean => 1 }
1021
);
1021
);
1022
1022
1023
=head2 koha_object_class
1024
1025
Missing POD for koha_object_class.
1026
1027
=cut
1028
1023
sub koha_object_class {
1029
sub koha_object_class {
1024
    'Koha::Library';
1030
    'Koha::Library';
1025
}
1031
}
1032
=head2 koha_objects_class
1033
1034
Missing POD for koha_objects_class.
1035
1036
=cut
1037
1026
sub koha_objects_class {
1038
sub koha_objects_class {
1027
    'Koha::Libraries';
1039
    'Koha::Libraries';
1028
}
1040
}
(-)a/Koha/Schema/Result/BranchTransferLimit.pm (+12 lines)
Lines 102-110 __PACKAGE__->set_primary_key("limitId"); Link Here
102
# Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-09-26 16:15:09
102
# Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-09-26 16:15:09
103
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:wKere4dleMGrs9RO59qx9Q
103
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:wKere4dleMGrs9RO59qx9Q
104
104
105
=head2 koha_object_class
106
107
Missing POD for koha_object_class.
108
109
=cut
110
105
sub koha_object_class {
111
sub koha_object_class {
106
    'Koha::Item::Transfer::Limit';
112
    'Koha::Item::Transfer::Limit';
107
}
113
}
114
=head2 koha_objects_class
115
116
Missing POD for koha_objects_class.
117
118
=cut
119
108
sub koha_objects_class {
120
sub koha_objects_class {
109
    'Koha::Item::Transfer::Limits';
121
    'Koha::Item::Transfer::Limits';
110
}
122
}
(-)a/Koha/Schema/Result/BranchesOverdrive.pm (+12 lines)
Lines 78-86 __PACKAGE__->belongs_to( Link Here
78
# Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-10-09 10:38:33
78
# Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-10-09 10:38:33
79
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:fEZWWtF4MRDwupI/27laDw
79
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:fEZWWtF4MRDwupI/27laDw
80
80
81
=head2 koha_object_class
82
83
Missing POD for koha_object_class.
84
85
=cut
86
81
sub koha_object_class {
87
sub koha_object_class {
82
    'Koha::Library::OverDriveInfo';
88
    'Koha::Library::OverDriveInfo';
83
}
89
}
90
=head2 koha_objects_class
91
92
Missing POD for koha_objects_class.
93
94
=cut
95
84
sub koha_objects_class {
96
sub koha_objects_class {
85
    'Koha::Library::OverDriveInfos';
97
    'Koha::Library::OverDriveInfos';
86
}
98
}
(-)a/Koha/Schema/Result/Branchtransfer.pm (+12 lines)
Lines 278-286 __PACKAGE__->belongs_to( Link Here
278
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-10-03 16:48:17
278
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-10-03 16:48:17
279
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:BkhtfptiDqKKSv/hmCQy3w
279
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:BkhtfptiDqKKSv/hmCQy3w
280
280
281
=head2 koha_object_class
282
283
Missing POD for koha_object_class.
284
285
=cut
286
281
sub koha_object_class {
287
sub koha_object_class {
282
    'Koha::Item::Transfer';
288
    'Koha::Item::Transfer';
283
}
289
}
290
=head2 koha_objects_class
291
292
Missing POD for koha_objects_class.
293
294
=cut
295
284
sub koha_objects_class {
296
sub koha_objects_class {
285
    'Koha::Item::Transfers';
297
    'Koha::Item::Transfers';
286
}
298
}
(-)a/Koha/Schema/Result/CashRegister.pm (+12 lines)
Lines 182-191 __PACKAGE__->add_columns( Link Here
182
    '+branch_default' => { is_boolean => 1 },
182
    '+branch_default' => { is_boolean => 1 },
183
);
183
);
184
184
185
=head2 koha_objects_class
186
187
Missing POD for koha_objects_class.
188
189
=cut
190
185
sub koha_objects_class {
191
sub koha_objects_class {
186
    'Koha::Cash::Registers';
192
    'Koha::Cash::Registers';
187
}
193
}
188
194
195
=head2 koha_object_class
196
197
Missing POD for koha_object_class.
198
199
=cut
200
189
sub koha_object_class {
201
sub koha_object_class {
190
    'Koha::Cash::Register';
202
    'Koha::Cash::Register';
191
}
203
}
(-)a/Koha/Schema/Result/CashRegisterAction.pm (+12 lines)
Lines 140-149 __PACKAGE__->belongs_to( Link Here
140
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
140
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
141
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:Fo6979mQEueJrDQw38Bh0w
141
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:Fo6979mQEueJrDQw38Bh0w
142
142
143
=head2 koha_objects_class
144
145
Missing POD for koha_objects_class.
146
147
=cut
148
143
sub koha_objects_class {
149
sub koha_objects_class {
144
    'Koha::Cash::Register::Actions';
150
    'Koha::Cash::Register::Actions';
145
}
151
}
146
152
153
=head2 koha_object_class
154
155
Missing POD for koha_object_class.
156
157
=cut
158
147
sub koha_object_class {
159
sub koha_object_class {
148
    'Koha::Cash::Register::Action';
160
    'Koha::Cash::Register::Action';
149
}
161
}
(-)a/Koha/Schema/Result/Category.pm (+12 lines)
Lines 405-414 __PACKAGE__->has_many( Link Here
405
405
406
# You can replace this text with custom code or comments, and it will be preserved on regeneration
406
# You can replace this text with custom code or comments, and it will be preserved on regeneration
407
407
408
=head2 koha_object_class
409
410
Missing POD for koha_object_class.
411
412
=cut
413
408
sub koha_object_class {
414
sub koha_object_class {
409
    'Koha::Patron::Category';
415
    'Koha::Patron::Category';
410
}
416
}
411
417
418
=head2 koha_objects_class
419
420
Missing POD for koha_objects_class.
421
422
=cut
423
412
sub koha_objects_class {
424
sub koha_objects_class {
413
    'Koha::Patron::Categories';
425
    'Koha::Patron::Categories';
414
}
426
}
(-)a/Koha/Schema/Result/CheckoutRenewal.pm (+12 lines)
Lines 185-193 __PACKAGE__->add_columns( Link Here
185
    '+seen' => { is_boolean => 1 }
185
    '+seen' => { is_boolean => 1 }
186
);
186
);
187
187
188
=head2 koha_objects_class
189
190
Missing POD for koha_objects_class.
191
192
=cut
193
188
sub koha_objects_class {
194
sub koha_objects_class {
189
    'Koha::Checkouts::Renewals';
195
    'Koha::Checkouts::Renewals';
190
}
196
}
197
=head2 koha_object_class
198
199
Missing POD for koha_object_class.
200
201
=cut
202
191
sub koha_object_class {
203
sub koha_object_class {
192
    'Koha::Checkouts::Renewal';
204
    'Koha::Checkouts::Renewal';
193
}
205
}
(-)a/Koha/Schema/Result/CirculationRule.pm (+12 lines)
Lines 180-189 __PACKAGE__->belongs_to( Link Here
180
# Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-10-05 14:29:17
180
# Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-10-05 14:29:17
181
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:QHMqvrtX0ohJe70PHUYZ0Q
181
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:QHMqvrtX0ohJe70PHUYZ0Q
182
182
183
=head2 koha_objects_class
184
185
Missing POD for koha_objects_class.
186
187
=cut
188
183
sub koha_objects_class {
189
sub koha_objects_class {
184
    'Koha::CirculationRules';
190
    'Koha::CirculationRules';
185
}
191
}
186
192
193
=head2 koha_object_class
194
195
Missing POD for koha_object_class.
196
197
=cut
198
187
sub koha_object_class {
199
sub koha_object_class {
188
    'Koha::CirculationRule';
200
    'Koha::CirculationRule';
189
}
201
}
(-)a/Koha/Schema/Result/City.pm (+6 lines)
Lines 95-100 __PACKAGE__->set_primary_key("cityid"); Link Here
95
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
95
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
96
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:PF0pi+dNbKvxVDSpvHgB1Q
96
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:PF0pi+dNbKvxVDSpvHgB1Q
97
97
98
=head2 koha_objects_class
99
100
Missing POD for koha_objects_class.
101
102
=cut
103
98
sub koha_objects_class {
104
sub koha_objects_class {
99
    'Koha::Cities';
105
    'Koha::Cities';
100
}
106
}
(-)a/Koha/Schema/Result/ClubEnrollment.pm (+12 lines)
Lines 194-202 __PACKAGE__->has_many( Link Here
194
# Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-02-12 17:59:47
194
# Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-02-12 17:59:47
195
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:Ih/HQM4KIRDZ0ESXVR9FwA
195
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:Ih/HQM4KIRDZ0ESXVR9FwA
196
196
197
=head2 koha_object_class
198
199
Missing POD for koha_object_class.
200
201
=cut
202
197
sub koha_object_class {
203
sub koha_object_class {
198
    'Koha::Club::Enrollment';
204
    'Koha::Club::Enrollment';
199
}
205
}
206
=head2 koha_objects_class
207
208
Missing POD for koha_objects_class.
209
210
=cut
211
200
sub koha_objects_class {
212
sub koha_objects_class {
201
    'Koha::Club::Enrollments';
213
    'Koha::Club::Enrollments';
202
}
214
}
(-)a/Koha/Schema/Result/ClubEnrollmentField.pm (+12 lines)
Lines 107-115 __PACKAGE__->belongs_to( Link Here
107
# Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-02-16 17:54:53
107
# Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-02-16 17:54:53
108
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:tr8INu1+veRdWkRT4BgBOQ
108
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:tr8INu1+veRdWkRT4BgBOQ
109
109
110
=head2 koha_object_class
111
112
Missing POD for koha_object_class.
113
114
=cut
115
110
sub koha_object_class {
116
sub koha_object_class {
111
    'Koha::Club::Enrollment::Field';
117
    'Koha::Club::Enrollment::Field';
112
}
118
}
119
=head2 koha_objects_class
120
121
Missing POD for koha_objects_class.
122
123
=cut
124
113
sub koha_objects_class {
125
sub koha_objects_class {
114
    'Koha::Club::Enrollment::Fields';
126
    'Koha::Club::Enrollment::Fields';
115
}
127
}
(-)a/Koha/Schema/Result/ClubField.pm (+12 lines)
Lines 107-115 __PACKAGE__->belongs_to( Link Here
107
# Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-02-16 17:54:53
107
# Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-02-16 17:54:53
108
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:2ySSLrl8GXRXJ38AWg6kng
108
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:2ySSLrl8GXRXJ38AWg6kng
109
109
110
=head2 koha_object_class
111
112
Missing POD for koha_object_class.
113
114
=cut
115
110
sub koha_object_class {
116
sub koha_object_class {
111
    'Koha::Club::Field';
117
    'Koha::Club::Field';
112
}
118
}
119
=head2 koha_objects_class
120
121
Missing POD for koha_objects_class.
122
123
=cut
124
113
sub koha_objects_class {
125
sub koha_objects_class {
114
    'Koha::Club::Fields';
126
    'Koha::Club::Fields';
115
}
127
}
(-)a/Koha/Schema/Result/ClubHold.pm (+12 lines)
Lines 165-173 __PACKAGE__->belongs_to( Link Here
165
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
165
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
166
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:dGkIYbw9CX0LqiH8XmuGAQ
166
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:dGkIYbw9CX0LqiH8XmuGAQ
167
167
168
=head2 koha_objects_class
169
170
Missing POD for koha_objects_class.
171
172
=cut
173
168
sub koha_objects_class {
174
sub koha_objects_class {
169
    'Koha::Club::Holds';
175
    'Koha::Club::Holds';
170
}
176
}
177
=head2 koha_object_class
178
179
Missing POD for koha_object_class.
180
181
=cut
182
171
sub koha_object_class {
183
sub koha_object_class {
172
    'Koha::Club::Hold';
184
    'Koha::Club::Hold';
173
}
185
}
(-)a/Koha/Schema/Result/ClubHoldsToPatronHold.pm (+12 lines)
Lines 163-171 __PACKAGE__->belongs_to( Link Here
163
# Created by DBIx::Class::Schema::Loader v0.07046 @ 2020-08-04 18:43:05
163
# Created by DBIx::Class::Schema::Loader v0.07046 @ 2020-08-04 18:43:05
164
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:KjJWzFhPwQk0SZqrHQ4Alw
164
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:KjJWzFhPwQk0SZqrHQ4Alw
165
165
166
=head2 koha_objects_class
167
168
Missing POD for koha_objects_class.
169
170
=cut
171
166
sub koha_objects_class {
172
sub koha_objects_class {
167
    'Koha::Club::Hold::PatronHolds';
173
    'Koha::Club::Hold::PatronHolds';
168
}
174
}
175
=head2 koha_object_class
176
177
Missing POD for koha_object_class.
178
179
=cut
180
169
sub koha_object_class {
181
sub koha_object_class {
170
    'Koha::Club::Hold::PatronHold';
182
    'Koha::Club::Hold::PatronHold';
171
}
183
}
(-)a/Koha/Schema/Result/ClubTemplate.pm (+12 lines)
Lines 192-200 __PACKAGE__->has_many( Link Here
192
# Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-02-16 17:54:53
192
# Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-02-16 17:54:53
193
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:1UuejI9kkTb9eeNKvSLAQQ
193
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:1UuejI9kkTb9eeNKvSLAQQ
194
194
195
=head2 koha_object_class
196
197
Missing POD for koha_object_class.
198
199
=cut
200
195
sub koha_object_class {
201
sub koha_object_class {
196
    'Koha::Club::Template';
202
    'Koha::Club::Template';
197
}
203
}
204
=head2 koha_objects_class
205
206
Missing POD for koha_objects_class.
207
208
=cut
209
198
sub koha_objects_class {
210
sub koha_objects_class {
199
    'Koha::Club::Templates';
211
    'Koha::Club::Templates';
200
}
212
}
(-)a/Koha/Schema/Result/ClubTemplateEnrollmentField.pm (+12 lines)
Lines 114-122 __PACKAGE__->belongs_to( Link Here
114
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-01-19 06:49:06
114
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-01-19 06:49:06
115
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:qFRwC+QtitmYq2n2TdXOxw
115
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:qFRwC+QtitmYq2n2TdXOxw
116
116
117
=head2 koha_object_class
118
119
Missing POD for koha_object_class.
120
121
=cut
122
117
sub koha_object_class {
123
sub koha_object_class {
118
    'Koha::Club::Template::EnrollmentField';
124
    'Koha::Club::Template::EnrollmentField';
119
}
125
}
126
=head2 koha_objects_class
127
128
Missing POD for koha_objects_class.
129
130
=cut
131
120
sub koha_objects_class {
132
sub koha_objects_class {
121
    'Koha::Club::Template::EnrollmentFields';
133
    'Koha::Club::Template::EnrollmentFields';
122
}
134
}
(-)a/Koha/Schema/Result/ClubTemplateField.pm (+12 lines)
Lines 114-122 __PACKAGE__->belongs_to( Link Here
114
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-01-19 06:49:06
114
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-01-19 06:49:06
115
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:yh8KZ8fjZclGd0GicxTaBA
115
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:yh8KZ8fjZclGd0GicxTaBA
116
116
117
=head2 koha_object_class
118
119
Missing POD for koha_object_class.
120
121
=cut
122
117
sub koha_object_class {
123
sub koha_object_class {
118
    'Koha::Club::Template::Field';
124
    'Koha::Club::Template::Field';
119
}
125
}
126
=head2 koha_objects_class
127
128
Missing POD for koha_objects_class.
129
130
=cut
131
120
sub koha_objects_class {
132
sub koha_objects_class {
121
    'Koha::Club::Template::Fields';
133
    'Koha::Club::Template::Fields';
122
}
134
}
(-)a/Koha/Schema/Result/CourseInstructor.pm (+12 lines)
Lines 98-106 __PACKAGE__->belongs_to( Link Here
98
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
98
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
99
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:8JrMgWOtc6LGT7EjOzyjrQ
99
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:8JrMgWOtc6LGT7EjOzyjrQ
100
100
101
=head2 koha_objects_class
102
103
Missing POD for koha_objects_class.
104
105
=cut
106
101
sub koha_objects_class {
107
sub koha_objects_class {
102
    'Koha::Course::Instructors';
108
    'Koha::Course::Instructors';
103
}
109
}
110
=head2 koha_object_class
111
112
Missing POD for koha_object_class.
113
114
=cut
115
104
sub koha_object_class {
116
sub koha_object_class {
105
    'Koha::Course::Instructor';
117
    'Koha::Course::Instructor';
106
}
118
}
(-)a/Koha/Schema/Result/CourseItem.pm (+12 lines)
Lines 394-402 __PACKAGE__->add_columns( Link Here
394
    '+location_enabled'      => { is_boolean => 1 },
394
    '+location_enabled'      => { is_boolean => 1 },
395
);
395
);
396
396
397
=head2 koha_objects_class
398
399
Missing POD for koha_objects_class.
400
401
=cut
402
397
sub koha_objects_class {
403
sub koha_objects_class {
398
    'Koha::Course::Items';
404
    'Koha::Course::Items';
399
}
405
}
406
=head2 koha_object_class
407
408
Missing POD for koha_object_class.
409
410
=cut
411
400
sub koha_object_class {
412
sub koha_object_class {
401
    'Koha::Course::Item';
413
    'Koha::Course::Item';
402
}
414
}
(-)a/Koha/Schema/Result/CourseReserve.pm (+12 lines)
Lines 152-160 __PACKAGE__->belongs_to( Link Here
152
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
152
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
153
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:K3co29iVHAcF2/S0tGT1LA
153
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:K3co29iVHAcF2/S0tGT1LA
154
154
155
=head2 koha_objects_class
156
157
Missing POD for koha_objects_class.
158
159
=cut
160
155
sub koha_objects_class {
161
sub koha_objects_class {
156
    'Koha::Course::Reserves';
162
    'Koha::Course::Reserves';
157
}
163
}
164
=head2 koha_object_class
165
166
Missing POD for koha_object_class.
167
168
=cut
169
158
sub koha_object_class {
170
sub koha_object_class {
159
    'Koha::Course::Reserve';
171
    'Koha::Course::Reserve';
160
}
172
}
(-)a/Koha/Schema/Result/CurbsidePickupPolicy.pm (+12 lines)
Lines 153-161 __PACKAGE__->add_columns( Link Here
153
    '+patron_scheduled_pickup' => { is_boolean => 1 },
153
    '+patron_scheduled_pickup' => { is_boolean => 1 },
154
);
154
);
155
155
156
=head2 koha_object_class
157
158
Missing POD for koha_object_class.
159
160
=cut
161
156
sub koha_object_class {
162
sub koha_object_class {
157
    'Koha::CurbsidePickupPolicy';
163
    'Koha::CurbsidePickupPolicy';
158
}
164
}
165
=head2 koha_objects_class
166
167
Missing POD for koha_objects_class.
168
169
=cut
170
159
sub koha_objects_class {
171
sub koha_objects_class {
160
    'Koha::CurbsidePickupPolicies';
172
    'Koha::CurbsidePickupPolicies';
161
}
173
}
(-)a/Koha/Schema/Result/Currency.pm (+12 lines)
Lines 188-196 __PACKAGE__->add_columns( Link Here
188
    "+p_cs_precedes" => { is_boolean => 1 },
188
    "+p_cs_precedes" => { is_boolean => 1 },
189
);
189
);
190
190
191
=head2 koha_object_class
192
193
Missing POD for koha_object_class.
194
195
=cut
196
191
sub koha_object_class {
197
sub koha_object_class {
192
    'Koha::Acquisition::Currency';
198
    'Koha::Acquisition::Currency';
193
}
199
}
200
=head2 koha_objects_class
201
202
Missing POD for koha_objects_class.
203
204
=cut
205
194
sub koha_objects_class {
206
sub koha_objects_class {
195
    'Koha::Acquisition::Currencies';
207
    'Koha::Acquisition::Currencies';
196
}
208
}
(-)a/Koha/Schema/Result/Deletedbiblio.pm (+12 lines)
Lines 228-237 __PACKAGE__->has_one( Link Here
228
    { cascade_copy           => 0, cascade_delete => 0 },
228
    { cascade_copy           => 0, cascade_delete => 0 },
229
);
229
);
230
230
231
=head2 koha_objects_class
232
233
Missing POD for koha_objects_class.
234
235
=cut
236
231
sub koha_objects_class {
237
sub koha_objects_class {
232
    'Koha::Old::Biblios';
238
    'Koha::Old::Biblios';
233
}
239
}
234
240
241
=head2 koha_object_class
242
243
Missing POD for koha_object_class.
244
245
=cut
246
235
sub koha_object_class {
247
sub koha_object_class {
236
    'Koha::Old::Biblio';
248
    'Koha::Old::Biblio';
237
}
249
}
(-)a/Koha/Schema/Result/DeletedbiblioMetadata.pm (+12 lines)
Lines 165-173 __PACKAGE__->belongs_to( Link Here
165
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2024-04-26 13:23:01
165
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2024-04-26 13:23:01
166
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:n/IgiGmKu1znMd78vA+pVw
166
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:n/IgiGmKu1znMd78vA+pVw
167
167
168
=head2 koha_objects_class
169
170
Missing POD for koha_objects_class.
171
172
=cut
173
168
sub koha_objects_class {
174
sub koha_objects_class {
169
    'Koha::Old::Biblio::Metadatas';
175
    'Koha::Old::Biblio::Metadatas';
170
}
176
}
177
=head2 koha_object_class
178
179
Missing POD for koha_object_class.
180
181
=cut
182
171
sub koha_object_class {
183
sub koha_object_class {
172
    'Koha::Old::Biblio::Metadata';
184
    'Koha::Old::Biblio::Metadata';
173
}
185
}
(-)a/Koha/Schema/Result/Deletedbiblioitem.pm (+12 lines)
Lines 317-325 __PACKAGE__->set_primary_key("biblioitemnumber"); Link Here
317
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-06-29 12:50:28
317
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-06-29 12:50:28
318
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:q5ULiqLlmYdZQy4qr0wBtg
318
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:q5ULiqLlmYdZQy4qr0wBtg
319
319
320
=head2 koha_objects_class
321
322
Missing POD for koha_objects_class.
323
324
=cut
325
320
sub koha_objects_class {
326
sub koha_objects_class {
321
    'Koha::Old::Biblioitems';
327
    'Koha::Old::Biblioitems';
322
}
328
}
329
=head2 koha_object_class
330
331
Missing POD for koha_object_class.
332
333
=cut
334
323
sub koha_object_class {
335
sub koha_object_class {
324
    'Koha::Old::Biblioitem';
336
    'Koha::Old::Biblioitem';
325
}
337
}
(-)a/Koha/Schema/Result/Deletedborrower.pm (+12 lines)
Lines 869-877 __PACKAGE__->add_columns( Link Here
869
    '+protected'               => { is_boolean => 1 },
869
    '+protected'               => { is_boolean => 1 },
870
);
870
);
871
871
872
=head2 koha_objects_class
873
874
Missing POD for koha_objects_class.
875
876
=cut
877
872
sub koha_objects_class {
878
sub koha_objects_class {
873
    'Koha::Old::Patrons';
879
    'Koha::Old::Patrons';
874
}
880
}
881
=head2 koha_object_class
882
883
Missing POD for koha_object_class.
884
885
=cut
886
875
sub koha_object_class {
887
sub koha_object_class {
876
    'Koha::Old::Patron';
888
    'Koha::Old::Patron';
877
}
889
}
(-)a/Koha/Schema/Result/Deleteditem.pm (+12 lines)
Lines 539-547 __PACKAGE__->add_columns( Link Here
539
    '+exclude_from_local_holds_priority' => { is_boolean => 1 },
539
    '+exclude_from_local_holds_priority' => { is_boolean => 1 },
540
);
540
);
541
541
542
=head2 koha_objects_class
543
544
Missing POD for koha_objects_class.
545
546
=cut
547
542
sub koha_objects_class {
548
sub koha_objects_class {
543
    'Koha::Old::Items';
549
    'Koha::Old::Items';
544
}
550
}
551
=head2 koha_object_class
552
553
Missing POD for koha_object_class.
554
555
=cut
556
545
sub koha_object_class {
557
sub koha_object_class {
546
    'Koha::Old::Item';
558
    'Koha::Old::Item';
547
}
559
}
(-)a/Koha/Schema/Result/ErmAgreement.pm (+12 lines)
Lines 312-320 __PACKAGE__->has_many( Link Here
312
    { cascade_copy => 0, cascade_delete => 0 },
312
    { cascade_copy => 0, cascade_delete => 0 },
313
);
313
);
314
314
315
=head2 koha_object_class
316
317
Missing POD for koha_object_class.
318
319
=cut
320
315
sub koha_object_class {
321
sub koha_object_class {
316
    'Koha::ERM::Agreement';
322
    'Koha::ERM::Agreement';
317
}
323
}
324
=head2 koha_objects_class
325
326
Missing POD for koha_objects_class.
327
328
=cut
329
318
sub koha_objects_class {
330
sub koha_objects_class {
319
    'Koha::ERM::Agreements';
331
    'Koha::ERM::Agreements';
320
}
332
}
(-)a/Koha/Schema/Result/ErmAgreementLicense.pm (+12 lines)
Lines 161-169 __PACKAGE__->belongs_to( Link Here
161
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-07-20 08:58:20
161
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-07-20 08:58:20
162
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:pO0QPWFMSap1XER+0hdEqg
162
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:pO0QPWFMSap1XER+0hdEqg
163
163
164
=head2 koha_object_class
165
166
Missing POD for koha_object_class.
167
168
=cut
169
164
sub koha_object_class {
170
sub koha_object_class {
165
    'Koha::ERM::Agreement::License';
171
    'Koha::ERM::Agreement::License';
166
}
172
}
173
=head2 koha_objects_class
174
175
Missing POD for koha_objects_class.
176
177
=cut
178
167
sub koha_objects_class {
179
sub koha_objects_class {
168
    'Koha::ERM::Agreement::Licenses';
180
    'Koha::ERM::Agreement::Licenses';
169
}
181
}
(-)a/Koha/Schema/Result/ErmAgreementPeriod.pm (+12 lines)
Lines 120-128 __PACKAGE__->belongs_to( Link Here
120
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-05-25 11:46:59
120
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-05-25 11:46:59
121
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:NCQpSw+rp/9B/yOrtLtK6g
121
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:NCQpSw+rp/9B/yOrtLtK6g
122
122
123
=head2 koha_object_class
124
125
Missing POD for koha_object_class.
126
127
=cut
128
123
sub koha_object_class {
129
sub koha_object_class {
124
    'Koha::ERM::Agreement::Period';
130
    'Koha::ERM::Agreement::Period';
125
}
131
}
132
=head2 koha_objects_class
133
134
Missing POD for koha_objects_class.
135
136
=cut
137
126
sub koha_objects_class {
138
sub koha_objects_class {
127
    'Koha::ERM::Agreement::Periods';
139
    'Koha::ERM::Agreement::Periods';
128
}
140
}
(-)a/Koha/Schema/Result/ErmAgreementRelationship.pm (+12 lines)
Lines 133-141 __PACKAGE__->belongs_to( Link Here
133
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-05-25 11:46:59
133
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-05-25 11:46:59
134
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:EYK21+2xV7p1yCXR8OFKIA
134
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:EYK21+2xV7p1yCXR8OFKIA
135
135
136
=head2 koha_object_class
137
138
Missing POD for koha_object_class.
139
140
=cut
141
136
sub koha_object_class {
142
sub koha_object_class {
137
    'Koha::ERM::Agreement::Relationship';
143
    'Koha::ERM::Agreement::Relationship';
138
}
144
}
145
=head2 koha_objects_class
146
147
Missing POD for koha_objects_class.
148
149
=cut
150
139
sub koha_objects_class {
151
sub koha_objects_class {
140
    'Koha::ERM::Agreement::Relationships';
152
    'Koha::ERM::Agreement::Relationships';
141
}
153
}
(-)a/Koha/Schema/Result/ErmCounterFile.pm (+12 lines)
Lines 147-155 __PACKAGE__->belongs_to( Link Here
147
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:PnXyJtZQBhfxPPNnkyxJ8Q
147
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:PnXyJtZQBhfxPPNnkyxJ8Q
148
148
149
149
150
=head2 koha_object_class
151
152
Missing POD for koha_object_class.
153
154
=cut
155
150
sub koha_object_class {
156
sub koha_object_class {
151
    'Koha::ERM::EUsage::CounterFile';
157
    'Koha::ERM::EUsage::CounterFile';
152
}
158
}
159
=head2 koha_objects_class
160
161
Missing POD for koha_objects_class.
162
163
=cut
164
153
sub koha_objects_class {
165
sub koha_objects_class {
154
    'Koha::ERM::EUsage::CounterFiles';
166
    'Koha::ERM::EUsage::CounterFiles';
155
}
167
}
(-)a/Koha/Schema/Result/ErmCounterLog.pm (+12 lines)
Lines 193-201 __PACKAGE__->belongs_to( Link Here
193
    },
193
    },
194
);
194
);
195
195
196
=head2 koha_object_class
197
198
Missing POD for koha_object_class.
199
200
=cut
201
196
sub koha_object_class {
202
sub koha_object_class {
197
    'Koha::ERM::EUsage::CounterLog';
203
    'Koha::ERM::EUsage::CounterLog';
198
}
204
}
205
=head2 koha_objects_class
206
207
Missing POD for koha_objects_class.
208
209
=cut
210
199
sub koha_objects_class {
211
sub koha_objects_class {
200
    'Koha::ERM::EUsage::CounterLogs';
212
    'Koha::ERM::EUsage::CounterLogs';
201
}
213
}
(-)a/Koha/Schema/Result/ErmDefaultUsageReport.pm (+12 lines)
Lines 76-84 __PACKAGE__->set_primary_key("erm_default_usage_report_id"); Link Here
76
76
77
# You can replace this text with custom code or comments, and it will be preserved on regeneration
77
# You can replace this text with custom code or comments, and it will be preserved on regeneration
78
78
79
=head2 koha_object_class
80
81
Missing POD for koha_object_class.
82
83
=cut
84
79
sub koha_object_class {
85
sub koha_object_class {
80
    'Koha::ERM::EUsage::DefaultUsageReport';
86
    'Koha::ERM::EUsage::DefaultUsageReport';
81
}
87
}
88
=head2 koha_objects_class
89
90
Missing POD for koha_objects_class.
91
92
=cut
93
82
sub koha_objects_class {
94
sub koha_objects_class {
83
    'Koha::ERM::EUsage::DefaultUsageReports';
95
    'Koha::ERM::EUsage::DefaultUsageReports';
84
}
96
}
(-)a/Koha/Schema/Result/ErmDocument.pm (+12 lines)
Lines 198-206 __PACKAGE__->belongs_to( Link Here
198
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-10-21 09:22:27
198
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-10-21 09:22:27
199
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:rbU2G4zjKlEcOtuwVBSXaw
199
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:rbU2G4zjKlEcOtuwVBSXaw
200
200
201
=head2 koha_object_class
202
203
Missing POD for koha_object_class.
204
205
=cut
206
201
sub koha_object_class {
207
sub koha_object_class {
202
    'Koha::ERM::Document';
208
    'Koha::ERM::Document';
203
}
209
}
210
=head2 koha_objects_class
211
212
Missing POD for koha_objects_class.
213
214
=cut
215
204
sub koha_objects_class {
216
sub koha_objects_class {
205
    'Koha::ERM::Documents';
217
    'Koha::ERM::Documents';
206
}
218
}
(-)a/Koha/Schema/Result/ErmEholdingsPackage.pm (+12 lines)
Lines 233-241 __PACKAGE__->has_many( Link Here
233
    { cascade_copy => 0, cascade_delete => 0 },
233
    { cascade_copy => 0, cascade_delete => 0 },
234
);
234
);
235
235
236
=head2 koha_object_class
237
238
Missing POD for koha_object_class.
239
240
=cut
241
236
sub koha_object_class {
242
sub koha_object_class {
237
    'Koha::ERM::EHoldings::Package';
243
    'Koha::ERM::EHoldings::Package';
238
}
244
}
245
=head2 koha_objects_class
246
247
Missing POD for koha_objects_class.
248
249
=cut
250
239
sub koha_objects_class {
251
sub koha_objects_class {
240
    'Koha::ERM::EHoldings::Packages';
252
    'Koha::ERM::EHoldings::Packages';
241
}
253
}
(-)a/Koha/Schema/Result/ErmEholdingsPackagesAgreement.pm (+12 lines)
Lines 98-106 __PACKAGE__->belongs_to( Link Here
98
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-11-11 11:52:09
98
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-11-11 11:52:09
99
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:3nCckFzWVD8oZCG6eoljxw
99
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:3nCckFzWVD8oZCG6eoljxw
100
100
101
=head2 koha_object_class
102
103
Missing POD for koha_object_class.
104
105
=cut
106
101
sub koha_object_class {
107
sub koha_object_class {
102
    'Koha::ERM::EHoldings::Package::Agreement';
108
    'Koha::ERM::EHoldings::Package::Agreement';
103
}
109
}
110
=head2 koha_objects_class
111
112
Missing POD for koha_objects_class.
113
114
=cut
115
104
sub koha_objects_class {
116
sub koha_objects_class {
105
    'Koha::ERM::EHoldings::Package::Agreements';
117
    'Koha::ERM::EHoldings::Package::Agreements';
106
}
118
}
(-)a/Koha/Schema/Result/ErmEholdingsResource.pm (+12 lines)
Lines 170-178 __PACKAGE__->belongs_to( Link Here
170
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-07-20 08:58:20
170
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-07-20 08:58:20
171
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:FQbMPJvUGn+kxlA+C4JvYg
171
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:FQbMPJvUGn+kxlA+C4JvYg
172
172
173
=head2 koha_objects_class
174
175
Missing POD for koha_objects_class.
176
177
=cut
178
173
sub koha_objects_class {
179
sub koha_objects_class {
174
    'Koha::ERM::EHoldings::Resources';
180
    'Koha::ERM::EHoldings::Resources';
175
}
181
}
182
=head2 koha_object_class
183
184
Missing POD for koha_object_class.
185
186
=cut
187
176
sub koha_object_class {
188
sub koha_object_class {
177
    'Koha::ERM::EHoldings::Resource';
189
    'Koha::ERM::EHoldings::Resource';
178
}
190
}
(-)a/Koha/Schema/Result/ErmEholdingsTitle.pm (+12 lines)
Lines 297-305 __PACKAGE__->has_many( Link Here
297
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-09-13 11:06:45
297
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-09-13 11:06:45
298
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:SOFpN45kBTi/qvW5OBnYDA
298
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:SOFpN45kBTi/qvW5OBnYDA
299
299
300
=head2 koha_objects_class
301
302
Missing POD for koha_objects_class.
303
304
=cut
305
300
sub koha_objects_class {
306
sub koha_objects_class {
301
    'Koha::ERM::EHoldings::Titles';
307
    'Koha::ERM::EHoldings::Titles';
302
}
308
}
309
=head2 koha_object_class
310
311
Missing POD for koha_object_class.
312
313
=cut
314
303
sub koha_object_class {
315
sub koha_object_class {
304
    'Koha::ERM::EHoldings::Title';
316
    'Koha::ERM::EHoldings::Title';
305
}
317
}
(-)a/Koha/Schema/Result/ErmLicense.pm (+12 lines)
Lines 222-230 __PACKAGE__->has_many( Link Here
222
    { cascade_copy => 0, cascade_delete => 0 },
222
    { cascade_copy => 0, cascade_delete => 0 },
223
);
223
);
224
224
225
=head2 koha_object_class
226
227
Missing POD for koha_object_class.
228
229
=cut
230
225
sub koha_object_class {
231
sub koha_object_class {
226
    'Koha::ERM::License';
232
    'Koha::ERM::License';
227
}
233
}
234
=head2 koha_objects_class
235
236
Missing POD for koha_objects_class.
237
238
=cut
239
228
sub koha_objects_class {
240
sub koha_objects_class {
229
    'Koha::ERM::Licenses';
241
    'Koha::ERM::Licenses';
230
}
242
}
(-)a/Koha/Schema/Result/ErmUsageDataProvider.pm (+12 lines)
Lines 345-353 __PACKAGE__->has_many( Link Here
345
#     '+active' => { is_boolean => 1 }
345
#     '+active' => { is_boolean => 1 }
346
# );
346
# );
347
347
348
=head2 koha_object_class
349
350
Missing POD for koha_object_class.
351
352
=cut
353
348
sub koha_object_class {
354
sub koha_object_class {
349
    'Koha::ERM::EUsage::UsageDataProvider';
355
    'Koha::ERM::EUsage::UsageDataProvider';
350
}
356
}
357
=head2 koha_objects_class
358
359
Missing POD for koha_objects_class.
360
361
=cut
362
351
sub koha_objects_class {
363
sub koha_objects_class {
352
    'Koha::ERM::EUsage::UsageDataProviders';
364
    'Koha::ERM::EUsage::UsageDataProviders';
353
}
365
}
(-)a/Koha/Schema/Result/ErmUsageDatabase.pm (+12 lines)
Lines 154-163 __PACKAGE__->belongs_to( Link Here
154
154
155
# You can replace this text with custom code or comments, and it will be preserved on regeneration
155
# You can replace this text with custom code or comments, and it will be preserved on regeneration
156
156
157
=head2 koha_object_class
158
159
Missing POD for koha_object_class.
160
161
=cut
162
157
sub koha_object_class {
163
sub koha_object_class {
158
    'Koha::ERM::EUsage::UsageDatabase';
164
    'Koha::ERM::EUsage::UsageDatabase';
159
}
165
}
160
166
167
=head2 koha_objects_class
168
169
Missing POD for koha_objects_class.
170
171
=cut
172
161
sub koha_objects_class {
173
sub koha_objects_class {
162
    'Koha::ERM::EUsage::UsageDatabases';
174
    'Koha::ERM::EUsage::UsageDatabases';
163
}
175
}
(-)a/Koha/Schema/Result/ErmUsageItem.pm (+12 lines)
Lines 144-153 __PACKAGE__->belongs_to( Link Here
144
144
145
# You can replace this text with custom code or comments, and it will be preserved on regeneration
145
# You can replace this text with custom code or comments, and it will be preserved on regeneration
146
146
147
=head2 koha_object_class
148
149
Missing POD for koha_object_class.
150
151
=cut
152
147
sub koha_object_class {
153
sub koha_object_class {
148
    'Koha::ERM::EUsage::UsageItem';
154
    'Koha::ERM::EUsage::UsageItem';
149
}
155
}
150
156
157
=head2 koha_objects_class
158
159
Missing POD for koha_objects_class.
160
161
=cut
162
151
sub koha_objects_class {
163
sub koha_objects_class {
152
    'Koha::ERM::EUsage::UsageItems';
164
    'Koha::ERM::EUsage::UsageItems';
153
}
165
}
(-)a/Koha/Schema/Result/ErmUsageMus.pm (+12 lines)
Lines 274-282 __PACKAGE__->belongs_to( Link Here
274
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:4BXk0QleJJOQVdWh9YQYWA
274
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:4BXk0QleJJOQVdWh9YQYWA
275
275
276
276
277
=head2 koha_object_class
278
279
Missing POD for koha_object_class.
280
281
=cut
282
277
sub koha_object_class {
283
sub koha_object_class {
278
    'Koha::ERM::EUsage::MonthlyUsage';
284
    'Koha::ERM::EUsage::MonthlyUsage';
279
}
285
}
286
=head2 koha_objects_class
287
288
Missing POD for koha_objects_class.
289
290
=cut
291
280
sub koha_objects_class {
292
sub koha_objects_class {
281
    'Koha::ERM::EUsage::MonthlyUsages';
293
    'Koha::ERM::EUsage::MonthlyUsages';
282
}
294
}
(-)a/Koha/Schema/Result/ErmUsagePlatform.pm (+12 lines)
Lines 122-131 __PACKAGE__->belongs_to( Link Here
122
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:7Qu5XYiD2K+Pn590ZoTs7Q
122
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:7Qu5XYiD2K+Pn590ZoTs7Q
123
123
124
124
125
=head2 koha_object_class
126
127
Missing POD for koha_object_class.
128
129
=cut
130
125
sub koha_object_class {
131
sub koha_object_class {
126
    'Koha::ERM::EUsage::UsagePlatform';
132
    'Koha::ERM::EUsage::UsagePlatform';
127
}
133
}
128
134
135
=head2 koha_objects_class
136
137
Missing POD for koha_objects_class.
138
139
=cut
140
129
sub koha_objects_class {
141
sub koha_objects_class {
130
    'Koha::ERM::EUsage::UsagePlatforms';
142
    'Koha::ERM::EUsage::UsagePlatforms';
131
}
143
}
(-)a/Koha/Schema/Result/ErmUsageTitle.pm (+12 lines)
Lines 211-219 __PACKAGE__->belongs_to( Link Here
211
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:2Y2PxWnMTavZYR0ljgZ1lQ
211
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:2Y2PxWnMTavZYR0ljgZ1lQ
212
212
213
213
214
=head2 koha_object_class
215
216
Missing POD for koha_object_class.
217
218
=cut
219
214
sub koha_object_class {
220
sub koha_object_class {
215
    'Koha::ERM::EUsage::UsageTitle';
221
    'Koha::ERM::EUsage::UsageTitle';
216
}
222
}
223
=head2 koha_objects_class
224
225
Missing POD for koha_objects_class.
226
227
=cut
228
217
sub koha_objects_class {
229
sub koha_objects_class {
218
    'Koha::ERM::EUsage::UsageTitles';
230
    'Koha::ERM::EUsage::UsageTitles';
219
}
231
}
(-)a/Koha/Schema/Result/ErmUsageYus.pm (+12 lines)
Lines 265-273 __PACKAGE__->belongs_to( Link Here
265
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:EkDx9M0j385DbHo4PVxyiQ
265
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:EkDx9M0j385DbHo4PVxyiQ
266
266
267
267
268
=head2 koha_object_class
269
270
Missing POD for koha_object_class.
271
272
=cut
273
268
sub koha_object_class {
274
sub koha_object_class {
269
    'Koha::ERM::EUsage::YearlyUsage';
275
    'Koha::ERM::EUsage::YearlyUsage';
270
}
276
}
277
=head2 koha_objects_class
278
279
Missing POD for koha_objects_class.
280
281
=cut
282
271
sub koha_objects_class {
283
sub koha_objects_class {
272
    'Koha::ERM::EUsage::YearlyUsages';
284
    'Koha::ERM::EUsage::YearlyUsages';
273
}
285
}
(-)a/Koha/Schema/Result/ErmUserRole.pm (+12 lines)
Lines 151-159 __PACKAGE__->belongs_to( Link Here
151
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-11-16 12:23:11
151
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-11-16 12:23:11
152
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:HbkogqUuTLQCaUY1VrT6Hw
152
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:HbkogqUuTLQCaUY1VrT6Hw
153
153
154
=head2 koha_object_class
155
156
Missing POD for koha_object_class.
157
158
=cut
159
154
sub koha_object_class {
160
sub koha_object_class {
155
    'Koha::ERM::UserRole';
161
    'Koha::ERM::UserRole';
156
}
162
}
163
=head2 koha_objects_class
164
165
Missing POD for koha_objects_class.
166
167
=cut
168
157
sub koha_objects_class {
169
sub koha_objects_class {
158
    'Koha::ERM::UserRoles';
170
    'Koha::ERM::UserRoles';
159
}
171
}
(-)a/Koha/Schema/Result/ExportFormat.pm (+12 lines)
Lines 149-157 __PACKAGE__->set_primary_key("export_format_id"); Link Here
149
# Created by DBIx::Class::Schema::Loader v0.07046 @ 2020-07-20 14:15:46
149
# Created by DBIx::Class::Schema::Loader v0.07046 @ 2020-07-20 14:15:46
150
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:O8kM+dd6GTS2qS39lnDG1g
150
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:O8kM+dd6GTS2qS39lnDG1g
151
151
152
=head2 koha_object_class
153
154
Missing POD for koha_object_class.
155
156
=cut
157
152
sub koha_object_class {
158
sub koha_object_class {
153
    'Koha::CsvProfile';
159
    'Koha::CsvProfile';
154
}
160
}
161
=head2 koha_objects_class
162
163
Missing POD for koha_objects_class.
164
165
=cut
166
155
sub koha_objects_class {
167
sub koha_objects_class {
156
    'Koha::CsvProfiles';
168
    'Koha::CsvProfiles';
157
}
169
}
(-)a/Koha/Schema/Result/HoldCancellationRequest.pm (+12 lines)
Lines 87-95 __PACKAGE__->might_have( Link Here
87
    { cascade_copy       => 0, cascade_delete => 0 },
87
    { cascade_copy       => 0, cascade_delete => 0 },
88
);
88
);
89
89
90
=head2 koha_object_class
91
92
Missing POD for koha_object_class.
93
94
=cut
95
90
sub koha_object_class {
96
sub koha_object_class {
91
    'Koha::Hold::CancellationRequest';
97
    'Koha::Hold::CancellationRequest';
92
}
98
}
99
=head2 koha_objects_class
100
101
Missing POD for koha_objects_class.
102
103
=cut
104
93
sub koha_objects_class {
105
sub koha_objects_class {
94
    'Koha::Hold::CancellationRequests';
106
    'Koha::Hold::CancellationRequests';
95
}
107
}
(-)a/Koha/Schema/Result/HouseboundProfile.pm (+12 lines)
Lines 149-157 __PACKAGE__->has_many( Link Here
149
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
149
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
150
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:VmCvv8WVQCmAXCfWHsLIdg
150
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:VmCvv8WVQCmAXCfWHsLIdg
151
151
152
=head2 koha_object_class
153
154
Missing POD for koha_object_class.
155
156
=cut
157
152
sub koha_object_class {
158
sub koha_object_class {
153
    'Koha::Patron::HouseboundProfile';
159
    'Koha::Patron::HouseboundProfile';
154
}
160
}
161
=head2 koha_objects_class
162
163
Missing POD for koha_objects_class.
164
165
=cut
166
155
sub koha_objects_class {
167
sub koha_objects_class {
156
    'Koha::Patron::HouseboundProfiles';
168
    'Koha::Patron::HouseboundProfiles';
157
}
169
}
(-)a/Koha/Schema/Result/HouseboundRole.pm (+12 lines)
Lines 91-99 __PACKAGE__->belongs_to( Link Here
91
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
91
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
92
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:BocU8VE+5j4lYlxNU6Lofw
92
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:BocU8VE+5j4lYlxNU6Lofw
93
93
94
=head2 koha_object_class
95
96
Missing POD for koha_object_class.
97
98
=cut
99
94
sub koha_object_class {
100
sub koha_object_class {
95
    'Koha::Patron::HouseboundRole';
101
    'Koha::Patron::HouseboundRole';
96
}
102
}
103
=head2 koha_objects_class
104
105
Missing POD for koha_objects_class.
106
107
=cut
108
97
sub koha_objects_class {
109
sub koha_objects_class {
98
    'Koha::Patron::HouseboundRoles';
110
    'Koha::Patron::HouseboundRoles';
99
}
111
}
(-)a/Koha/Schema/Result/HouseboundVisit.pm (+12 lines)
Lines 161-169 __PACKAGE__->belongs_to( Link Here
161
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
161
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
162
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:PJwWk4901BF+CG6AXgjffg
162
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:PJwWk4901BF+CG6AXgjffg
163
163
164
=head2 koha_object_class
165
166
Missing POD for koha_object_class.
167
168
=cut
169
164
sub koha_object_class {
170
sub koha_object_class {
165
    'Koha::Patron::HouseboundVisit';
171
    'Koha::Patron::HouseboundVisit';
166
}
172
}
173
=head2 koha_objects_class
174
175
Missing POD for koha_objects_class.
176
177
=cut
178
167
sub koha_objects_class {
179
sub koha_objects_class {
168
    'Koha::Patron::HouseboundVisits';
180
    'Koha::Patron::HouseboundVisits';
169
}
181
}
(-)a/Koha/Schema/Result/IdentityProvider.pm (+12 lines)
Lines 168-176 __PACKAGE__->has_many( Link Here
168
  { cascade_copy => 0, cascade_delete => 0 },
168
  { cascade_copy => 0, cascade_delete => 0 },
169
);
169
);
170
170
171
=head2 koha_object_class
172
173
Missing POD for koha_object_class.
174
175
=cut
176
171
sub koha_object_class {
177
sub koha_object_class {
172
    'Koha::Auth::Identity::Provider';
178
    'Koha::Auth::Identity::Provider';
173
}
179
}
180
=head2 koha_objects_class
181
182
Missing POD for koha_objects_class.
183
184
=cut
185
174
sub koha_objects_class {
186
sub koha_objects_class {
175
    'Koha::Auth::Identity::Providers';
187
    'Koha::Auth::Identity::Providers';
176
}
188
}
(-)a/Koha/Schema/Result/IdentityProviderDomain.pm (+12 lines)
Lines 216-224 __PACKAGE__->add_columns( Link Here
216
    '+allow_staff'    => { is_boolean => 1 }
216
    '+allow_staff'    => { is_boolean => 1 }
217
);
217
);
218
218
219
=head2 koha_object_class
220
221
Missing POD for koha_object_class.
222
223
=cut
224
219
sub koha_object_class {
225
sub koha_object_class {
220
    'Koha::Auth::Identity::Provider::Domain';
226
    'Koha::Auth::Identity::Provider::Domain';
221
}
227
}
228
=head2 koha_objects_class
229
230
Missing POD for koha_objects_class.
231
232
=cut
233
222
sub koha_objects_class {
234
sub koha_objects_class {
223
    'Koha::Auth::Identity::Provider::Domains';
235
    'Koha::Auth::Identity::Provider::Domains';
224
}
236
}
(-)a/Koha/Schema/Result/Illbatch.pm (+12 lines)
Lines 204-213 __PACKAGE__->has_many( Link Here
204
  { cascade_copy => 0, cascade_delete => 0 },
204
  { cascade_copy => 0, cascade_delete => 0 },
205
);
205
);
206
206
207
=head2 koha_object_class
208
209
Missing POD for koha_object_class.
210
211
=cut
212
207
sub koha_object_class {
213
sub koha_object_class {
208
    'Koha::ILL::Batch';
214
    'Koha::ILL::Batch';
209
}
215
}
210
216
217
=head2 koha_objects_class
218
219
Missing POD for koha_objects_class.
220
221
=cut
222
211
sub koha_objects_class {
223
sub koha_objects_class {
212
    'Koha::ILL::Batches';
224
    'Koha::ILL::Batches';
213
}
225
}
(-)a/Koha/Schema/Result/IllbatchStatus.pm (+12 lines)
Lines 118-127 __PACKAGE__->add_columns( Link Here
118
    '+is_system' => { is_boolean => 1 },
118
    '+is_system' => { is_boolean => 1 },
119
);
119
);
120
120
121
=head2 koha_object_class
122
123
Missing POD for koha_object_class.
124
125
=cut
126
121
sub koha_object_class {
127
sub koha_object_class {
122
    'Koha::ILL::Batch::Status';
128
    'Koha::ILL::Batch::Status';
123
}
129
}
124
130
131
=head2 koha_objects_class
132
133
Missing POD for koha_objects_class.
134
135
=cut
136
125
sub koha_objects_class {
137
sub koha_objects_class {
126
    'Koha::ILL::Batch::Statuses';
138
    'Koha::ILL::Batch::Statuses';
127
}
139
}
(-)a/Koha/Schema/Result/Illcomment.pm (+12 lines)
Lines 142-150 __PACKAGE__->belongs_to( Link Here
142
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
142
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
143
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:z5Y6mVTLtrYxmqmyAc/E7A
143
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:z5Y6mVTLtrYxmqmyAc/E7A
144
#
144
#
145
=head2 koha_objects_class
146
147
Missing POD for koha_objects_class.
148
149
=cut
150
145
sub koha_objects_class {
151
sub koha_objects_class {
146
    'Koha::ILL::Comments';
152
    'Koha::ILL::Comments';
147
}
153
}
154
=head2 koha_object_class
155
156
Missing POD for koha_object_class.
157
158
=cut
159
148
sub koha_object_class {
160
sub koha_object_class {
149
    'Koha::ILL::Comment';
161
    'Koha::ILL::Comment';
150
}
162
}
(-)a/Koha/Schema/Result/Illrequest.pm (+12 lines)
Lines 439-448 __PACKAGE__->belongs_to( Link Here
439
  },
439
  },
440
);
440
);
441
441
442
=head2 koha_object_class
443
444
Missing POD for koha_object_class.
445
446
=cut
447
442
sub koha_object_class {
448
sub koha_object_class {
443
    'Koha::ILL::Request';
449
    'Koha::ILL::Request';
444
}
450
}
445
451
452
=head2 koha_objects_class
453
454
Missing POD for koha_objects_class.
455
456
=cut
457
446
sub koha_objects_class {
458
sub koha_objects_class {
447
    'Koha::ILL::Requests';
459
    'Koha::ILL::Requests';
448
}
460
}
(-)a/Koha/Schema/Result/Illrequestattribute.pm (+12 lines)
Lines 124-133 __PACKAGE__->add_columns( Link Here
124
    '+readonly' => { is_boolean => 1 }
124
    '+readonly' => { is_boolean => 1 }
125
);
125
);
126
126
127
=head2 koha_object_class
128
129
Missing POD for koha_object_class.
130
131
=cut
132
127
sub koha_object_class {
133
sub koha_object_class {
128
    'Koha::ILL::Request::Attribute';
134
    'Koha::ILL::Request::Attribute';
129
}
135
}
130
136
137
=head2 koha_objects_class
138
139
Missing POD for koha_objects_class.
140
141
=cut
142
131
sub koha_objects_class {
143
sub koha_objects_class {
132
    'Koha::ILL::Request::Attributes';
144
    'Koha::ILL::Request::Attributes';
133
}
145
}
(-)a/Koha/Schema/Result/ImportAuth.pm (+12 lines)
Lines 100-108 __PACKAGE__->belongs_to( Link Here
100
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-03-31 10:47:53
100
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-03-31 10:47:53
101
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:SRH+gauacnrd+nD9OtAfCQ
101
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:SRH+gauacnrd+nD9OtAfCQ
102
102
103
=head2 koha_objects_class
104
105
Missing POD for koha_objects_class.
106
107
=cut
108
103
sub koha_objects_class {
109
sub koha_objects_class {
104
    'Koha::Import::Record::Auths';
110
    'Koha::Import::Record::Auths';
105
}
111
}
112
=head2 koha_object_class
113
114
Missing POD for koha_object_class.
115
116
=cut
117
106
sub koha_object_class {
118
sub koha_object_class {
107
    'Koha::Import::Record::Auth';
119
    'Koha::Import::Record::Auth';
108
}
120
}
(-)a/Koha/Schema/Result/ImportBiblio.pm (+12 lines)
Lines 128-136 __PACKAGE__->belongs_to( Link Here
128
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-10-17 11:17:50
128
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-10-17 11:17:50
129
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:Oj/1VkjYP538OlNeu41mqA
129
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:Oj/1VkjYP538OlNeu41mqA
130
130
131
=head2 koha_object_class
132
133
Missing POD for koha_object_class.
134
135
=cut
136
131
sub koha_object_class {
137
sub koha_object_class {
132
    'Koha::Import::Record::Biblio';
138
    'Koha::Import::Record::Biblio';
133
}
139
}
140
=head2 koha_objects_class
141
142
Missing POD for koha_objects_class.
143
144
=cut
145
134
sub koha_objects_class {
146
sub koha_objects_class {
135
    'Koha::Import::Record::Biblios';
147
    'Koha::Import::Record::Biblios';
136
}
148
}
(-)a/Koha/Schema/Result/ImportItem.pm (+12 lines)
Lines 120-128 __PACKAGE__->belongs_to( Link Here
120
# Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-02-16 17:54:53
120
# Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-02-16 17:54:53
121
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:GaUyqPnOhETQO8YuuKvfNQ
121
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:GaUyqPnOhETQO8YuuKvfNQ
122
122
123
=head2 koha_object_class
124
125
Missing POD for koha_object_class.
126
127
=cut
128
123
sub koha_object_class {
129
sub koha_object_class {
124
    'Koha::Import::Record::Item';
130
    'Koha::Import::Record::Item';
125
}
131
}
132
=head2 koha_objects_class
133
134
Missing POD for koha_objects_class.
135
136
=cut
137
126
sub koha_objects_class {
138
sub koha_objects_class {
127
    'Koha::Import::Record::Items';
139
    'Koha::Import::Record::Items';
128
}
140
}
(-)a/Koha/Schema/Result/ImportOaiAuthority.pm (+12 lines)
Lines 150-159 __PACKAGE__->belongs_to( Link Here
150
150
151
# You can replace this text with custom code or comments, and it will be preserved on regeneration
151
# You can replace this text with custom code or comments, and it will be preserved on regeneration
152
152
153
=head2 koha_object_class
154
155
Missing POD for koha_object_class.
156
157
=cut
158
153
sub koha_object_class {
159
sub koha_object_class {
154
    'Koha::Import::OAI::Authority';
160
    'Koha::Import::OAI::Authority';
155
}
161
}
156
162
163
=head2 koha_objects_class
164
165
Missing POD for koha_objects_class.
166
167
=cut
168
157
sub koha_objects_class {
169
sub koha_objects_class {
158
    'Koha::Import::OAI::Authorities';
170
    'Koha::Import::OAI::Authorities';
159
}
171
}
(-)a/Koha/Schema/Result/ImportOaiBiblio.pm (+12 lines)
Lines 144-153 __PACKAGE__->belongs_to( Link Here
144
144
145
# You can replace this text with custom code or comments, and it will be preserved on regeneration
145
# You can replace this text with custom code or comments, and it will be preserved on regeneration
146
146
147
=head2 koha_object_class
148
149
Missing POD for koha_object_class.
150
151
=cut
152
147
sub koha_object_class {
153
sub koha_object_class {
148
    'Koha::Import::OAI::Biblio';
154
    'Koha::Import::OAI::Biblio';
149
}
155
}
150
156
157
=head2 koha_objects_class
158
159
Missing POD for koha_objects_class.
160
161
=cut
162
151
sub koha_objects_class {
163
sub koha_objects_class {
152
    'Koha::Import::OAI::Biblios';
164
    'Koha::Import::OAI::Biblios';
153
}
165
}
(-)a/Koha/Schema/Result/ImportRecord.pm (+12 lines)
Lines 265-273 __PACKAGE__->has_many( Link Here
265
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-03-31 10:47:53
265
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-03-31 10:47:53
266
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:XNZhr5GRMgyndwQMsGfGRQ
266
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:XNZhr5GRMgyndwQMsGfGRQ
267
267
268
=head2 koha_object_class
269
270
Missing POD for koha_object_class.
271
272
=cut
273
268
sub koha_object_class {
274
sub koha_object_class {
269
    'Koha::Import::Record';
275
    'Koha::Import::Record';
270
}
276
}
277
=head2 koha_objects_class
278
279
Missing POD for koha_objects_class.
280
281
=cut
282
271
sub koha_objects_class {
283
sub koha_objects_class {
272
    'Koha::Import::Records';
284
    'Koha::Import::Records';
273
}
285
}
(-)a/Koha/Schema/Result/ImportRecordMatch.pm (+12 lines)
Lines 105-113 __PACKAGE__->add_columns( Link Here
105
    '+chosen' => { is_boolean => 1 },
105
    '+chosen' => { is_boolean => 1 },
106
);
106
);
107
107
108
=head2 koha_object_class
109
110
Missing POD for koha_object_class.
111
112
=cut
113
108
sub koha_object_class {
114
sub koha_object_class {
109
    'Koha::Import::Record::Match';
115
    'Koha::Import::Record::Match';
110
}
116
}
117
=head2 koha_objects_class
118
119
Missing POD for koha_objects_class.
120
121
=cut
122
111
sub koha_objects_class {
123
sub koha_objects_class {
112
    'Koha::Import::Record::Matches';
124
    'Koha::Import::Record::Matches';
113
}
125
}
(-)a/Koha/Schema/Result/Issue.pm (+12 lines)
Lines 425-433 __PACKAGE__->has_many( Link Here
425
    { cascade_copy       => 0, cascade_delete => 0 },
425
    { cascade_copy       => 0, cascade_delete => 0 },
426
);
426
);
427
427
428
=head2 koha_object_class
429
430
Missing POD for koha_object_class.
431
432
=cut
433
428
sub koha_object_class {
434
sub koha_object_class {
429
    'Koha::Checkout';
435
    'Koha::Checkout';
430
}
436
}
437
=head2 koha_objects_class
438
439
Missing POD for koha_objects_class.
440
441
=cut
442
431
sub koha_objects_class {
443
sub koha_objects_class {
432
    'Koha::Checkouts';
444
    'Koha::Checkouts';
433
}
445
}
(-)a/Koha/Schema/Result/Item.pm (+6 lines)
Lines 1077-1082 __PACKAGE__->might_have( Link Here
1077
);
1077
);
1078
1078
1079
use C4::Context;
1079
use C4::Context;
1080
=head2 effective_itemtype
1081
1082
Missing POD for effective_itemtype.
1083
1084
=cut
1085
1080
sub effective_itemtype {
1086
sub effective_itemtype {
1081
    my ( $self ) = @_;
1087
    my ( $self ) = @_;
1082
1088
(-)a/Koha/Schema/Result/ItemGroup.pm (+12 lines)
Lines 175-183 __PACKAGE__->has_many( Link Here
175
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-05-10 17:06:39
175
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-05-10 17:06:39
176
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:OPwObeUEFgzNwMYlEgHkQw
176
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:OPwObeUEFgzNwMYlEgHkQw
177
177
178
=head2 koha_objects_class
179
180
Missing POD for koha_objects_class.
181
182
=cut
183
178
sub koha_objects_class {
184
sub koha_objects_class {
179
    'Koha::Biblio::ItemGroups';
185
    'Koha::Biblio::ItemGroups';
180
}
186
}
187
=head2 koha_object_class
188
189
Missing POD for koha_object_class.
190
191
=cut
192
181
sub koha_object_class {
193
sub koha_object_class {
182
    'Koha::Biblio::ItemGroup';
194
    'Koha::Biblio::ItemGroup';
183
}
195
}
(-)a/Koha/Schema/Result/ItemGroupItem.pm (+12 lines)
Lines 132-140 __PACKAGE__->belongs_to( Link Here
132
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-06-02 16:18:20
132
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-06-02 16:18:20
133
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:FLtrDLTHqXdzqyOmVvaXJQ
133
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:FLtrDLTHqXdzqyOmVvaXJQ
134
134
135
=head2 koha_object_class
136
137
Missing POD for koha_object_class.
138
139
=cut
140
135
sub koha_object_class {
141
sub koha_object_class {
136
    'Koha::Biblio::ItemGroup::Item';
142
    'Koha::Biblio::ItemGroup::Item';
137
}
143
}
144
=head2 koha_objects_class
145
146
Missing POD for koha_objects_class.
147
148
=cut
149
138
sub koha_objects_class {
150
sub koha_objects_class {
139
    'Koha::Biblio::ItemGroup::Items';
151
    'Koha::Biblio::ItemGroup::Items';
140
}
152
}
(-)a/Koha/Schema/Result/Itemtype.pm (+12 lines)
Lines 373-381 __PACKAGE__->has_many( Link Here
373
    }
373
    }
374
);
374
);
375
375
376
=head2 koha_object_class
377
378
Missing POD for koha_object_class.
379
380
=cut
381
376
sub koha_object_class {
382
sub koha_object_class {
377
    'Koha::ItemType';
383
    'Koha::ItemType';
378
}
384
}
385
=head2 koha_objects_class
386
387
Missing POD for koha_objects_class.
388
389
=cut
390
379
sub koha_objects_class {
391
sub koha_objects_class {
380
    'Koha::ItemTypes';
392
    'Koha::ItemTypes';
381
}
393
}
(-)a/Koha/Schema/Result/Letter.pm (+12 lines)
Lines 244-252 __PACKAGE__->belongs_to( Link Here
244
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2024-04-26 17:01:21
244
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2024-04-26 17:01:21
245
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:UglmO8Xk7xnC09bYETA5+w
245
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:UglmO8Xk7xnC09bYETA5+w
246
246
247
=head2 koha_object_class
248
249
Missing POD for koha_object_class.
250
251
=cut
252
247
sub koha_object_class {
253
sub koha_object_class {
248
    'Koha::Notice::Template';
254
    'Koha::Notice::Template';
249
}
255
}
256
=head2 koha_objects_class
257
258
Missing POD for koha_objects_class.
259
260
=cut
261
250
sub koha_objects_class {
262
sub koha_objects_class {
251
    'Koha::Notice::Templates';
263
    'Koha::Notice::Templates';
252
}
264
}
(-)a/Koha/Schema/Result/LibraryGroup.pm (+12 lines)
Lines 269-277 __PACKAGE__->belongs_to( Link Here
269
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-10-04 17:58:31
269
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-10-04 17:58:31
270
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:M9YgMuCWhncegAzkH8uoJg
270
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:M9YgMuCWhncegAzkH8uoJg
271
271
272
=head2 koha_object_class
273
274
Missing POD for koha_object_class.
275
276
=cut
277
272
sub koha_object_class {
278
sub koha_object_class {
273
    'Koha::Library::Group';
279
    'Koha::Library::Group';
274
}
280
}
281
=head2 koha_objects_class
282
283
Missing POD for koha_objects_class.
284
285
=cut
286
275
sub koha_objects_class {
287
sub koha_objects_class {
276
    'Koha::Library::Groups';
288
    'Koha::Library::Groups';
277
}
289
}
(-)a/Koha/Schema/Result/LibraryHour.pm (+12 lines)
Lines 100-108 __PACKAGE__->belongs_to( Link Here
100
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2024-04-12 08:58:44
100
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2024-04-12 08:58:44
101
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:1W6KcIBKWaCCu/UEXF+zug
101
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:1W6KcIBKWaCCu/UEXF+zug
102
102
103
=head2 koha_objects_class
104
105
Missing POD for koha_objects_class.
106
107
=cut
108
103
sub koha_objects_class {
109
sub koha_objects_class {
104
    'Koha::Library::Hours';
110
    'Koha::Library::Hours';
105
}
111
}
112
=head2 koha_object_class
113
114
Missing POD for koha_object_class.
115
116
=cut
117
106
sub koha_object_class {
118
sub koha_object_class {
107
    'Koha::Library::Hour';
119
    'Koha::Library::Hour';
108
}
120
}
(-)a/Koha/Schema/Result/Linktracker.pm (+12 lines)
Lines 169-177 __PACKAGE__->belongs_to( Link Here
169
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-08-27 08:42:21
169
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-08-27 08:42:21
170
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:ksT3i//fQn+HnBKt4YZlhg
170
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:ksT3i//fQn+HnBKt4YZlhg
171
171
172
=head2 koha_object_class
173
174
Missing POD for koha_object_class.
175
176
=cut
177
172
sub koha_object_class {
178
sub koha_object_class {
173
    'Koha::TrackedLink';
179
    'Koha::TrackedLink';
174
}
180
}
181
=head2 koha_objects_class
182
183
Missing POD for koha_objects_class.
184
185
=cut
186
175
sub koha_objects_class {
187
sub koha_objects_class {
176
    'Koha::TrackedLinks';
188
    'Koha::TrackedLinks';
177
}
189
}
(-)a/Koha/Schema/Result/Message.pm (+12 lines)
Lines 170-178 __PACKAGE__->belongs_to( Link Here
170
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-04-20 18:35:40
170
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-04-20 18:35:40
171
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:y3cJsv6T0LekoQiyi3T/aA
171
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:y3cJsv6T0LekoQiyi3T/aA
172
172
173
=head2 koha_object_class
174
175
Missing POD for koha_object_class.
176
177
=cut
178
173
sub koha_object_class {
179
sub koha_object_class {
174
    'Koha::Patron::Message';
180
    'Koha::Patron::Message';
175
}
181
}
182
=head2 koha_objects_class
183
184
Missing POD for koha_objects_class.
185
186
=cut
187
176
sub koha_objects_class {
188
sub koha_objects_class {
177
    'Koha::Patron::Messages';
189
    'Koha::Patron::Messages';
178
}
190
}
(-)a/Koha/Schema/Result/MessageAttribute.pm (+12 lines)
Lines 118-126 __PACKAGE__->has_many( Link Here
118
118
119
# You can replace this text with custom content, and it will be preserved on regeneration
119
# You can replace this text with custom content, and it will be preserved on regeneration
120
120
121
=head2 koha_object_class
122
123
Missing POD for koha_object_class.
124
125
=cut
126
121
sub koha_object_class {
127
sub koha_object_class {
122
  'Koha::Patron::MessagePreference::Attribute';
128
  'Koha::Patron::MessagePreference::Attribute';
123
}
129
}
130
=head2 koha_objects_class
131
132
Missing POD for koha_objects_class.
133
134
=cut
135
124
sub koha_objects_class {
136
sub koha_objects_class {
125
  'Koha::Patron::MessagePreference::Attributes';
137
  'Koha::Patron::MessagePreference::Attributes';
126
}
138
}
(-)a/Koha/Schema/Result/MessageQueue.pm (+12 lines)
Lines 247-255 __PACKAGE__->belongs_to( Link Here
247
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-09-18 14:26:23
247
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-09-18 14:26:23
248
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:eJFHJ3sXu+kLt+uW4ILPIA
248
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:eJFHJ3sXu+kLt+uW4ILPIA
249
249
250
=head2 koha_object_class
251
252
Missing POD for koha_object_class.
253
254
=cut
255
250
sub koha_object_class {
256
sub koha_object_class {
251
    'Koha::Notice::Message';
257
    'Koha::Notice::Message';
252
}
258
}
259
=head2 koha_objects_class
260
261
Missing POD for koha_objects_class.
262
263
=cut
264
253
sub koha_objects_class {
265
sub koha_objects_class {
254
    'Koha::Notice::Messages';
266
    'Koha::Notice::Messages';
255
}
267
}
(-)a/Koha/Schema/Result/MessageTransport.pm (+12 lines)
Lines 135-143 __PACKAGE__->belongs_to( Link Here
135
135
136
# You can replace this text with custom content, and it will be preserved on regeneration
136
# You can replace this text with custom content, and it will be preserved on regeneration
137
137
138
=head2 koha_object_class
139
140
Missing POD for koha_object_class.
141
142
=cut
143
138
sub koha_object_class {
144
sub koha_object_class {
139
  'Koha::Patron::MessagePreference::Transport';
145
  'Koha::Patron::MessagePreference::Transport';
140
}
146
}
147
=head2 koha_objects_class
148
149
Missing POD for koha_objects_class.
150
151
=cut
152
141
sub koha_objects_class {
153
sub koha_objects_class {
142
  'Koha::Patron::MessagePreference::Transports';
154
  'Koha::Patron::MessagePreference::Transports';
143
}
155
}
(-)a/Koha/Schema/Result/MessageTransportType.pm (+12 lines)
Lines 156-164 __PACKAGE__->many_to_many( Link Here
156
156
157
# You can replace this text with custom content, and it will be preserved on regeneration
157
# You can replace this text with custom content, and it will be preserved on regeneration
158
158
159
=head2 koha_object_class
160
161
Missing POD for koha_object_class.
162
163
=cut
164
159
sub koha_object_class {
165
sub koha_object_class {
160
  'Koha::Patron::MessagePreference::Transport::Type';
166
  'Koha::Patron::MessagePreference::Transport::Type';
161
}
167
}
168
=head2 koha_objects_class
169
170
Missing POD for koha_objects_class.
171
172
=cut
173
162
sub koha_objects_class {
174
sub koha_objects_class {
163
  'Koha::Patron::MessagePreference::Transport::Types';
175
  'Koha::Patron::MessagePreference::Transport::Types';
164
}
176
}
(-)a/Koha/Schema/Result/NeedMergeAuthority.pm (+12 lines)
Lines 105-113 __PACKAGE__->set_primary_key("id"); Link Here
105
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
105
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
106
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:ZGE483WQMHZLpdgAAPHMKg
106
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:ZGE483WQMHZLpdgAAPHMKg
107
107
108
=head2 koha_object_class
109
110
Missing POD for koha_object_class.
111
112
=cut
113
108
sub koha_object_class {
114
sub koha_object_class {
109
    'Koha::Authority::MergeRequest';
115
    'Koha::Authority::MergeRequest';
110
}
116
}
117
=head2 koha_objects_class
118
119
Missing POD for koha_objects_class.
120
121
=cut
122
111
sub koha_objects_class {
123
sub koha_objects_class {
112
    'Koha::Authority::MergeRequests';
124
    'Koha::Authority::MergeRequests';
113
}
125
}
(-)a/Koha/Schema/Result/OaiServer.pm (+12 lines)
Lines 124-132 __PACKAGE__->set_primary_key("oai_server_id"); Link Here
124
# Created by DBIx::Class::Schema::Loader v0.07051 @ 2024-07-31 14:51:58
124
# Created by DBIx::Class::Schema::Loader v0.07051 @ 2024-07-31 14:51:58
125
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:HeQgY+4P10NKCtLqdExv+g
125
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:HeQgY+4P10NKCtLqdExv+g
126
126
127
=head2 koha_object_class
128
129
Missing POD for koha_object_class.
130
131
=cut
132
127
sub koha_object_class {
133
sub koha_object_class {
128
    'Koha::OAIServer';
134
    'Koha::OAIServer';
129
}
135
}
136
=head2 koha_objects_class
137
138
Missing POD for koha_objects_class.
139
140
=cut
141
130
sub koha_objects_class {
142
sub koha_objects_class {
131
    'Koha::OAIServers';
143
    'Koha::OAIServers';
132
}
144
}
(-)a/Koha/Schema/Result/OauthAccessToken.pm (+12 lines)
Lines 73-81 __PACKAGE__->set_primary_key("access_token"); Link Here
73
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
73
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
74
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:3mL1s811AK45Nn5yPSJSaA
74
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:3mL1s811AK45Nn5yPSJSaA
75
75
76
=head2 koha_object_class
77
78
Missing POD for koha_object_class.
79
80
=cut
81
76
sub koha_object_class {
82
sub koha_object_class {
77
    'Koha::OAuthAccessToken';
83
    'Koha::OAuthAccessToken';
78
}
84
}
85
=head2 koha_objects_class
86
87
Missing POD for koha_objects_class.
88
89
=cut
90
79
sub koha_objects_class {
91
sub koha_objects_class {
80
    'Koha::OAuthAccessTokens';
92
    'Koha::OAuthAccessTokens';
81
}
93
}
(-)a/Koha/Schema/Result/OldIssue.pm (+12 lines)
Lines 405-413 __PACKAGE__->might_have( Link Here
405
    { cascade_copy       => 0, cascade_delete => 0 },
405
    { cascade_copy       => 0, cascade_delete => 0 },
406
);
406
);
407
407
408
=head2 koha_object_class
409
410
Missing POD for koha_object_class.
411
412
=cut
413
408
sub koha_object_class {
414
sub koha_object_class {
409
    'Koha::Old::Checkout';
415
    'Koha::Old::Checkout';
410
}
416
}
417
=head2 koha_objects_class
418
419
Missing POD for koha_objects_class.
420
421
=cut
422
411
sub koha_objects_class {
423
sub koha_objects_class {
412
    'Koha::Old::Checkouts';
424
    'Koha::Old::Checkouts';
413
}
425
}
(-)a/Koha/Schema/Result/OldReserve.pm (+12 lines)
Lines 495-503 __PACKAGE__->add_columns( Link Here
495
    '+non_priority'    => { is_boolean => 1 }
495
    '+non_priority'    => { is_boolean => 1 }
496
);
496
);
497
497
498
=head2 koha_object_class
499
500
Missing POD for koha_object_class.
501
502
=cut
503
498
sub koha_object_class {
504
sub koha_object_class {
499
    'Koha::Old::Hold';
505
    'Koha::Old::Hold';
500
}
506
}
507
=head2 koha_objects_class
508
509
Missing POD for koha_objects_class.
510
511
=cut
512
501
sub koha_objects_class {
513
sub koha_objects_class {
502
    'Koha::Old::Holds';
514
    'Koha::Old::Holds';
503
}
515
}
(-)a/Koha/Schema/Result/Overduerule.pm (+12 lines)
Lines 198-206 __PACKAGE__->has_many( Link Here
198
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
198
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
199
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:pORigxtC5qztZWHI29mZ/g
199
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:pORigxtC5qztZWHI29mZ/g
200
200
201
=head2 koha_object_class
202
203
Missing POD for koha_object_class.
204
205
=cut
206
201
sub koha_object_class {
207
sub koha_object_class {
202
    'Koha::OverdueRule';
208
    'Koha::OverdueRule';
203
}
209
}
210
=head2 koha_objects_class
211
212
Missing POD for koha_objects_class.
213
214
=cut
215
204
sub koha_objects_class {
216
sub koha_objects_class {
205
    'Koha::OverdueRules';
217
    'Koha::OverdueRules';
206
}
218
}
(-)a/Koha/Schema/Result/PatronConsent.pm (+12 lines)
Lines 110-118 __PACKAGE__->belongs_to( Link Here
110
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-10-25 14:33:42
110
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-10-25 14:33:42
111
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:LWTvNPA/R0VoWUzcRLnjDg
111
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:LWTvNPA/R0VoWUzcRLnjDg
112
112
113
=head2 koha_object_class
114
115
Missing POD for koha_object_class.
116
117
=cut
118
113
sub koha_object_class {
119
sub koha_object_class {
114
    'Koha::Patron::Consent';
120
    'Koha::Patron::Consent';
115
}
121
}
122
=head2 koha_objects_class
123
124
Missing POD for koha_objects_class.
125
126
=cut
127
116
sub koha_objects_class {
128
sub koha_objects_class {
117
    'Koha::Patron::Consents';
129
    'Koha::Patron::Consents';
118
}
130
}
(-)a/Koha/Schema/Result/Patronimage.pm (+12 lines)
Lines 90-98 __PACKAGE__->belongs_to( Link Here
90
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
90
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
91
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:DWbMgbxlYcZhGF1YK9fDIA
91
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:DWbMgbxlYcZhGF1YK9fDIA
92
92
93
=head2 koha_object_class
94
95
Missing POD for koha_object_class.
96
97
=cut
98
93
sub koha_object_class {
99
sub koha_object_class {
94
    'Koha::Patron::Image';
100
    'Koha::Patron::Image';
95
}
101
}
102
=head2 koha_objects_class
103
104
Missing POD for koha_objects_class.
105
106
=cut
107
96
sub koha_objects_class {
108
sub koha_objects_class {
97
    'Koha::Patron::Images';
109
    'Koha::Patron::Images';
98
}
110
}
(-)a/Koha/Schema/Result/PluginData.pm (+12 lines)
Lines 70-78 __PACKAGE__->set_primary_key("plugin_class", "plugin_key"); Link Here
70
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:g4MbnMszG6BGSG0vHxWQig
70
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:g4MbnMszG6BGSG0vHxWQig
71
71
72
72
73
=head2 koha_objects_class
74
75
Missing POD for koha_objects_class.
76
77
=cut
78
73
sub koha_objects_class {
79
sub koha_objects_class {
74
    'Koha::Plugins::Datas';
80
    'Koha::Plugins::Datas';
75
}
81
}
82
=head2 koha_object_class
83
84
Missing POD for koha_object_class.
85
86
=cut
87
76
sub koha_object_class {
88
sub koha_object_class {
77
    'Koha::Plugins::Data';
89
    'Koha::Plugins::Data';
78
}
90
}
(-)a/Koha/Schema/Result/PluginMethod.pm (+12 lines)
Lines 62-70 __PACKAGE__->set_primary_key("plugin_class", "plugin_method"); Link Here
62
# Created by DBIx::Class::Schema::Loader v0.07046 @ 2018-07-13 12:37:57
62
# Created by DBIx::Class::Schema::Loader v0.07046 @ 2018-07-13 12:37:57
63
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:koGk3Dh0wkslqYPUqUcK0w
63
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:koGk3Dh0wkslqYPUqUcK0w
64
64
65
=head2 koha_objects_class
66
67
Missing POD for koha_objects_class.
68
69
=cut
70
65
sub koha_objects_class {
71
sub koha_objects_class {
66
    'Koha::Plugins::Methods';
72
    'Koha::Plugins::Methods';
67
}
73
}
74
=head2 koha_object_class
75
76
Missing POD for koha_object_class.
77
78
=cut
79
68
sub koha_object_class {
80
sub koha_object_class {
69
    'Koha::Plugins::Method';
81
    'Koha::Plugins::Method';
70
}
82
}
(-)a/Koha/Schema/Result/PreservationProcessing.pm (+12 lines)
Lines 121-129 __PACKAGE__->has_many( Link Here
121
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-04-17 18:58:35
121
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-04-17 18:58:35
122
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:fIZfFuAY21nh+Fwwjd/kJw
122
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:fIZfFuAY21nh+Fwwjd/kJw
123
123
124
=head2 koha_object_class
125
126
Missing POD for koha_object_class.
127
128
=cut
129
124
sub koha_object_class {
130
sub koha_object_class {
125
    'Koha::Preservation::Processing';
131
    'Koha::Preservation::Processing';
126
}
132
}
133
=head2 koha_objects_class
134
135
Missing POD for koha_objects_class.
136
137
=cut
138
127
sub koha_objects_class {
139
sub koha_objects_class {
128
    'Koha::Preservation::Processings';
140
    'Koha::Preservation::Processings';
129
}
141
}
(-)a/Koha/Schema/Result/PreservationProcessingAttribute.pm (+12 lines)
Lines 132-140 __PACKAGE__->belongs_to( Link Here
132
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-04-17 18:47:47
132
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-04-17 18:47:47
133
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:i0vFmFYaqiZFyXGxDp+6oQ
133
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:i0vFmFYaqiZFyXGxDp+6oQ
134
134
135
=head2 koha_objects_class
136
137
Missing POD for koha_objects_class.
138
139
=cut
140
135
sub koha_objects_class {
141
sub koha_objects_class {
136
    'Koha::Preservation::Processing::Attributes';
142
    'Koha::Preservation::Processing::Attributes';
137
}
143
}
144
=head2 koha_object_class
145
146
Missing POD for koha_object_class.
147
148
=cut
149
138
sub koha_object_class {
150
sub koha_object_class {
139
    'Koha::Preservation::Processing::Attribute';
151
    'Koha::Preservation::Processing::Attribute';
140
}
152
}
(-)a/Koha/Schema/Result/PreservationProcessingAttributesItem.pm (+12 lines)
Lines 116-124 __PACKAGE__->belongs_to( Link Here
116
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-04-24 13:35:42
116
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-04-24 13:35:42
117
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:q7q8ThZAW9HGDWaemSTS3A
117
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:q7q8ThZAW9HGDWaemSTS3A
118
118
119
=head2 koha_object_class
120
121
Missing POD for koha_object_class.
122
123
=cut
124
119
sub koha_object_class {
125
sub koha_object_class {
120
    'Koha::Preservation::Train::Item::Attribute';
126
    'Koha::Preservation::Train::Item::Attribute';
121
}
127
}
128
=head2 koha_objects_class
129
130
Missing POD for koha_objects_class.
131
132
=cut
133
122
sub koha_objects_class {
134
sub koha_objects_class {
123
    'Koha::Preservation::Train::Item::Attributes';
135
    'Koha::Preservation::Train::Item::Attributes';
124
}
136
}
(-)a/Koha/Schema/Result/PreservationTrain.pm (+12 lines)
Lines 190-198 __PACKAGE__->has_many( Link Here
190
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-04-17 18:47:47
190
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-04-17 18:47:47
191
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:ojxQ0wFj2datCPVjeuTBWw
191
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:ojxQ0wFj2datCPVjeuTBWw
192
192
193
=head2 koha_object_class
194
195
Missing POD for koha_object_class.
196
197
=cut
198
193
sub koha_object_class {
199
sub koha_object_class {
194
    'Koha::Preservation::Train';
200
    'Koha::Preservation::Train';
195
}
201
}
202
=head2 koha_objects_class
203
204
Missing POD for koha_objects_class.
205
206
=cut
207
196
sub koha_objects_class {
208
sub koha_objects_class {
197
    'Koha::Preservation::Trains';
209
    'Koha::Preservation::Trains';
198
}
210
}
(-)a/Koha/Schema/Result/PreservationTrainsItem.pm (+12 lines)
Lines 190-198 __PACKAGE__->belongs_to( Link Here
190
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-04-17 18:47:47
190
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-04-17 18:47:47
191
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:lpvjaV+qXrIDVlimBaycgA
191
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:lpvjaV+qXrIDVlimBaycgA
192
192
193
=head2 koha_object_class
194
195
Missing POD for koha_object_class.
196
197
=cut
198
193
sub koha_object_class {
199
sub koha_object_class {
194
    'Koha::Preservation::Train::Item';
200
    'Koha::Preservation::Train::Item';
195
}
201
}
202
=head2 koha_objects_class
203
204
Missing POD for koha_objects_class.
205
206
=cut
207
196
sub koha_objects_class {
208
sub koha_objects_class {
197
    'Koha::Preservation::Train::Items';
209
    'Koha::Preservation::Train::Items';
198
}
210
}
(-)a/Koha/Schema/Result/Reserve.pm (+12 lines)
Lines 506-514 __PACKAGE__->add_columns( Link Here
506
    '+non_priority'    => { is_boolean => 1 }
506
    '+non_priority'    => { is_boolean => 1 }
507
);
507
);
508
508
509
=head2 koha_object_class
510
511
Missing POD for koha_object_class.
512
513
=cut
514
509
sub koha_object_class {
515
sub koha_object_class {
510
    'Koha::Hold';
516
    'Koha::Hold';
511
}
517
}
518
=head2 koha_objects_class
519
520
Missing POD for koha_objects_class.
521
522
=cut
523
512
sub koha_objects_class {
524
sub koha_objects_class {
513
    'Koha::Holds';
525
    'Koha::Holds';
514
}
526
}
(-)a/Koha/Schema/Result/RestrictionType.pm (+12 lines)
Lines 114-122 __PACKAGE__->add_columns( Link Here
114
    '+lift_after_payment' => { is_boolean => 1 },
114
    '+lift_after_payment' => { is_boolean => 1 },
115
);
115
);
116
116
117
=head2 koha_object_class
118
119
Missing POD for koha_object_class.
120
121
=cut
122
117
sub koha_object_class {
123
sub koha_object_class {
118
    'Koha::Patron::Restriction::Type';
124
    'Koha::Patron::Restriction::Type';
119
}
125
}
126
=head2 koha_objects_class
127
128
Missing POD for koha_objects_class.
129
130
=cut
131
120
sub koha_objects_class {
132
sub koha_objects_class {
121
    'Koha::Patron::Restriction::Types';
133
    'Koha::Patron::Restriction::Types';
122
}
134
}
(-)a/Koha/Schema/Result/ReturnClaim.pm (+12 lines)
Lines 333-341 __PACKAGE__->belongs_to( Link Here
333
  { is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },
333
  { is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },
334
);
334
);
335
335
336
=head2 koha_objects_class
337
338
Missing POD for koha_objects_class.
339
340
=cut
341
336
sub koha_objects_class {
342
sub koha_objects_class {
337
    'Koha::Checkouts::ReturnClaims';
343
    'Koha::Checkouts::ReturnClaims';
338
}
344
}
345
=head2 koha_object_class
346
347
Missing POD for koha_object_class.
348
349
=cut
350
339
sub koha_object_class {
351
sub koha_object_class {
340
    'Koha::Checkouts::ReturnClaim';
352
    'Koha::Checkouts::ReturnClaim';
341
}
353
}
(-)a/Koha/Schema/Result/SavedSql.pm (+12 lines)
Lines 193-201 __PACKAGE__->add_columns( Link Here
193
    '+public' => { is_boolean => 1 }
193
    '+public' => { is_boolean => 1 }
194
);
194
);
195
195
196
=head2 koha_object_class
197
198
Missing POD for koha_object_class.
199
200
=cut
201
196
sub koha_object_class {
202
sub koha_object_class {
197
    'Koha::Report';
203
    'Koha::Report';
198
}
204
}
205
=head2 koha_objects_class
206
207
Missing POD for koha_objects_class.
208
209
=cut
210
199
sub koha_objects_class {
211
sub koha_objects_class {
200
    'Koha::Reports';
212
    'Koha::Reports';
201
}
213
}
(-)a/Koha/Schema/Result/Serialitem.pm (+12 lines)
Lines 92-100 __PACKAGE__->belongs_to( Link Here
92
# Created by DBIx::Class::Schema::Loader v0.07042 @ 2017-04-13 13:53:21
92
# Created by DBIx::Class::Schema::Loader v0.07042 @ 2017-04-13 13:53:21
93
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:Z43jqmURevaJeui7l8ThlQ
93
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:Z43jqmURevaJeui7l8ThlQ
94
94
95
=head2 koha_object_class
96
97
Missing POD for koha_object_class.
98
99
=cut
100
95
sub koha_object_class {
101
sub koha_object_class {
96
    'Koha::Serial::Item';
102
    'Koha::Serial::Item';
97
}
103
}
104
=head2 koha_objects_class
105
106
Missing POD for koha_objects_class.
107
108
=cut
109
98
sub koha_objects_class {
110
sub koha_objects_class {
99
    'Koha::Serial::Items';
111
    'Koha::Serial::Items';
100
}
112
}
(-)a/Koha/Schema/Result/SmsProvider.pm (+12 lines)
Lines 99-107 __PACKAGE__->has_many( Link Here
99
# Created by DBIx::Class::Schema::Loader v0.07042 @ 2015-12-31 16:48:38
99
# Created by DBIx::Class::Schema::Loader v0.07042 @ 2015-12-31 16:48:38
100
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:U3LGi1zy3YN2Amin+bhXlA
100
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:U3LGi1zy3YN2Amin+bhXlA
101
101
102
=head2 koha_object_class
103
104
Missing POD for koha_object_class.
105
106
=cut
107
102
sub koha_object_class {
108
sub koha_object_class {
103
    'Koha::SMS::Provider';
109
    'Koha::SMS::Provider';
104
}
110
}
111
=head2 koha_objects_class
112
113
Missing POD for koha_objects_class.
114
115
=cut
116
105
sub koha_objects_class {
117
sub koha_objects_class {
106
    'Koha::SMS::Providers';
118
    'Koha::SMS::Providers';
107
}
119
}
(-)a/Koha/Schema/Result/SmtpServer.pm (+12 lines)
Lines 156-165 __PACKAGE__->add_columns( Link Here
156
    '+is_default' => { is_boolean => 1 },
156
    '+is_default' => { is_boolean => 1 },
157
);
157
);
158
158
159
=head2 koha_objects_class
160
161
Missing POD for koha_objects_class.
162
163
=cut
164
159
sub koha_objects_class {
165
sub koha_objects_class {
160
    'Koha::SMTP::Servers';
166
    'Koha::SMTP::Servers';
161
}
167
}
162
168
169
=head2 koha_object_class
170
171
Missing POD for koha_object_class.
172
173
=cut
174
163
sub koha_object_class {
175
sub koha_object_class {
164
    'Koha::SMTP::Server';
176
    'Koha::SMTP::Server';
165
}
177
}
(-)a/Koha/Schema/Result/Stockrotationitem.pm (+12 lines)
Lines 121-129 __PACKAGE__->add_columns( Link Here
121
  '+fresh' => { is_boolean => 1 }
121
  '+fresh' => { is_boolean => 1 }
122
);
122
);
123
123
124
=head2 koha_object_class
125
126
Missing POD for koha_object_class.
127
128
=cut
129
124
sub koha_object_class {
130
sub koha_object_class {
125
    'Koha::StockRotationItem';
131
    'Koha::StockRotationItem';
126
}
132
}
133
=head2 koha_objects_class
134
135
Missing POD for koha_objects_class.
136
137
=cut
138
127
sub koha_objects_class {
139
sub koha_objects_class {
128
    'Koha::StockRotationItems';
140
    'Koha::StockRotationItems';
129
}
141
}
(-)a/Koha/Schema/Result/Stockrotationrota.pm (+12 lines)
Lines 129-137 __PACKAGE__->add_columns( Link Here
129
  '+active' => { is_boolean => 1 }
129
  '+active' => { is_boolean => 1 }
130
);
130
);
131
131
132
=head2 koha_object_class
133
134
Missing POD for koha_object_class.
135
136
=cut
137
132
sub koha_object_class {
138
sub koha_object_class {
133
    'Koha::StockRotationRota';
139
    'Koha::StockRotationRota';
134
}
140
}
141
=head2 koha_objects_class
142
143
Missing POD for koha_objects_class.
144
145
=cut
146
135
sub koha_objects_class {
147
sub koha_objects_class {
136
    'Koha::StockRotationRotas';
148
    'Koha::StockRotationRotas';
137
}
149
}
(-)a/Koha/Schema/Result/Stockrotationstage.pm (+12 lines)
Lines 146-154 __PACKAGE__->load_components(qw( Ordered )); Link Here
146
146
147
__PACKAGE__->grouping_column('rota_id'); # Our group_id
147
__PACKAGE__->grouping_column('rota_id'); # Our group_id
148
148
149
=head2 koha_object_class
150
151
Missing POD for koha_object_class.
152
153
=cut
154
149
sub koha_object_class {
155
sub koha_object_class {
150
    'Koha::StockRotationStage';
156
    'Koha::StockRotationStage';
151
}
157
}
158
=head2 koha_objects_class
159
160
Missing POD for koha_objects_class.
161
162
=cut
163
152
sub koha_objects_class {
164
sub koha_objects_class {
153
    'Koha::StockRotationStages';
165
    'Koha::StockRotationStages';
154
}
166
}
(-)a/Koha/Schema/Result/SubscriptionFrequency.pm (+12 lines)
Lines 111-119 __PACKAGE__->has_many( Link Here
111
# Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-02-16 17:54:54
111
# Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-02-16 17:54:54
112
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:AMA/p9t1S6NmZTAHThLROQ
112
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:AMA/p9t1S6NmZTAHThLROQ
113
113
114
=head2 koha_object_class
115
116
Missing POD for koha_object_class.
117
118
=cut
119
114
sub koha_object_class {
120
sub koha_object_class {
115
    'Koha::Subscription::Frequency';
121
    'Koha::Subscription::Frequency';
116
}
122
}
123
=head2 koha_objects_class
124
125
Missing POD for koha_objects_class.
126
127
=cut
128
117
sub koha_objects_class {
129
sub koha_objects_class {
118
    'Koha::Subscription::Frequencies';
130
    'Koha::Subscription::Frequencies';
119
}
131
}
(-)a/Koha/Schema/Result/SubscriptionNumberpattern.pm (+12 lines)
Lines 231-239 __PACKAGE__->has_many( Link Here
231
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-12-27 17:02:33
231
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-12-27 17:02:33
232
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:CUmBGK1rIiVf1BFuR3Kkrg
232
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:CUmBGK1rIiVf1BFuR3Kkrg
233
233
234
=head2 koha_object_class
235
236
Missing POD for koha_object_class.
237
238
=cut
239
234
sub koha_object_class {
240
sub koha_object_class {
235
    'Koha::Subscription::Numberpattern';
241
    'Koha::Subscription::Numberpattern';
236
}
242
}
243
=head2 koha_objects_class
244
245
Missing POD for koha_objects_class.
246
247
=cut
248
237
sub koha_objects_class {
249
sub koha_objects_class {
238
    'Koha::Subscription::Numberpatterns';
250
    'Koha::Subscription::Numberpatterns';
239
}
251
}
(-)a/Koha/Schema/Result/Subscriptionhistory.pm (+12 lines)
Lines 136-144 __PACKAGE__->belongs_to( Link Here
136
# Created by DBIx::Class::Schema::Loader v0.07046 @ 2020-04-17 09:15:51
136
# Created by DBIx::Class::Schema::Loader v0.07046 @ 2020-04-17 09:15:51
137
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:bcJbffy74eI1r+e4pImAwQ
137
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:bcJbffy74eI1r+e4pImAwQ
138
138
139
=head2 koha_object_class
140
141
Missing POD for koha_object_class.
142
143
=cut
144
139
sub koha_object_class {
145
sub koha_object_class {
140
    'Koha::Subscription::History';
146
    'Koha::Subscription::History';
141
}
147
}
148
=head2 koha_objects_class
149
150
Missing POD for koha_objects_class.
151
152
=cut
153
142
sub koha_objects_class {
154
sub koha_objects_class {
143
    'Koha::Subscription::Histories';
155
    'Koha::Subscription::Histories';
144
}
156
}
(-)a/Koha/Schema/Result/Subscriptionroutinglist.pm (+12 lines)
Lines 131-139 __PACKAGE__->belongs_to( Link Here
131
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
131
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
132
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:L/6xUg+37bAUntrGWWYlaw
132
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:L/6xUg+37bAUntrGWWYlaw
133
133
134
=head2 koha_object_class
135
136
Missing POD for koha_object_class.
137
138
=cut
139
134
sub koha_object_class {
140
sub koha_object_class {
135
    'Koha::Subscription::Routinglist';
141
    'Koha::Subscription::Routinglist';
136
}
142
}
143
=head2 koha_objects_class
144
145
Missing POD for koha_objects_class.
146
147
=cut
148
137
sub koha_objects_class {
149
sub koha_objects_class {
138
    'Koha::Subscription::Routinglists';
150
    'Koha::Subscription::Routinglists';
139
}
151
}
(-)a/Koha/Schema/Result/Suggestion.pm (+12 lines)
Lines 576-585 __PACKAGE__->add_columns( Link Here
576
    '+archived' => { is_boolean => 1 },
576
    '+archived' => { is_boolean => 1 },
577
);
577
);
578
578
579
=head2 koha_objects_class
580
581
Missing POD for koha_objects_class.
582
583
=cut
584
579
sub koha_objects_class {
585
sub koha_objects_class {
580
    'Koha::Suggestions';
586
    'Koha::Suggestions';
581
}
587
}
582
588
589
=head2 koha_object_class
590
591
Missing POD for koha_object_class.
592
593
=cut
594
583
sub koha_object_class {
595
sub koha_object_class {
584
    'Koha::Suggestion';
596
    'Koha::Suggestion';
585
}
597
}
(-)a/Koha/Schema/Result/Systempreference.pm (+12 lines)
Lines 92-100 __PACKAGE__->set_primary_key("variable"); Link Here
92
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
92
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
93
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:d9V4/gPRw1ucbd/TzEzNUQ
93
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:d9V4/gPRw1ucbd/TzEzNUQ
94
94
95
=head2 koha_object_class
96
97
Missing POD for koha_object_class.
98
99
=cut
100
95
sub koha_object_class {
101
sub koha_object_class {
96
    'Koha::Config::SysPref';
102
    'Koha::Config::SysPref';
97
}
103
}
104
=head2 koha_objects_class
105
106
Missing POD for koha_objects_class.
107
108
=cut
109
98
sub koha_objects_class {
110
sub koha_objects_class {
99
    'Koha::Config::SysPrefs';
111
    'Koha::Config::SysPrefs';
100
}
112
}
(-)a/Koha/Schema/Result/TagAll.pm (+12 lines)
Lines 144-152 __PACKAGE__->belongs_to( Link Here
144
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
144
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
145
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:qQsYlIAUc1KP7M/RUaqd8g
145
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:qQsYlIAUc1KP7M/RUaqd8g
146
146
147
=head2 koha_object_class
148
149
Missing POD for koha_object_class.
150
151
=cut
152
147
sub koha_object_class {
153
sub koha_object_class {
148
    'Koha::Tag';
154
    'Koha::Tag';
149
}
155
}
156
=head2 koha_objects_class
157
158
Missing POD for koha_objects_class.
159
160
=cut
161
150
sub koha_objects_class {
162
sub koha_objects_class {
151
    'Koha::Tags';
163
    'Koha::Tags';
152
}
164
}
(-)a/Koha/Schema/Result/TagsApproval.pm (+12 lines)
Lines 135-143 __PACKAGE__->has_many( Link Here
135
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
135
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
136
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:PR7rfXKXExWpmkdxcXRrbQ
136
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:PR7rfXKXExWpmkdxcXRrbQ
137
137
138
=head2 koha_object_class
139
140
Missing POD for koha_object_class.
141
142
=cut
143
138
sub koha_object_class {
144
sub koha_object_class {
139
    'Koha::Tags::Approval';
145
    'Koha::Tags::Approval';
140
}
146
}
147
=head2 koha_objects_class
148
149
Missing POD for koha_objects_class.
150
151
=cut
152
141
sub koha_objects_class {
153
sub koha_objects_class {
142
    'Koha::Tags::Approvals';
154
    'Koha::Tags::Approvals';
143
}
155
}
(-)a/Koha/Schema/Result/TagsIndex.pm (+12 lines)
Lines 109-117 __PACKAGE__->belongs_to( Link Here
109
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
109
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
110
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:s+HP8nlAKZz2S7PI8MQBOA
110
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:s+HP8nlAKZz2S7PI8MQBOA
111
111
112
=head2 koha_object_class
113
114
Missing POD for koha_object_class.
115
116
=cut
117
112
sub koha_object_class {
118
sub koha_object_class {
113
    'Koha::Tags::Index';
119
    'Koha::Tags::Index';
114
}
120
}
121
=head2 koha_objects_class
122
123
Missing POD for koha_objects_class.
124
125
=cut
126
115
sub koha_objects_class {
127
sub koha_objects_class {
116
    'Koha::Tags::Indexes';
128
    'Koha::Tags::Indexes';
117
}
129
}
(-)a/Koha/Schema/Result/TicketUpdate.pm (+12 lines)
Lines 189-197 __PACKAGE__->belongs_to( Link Here
189
189
190
__PACKAGE__->add_columns( '+public' => { is_boolean => 1 }, );
190
__PACKAGE__->add_columns( '+public' => { is_boolean => 1 }, );
191
191
192
=head2 koha_object_class
193
194
Missing POD for koha_object_class.
195
196
=cut
197
192
sub koha_object_class {
198
sub koha_object_class {
193
    'Koha::Ticket::Update';
199
    'Koha::Ticket::Update';
194
}
200
}
201
=head2 koha_objects_class
202
203
Missing POD for koha_objects_class.
204
205
=cut
206
195
sub koha_objects_class {
207
sub koha_objects_class {
196
    'Koha::Ticket::Updates';
208
    'Koha::Ticket::Updates';
197
}
209
}
(-)a/Koha/Schema/Result/TmpHoldsqueue.pm (+12 lines)
Lines 279-288 __PACKAGE__->belongs_to( Link Here
279
  },
279
  },
280
);
280
);
281
281
282
=head2 koha_object_class
283
284
Missing POD for koha_object_class.
285
286
=cut
287
282
sub koha_object_class {
288
sub koha_object_class {
283
    'Koha::Hold::HoldsQueueItem';
289
    'Koha::Hold::HoldsQueueItem';
284
}
290
}
285
291
292
=head2 koha_objects_class
293
294
Missing POD for koha_objects_class.
295
296
=cut
297
286
sub koha_objects_class {
298
sub koha_objects_class {
287
    'Koha::Hold::HoldsQueueItems';
299
    'Koha::Hold::HoldsQueueItems';
288
}
300
}
(-)a/Koha/Schema/Result/Virtualshelve.pm (+12 lines)
Lines 222-230 __PACKAGE__->has_many( Link Here
222
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-08-17 19:59:33
222
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-08-17 19:59:33
223
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:EKq7nDW2AeZ2NQce2BPMWA
223
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:EKq7nDW2AeZ2NQce2BPMWA
224
224
225
=head2 koha_object_class
226
227
Missing POD for koha_object_class.
228
229
=cut
230
225
sub koha_object_class {
231
sub koha_object_class {
226
    'Koha::Virtualshelf';
232
    'Koha::Virtualshelf';
227
}
233
}
234
=head2 koha_objects_class
235
236
Missing POD for koha_objects_class.
237
238
=cut
239
228
sub koha_objects_class {
240
sub koha_objects_class {
229
    'Koha::Virtualshelves';
241
    'Koha::Virtualshelves';
230
}
242
}
(-)a/Koha/Schema/Result/Z3950server.pm (+12 lines)
Lines 229-237 __PACKAGE__->set_primary_key("id"); Link Here
229
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-10-03 11:30:07
229
# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-10-03 11:30:07
230
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:1uIZOogM1tV2M7fbpPRDwg
230
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:1uIZOogM1tV2M7fbpPRDwg
231
231
232
=head2 koha_object_class
233
234
Missing POD for koha_object_class.
235
236
=cut
237
232
sub koha_object_class {
238
sub koha_object_class {
233
    'Koha::Z3950Server';
239
    'Koha::Z3950Server';
234
}
240
}
241
=head2 koha_objects_class
242
243
Missing POD for koha_objects_class.
244
245
=cut
246
235
sub koha_objects_class {
247
sub koha_objects_class {
236
    'Koha::Z3950Servers';
248
    'Koha::Z3950Servers';
237
}
249
}
(-)a/Koha/SearchEngine/Elasticsearch.pm (+19 lines)
Lines 78-83 The Elasticsearch index name with Koha instance prefix. Link Here
78
78
79
=cut
79
=cut
80
80
81
=head2 new
82
83
Missing POD for new.
84
85
=cut
86
81
sub new {
87
sub new {
82
    my $class = shift @_;
88
    my $class = shift @_;
83
    my ($params) = @_;
89
    my ($params) = @_;
Lines 369-374 sub _load_elasticsearch_mappings { Link Here
369
    return YAML::XS::LoadFile($mappings_yaml);
375
    return YAML::XS::LoadFile($mappings_yaml);
370
}
376
}
371
377
378
=head2 reset_elasticsearch_mappings
379
380
Missing POD for reset_elasticsearch_mappings.
381
382
=cut
383
372
sub reset_elasticsearch_mappings {
384
sub reset_elasticsearch_mappings {
373
    my ($self) = @_;
385
    my ($self) = @_;
374
    my $indexes = $self->_load_elasticsearch_mappings();
386
    my $indexes = $self->_load_elasticsearch_mappings();
Lines 422-427 sub reset_elasticsearch_mappings { Link Here
422
434
423
# This overrides the accessor provided by Class::Accessor so that if
435
# This overrides the accessor provided by Class::Accessor so that if
424
# sort_fields isn't set, then it'll generate it.
436
# sort_fields isn't set, then it'll generate it.
437
438
=head2 sort_fields
439
440
Missing POD for sort_fields.
441
442
=cut
443
425
sub sort_fields {
444
sub sort_fields {
426
    my $self = shift;
445
    my $self = shift;
427
    if (@_) {
446
    if (@_) {
(-)a/Koha/SearchField.pm (+6 lines)
Lines 31-36 Koha::SearchField - Koha SearchField Object class Link Here
31
31
32
=cut
32
=cut
33
33
34
=head2 add_to_search_marc_maps
35
36
Missing POD for add_to_search_marc_maps.
37
38
=cut
39
34
sub add_to_search_marc_maps {
40
sub add_to_search_marc_maps {
35
    my ( $self, $search_field, $params ) = @_;
41
    my ( $self, $search_field, $params ) = @_;
36
    return $self->_result()->add_to_search_marc_maps( $search_field->_result, $params );
42
    return $self->_result()->add_to_search_marc_maps( $search_field->_result, $params );
(-)a/Koha/SearchFields.pm (+6 lines)
Lines 41-46 sub _type { Link Here
41
    return 'SearchField';
41
    return 'SearchField';
42
}
42
}
43
43
44
=head2 object_class
45
46
Missing POD for object_class.
47
48
=cut
49
44
sub object_class {
50
sub object_class {
45
    return 'Koha::SearchField';
51
    return 'Koha::SearchField';
46
}
52
}
(-)a/Koha/SearchMarcMap.pm (+6 lines)
Lines 31-36 Koha::SearchMarcMap - Koha SearchMarcMap Object class Link Here
31
31
32
=cut
32
=cut
33
33
34
=head2 add_to_search_fields
35
36
Missing POD for add_to_search_fields.
37
38
=cut
39
34
sub add_to_search_fields {
40
sub add_to_search_fields {
35
    my ( $self, $params ) = @_;
41
    my ( $self, $params ) = @_;
36
    $self->_result->add_to_search_fields($params);
42
    $self->_result->add_to_search_fields($params);
(-)a/Koha/SearchMarcMaps.pm (+6 lines)
Lines 41-46 sub _type { Link Here
41
    return 'SearchMarcMap';
41
    return 'SearchMarcMap';
42
}
42
}
43
43
44
=head2 object_class
45
46
Missing POD for object_class.
47
48
=cut
49
44
sub object_class {
50
sub object_class {
45
    return 'Koha::SearchMarcMap';
51
    return 'Koha::SearchMarcMap';
46
}
52
}
(-)a/Koha/Serial/Items.pm (+6 lines)
Lines 43-48 sub _type { Link Here
43
    return 'Serialitem';
43
    return 'Serialitem';
44
}
44
}
45
45
46
=head2 object_class
47
48
Missing POD for object_class.
49
50
=cut
51
46
sub object_class {
52
sub object_class {
47
    return 'Koha::Serial::Item';
53
    return 'Koha::Serial::Item';
48
}
54
}
(-)a/Koha/Serials.pm (+6 lines)
Lines 43-48 sub _type { Link Here
43
    return 'Serial';
43
    return 'Serial';
44
}
44
}
45
45
46
=head2 object_class
47
48
Missing POD for object_class.
49
50
=cut
51
46
sub object_class {
52
sub object_class {
47
    return 'Koha::Serial';
53
    return 'Koha::Serial';
48
}
54
}
(-)a/Koha/SimpleMARC.pm (+18 lines)
Lines 125-130 sub copy_field { Link Here
125
    }
125
    }
126
}
126
}
127
127
128
=head2 copy_and_replace_field
129
130
Missing POD for copy_and_replace_field.
131
132
=cut
133
128
sub copy_and_replace_field {
134
sub copy_and_replace_field {
129
    my ($params)         = @_;
135
    my ($params)         = @_;
130
    my $record           = $params->{record};
136
    my $record           = $params->{record};
Lines 166-171 sub copy_and_replace_field { Link Here
166
    }
172
    }
167
}
173
}
168
174
175
=head2 update_field
176
177
Missing POD for update_field.
178
179
=cut
180
169
sub update_field {
181
sub update_field {
170
    my ($params)      = @_;
182
    my ($params)      = @_;
171
    my $record        = $params->{record};
183
    my $record        = $params->{record};
Lines 521-526 sub move_field { Link Here
521
533
522
=cut
534
=cut
523
535
536
=head2 delete_field
537
538
Missing POD for delete_field.
539
540
=cut
541
524
sub delete_field {
542
sub delete_field {
525
    my ($params)      = @_;
543
    my ($params)      = @_;
526
    my $record        = $params->{record};
544
    my $record        = $params->{record};
(-)a/Koha/Subscription/Histories.pm (+6 lines)
Lines 43-48 sub _type { Link Here
43
    return 'Subscriptionhistory';
43
    return 'Subscriptionhistory';
44
}
44
}
45
45
46
=head2 object_class
47
48
Missing POD for object_class.
49
50
=cut
51
46
sub object_class {
52
sub object_class {
47
    return 'Koha::Subscription::History';
53
    return 'Koha::Subscription::History';
48
}
54
}
(-)a/Koha/Subscriptions.pm (+6 lines)
Lines 43-48 sub _type { Link Here
43
    return 'Subscription';
43
    return 'Subscription';
44
}
44
}
45
45
46
=head2 object_class
47
48
Missing POD for object_class.
49
50
=cut
51
46
sub object_class {
52
sub object_class {
47
    return 'Koha::Subscription';
53
    return 'Koha::Subscription';
48
}
54
}
(-)a/Koha/Template/Plugin/AuthorisedValues.pm (+12 lines)
Lines 35-40 sub GetByCode { Link Here
35
        : $code;
35
        : $code;
36
}
36
}
37
37
38
=head2 Get
39
40
Missing POD for Get.
41
42
=cut
43
38
sub Get {
44
sub Get {
39
    my ( $self, $category, $selected, $opac ) = @_;
45
    my ( $self, $category, $selected, $opac ) = @_;
40
    return GetAuthorisedValues( $category, $selected, $opac );
46
    return GetAuthorisedValues( $category, $selected, $opac );
Lines 54-59 sub GetAuthValueDropbox { Link Here
54
    );
60
    );
55
}
61
}
56
62
63
=head2 GetCategories
64
65
Missing POD for GetCategories.
66
67
=cut
68
57
sub GetCategories {
69
sub GetCategories {
58
    my ( $self, $params ) = @_;
70
    my ( $self, $params ) = @_;
59
    my $selected   = $params->{selected};
71
    my $selected   = $params->{selected};
(-)a/Koha/Template/Plugin/HtmlId.pm (+6 lines)
Lines 33-38 It will replace characters that are not valid for HTML IDs with an underscore (_ Link Here
33
33
34
=cut
34
=cut
35
35
36
=head2 filter
37
38
Missing POD for filter.
39
40
=cut
41
36
sub filter {
42
sub filter {
37
    my ( $self, $text ) = @_;
43
    my ( $self, $text ) = @_;
38
44
(-)a/Koha/Template/Plugin/Koha.pm (+18 lines)
Lines 65-75 sub new { Link Here
65
    }, $class;
65
    }, $class;
66
}
66
}
67
67
68
=head2 Preference
69
70
Missing POD for Preference.
71
72
=cut
73
68
sub Preference {
74
sub Preference {
69
    my ( $self, $pref ) = @_;
75
    my ( $self, $pref ) = @_;
70
    return C4::Context->preference($pref);
76
    return C4::Context->preference($pref);
71
}
77
}
72
78
79
=head2 MultivaluePreference
80
81
Missing POD for MultivaluePreference.
82
83
=cut
84
73
sub MultivaluePreference {
85
sub MultivaluePreference {
74
    my ( $self, $pref ) = @_;
86
    my ( $self, $pref ) = @_;
75
    return C4::Context->multivalue_preference($pref);
87
    return C4::Context->multivalue_preference($pref);
Lines 91-96 sub CSVDelimiter { Link Here
91
    return C4::Context->csv_delimiter($val);
103
    return C4::Context->csv_delimiter($val);
92
}
104
}
93
105
106
=head2 Version
107
108
Missing POD for Version.
109
110
=cut
111
94
sub Version {
112
sub Version {
95
    my $version_string = Koha::version();
113
    my $version_string = Koha::version();
96
    my ( $major, $minor, $maintenance, $development ) = split( '\.', $version_string );
114
    my ( $major, $minor, $maintenance, $development ) = split( '\.', $version_string );
(-)a/Koha/TrackedLinks.pm (+6 lines)
Lines 41-46 sub _type { Link Here
41
    return 'Linktracker';
41
    return 'Linktracker';
42
}
42
}
43
43
44
=head2 object_class
45
46
Missing POD for object_class.
47
48
=cut
49
44
sub object_class {
50
sub object_class {
45
    return 'Koha::TrackedLink';
51
    return 'Koha::TrackedLink';
46
}
52
}
(-)a/Koha/Virtualshelf.pm (+102 lines)
Lines 41-46 Koha::Virtualshelf - Koha Virtualshelf Object class Link Here
41
41
42
=cut
42
=cut
43
43
44
=head2 store
45
46
Missing POD for store.
47
48
=cut
49
44
sub store {
50
sub store {
45
    my ($self) = @_;
51
    my ($self) = @_;
46
52
Lines 67-82 sub store { Link Here
67
    return $self->SUPER::store($self);
73
    return $self->SUPER::store($self);
68
}
74
}
69
75
76
=head2 is_public
77
78
Missing POD for is_public.
79
80
=cut
81
70
sub is_public {
82
sub is_public {
71
    my ($self) = @_;
83
    my ($self) = @_;
72
    return $self->public;
84
    return $self->public;
73
}
85
}
74
86
87
=head2 is_private
88
89
Missing POD for is_private.
90
91
=cut
92
75
sub is_private {
93
sub is_private {
76
    my ($self) = @_;
94
    my ($self) = @_;
77
    return !$self->public;
95
    return !$self->public;
78
}
96
}
79
97
98
=head2 is_shelfname_valid
99
100
Missing POD for is_shelfname_valid.
101
102
=cut
103
80
sub is_shelfname_valid {
104
sub is_shelfname_valid {
81
    my ($self) = @_;
105
    my ($self) = @_;
82
106
Lines 107-112 sub is_shelfname_valid { Link Here
107
    return $count ? 0 : 1;
131
    return $count ? 0 : 1;
108
}
132
}
109
133
134
=head2 get_shares
135
136
Missing POD for get_shares.
137
138
=cut
139
110
sub get_shares {
140
sub get_shares {
111
    my ($self) = @_;
141
    my ($self) = @_;
112
    my $rs     = $self->_result->virtualshelfshares;
142
    my $rs     = $self->_result->virtualshelfshares;
Lines 114-119 sub get_shares { Link Here
114
    return $shares;
144
    return $shares;
115
}
145
}
116
146
147
=head2 get_contents
148
149
Missing POD for get_contents.
150
151
=cut
152
117
sub get_contents {
153
sub get_contents {
118
    my ($self)   = @_;
154
    my ($self)   = @_;
119
    my $rs       = $self->_result->virtualshelfcontents;
155
    my $rs       = $self->_result->virtualshelfcontents;
Lines 121-126 sub get_contents { Link Here
121
    return $contents;
157
    return $contents;
122
}
158
}
123
159
160
=head2 share
161
162
Missing POD for share.
163
164
=cut
165
124
sub share {
166
sub share {
125
    my ( $self, $key ) = @_;
167
    my ( $self, $key ) = @_;
126
    unless ($key) {
168
    unless ($key) {
Lines 135-140 sub share { Link Here
135
    )->store;
177
    )->store;
136
}
178
}
137
179
180
=head2 is_shared
181
182
Missing POD for is_shared.
183
184
=cut
185
138
sub is_shared {
186
sub is_shared {
139
    my ($self) = @_;
187
    my ($self) = @_;
140
    return $self->get_shares->search(
188
    return $self->get_shares->search(
Lines 144-149 sub is_shared { Link Here
144
    )->count;
192
    )->count;
145
}
193
}
146
194
195
=head2 is_shared_with
196
197
Missing POD for is_shared_with.
198
199
=cut
200
147
sub is_shared_with {
201
sub is_shared_with {
148
    my ( $self, $borrowernumber ) = @_;
202
    my ( $self, $borrowernumber ) = @_;
149
    return unless $borrowernumber;
203
    return unless $borrowernumber;
Lines 154-159 sub is_shared_with { Link Here
154
    )->count;
208
    )->count;
155
}
209
}
156
210
211
=head2 remove_share
212
213
Missing POD for remove_share.
214
215
=cut
216
157
sub remove_share {
217
sub remove_share {
158
    my ( $self, $borrowernumber ) = @_;
218
    my ( $self, $borrowernumber ) = @_;
159
    my $shelves = Koha::Virtualshelfshares->search(
219
    my $shelves = Koha::Virtualshelfshares->search(
Lines 168-173 sub remove_share { Link Here
168
    return $shelves->next->delete;
228
    return $shelves->next->delete;
169
}
229
}
170
230
231
=head2 add_biblio
232
233
Missing POD for add_biblio.
234
235
=cut
236
171
sub add_biblio {
237
sub add_biblio {
172
    my ( $self, $biblionumber, $borrowernumber ) = @_;
238
    my ( $self, $biblionumber, $borrowernumber ) = @_;
173
    return unless $biblionumber;
239
    return unless $biblionumber;
Lines 199-204 sub add_biblio { Link Here
199
    return $content;
265
    return $content;
200
}
266
}
201
267
268
=head2 remove_biblios
269
270
Missing POD for remove_biblios.
271
272
=cut
273
202
sub remove_biblios {
274
sub remove_biblios {
203
    my ( $self, $params ) = @_;
275
    my ( $self, $params ) = @_;
204
    my $biblionumbers  = $params->{biblionumbers} || [];
276
    my $biblionumbers  = $params->{biblionumbers} || [];
Lines 221-226 sub remove_biblios { Link Here
221
    return $number_removed;
293
    return $number_removed;
222
}
294
}
223
295
296
=head2 can_be_viewed
297
298
Missing POD for can_be_viewed.
299
300
=cut
301
224
sub can_be_viewed {
302
sub can_be_viewed {
225
    my ( $self, $borrowernumber ) = @_;
303
    my ( $self, $borrowernumber ) = @_;
226
    return 1 if $self->is_public;
304
    return 1 if $self->is_public;
Lines 233-238 sub can_be_viewed { Link Here
233
    )->count;
311
    )->count;
234
}
312
}
235
313
314
=head2 can_be_deleted
315
316
Missing POD for can_be_deleted.
317
318
=cut
319
236
sub can_be_deleted {
320
sub can_be_deleted {
237
    my ( $self, $borrowernumber ) = @_;
321
    my ( $self, $borrowernumber ) = @_;
238
322
Lines 246-251 sub can_be_deleted { Link Here
246
    return 0;
330
    return 0;
247
}
331
}
248
332
333
=head2 can_be_managed
334
335
Missing POD for can_be_managed.
336
337
=cut
338
249
sub can_be_managed {
339
sub can_be_managed {
250
    my ( $self, $borrowernumber ) = @_;
340
    my ( $self, $borrowernumber ) = @_;
251
    return 1
341
    return 1
Lines 257-262 sub can_be_managed { Link Here
257
    return 0;
347
    return 0;
258
}
348
}
259
349
350
=head2 can_biblios_be_added
351
352
Missing POD for can_biblios_be_added.
353
354
=cut
355
260
sub can_biblios_be_added {
356
sub can_biblios_be_added {
261
    my ( $self, $borrowernumber ) = @_;
357
    my ( $self, $borrowernumber ) = @_;
262
358
Lines 272-277 sub can_biblios_be_added { Link Here
272
    return 0;
368
    return 0;
273
}
369
}
274
370
371
=head2 can_biblios_be_removed
372
373
Missing POD for can_biblios_be_removed.
374
375
=cut
376
275
sub can_biblios_be_removed {
377
sub can_biblios_be_removed {
276
    my ( $self, $borrowernumber ) = @_;
378
    my ( $self, $borrowernumber ) = @_;
277
    return $self->can_biblios_be_added($borrowernumber);
379
    return $self->can_biblios_be_added($borrowernumber);
(-)a/Koha/Virtualshelfcontents.pm (+6 lines)
Lines 41-46 sub _type { Link Here
41
    return 'Virtualshelfcontent';
41
    return 'Virtualshelfcontent';
42
}
42
}
43
43
44
=head2 object_class
45
46
Missing POD for object_class.
47
48
=cut
49
44
sub object_class {
50
sub object_class {
45
    return 'Koha::Virtualshelfcontent';
51
    return 'Koha::Virtualshelfcontent';
46
}
52
}
(-)a/Koha/Virtualshelfshares.pm (+6 lines)
Lines 41-46 sub _type { Link Here
41
    return 'Virtualshelfshare';
41
    return 'Virtualshelfshare';
42
}
42
}
43
43
44
=head2 object_class
45
46
Missing POD for object_class.
47
48
=cut
49
44
sub object_class {
50
sub object_class {
45
    return 'Koha::Virtualshelfshare';
51
    return 'Koha::Virtualshelfshare';
46
}
52
}
(-)a/t/lib/Mocks/Zebra.pm (+43 lines)
Lines 39-44 and the usual zebra db will not be affected. However you must pass $ENV{KOHA_CON Link Here
39
39
40
=cut
40
=cut
41
41
42
=head2 new
43
44
Missing POD for new.
45
46
=cut
47
42
sub new {
48
sub new {
43
    my ( $class, $params ) = @_;
49
    my ( $class, $params ) = @_;
44
50
Lines 72-77 sub new { Link Here
72
}
78
}
73
79
74
# function that launches the zebra daemon
80
# function that launches the zebra daemon
81
82
=head2 launch_zebra
83
84
Missing POD for launch_zebra.
85
86
=cut
87
75
sub launch_zebra {
88
sub launch_zebra {
76
    my ($self) = @_;
89
    my ($self) = @_;
77
90
Lines 87-92 sub launch_zebra { Link Here
87
    $self->{zebra_pid} = $zebra_pid;
100
    $self->{zebra_pid} = $zebra_pid;
88
}
101
}
89
102
103
=head2 launch_indexer
104
105
Missing POD for launch_indexer.
106
107
=cut
108
90
sub launch_indexer {
109
sub launch_indexer {
91
    my ($self)        = @_;
110
    my ($self)        = @_;
92
    my $rootdir       = dirname(__FILE__) . '/../../../';
111
    my $rootdir       = dirname(__FILE__) . '/../../../';
Lines 101-106 sub launch_indexer { Link Here
101
    $self->{indexer_pid} = $indexer_pid;
120
    $self->{indexer_pid} = $indexer_pid;
102
}
121
}
103
122
123
=head2 load_records
124
125
Missing POD for load_records.
126
127
=cut
128
104
sub load_records {
129
sub load_records {
105
    my ( $self, $marc_dir, $marc_format, $record_type, $init ) = @_;
130
    my ( $self, $marc_dir, $marc_format, $record_type, $init ) = @_;
106
131
Lines 122-127 sub load_records { Link Here
122
    }
147
    }
123
}
148
}
124
149
150
=head2 load_records_ui
151
152
Missing POD for load_records_ui.
153
154
=cut
155
125
sub load_records_ui {
156
sub load_records_ui {
126
    my ( $self, $file ) = @_;
157
    my ( $self, $file ) = @_;
127
    my $jsonresponse;
158
    my $jsonresponse;
Lines 209-214 sub load_records_ui { Link Here
209
240
210
}
241
}
211
242
243
=head2 clean_records
244
245
Missing POD for clean_records.
246
247
=cut
248
212
sub clean_records {
249
sub clean_records {
213
    my ( $self, $batch_id ) = @_;
250
    my ( $self, $batch_id ) = @_;
214
251
Lines 229-234 sub clean_records { Link Here
229
266
230
}
267
}
231
268
269
=head2 cleanup
270
271
Missing POD for cleanup.
272
273
=cut
274
232
sub cleanup {
275
sub cleanup {
233
    my ($self) = @_;
276
    my ($self) = @_;
234
    kill 9, $self->{zebra_pid}   if defined $self->{zebra_pid};
277
    kill 9, $self->{zebra_pid}   if defined $self->{zebra_pid};
(-)a/t/lib/QA/TemplateFilters.pm (+6 lines)
Lines 122-127 sub _process_tt_content { Link Here
122
    return { errors => \@errors, new_content => $new_content };
122
    return { errors => \@errors, new_content => $new_content };
123
}
123
}
124
124
125
=head2 process_tt_block
126
127
Missing POD for process_tt_block.
128
129
=cut
130
125
sub process_tt_block {
131
sub process_tt_block {
126
    my ( $line, $params ) = @_;
132
    my ( $line, $params ) = @_;
127
    my $tt_block   = $params->{tt_block};
133
    my $tt_block   = $params->{tt_block};
(-)a/t/lib/Selenium.pm (+18 lines)
Lines 73-78 sub remove_error_handler { Link Here
73
    $self->{driver}->error_handler( sub { } );
73
    $self->{driver}->error_handler( sub { } );
74
}
74
}
75
75
76
=head2 config
77
78
Missing POD for config.
79
80
=cut
81
76
sub config {
82
sub config {
77
    return {
83
    return {
78
        login    => $ENV{KOHA_USER} || 'koha',
84
        login    => $ENV{KOHA_USER} || 'koha',
Lines 97-102 sub auth { Link Here
97
    $login_button->click();
103
    $login_button->click();
98
}
104
}
99
105
106
=head2 opac_auth
107
108
Missing POD for opac_auth.
109
110
=cut
111
100
sub opac_auth {
112
sub opac_auth {
101
    my ( $self, $login, $password ) = @_;
113
    my ( $self, $login, $password ) = @_;
102
114
Lines 297-302 sub click_when_visible { Link Here
297
    $elt->click unless $clicked;    # finally Raise the error
309
    $elt->click unless $clicked;    # finally Raise the error
298
}
310
}
299
311
312
=head2 max_retries
313
314
Missing POD for max_retries.
315
316
=cut
317
300
sub max_retries { 10 }
318
sub max_retries { 10 }
301
319
302
=head1 NAME
320
=head1 NAME
(-)a/t/lib/TestBuilder.pm (-1 / +18 lines)
Lines 161-166 sub build { Link Here
161
    );
161
    );
162
}
162
}
163
163
164
=head2 build_sample_biblio
165
166
Missing POD for build_sample_biblio.
167
168
=cut
169
164
sub build_sample_biblio {
170
sub build_sample_biblio {
165
    my ( $self, $args ) = @_;
171
    my ( $self, $args ) = @_;
166
172
Lines 192-197 sub build_sample_biblio { Link Here
192
    return Koha::Biblios->find($biblio_id);
198
    return Koha::Biblios->find($biblio_id);
193
}
199
}
194
200
201
=head2 build_sample_item
202
203
Missing POD for build_sample_item.
204
205
=cut
206
195
sub build_sample_item {
207
sub build_sample_item {
196
    my ( $self, $args ) = @_;
208
    my ( $self, $args ) = @_;
197
209
Lines 590-595 sub _gen_text { Link Here
590
    return $random->randregex($regex);
602
    return $random->randregex($regex);
591
}
603
}
592
604
605
=head2 alt_rand
606
607
Missing POD for alt_rand.
608
609
=cut
610
593
sub alt_rand {    #Alternative randomizer
611
sub alt_rand {    #Alternative randomizer
594
    my ($max)  = @_;
612
    my ($max)  = @_;
595
    my $random = Bytes::Random::Secure->new( NonBlocking => 1 );
613
    my $random = Bytes::Random::Secure->new( NonBlocking => 1 );
596
- 

Return to bug 39367