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

(-)a/C4/Acquisition.pm (-18 / +18 lines)
Lines 95-101 BEGIN { Link Here
95
    );
95
    );
96
}
96
}
97
97
98
=head2 GetOrderFromItemnumber
98
=head1 NAME
99
100
C4::Acquisition - Koha functions for dealing with orders and acquisitions
101
102
=head1 SYNOPSIS
103
104
use C4::Acquisition;
105
106
=head1 DESCRIPTION
107
108
The functions in this module deal with acquisitions, managing book
109
orders, basket and parcels.
110
111
=head1 FUNCTIONS
112
113
=head2 FUNCTIONS ABOUT BASKETS
114
115
=head3 GetOrderFromItemnumber
99
116
100
Missing POD for GetOrderFromItemnumber.
117
Missing POD for GetOrderFromItemnumber.
101
118
Lines 121-143 sub GetOrderFromItemnumber { Link Here
121
138
122
}
139
}
123
140
124
=head1 NAME
125
126
C4::Acquisition - Koha functions for dealing with orders and acquisitions
127
128
=head1 SYNOPSIS
129
130
use C4::Acquisition;
131
132
=head1 DESCRIPTION
133
134
The functions in this module deal with acquisitions, managing book
135
orders, basket and parcels.
136
137
=head1 FUNCTIONS
138
139
=head2 FUNCTIONS ABOUT BASKETS
140
141
=head3 GetBasket
141
=head3 GetBasket
142
142
143
  $aqbasket = &GetBasket($basketnumber);
143
  $aqbasket = &GetBasket($basketnumber);
(-)a/C4/Auth.pm (-15 / +40 lines)
Lines 62-82 use Koha::Session; Link Here
62
use vars qw($ldap $cas $caslogout);
62
use vars qw($ldap $cas $caslogout);
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
66
67
=head2 safe_exit
68
69
Missing POD for safe_exit.
70
71
=cut
72
73
sub safe_exit {
74
75
    # It's fine for us to "exit" because CGI::Compile (used in Plack::App::WrapCGI) redefines "exit" for us automatically.
76
    # Since we only seem to use C4::Auth::safe_exit in a CGI context, we don't actually need PSGI detection at all here.
77
    exit;
78
}
79
80
BEGIN {
65
BEGIN {
81
    C4::Context->set_remote_address;
66
    C4::Context->set_remote_address;
82
67
Lines 134-139 automatically. This gets loaded into the template. Link Here
134
119
135
=head1 FUNCTIONS
120
=head1 FUNCTIONS
136
121
122
=cut
123
124
=head2 safe_exit
125
126
Missing POD for safe_exit.
127
128
NOTE: The utility of keeping the safe_exit function is that it can be easily re-defined in unit tests and plugins
129
130
=cut
131
132
sub safe_exit {
133
134
    # It's fine for us to "exit" because CGI::Compile (used in Plack::App::WrapCGI) redefines "exit" for us automatically.
135
    # Since we only seem to use C4::Auth::safe_exit in a CGI context, we don't actually need PSGI detection at all here.
136
    exit;
137
}
138
139
BEGIN {
140
    C4::Context->set_remote_address;
141
142
    require Exporter;
143
    @ISA = qw(Exporter);
144
145
    @EXPORT_OK = qw(
146
        checkauth check_api_auth get_session check_cookie_auth checkpw checkpw_internal checkpw_hash
147
        get_all_subpermissions get_cataloguing_page_permissions get_user_subpermissions in_iprange
148
        get_template_and_user haspermission create_basic_session
149
    );
150
151
    $cas       = C4::Context->preference('casAuthentication');
152
    $caslogout = C4::Context->preference('casLogout');
153
154
    if ($cas) {
155
        require C4::Auth_with_cas;    # no import
156
        import C4::Auth_with_cas
157
            qw(check_api_auth_cas checkpw_cas login_cas logout_cas login_cas_url logout_if_required multipleAuth getMultipleAuth);
158
    }
159
160
}
161
137
=head2 get_template_and_user
162
=head2 get_template_and_user
138
163
139
 my ($template, $borrowernumber, $cookie)
164
 my ($template, $borrowernumber, $cookie)
(-)a/C4/Auth_with_shibboleth.pm (-6 / +4 lines)
Lines 40-51 BEGIN { Link Here
40
40
41
# Check that shib config is not malformed
41
# Check that shib config is not malformed
42
42
43
=head2 shib_ok
44
45
Missing POD for shib_ok.
46
47
=cut
48
49
sub shib_ok {
43
sub shib_ok {
50
    my $config = _get_shib_config();
44
    my $config = _get_shib_config();
51
45
Lines 378-383 If you need more help configuring your B<S>ervice B<P>rovider to authenticate ag Link Here
378
372
379
=head1 FUNCTIONS
373
=head1 FUNCTIONS
380
374
375
=head2 shib_ok
376
377
Missing POD for shib_ok.
378
381
=head2 logout_shib
379
=head2 logout_shib
382
380
383
Sends a logout signal to the native shibboleth service provider and then logs out of koha.  Depending upon the native service provider configuration and identity provider capabilities this may or may not perform a single sign out action.
381
Sends a logout signal to the native shibboleth service provider and then logs out of koha.  Depending upon the native service provider configuration and identity provider capabilities this may or may not perform a single sign out action.
(-)a/C4/Barcodes.pm (-97 / +66 lines)
Lines 40-93 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
49
sub initial {
43
sub initial {
50
    return '0000001';
44
    return '0000001';
51
}
45
}
52
46
53
=head2 width
54
55
Missing POD for width.
56
57
=cut
58
59
sub width {
47
sub width {
60
    return;
48
    return;
61
}
49
}
62
50
63
=head2 process_head
64
65
Missing POD for process_head.
66
67
=cut
68
69
sub process_head {    # (self,head,whole,specific)
51
sub process_head {    # (self,head,whole,specific)
70
    my $self = shift;
52
    my $self = shift;
71
    return shift;     # Default: just return the head unchanged.
53
    return shift;     # Default: just return the head unchanged.
72
}
54
}
73
55
74
=head2 process_tail
75
76
Missing POD for process_tail.
77
78
=cut
79
80
sub process_tail {    # (self,tail,whole,specific)
56
sub process_tail {    # (self,tail,whole,specific)
81
    my $self = shift;
57
    my $self = shift;
82
    return shift;     # Default: just return the tail unchanged.
58
    return shift;     # Default: just return the tail unchanged.
83
}
59
}
84
60
85
=head2 is_max
86
87
Missing POD for is_max.
88
89
=cut
90
91
sub is_max {
61
sub is_max {
92
    my $self = shift;
62
    my $self = shift;
93
    ref($self) or carp "Called is_max on a non-object: '$self'";
63
    ref($self) or carp "Called is_max on a non-object: '$self'";
Lines 95-106 sub is_max { Link Here
95
    return $self->{is_max} || 0;
65
    return $self->{is_max} || 0;
96
}
66
}
97
67
98
=head2 value
99
100
Missing POD for value.
101
102
=cut
103
104
sub value {
68
sub value {
105
    my $self = shift;
69
    my $self = shift;
106
    if (@_) {
70
    if (@_) {
Lines 112-123 sub value { Link Here
112
    return $self->{value};
76
    return $self->{value};
113
}
77
}
114
78
115
=head2 autoBarcode
116
117
Missing POD for autoBarcode.
118
119
=cut
120
121
sub autoBarcode {
79
sub autoBarcode {
122
    (@_) or return _prefformat;
80
    (@_) or return _prefformat;
123
    my $self  = shift;
81
    my $self  = shift;
Lines 126-137 sub autoBarcode { Link Here
126
    return $value;
84
    return $value;
127
}
85
}
128
86
129
=head2 parse
130
131
Missing POD for parse.
132
133
=cut
134
135
sub parse {    # return 3 parts of barcode: non-incrementing, incrementing, non-incrementing
87
sub parse {    # return 3 parts of barcode: non-incrementing, incrementing, non-incrementing
136
    my $self    = shift;
88
    my $self    = shift;
137
    my $barcode = (@_) ? shift : $self->value;
89
    my $barcode = (@_) ? shift : $self->value;
Lines 142-153 sub parse { # return 3 parts of barcode: non-incrementing, incrementing, non- Link Here
142
    return ( $1, $2, '' );                    # the third part is in anticipation of barcodes that include checkdigits
94
    return ( $1, $2, '' );                    # the third part is in anticipation of barcodes that include checkdigits
143
}
95
}
144
96
145
=head2 max
146
147
Missing POD for max.
148
149
=cut
150
151
sub max {
97
sub max {
152
    my $self = shift;
98
    my $self = shift;
153
    if ( $self->{is_max} ) {
99
    if ( $self->{is_max} ) {
Lines 156-167 sub max { Link Here
156
    return $self->db_max;
102
    return $self->db_max;
157
}
103
}
158
104
159
=head2 db_max
160
161
Missing POD for db_max.
162
163
=cut
164
165
sub db_max {
105
sub db_max {
166
    my $self  = shift;
106
    my $self  = shift;
167
    my $query = "SELECT max(abs(CAST(barcode AS UNSIGNED))) FROM items LIMIT 1"
107
    my $query = "SELECT max(abs(CAST(barcode AS UNSIGNED))) FROM items LIMIT 1"
Lines 171-182 sub db_max { Link Here
171
    return $sth->fetchrow_array || $self->initial;
111
    return $sth->fetchrow_array || $self->initial;
172
}
112
}
173
113
174
=head2 next_value
175
176
Missing POD for next_value.
177
178
=cut
179
180
sub next_value {
114
sub next_value {
181
    my $self     = shift;
115
    my $self     = shift;
182
    my $specific = ( scalar @_ ) ? 1     : 0;
116
    my $specific = ( scalar @_ ) ? 1     : 0;
Lines 202-249 sub next_value { Link Here
202
    return $next_value;
136
    return $next_value;
203
}
137
}
204
138
205
=head2 next
206
207
Missing POD for next.
208
209
=cut
210
211
sub next {
139
sub next {
212
    my $self = shift or return;
140
    my $self = shift or return;
213
    (@_) and $self->{next} = shift;
141
    (@_) and $self->{next} = shift;
214
    return $self->{next};
142
    return $self->{next};
215
}
143
}
216
144
217
=head2 previous
218
219
Missing POD for previous.
220
221
=cut
222
223
sub previous {
145
sub previous {
224
    my $self = shift or return;
146
    my $self = shift or return;
225
    (@_) and $self->{previous} = shift;
147
    (@_) and $self->{previous} = shift;
226
    return $self->{previous};
148
    return $self->{previous};
227
}
149
}
228
150
229
=head2 serial
230
231
Missing POD for serial.
232
233
=cut
234
235
sub serial {
151
sub serial {
236
    my $self = shift or return;
152
    my $self = shift or return;
237
    (@_) and $self->{serial} = shift;
153
    (@_) and $self->{serial} = shift;
238
    return $self->{serial};
154
    return $self->{serial};
239
}
155
}
240
156
241
=head2 default_self
242
243
Missing POD for default_self.
244
245
=cut
246
247
sub default_self {
157
sub default_self {
248
    (@_) or carp "default_self called with no argument.  Reverting to _prefformat.";
158
    (@_) or carp "default_self called with no argument.  Reverting to _prefformat.";
249
    my $autoBarcode = (@_) ? shift : _prefformat;
159
    my $autoBarcode = (@_) ? shift : _prefformat;
Lines 311-322 sub new { Link Here
311
    return;
221
    return;
312
}
222
}
313
223
314
=head2 new_object
315
316
Missing POD for new_object.
317
318
=cut
319
320
sub new_object {
224
sub new_object {
321
    my $class_or_object = shift;
225
    my $class_or_object = shift;
322
    my $type            = ref($class_or_object) || $class_or_object;
226
    my $type            = ref($class_or_object) || $class_or_object;
Lines 369-373 like the IBM "Boulder" format can cause problems for sprintf. Basically, the va Link Here
369
%d version of an integer, and we cannot count on perl having been compiled with support for quads 
273
%d version of an integer, and we cannot count on perl having been compiled with support for quads 
370
(64-bit integers).  So we have to use floats or increment a piece of it and return the rejoined fragments.
274
(64-bit integers).  So we have to use floats or increment a piece of it and return the rejoined fragments.
371
275
372
=cut
276
=head1 Functions
373
277
278
=head2 initial
279
280
Missing POD for initial.
281
282
=head2 width
283
284
Missing POD for width.
285
286
=head2 process_head
287
288
Missing POD for process_head.
289
290
=head2 process_tail
291
292
Missing POD for process_tail.
293
294
=head2 is_max
295
296
Missing POD for is_max.
297
298
=head2 value
299
300
Missing POD for value.
301
302
=head2 autoBarcode
303
304
Missing POD for autoBarcode.
305
306
=head2 parse
307
308
Missing POD for parse.
309
310
=head2 max
311
312
Missing POD for max.
313
314
=head2 db_max
315
316
Missing POD for db_max.
317
318
=head2 next_value
319
320
Missing POD for next_value.
321
322
=head2 next
323
324
Missing POD for next.
325
326
=head2 previous
327
328
Missing POD for previous.
329
330
=head2 serial
331
332
Missing POD for serial.
333
334
=head2 default_self
335
336
Missing POD for default_self.
337
338
=head2 new_object
339
340
Missing POD for new_object.
341
342
=cut
(-)a/C4/Barcodes/hbyymmincr.pm (+4 lines)
Lines 34-39 BEGIN { Link Here
34
    @ISA = qw(C4::Barcodes);
34
    @ISA = qw(C4::Barcodes);
35
}
35
}
36
36
37
=head1 Functions
38
39
=cut
40
37
# Generates barcode where hb = home branch Code, yymm = year/month catalogued, incr = incremental number,
41
# Generates barcode where hb = home branch Code, yymm = year/month catalogued, incr = incremental number,
38
# 	increment resets yearly -fbcit
42
# 	increment resets yearly -fbcit
39
43
(-)a/C4/Creators/PDF.pm (+4 lines)
Lines 61-66 sub _InitVars { Link Here
61
    prInitVars($param);
61
    prInitVars($param);
62
}
62
}
63
63
64
=head1 Functions
65
66
=cut
67
64
=head2 new
68
=head2 new
65
69
66
Missing POD for new.
70
Missing POD for new.
(-)a/C4/Creators/Template.pm (-6 / +4 lines)
Lines 266-277 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
275
sub get_next_label_pos {
269
sub get_next_label_pos {
276
    my $self          = shift;
270
    my $self          = shift;
277
    my $current_label = $self->{'current_label'};
271
    my $current_label = $self->{'current_label'};
Lines 417-422 CM = SI Centimeters (28.3464567 points per) Link Here
417
    examples:
411
    examples:
418
        C<my ($row_count, $col_count, $llx, $lly) = $template->get_label_position($start_label);>
412
        C<my ($row_count, $col_count, $llx, $lly) = $template->get_label_position($start_label);>
419
413
414
=head2 get_next_label_pos
415
416
Missing POD for get_next_label_pos.
417
420
=head1 AUTHOR
418
=head1 AUTHOR
421
419
422
Chris Nighswonger <cnighswonger AT foundations DOT edu>
420
Chris Nighswonger <cnighswonger AT foundations DOT edu>
(-)a/C4/External/BakerTaylor.pm (-24 / +16 lines)
Lines 49-60 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
58
sub image_url {
52
sub image_url {
59
    _initialize();
53
    _initialize();
60
    ( $user and $pass ) or return;
54
    ( $user and $pass ) or return;
Lines 63-74 sub image_url { Link Here
63
    return $image_url . $isbn;
57
    return $image_url . $isbn;
64
}
58
}
65
59
66
=head2 link_url
67
68
Missing POD for link_url.
69
70
=cut
71
72
sub link_url {
60
sub link_url {
73
    _initialize();
61
    _initialize();
74
    my $isbn = ( @_ ? shift : '' );
62
    my $isbn = ( @_ ? shift : '' );
Lines 77-88 sub link_url { Link Here
77
    return $link_url . $isbn;
65
    return $link_url . $isbn;
78
}
66
}
79
67
80
=head2 content_cafe_url
81
82
Missing POD for content_cafe_url.
83
84
=cut
85
86
sub content_cafe_url {
68
sub content_cafe_url {
87
    _initialize();
69
    _initialize();
88
    ( $user and $pass ) or return;
70
    ( $user and $pass ) or return;
Lines 92-103 sub content_cafe_url { Link Here
92
        "https://contentcafe2.btol.com/ContentCafeClient/ContentCafe.aspx?UserID=$user&Password=$pass&Options=Y&ItemKey=$isbn";
74
        "https://contentcafe2.btol.com/ContentCafeClient/ContentCafe.aspx?UserID=$user&Password=$pass&Options=Y&ItemKey=$isbn";
93
}
75
}
94
76
95
=head2 http_jacket_link
96
97
Missing POD for http_jacket_link.
98
99
=cut
100
101
sub http_jacket_link {
77
sub http_jacket_link {
102
    _initialize();
78
    _initialize();
103
    my $isbn = shift or return;
79
    my $isbn = shift or return;
Lines 147-152 These can be overridden for testing purposes using the initialize function. Link Here
147
123
148
=head1 FUNCTIONS
124
=head1 FUNCTIONS
149
125
126
=head2 image_url
127
128
Missing POD for image_url.
129
130
=head2 link_url
131
132
Missing POD for link_url.
133
134
=head2 content_cafe_url
135
136
Missing POD for content_cafe_url.
137
138
=head2 http_jacket_link
139
140
Missing POD for http_jacket_link.
141
150
=head2 availability($isbn);
142
=head2 availability($isbn);
151
143
152
$isbn is a isbn string
144
$isbn is a isbn string
(-)a/C4/Installer/PerlModules.pm (-6 / +4 lines)
Lines 19-30 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
28
sub prereqs {
22
sub prereqs {
29
    my $self = shift;
23
    my $self = shift;
30
24
Lines 125-130 A module for manipulating Koha Perl dependency list objects. Link Here
125
    example:
119
    example:
126
        C<my $perl_modules = C4::Installer::PerlModules->new;>
120
        C<my $perl_modules = C4::Installer::PerlModules->new;>
127
121
122
=head2 prereqs
123
124
Missing POD for prereqs.
125
128
=head2 prereq_pm()
126
=head2 prereq_pm()
129
127
130
    Returns a hashref of a hash of module information suitable for use in Makefile.PL
128
    Returns a hashref of a hash of module information suitable for use in Makefile.PL
(-)a/C4/Labels/Label.pm (-6 / +4 lines)
Lines 504-515 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
513
sub draw_guide_box {
507
sub draw_guide_box {
514
    return $_[0]->{'guidebox'};
508
    return $_[0]->{'guidebox'};
515
}
509
}
Lines 802-807 R = Right Link Here
802
                                                justify             => $text_justification,
796
                                                justify             => $text_justification,
803
                        );>
797
                        );>
804
798
799
=head2 draw_guide_box
800
801
Missing POD for draw_guide_box.
802
805
=head2 barcode()
803
=head2 barcode()
806
804
807
    Invoking the I<barcode> method generates a barcode for the label object and inserts it into the current pdf stream. This method accepts the following parameters as key => value
805
    Invoking the I<barcode> method generates a barcode for the label object and inserts it into the current pdf stream. This method accepts the following parameters as key => value
(-)a/C4/Linker/Default.pm (+4 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
=head1 Functions
28
29
=cut
30
27
=head2 get_link
31
=head2 get_link
28
32
29
Missing POD for get_link.
33
Missing POD for get_link.
(-)a/C4/Linker/FirstMatch.pm (+4 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
=head1 Functions
28
29
=cut
30
27
=head2 new
31
=head2 new
28
32
29
Missing POD for new.
33
Missing POD for new.
(-)a/C4/Linker/LastMatch.pm (+4 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
=head1 Functions
28
29
=cut
30
27
=head2 new
31
=head2 new
28
32
29
Missing POD for new.
33
Missing POD for new.
(-)a/C4/Output.pm (-5 / +5 lines)
Lines 276-282 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
279
=item output_html_with_http_headers
280
280
281
Missing POD for output_html_with_http_headers.
281
Missing POD for output_html_with_http_headers.
282
282
Lines 287-293 sub output_html_with_http_headers { Link Here
287
    output_with_http_headers( $query, $cookie, $data, 'html', $status, $extra_options );
287
    output_with_http_headers( $query, $cookie, $data, 'html', $status, $extra_options );
288
}
288
}
289
289
290
=head2 output_ajax_with_http_headers
290
=item output_ajax_with_http_headers
291
291
292
Missing POD for output_ajax_with_http_headers.
292
Missing POD for output_ajax_with_http_headers.
293
293
Lines 304-310 sub output_ajax_with_http_headers { Link Here
304
    ), $js;
304
    ), $js;
305
}
305
}
306
306
307
=head2 is_ajax
307
=item is_ajax
308
308
309
Missing POD for is_ajax.
309
Missing POD for is_ajax.
310
310
Lines 387-393 sub output_and_exit { Link Here
387
    exit;
387
    exit;
388
}
388
}
389
389
390
=head2 output_error
390
=item output_error
391
391
392
Missing POD for output_error.
392
Missing POD for output_error.
393
393
Lines 411-417 sub output_error { Link Here
411
    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';
412
}
412
}
413
413
414
=head2 parametrized_url
414
=item parametrized_url
415
415
416
Missing POD for parametrized_url.
416
Missing POD for parametrized_url.
417
417
(-)a/C4/Patroncards/Lib.pm (-25 / +15 lines)
Lines 84-95 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
93
sub get_borrower_attributes {
87
sub get_borrower_attributes {
94
    my ( $borrower_number, @fields ) = @_;
88
    my ( $borrower_number, @fields ) = @_;
95
    my $get_branch = 0;
89
    my $get_branch = 0;
Lines 123-134 sub get_borrower_attributes { Link Here
123
    return $borrower_attributes;
117
    return $borrower_attributes;
124
}
118
}
125
119
126
=head2 put_image
127
128
Missing POD for put_image.
129
130
=cut
131
132
sub put_image {
120
sub put_image {
133
    my ( $image_name, $image_file ) = @_;
121
    my ( $image_name, $image_file ) = @_;
134
    if ( my $image_limit = C4::Context->preference('ImageLimit') ) {    # enforce quota if set
122
    if ( my $image_limit = C4::Context->preference('ImageLimit') ) {    # enforce quota if set
Lines 152-163 sub put_image { Link Here
152
    return;
140
    return;
153
}
141
}
154
142
155
=head2 get_image
156
157
Missing POD for get_image.
158
159
=cut
160
161
sub get_image {
143
sub get_image {
162
    my ( $image_name, $fields ) = @_;
144
    my ( $image_name, $fields ) = @_;
163
    $fields = '*' unless $fields;
145
    $fields = '*' unless $fields;
Lines 176-187 sub get_image { Link Here
176
    return $sth->fetchall_arrayref( {} );
158
    return $sth->fetchall_arrayref( {} );
177
}
159
}
178
160
179
=head2 rm_image
180
181
Missing POD for rm_image.
182
183
=cut
184
185
sub rm_image {
161
sub rm_image {
186
    my $image_ids = shift;
162
    my $image_ids = shift;
187
    my $errstr    = ();
163
    my $errstr    = ();
Lines 276-282 This library provides functions used by various sections of the Patroncard Creat Link Here
276
252
277
        box($llx, $lly, $width, $height, $pdf);
253
        box($llx, $lly, $width, $height, $pdf);
278
254
279
=cut
255
=head2 get_borrower_attributes
256
257
Missing POD for get_borrower_attributes.
258
259
=head2 put_image
260
261
Missing POD for put_image.
262
263
=head2 get_image
264
265
Missing POD for get_image.
266
267
=head2 rm_image
268
269
Missing POD for rm_image.
280
270
281
=head1 AUTHOR
271
=head1 AUTHOR
282
272
(-)a/C4/SIP/ILS.pm (+4 lines)
Lines 47-52 my %supports = ( Link Here
47
    "renew all"             => 1,
47
    "renew all"             => 1,
48
);
48
);
49
49
50
=head1 Functions
51
52
=cut
53
50
=head2 new
54
=head2 new
51
55
52
Missing POD for new.
56
Missing POD for new.
(-)a/C4/SIP/ILS/Transaction/Checkin.pm (+4 lines)
Lines 33-38 my %fields = ( Link Here
33
    hold             => undef,
33
    hold             => undef,
34
);
34
);
35
35
36
=head1 Functions
37
38
=cut
39
36
=head2 new
40
=head2 new
37
41
38
Missing POD for new.
42
Missing POD for new.
(-)a/C4/Scrubber.pm (-8 / +5 lines)
Lines 37-48 my %scrubbertypes = ( Link Here
37
    },
37
    },
38
);
38
);
39
39
40
=head2 new
41
42
Missing POD for new.
43
44
=cut
45
46
sub new {
40
sub new {
47
    shift;    # ignore our class we are wrapper
41
    shift;    # ignore our class we are wrapper
48
    my $type = (@_) ? shift : 'default';
42
    my $type = (@_) ? shift : 'default';
Lines 71-77 Standardized wrapper with settings for building HTML::Scrubber tailored to vario Link Here
71
The default is to scrub everything, leaving no markup at all.  This is compatible with the expectations
65
The default is to scrub everything, leaving no markup at all.  This is compatible with the expectations
72
for Tags.
66
for Tags.
73
67
74
=head2 TODO: Add real perldoc
68
=head1 Functions
75
69
76
=cut
70
=head2 new
77
71
72
Missing POD for new.
73
74
=cut
(-)a/C4/Search/History.pm (-6 / +4 lines)
Lines 118-129 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
127
sub delete_from_cookie {
121
sub delete_from_cookie {
128
    my ($params) = @_;
122
    my ($params) = @_;
129
    my $cookie   = $params->{cookie};
123
    my $cookie   = $params->{cookie};
Lines 292-297 It is possible to delete searches for current session or all previous sessions u Link Here
292
If the type ("biblio" or "authority") is missing, all type will be deleted.
286
If the type ("biblio" or "authority") is missing, all type will be deleted.
293
To delete *all* searches for a given userid, just pass a userid.
287
To delete *all* searches for a given userid, just pass a userid.
294
288
289
=head2 delete_from_cookie
290
291
Missing POD for delete_from_cookie.
292
295
=head2 get
293
=head2 get
296
294
297
    my $searches C4::Search::History::get({
295
    my $searches C4::Search::History::get({
(-)a/Koha/Edifact/Line.pm (-306 / +208 lines)
Lines 176-187 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
185
sub marc_record {
179
sub marc_record {
186
    my $self = shift;
180
    my $self = shift;
187
    my $b    = $self->{item_description};
181
    my $b    = $self->{item_description};
Lines 276-287 sub marc_record { Link Here
276
    return $bib;
270
    return $bib;
277
}
271
}
278
272
279
=head2 corpcon
280
281
Missing POD for corpcon.
282
283
=cut
284
285
sub corpcon {
273
sub corpcon {
286
    my ( $self, $level ) = @_;
274
    my ( $self, $level ) = @_;
287
    my $test_these = {
275
    my $test_these = {
Lines 315-326 sub corpcon { Link Here
315
    return new_field( $self->{item_description}, [ $tag, $i1, $i2 ], @spec );
303
    return new_field( $self->{item_description}, [ $tag, $i1, $i2 ], @spec );
316
}
304
}
317
305
318
=head2 new_field
319
320
Missing POD for new_field.
321
322
=cut
323
324
sub new_field {
306
sub new_field {
325
    my ( $b, $tag_ind, @sfd_elem ) = @_;
307
    my ( $b, $tag_ind, @sfd_elem ) = @_;
326
    my @sfd;
308
    my @sfd;
Lines 340-384 sub new_field { Link Here
340
322
341
# Accessor methods to line data
323
# Accessor methods to line data
342
324
343
=head2 item_number_id
344
345
Missing POD for item_number_id.
346
347
=cut
348
349
sub item_number_id {
325
sub item_number_id {
350
    my $self = shift;
326
    my $self = shift;
351
    return $self->{item_number_id};
327
    return $self->{item_number_id};
352
}
328
}
353
329
354
=head2 line_item_number
355
356
Missing POD for line_item_number.
357
358
=cut
359
360
sub line_item_number {
330
sub line_item_number {
361
    my $self = shift;
331
    my $self = shift;
362
    return $self->{line_item_number};
332
    return $self->{line_item_number};
363
}
333
}
364
334
365
=head2 additional_product_ids
366
367
Missing POD for additional_product_ids.
368
369
=cut
370
371
sub additional_product_ids {
335
sub additional_product_ids {
372
    my $self = shift;
336
    my $self = shift;
373
    return $self->{additional_product_ids};
337
    return $self->{additional_product_ids};
374
}
338
}
375
339
376
=head2 action_notification
377
378
Missing POD for action_notification.
379
380
=cut
381
382
sub action_notification {
340
sub action_notification {
383
    my $self = shift;
341
    my $self = shift;
384
    my $a    = $self->{action_notification};
342
    my $a    = $self->{action_notification};
Lines 388-542 sub action_notification { Link Here
388
    return $a;
346
    return $a;
389
}
347
}
390
348
391
=head2 item_description
392
393
Missing POD for item_description.
394
395
=cut
396
397
sub item_description {
349
sub item_description {
398
    my $self = shift;
350
    my $self = shift;
399
    return $self->{item_description};
351
    return $self->{item_description};
400
}
352
}
401
353
402
=head2 monetary_amount
403
404
Missing POD for monetary_amount.
405
406
=cut
407
408
sub monetary_amount {
354
sub monetary_amount {
409
    my $self = shift;
355
    my $self = shift;
410
    return $self->{monetary_amount};
356
    return $self->{monetary_amount};
411
}
357
}
412
358
413
=head2 quantity
414
415
Missing POD for quantity.
416
417
=cut
418
419
sub quantity {
359
sub quantity {
420
    my $self = shift;
360
    my $self = shift;
421
    return $self->{quantity};
361
    return $self->{quantity};
422
}
362
}
423
363
424
=head2 quantity_invoiced
425
426
Missing POD for quantity_invoiced.
427
428
=cut
429
430
sub quantity_invoiced {
364
sub quantity_invoiced {
431
    my $self = shift;
365
    my $self = shift;
432
    return $self->{quantity_invoiced};
366
    return $self->{quantity_invoiced};
433
}
367
}
434
368
435
=head2 price
436
437
Missing POD for price.
438
439
=cut
440
441
sub price {
369
sub price {
442
    my $self = shift;
370
    my $self = shift;
443
    return $self->{price};
371
    return $self->{price};
444
}
372
}
445
373
446
=head2 reference
447
448
Missing POD for reference.
449
450
=cut
451
452
sub reference {
374
sub reference {
453
    my $self = shift;
375
    my $self = shift;
454
    return $self->{reference};
376
    return $self->{reference};
455
}
377
}
456
378
457
=head2 orderline_reference_number
458
459
Missing POD for orderline_reference_number.
460
461
=cut
462
463
sub orderline_reference_number {
379
sub orderline_reference_number {
464
    my $self = shift;
380
    my $self = shift;
465
    return $self->{orderline_reference_number};
381
    return $self->{orderline_reference_number};
466
}
382
}
467
383
468
=head2 ordernumber
469
470
Missing POD for ordernumber.
471
472
=cut
473
474
sub ordernumber {
384
sub ordernumber {
475
    my $self = shift;
385
    my $self = shift;
476
    return $self->{ordernumber};
386
    return $self->{ordernumber};
477
}
387
}
478
388
479
=head2 free_text
480
481
Missing POD for free_text.
482
483
=cut
484
485
sub free_text {
389
sub free_text {
486
    my $self = shift;
390
    my $self = shift;
487
    return $self->{free_text};
391
    return $self->{free_text};
488
}
392
}
489
393
490
=head2 coded_free_text
491
492
Missing POD for coded_free_text.
493
494
=cut
495
496
sub coded_free_text {
394
sub coded_free_text {
497
    my $self = shift;
395
    my $self = shift;
498
    return $self->{coded_free_text}->{code};
396
    return $self->{coded_free_text}->{code};
499
}
397
}
500
398
501
=head2 internal_notes
502
503
Missing POD for internal_notes.
504
505
=cut
506
507
sub internal_notes {
399
sub internal_notes {
508
    my $self = shift;
400
    my $self = shift;
509
    return $self->{internal_notes};
401
    return $self->{internal_notes};
510
}
402
}
511
403
512
=head2 coded_internal_note
513
514
Missing POD for coded_internal_note.
515
516
=cut
517
518
sub coded_internal_note {
404
sub coded_internal_note {
519
    my $self = shift;
405
    my $self = shift;
520
    return $self->{coded_internal_note}->{code};
406
    return $self->{coded_internal_note}->{code};
521
}
407
}
522
408
523
=head2 orderline_free_text
524
525
Missing POD for orderline_free_text.
526
527
=cut
528
529
sub orderline_free_text {
409
sub orderline_free_text {
530
    my $self = shift;
410
    my $self = shift;
531
    return $self->{orderline_free_text};
411
    return $self->{orderline_free_text};
532
}
412
}
533
413
534
=head2 coded_orderline_text
535
536
Missing POD for coded_orderline_text.
537
538
=cut
539
540
sub coded_orderline_text {
414
sub coded_orderline_text {
541
    my $self  = shift;
415
    my $self  = shift;
542
    my $code  = $self->{coded_orderline_text}->{code};
416
    my $code  = $self->{coded_orderline_text}->{code};
Lines 553-575 sub coded_orderline_text { Link Here
553
    return $txt;
427
    return $txt;
554
}
428
}
555
429
556
=head2 substitute_free_text
557
558
Missing POD for substitute_free_text.
559
560
=cut
561
562
sub substitute_free_text {
430
sub substitute_free_text {
563
    my $self = shift;
431
    my $self = shift;
564
    return $self->{substitute_free_text};
432
    return $self->{substitute_free_text};
565
}
433
}
566
434
567
=head2 coded_substitute_text
568
569
Missing POD for coded_substitute_text.
570
571
=cut
572
573
sub coded_substitute_text {
435
sub coded_substitute_text {
574
    my $self = shift;
436
    my $self = shift;
575
    return $self->{coded_substitute_text}->{code};
437
    return $self->{coded_substitute_text}->{code};
Lines 579-590 sub coded_substitute_text { Link Here
579
# by (orderline|substitue)-free_text (FTX seg LIN)
441
# by (orderline|substitue)-free_text (FTX seg LIN)
580
# and expand it using EditEUR code list 8B
442
# and expand it using EditEUR code list 8B
581
443
582
=head2 translate_8B
583
584
Missing POD for translate_8B.
585
586
=cut
587
588
sub translate_8B {
444
sub translate_8B {
589
    my ($code) = @_;
445
    my ($code) = @_;
590
446
Lines 632-643 sub translate_8B { Link Here
632
    }
488
    }
633
}
489
}
634
490
635
=head2 translate_12B
636
637
Missing POD for translate_12B.
638
639
=cut
640
641
sub translate_12B {
491
sub translate_12B {
642
    my ($code) = @_;
492
    my ($code) = @_;
643
493
Lines 693-704 sub translate_12B { Link Here
693
543
694
# item_desription_fields accessors
544
# item_desription_fields accessors
695
545
696
=head2 title
697
698
Missing POD for title.
699
700
=cut
701
702
sub title {
546
sub title {
703
    my $self       = shift;
547
    my $self       = shift;
704
    my $titlefield = q{050};
548
    my $titlefield = q{050};
Lines 708-719 sub title { Link Here
708
    return;
552
    return;
709
}
553
}
710
554
711
=head2 author
712
713
Missing POD for author.
714
715
=cut
716
717
sub author {
555
sub author {
718
    my $self  = shift;
556
    my $self  = shift;
719
    my $field = q{010};
557
    my $field = q{010};
Lines 729-740 sub author { Link Here
729
    return;
567
    return;
730
}
568
}
731
569
732
=head2 series
733
734
Missing POD for series.
735
736
=cut
737
738
sub series {
570
sub series {
739
    my $self  = shift;
571
    my $self  = shift;
740
    my $field = q{190};
572
    my $field = q{190};
Lines 744-755 sub series { Link Here
744
    return;
576
    return;
745
}
577
}
746
578
747
=head2 publisher
748
749
Missing POD for publisher.
750
751
=cut
752
753
sub publisher {
579
sub publisher {
754
    my $self  = shift;
580
    my $self  = shift;
755
    my $field = q{120};
581
    my $field = q{120};
Lines 759-770 sub publisher { Link Here
759
    return;
585
    return;
760
}
586
}
761
587
762
=head2 publication_date
763
764
Missing POD for publication_date.
765
766
=cut
767
768
sub publication_date {
588
sub publication_date {
769
    my $self  = shift;
589
    my $self  = shift;
770
    my $field = q{170};
590
    my $field = q{170};
Lines 774-785 sub publication_date { Link Here
774
    return;
594
    return;
775
}
595
}
776
596
777
=head2 dewey_class
778
779
Missing POD for dewey_class.
780
781
=cut
782
783
sub dewey_class {
597
sub dewey_class {
784
    my $self  = shift;
598
    my $self  = shift;
785
    my $field = q{230};
599
    my $field = q{230};
Lines 789-800 sub dewey_class { Link Here
789
    return;
603
    return;
790
}
604
}
791
605
792
=head2 lc_class
793
794
Missing POD for lc_class.
795
796
=cut
797
798
sub lc_class {
606
sub lc_class {
799
    my $self  = shift;
607
    my $self  = shift;
800
    my $field = q{240};
608
    my $field = q{240};
Lines 804-815 sub lc_class { Link Here
804
    return;
612
    return;
805
}
613
}
806
614
807
=head2 girfield
808
809
Missing POD for girfield.
810
811
=cut
812
813
sub girfield {
615
sub girfield {
814
    my ( $self, $field, $occ ) = @_;
616
    my ( $self, $field, $occ ) = @_;
815
    if ( $self->number_of_girs ) {
617
    if ( $self->number_of_girs ) {
Lines 825-836 sub girfield { Link Here
825
    }
627
    }
826
}
628
}
827
629
828
=head2 number_of_girs
829
830
Missing POD for number_of_girs.
831
832
=cut
833
834
sub number_of_girs {
630
sub number_of_girs {
835
    my $self = shift;
631
    my $self = shift;
836
    if ( $self->{GIR} ) {
632
    if ( $self->{GIR} ) {
Lines 843-854 sub number_of_girs { Link Here
843
    }
639
    }
844
}
640
}
845
641
846
=head2 extract_gir
847
848
Missing POD for extract_gir.
849
850
=cut
851
852
sub extract_gir {
642
sub extract_gir {
853
    my $s    = shift;
643
    my $s    = shift;
854
    my %qmap = (
644
    my %qmap = (
Lines 896-907 sub extract_gir { Link Here
896
686
897
# mainly for invoice processing amt_ will derive from MOA price_ from PRI and tax_ from TAX/MOA pairsn
687
# mainly for invoice processing amt_ will derive from MOA price_ from PRI and tax_ from TAX/MOA pairsn
898
688
899
=head2 moa_amt
900
901
Missing POD for moa_amt.
902
903
=cut
904
905
sub moa_amt {
689
sub moa_amt {
906
    my ( $self, $qualifier ) = @_;
690
    my ( $self, $qualifier ) = @_;
907
    foreach my $s ( @{ $self->{segs} } ) {
691
    foreach my $s ( @{ $self->{segs} } ) {
Lines 912-923 sub moa_amt { Link Here
912
    return;
696
    return;
913
}
697
}
914
698
915
=head2 moa_multiple_amt
916
917
Missing POD for moa_multiple_amt.
918
919
=cut
920
921
sub moa_multiple_amt {
699
sub moa_multiple_amt {
922
    my ( $self, $qualifier ) = @_;
700
    my ( $self, $qualifier ) = @_;
923
701
Lines 936-958 sub moa_multiple_amt { Link Here
936
    return;
714
    return;
937
}
715
}
938
716
939
=head2 amt_discount
940
941
Missing POD for amt_discount.
942
943
=cut
944
945
sub amt_discount {
717
sub amt_discount {
946
    my $self = shift;
718
    my $self = shift;
947
    return $self->moa_amt('52');
719
    return $self->moa_amt('52');
948
}
720
}
949
721
950
=head2 amt_prepayment
951
952
Missing POD for amt_prepayment.
953
954
=cut
955
956
sub amt_prepayment {
722
sub amt_prepayment {
957
    my $self = shift;
723
    my $self = shift;
958
    return $self->moa_amt('113');
724
    return $self->moa_amt('113');
Lines 960-971 sub amt_prepayment { Link Here
960
726
961
# total including allowances & tax
727
# total including allowances & tax
962
728
963
=head2 amt_total
964
965
Missing POD for amt_total.
966
967
=cut
968
969
sub amt_total {
729
sub amt_total {
970
    my $self = shift;
730
    my $self = shift;
971
    return $self->moa_amt('128');
731
    return $self->moa_amt('128');
Lines 973-984 sub amt_total { Link Here
973
733
974
# Used to give price in currency other than that given in price
734
# Used to give price in currency other than that given in price
975
735
976
=head2 amt_unitprice
977
978
Missing POD for amt_unitprice.
979
980
=cut
981
982
sub amt_unitprice {
736
sub amt_unitprice {
983
    my $self = shift;
737
    my $self = shift;
984
    return $self->moa_amt('146');
738
    return $self->moa_amt('146');
Lines 986-1019 sub amt_unitprice { Link Here
986
740
987
# item amount after allowances excluding tax
741
# item amount after allowances excluding tax
988
742
989
=head2 amt_lineitem
990
991
Missing POD for amt_lineitem.
992
993
=cut
994
995
sub amt_lineitem {
743
sub amt_lineitem {
996
    my $self = shift;
744
    my $self = shift;
997
    return $self->moa_amt('203');
745
    return $self->moa_amt('203');
998
}
746
}
999
747
1000
=head2 amt_taxoncharge
1001
1002
Missing POD for amt_taxoncharge.
1003
1004
=cut
1005
1006
sub amt_taxoncharge {
748
sub amt_taxoncharge {
1007
    my $self = shift;
749
    my $self = shift;
1008
    return $self->moa_multiple_amt('124');
750
    return $self->moa_multiple_amt('124');
1009
}
751
}
1010
752
1011
=head2 pri_price
1012
1013
Missing POD for pri_price.
1014
1015
=cut
1016
1017
sub pri_price {
753
sub pri_price {
1018
    my ( $self, $price_qualifier ) = @_;
754
    my ( $self, $price_qualifier ) = @_;
1019
755
Lines 1044-1055 sub pri_price { Link Here
1044
780
1045
# unit price that will be chaged excl tax
781
# unit price that will be chaged excl tax
1046
782
1047
=head2 price_net
1048
1049
Missing POD for price_net.
1050
1051
=cut
1052
1053
sub price_net {
783
sub price_net {
1054
    my $self = shift;
784
    my $self = shift;
1055
    my $p    = $self->pri_price('AAA');
785
    my $p    = $self->pri_price('AAA');
Lines 1061-1072 sub price_net { Link Here
1061
791
1062
# unit price excluding all allowances, charges and taxes
792
# unit price excluding all allowances, charges and taxes
1063
793
1064
=head2 price_gross
1065
1066
Missing POD for price_gross.
1067
1068
=cut
1069
1070
sub price_gross {
794
sub price_gross {
1071
    my $self = shift;
795
    my $self = shift;
1072
    my $p    = $self->pri_price('AAB');
796
    my $p    = $self->pri_price('AAB');
Lines 1078-1089 sub price_gross { Link Here
1078
802
1079
# information price incl tax excluding allowances, charges
803
# information price incl tax excluding allowances, charges
1080
804
1081
=head2 price_info
1082
1083
Missing POD for price_info.
1084
1085
=cut
1086
1087
sub price_info {
805
sub price_info {
1088
    my $self = shift;
806
    my $self = shift;
1089
    my $p    = $self->pri_price('AAE');
807
    my $p    = $self->pri_price('AAE');
Lines 1095-1106 sub price_info { Link Here
1095
813
1096
# information price incl tax,allowances, charges
814
# information price incl tax,allowances, charges
1097
815
1098
=head2 price_info_inclusive
1099
1100
Missing POD for price_info_inclusive.
1101
1102
=cut
1103
1104
sub price_info_inclusive {
816
sub price_info_inclusive {
1105
    my $self = shift;
817
    my $self = shift;
1106
    my $p    = $self->pri_price('AAF');
818
    my $p    = $self->pri_price('AAF');
Lines 1110-1132 sub price_info_inclusive { Link Here
1110
    return;
822
    return;
1111
}
823
}
1112
824
1113
=head2 tax
1114
1115
Missing POD for tax.
1116
1117
=cut
1118
1119
sub tax {
825
sub tax {
1120
    my $self = shift;
826
    my $self = shift;
1121
    return $self->moa_amt('124');
827
    return $self->moa_amt('124');
1122
}
828
}
1123
829
1124
=head2 tax_rate
1125
1126
Missing POD for tax_rate.
1127
1128
=cut
1129
1130
sub tax_rate {
830
sub tax_rate {
1131
    my $self = shift;
831
    my $self = shift;
1132
    my $tr   = {};
832
    my $tr   = {};
Lines 1152-1163 sub tax_rate { Link Here
1152
    return;
852
    return;
1153
}
853
}
1154
854
1155
=head2 availability_date
1156
1157
Missing POD for availability_date.
1158
1159
=cut
1160
1161
sub availability_date {
855
sub availability_date {
1162
    my $self = shift;
856
    my $self = shift;
1163
    if ( exists $self->{availability_date} ) {
857
    if ( exists $self->{availability_date} ) {
Lines 1208-1213 Koha::Edifact::Line Link Here
1208
902
1209
   Called with an array ref of segments constituting the line
903
   Called with an array ref of segments constituting the line
1210
904
905
906
=head2 marc_record
907
908
Missing POD for marc_record.
909
910
911
=head2 corpcon
912
913
Missing POD for corpcon.
914
915
=head2 new_field
916
917
Missing POD for new_field.
918
919
920
=head2 item_number_id
921
922
Missing POD for item_number_id.
923
924
925
=head2 line_item_number
926
927
Missing POD for line_item_number.
928
929
=head2 additional_product_ids
930
931
Missing POD for additional_product_ids.
932
933
=head2 action_notification
934
935
Missing POD for action_notification.
936
937
=head2 item_description
938
939
Missing POD for item_description.
940
941
=head2 monetary_amount
942
943
Missing POD for monetary_amount.
944
945
=head2 quantity
946
947
Missing POD for quantity.
948
949
=head2 quantity_invoiced
950
951
Missing POD for quantity_invoiced.
952
953
=head2 price
954
955
Missing POD for price.
956
957
=head2 reference
958
959
Missing POD for reference.
960
961
=head2 orderline_reference_number
962
963
Missing POD for orderline_reference_number.
964
965
=head2 ordernumber
966
967
Missing POD for ordernumber.
968
969
=head2 free_text
970
971
Missing POD for free_text.
972
973
=head2 coded_free_text
974
975
Missing POD for coded_free_text.
976
977
=head2 internal_notes
978
979
Missing POD for internal_notes.
980
981
=head2 coded_internal_note
982
983
Missing POD for coded_internal_note.
984
985
=head2 orderline_free_text
986
987
Missing POD for orderline_free_text.
988
989
=head2 coded_orderline_text
990
991
Missing POD for coded_orderline_text.
992
993
=head2 substitute_free_text
994
995
Missing POD for substitute_free_text.
996
997
=head2 coded_substitute_text
998
999
Missing POD for coded_substitute_text.
1000
1001
=head2 translate_8B
1002
1003
Missing POD for translate_8B.
1004
1005
=head2 translate_12B
1006
1007
Missing POD for translate_12B.
1008
1009
=head2 title
1010
1011
Missing POD for title.
1012
1013
=head2 author
1014
1015
Missing POD for author.
1016
1017
=head2 series
1018
1019
Missing POD for series.
1020
1021
=head2 publisher
1022
1023
Missing POD for publisher.
1024
1025
=head2 publication_date
1026
1027
Missing POD for publication_date.
1028
1029
=head2 dewey_class
1030
1031
Missing POD for dewey_class.
1032
1033
=head2 lc_class
1034
1035
Missing POD for lc_class.
1036
1037
=head2 girfield
1038
1039
Missing POD for girfield.
1040
1041
=head2 number_of_girs
1042
1043
Missing POD for number_of_girs.
1044
1045
=head2 extract_gir
1046
1047
Missing POD for extract_gir.
1048
1049
=head2 moa_amt
1050
1051
Missing POD for moa_amt.
1052
1053
=head2 moa_multiple_amt
1054
1055
Missing POD for moa_multiple_amt.
1056
1057
=head2 amt_discount
1058
1059
Missing POD for amt_discount.
1060
1061
=head2 amt_prepayment
1062
1063
Missing POD for amt_prepayment.
1064
1065
=head2 amt_total
1066
1067
Missing POD for amt_total.
1068
1069
=head2 amt_unitprice
1070
1071
Missing POD for amt_unitprice.
1072
1073
=head2 amt_lineitem
1074
1075
Missing POD for amt_lineitem.
1076
1077
=head2 amt_taxoncharge
1078
1079
Missing POD for amt_taxoncharge.
1080
1081
=head2 pri_price
1082
1083
Missing POD for pri_price.
1084
1085
=head2 price_net
1086
1087
Missing POD for price_net.
1088
1089
=head2 price_gross
1090
1091
Missing POD for price_gross.
1092
1093
=head2 price_info
1094
1095
Missing POD for price_info.
1096
1097
=head2 price_info_inclusive
1098
1099
Missing POD for price_info_inclusive.
1100
1101
=head2 tax
1102
1103
Missing POD for tax.
1104
1105
=head2 tax_rate
1106
1107
Missing POD for tax_rate.
1108
1109
=head2 availability_date
1110
1111
Missing POD for availability_date.
1112
1211
=head1 AUTHOR
1113
=head1 AUTHOR
1212
1114
1213
   Colin Campbell <colin.campbell@ptfs-europe.com>
1115
   Colin Campbell <colin.campbell@ptfs-europe.com>
(-)a/Koha/Edifact/Message.pm (-78 / +48 lines)
Lines 46-68 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
55
sub message_refno {
49
sub message_refno {
56
    my $self = shift;
50
    my $self = shift;
57
    return $self->{message_reference_number};
51
    return $self->{message_reference_number};
58
}
52
}
59
53
60
=head2 function
61
62
Missing POD for function.
63
64
=cut
65
66
sub function {
54
sub function {
67
    my $self         = shift;
55
    my $self         = shift;
68
    my $msg_function = $self->{bgm}->elem(2);
56
    my $msg_function = $self->{bgm}->elem(2);
Lines 74-129 sub function { Link Here
74
    return;
62
    return;
75
}
63
}
76
64
77
=head2 message_reference_number
78
79
Missing POD for message_reference_number.
80
81
=cut
82
83
sub message_reference_number {
65
sub message_reference_number {
84
    my $self = shift;
66
    my $self = shift;
85
    return $self->{header}->elem(0);
67
    return $self->{header}->elem(0);
86
}
68
}
87
69
88
=head2 message_type
89
90
Missing POD for message_type.
91
92
=cut
93
94
sub message_type {
70
sub message_type {
95
    my $self = shift;
71
    my $self = shift;
96
    return $self->{header}->elem( 1, 0 );
72
    return $self->{header}->elem( 1, 0 );
97
}
73
}
98
74
99
=head2 message_code
100
101
Missing POD for message_code.
102
103
=cut
104
105
sub message_code {
75
sub message_code {
106
    my $self = shift;
76
    my $self = shift;
107
    return $self->{bgm}->elem( 0, 0 );
77
    return $self->{bgm}->elem( 0, 0 );
108
}
78
}
109
79
110
=head2 docmsg_number
111
112
Missing POD for docmsg_number.
113
114
=cut
115
116
sub docmsg_number {
80
sub docmsg_number {
117
    my $self = shift;
81
    my $self = shift;
118
    return $self->{bgm}->elem(1);
82
    return $self->{bgm}->elem(1);
119
}
83
}
120
84
121
=head2 message_date
122
123
Missing POD for message_date.
124
125
=cut
126
127
sub message_date {
85
sub message_date {
128
    my $self = shift;
86
    my $self = shift;
129
87
Lines 136-147 sub message_date { Link Here
136
    return;    # this should not happen
94
    return;    # this should not happen
137
}
95
}
138
96
139
=head2 tax_point_date
140
141
Missing POD for tax_point_date.
142
143
=cut
144
145
sub tax_point_date {
97
sub tax_point_date {
146
    my $self = shift;
98
    my $self = shift;
147
    if ( $self->message_type eq 'INVOIC' ) {
99
    if ( $self->message_type eq 'INVOIC' ) {
Lines 154-165 sub tax_point_date { Link Here
154
    return;
106
    return;
155
}
107
}
156
108
157
=head2 expiry_date
158
159
Missing POD for expiry_date.
160
161
=cut
162
163
sub expiry_date {
109
sub expiry_date {
164
    my $self = shift;
110
    my $self = shift;
165
    if ( $self->message_type eq 'QUOTES' ) {
111
    if ( $self->message_type eq 'QUOTES' ) {
Lines 172-183 sub expiry_date { Link Here
172
    return;
118
    return;
173
}
119
}
174
120
175
=head2 shipment_charge
176
177
Missing POD for shipment_charge.
178
179
=cut
180
181
sub shipment_charge {
121
sub shipment_charge {
182
    my $self = shift;
122
    my $self = shift;
183
123
Lines 210-221 sub shipment_charge { Link Here
210
150
211
# return NAD fields
151
# return NAD fields
212
152
213
=head2 buyer_ean
214
215
Missing POD for buyer_ean.
216
217
=cut
218
219
sub buyer_ean {
153
sub buyer_ean {
220
    my $self = shift;
154
    my $self = shift;
221
    foreach my $s ( @{ $self->{datasegs} } ) {
155
    foreach my $s ( @{ $self->{datasegs} } ) {
Lines 232-243 sub buyer_ean { Link Here
232
    return;
166
    return;
233
}
167
}
234
168
235
=head2 supplier_ean
236
237
Missing POD for supplier_ean.
238
239
=cut
240
241
sub supplier_ean {
169
sub supplier_ean {
242
    my $self = shift;
170
    my $self = shift;
243
    foreach my $s ( @{ $self->{datasegs} } ) {
171
    foreach my $s ( @{ $self->{datasegs} } ) {
Lines 255-266 sub supplier_ean { Link Here
255
183
256
}
184
}
257
185
258
=head2 lineitems
259
260
Missing POD for lineitems.
261
262
=cut
263
264
sub lineitems {
186
sub lineitems {
265
    my $self = shift;
187
    my $self = shift;
266
    if ( $self->{quotation_lines} ) {
188
    if ( $self->{quotation_lines} ) {
Lines 310-315 Class modelling an Edifact Message for parsing Link Here
310
   Passed an array of segments extracts message level info
232
   Passed an array of segments extracts message level info
311
   and parses lineitems as Line objects
233
   and parses lineitems as Line objects
312
234
235
=head2 message_refno
236
237
Missing POD for message_refno.
238
239
=head2 function
240
241
Missing POD for function.
242
243
=head2 message_reference_number
244
245
Missing POD for message_reference_number.
246
247
=head2 message_type
248
249
Missing POD for message_type.
250
251
=head2 message_code
252
253
Missing POD for message_code.
254
255
=head2 docmsg_number
256
257
Missing POD for docmsg_number.
258
259
=head2 tax_point_date
260
261
Missing POD for tax_point_date.
262
263
=head2 expiry_date
264
265
Missing POD for expiry_date.
266
267
=head2 shipment_charge
268
269
Missing POD for shipment_charge.
270
271
=head2 buyer_ean
272
273
Missing POD for buyer_ean.
274
275
=head2 supplier_ean
276
277
Missing POD for supplier_ean.
278
279
=head2 lineitems
280
281
Missing POD for lineitems.
282
313
=head1 AUTHOR
283
=head1 AUTHOR
314
284
315
   Colin Campbell <colin.campbell@ptfs-europe.com>
285
   Colin Campbell <colin.campbell@ptfs-europe.com>
(-)a/Koha/Edifact/Transport.pm (-18 / +12 lines)
Lines 88-99 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
97
sub file_download {
91
sub file_download {
98
    my $self = shift;
92
    my $self = shift;
99
    my @downloaded_files;
93
    my @downloaded_files;
Lines 351-362 sub sftp_upload { Link Here
351
    return;
345
    return;
352
}
346
}
353
347
354
=head2 file_upload
355
356
Missing POD for file_upload.
357
358
=cut
359
360
sub file_upload {
348
sub file_upload {
361
    my ( $self, @messages ) = @_;
349
    my ( $self, @messages ) = @_;
362
    my $dir = $self->{account}->upload_directory;
350
    my $dir = $self->{account}->upload_directory;
Lines 418-429 sub _get_file_ext { Link Here
418
    return 'XXXX';    # non matching type
406
    return 'XXXX';    # non matching type
419
}
407
}
420
408
421
=head2 message_hash
422
423
Missing POD for message_hash.
424
425
=cut
426
427
sub message_hash {
409
sub message_hash {
428
    my $self = shift;
410
    my $self = shift;
429
    my $msg  = {
411
    my $msg  = {
Lines 478-483 Or FILE to access a local directory (useful for testing) Link Here
478
460
479
   passed an array of messages will upload them to the supplier site
461
   passed an array of messages will upload them to the supplier site
480
462
463
=head2 file_download
464
465
Missing POD for file_download.
466
481
=head2 sftp_download
467
=head2 sftp_download
482
468
483
   called by download_messages to perform the download using SFTP
469
   called by download_messages to perform the download using SFTP
Lines 498-503 Or FILE to access a local directory (useful for testing) Link Here
498
484
499
  called by upload_messages to perform the upload using sftp
485
  called by upload_messages to perform the upload using sftp
500
486
487
=head2 file_upload
488
489
Missing POD for file_upload.
490
501
=head2 _abort_download
491
=head2 _abort_download
502
492
503
   internal routine to halt operation on error and supply a stacktrace
493
   internal routine to halt operation on error and supply a stacktrace
Lines 512-517 Or FILE to access a local directory (useful for testing) Link Here
512
  sets the direct ingest flag so that the object reads files from
502
  sets the direct ingest flag so that the object reads files from
513
  the local file system useful in debugging
503
  the local file system useful in debugging
514
504
505
=head2 message_hash
506
507
Missing POD for message_hash.
508
515
=head1 AUTHOR
509
=head1 AUTHOR
516
510
517
   Colin Campbell <colin.campbell@ptfs-europe.com>
511
   Colin Campbell <colin.campbell@ptfs-europe.com>
(-)a/Koha/Patron/Files.pm (-1 / +1 lines)
Lines 32-38 Koha::Patron::Files - Module for managing patron files Link Here
32
32
33
=cut
33
=cut
34
34
35
=head2 new
35
=item new
36
36
37
Missing POD for new.
37
Missing POD for new.
38
38
(-)a/Koha/Template/Plugin/AuthorisedValues.pm (-12 / +8 lines)
Lines 35-46 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
44
sub Get {
38
sub Get {
45
    my ( $self, $category, $selected, $opac ) = @_;
39
    my ( $self, $category, $selected, $opac ) = @_;
46
    return GetAuthorisedValues( $category, $selected, $opac );
40
    return GetAuthorisedValues( $category, $selected, $opac );
Lines 60-71 sub GetAuthValueDropbox { Link Here
60
    );
54
    );
61
}
55
}
62
56
63
=head2 GetCategories
64
65
Missing POD for GetCategories.
66
67
=cut
68
69
sub GetCategories {
57
sub GetCategories {
70
    my ( $self, $params ) = @_;
58
    my ( $self, $params ) = @_;
71
    my $selected   = $params->{selected};
59
    my $selected   = $params->{selected};
Lines 122-131 Koha::Template::Plugin::AuthorisedValues - TT Plugin for authorised values Link Here
122
In a template, you can get the description for an authorised value with
110
In a template, you can get the description for an authorised value with
123
the following TT code: [% AuthorisedValues.GetByCode( 'CATEGORY', 'AUTHORISED_VALUE_CODE', 'IS_OPAC' ) %]
111
the following TT code: [% AuthorisedValues.GetByCode( 'CATEGORY', 'AUTHORISED_VALUE_CODE', 'IS_OPAC' ) %]
124
112
113
=head2 Get
114
115
Missing POD for Get.
116
125
=head2 GetAuthValueDropbox
117
=head2 GetAuthValueDropbox
126
118
127
The parameters are identical to those used by the subroutine C4::Koha::GetAuthValueDropbox
119
The parameters are identical to those used by the subroutine C4::Koha::GetAuthValueDropbox
128
120
121
=head2 GetCategories
122
123
Missing POD for GetCategories.
124
129
=head2 GetDescriptionsByKohaField
125
=head2 GetDescriptionsByKohaField
130
126
131
The parameters are identical to those used by the subroutine Koha::AuthorisedValues->get_descriptions_by_koha_field
127
The parameters are identical to those used by the subroutine Koha::AuthorisedValues->get_descriptions_by_koha_field
(-)a/t/lib/QA/TemplateFilters.pm (-6 / +3 lines)
Lines 122-133 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
131
sub process_tt_block {
125
sub process_tt_block {
132
    my ( $line, $params ) = @_;
126
    my ( $line, $params ) = @_;
133
    my $tt_block   = $params->{tt_block};
127
    my $tt_block   = $params->{tt_block};
Lines 280-285 and to not duplicate the code. Link Here
280
    * line is the line where the error has been found.
274
    * line is the line where the error has been found.
281
    * line_number is the line number where the error has been found.
275
    * line_number is the line number where the error has been found.
282
276
277
=head2 process_tt_block
278
279
Missing POD for process_tt_block.
283
280
284
=head1 AUTHORS
281
=head1 AUTHORS
285
282
(-)a/t/lib/Selenium.pm (-18 / +12 lines)
Lines 73-84 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
82
sub config {
76
sub config {
83
    return {
77
    return {
84
        login    => $ENV{KOHA_USER} || 'koha',
78
        login    => $ENV{KOHA_USER} || 'koha',
Lines 103-114 sub auth { Link Here
103
    $login_button->click();
97
    $login_button->click();
104
}
98
}
105
99
106
=head2 opac_auth
107
108
Missing POD for opac_auth.
109
110
=cut
111
112
sub opac_auth {
100
sub opac_auth {
113
    my ( $self, $login, $password ) = @_;
101
    my ( $self, $login, $password ) = @_;
114
102
Lines 309-320 sub click_when_visible { Link Here
309
    $elt->click unless $clicked;    # finally Raise the error
297
    $elt->click unless $clicked;    # finally Raise the error
310
}
298
}
311
299
312
=head2 max_retries
313
314
Missing POD for max_retries.
315
316
=cut
317
318
sub max_retries { 10 }
300
sub max_retries { 10 }
319
301
320
=head1 NAME
302
=head1 NAME
Lines 438-443 It will remove any kinds of error raised by the driver. Link Here
438
It can be useful in some cases, for instance if you want to make sure something will not happen and that could make the driver exploses otherwise.
420
It can be useful in some cases, for instance if you want to make sure something will not happen and that could make the driver exploses otherwise.
439
You certainly should call it for only one statement then must call add_error_handler right after.
421
You certainly should call it for only one statement then must call add_error_handler right after.
440
422
423
=head2 config
424
425
Missing POD for config.
426
427
=head2 opac_auth
428
429
Missing POD for opac_auth.
430
431
=head2 max_retries
432
433
Missing POD for max_retries.
434
441
=head1 AUTHORS
435
=head1 AUTHORS
442
436
443
Jonathan Druart <jonathan.druart@bugs.koha-community.org>
437
Jonathan Druart <jonathan.druart@bugs.koha-community.org>
(-)a/t/lib/TestBuilder.pm (-19 / +12 lines)
Lines 161-172 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
170
sub build_sample_biblio {
164
sub build_sample_biblio {
171
    my ( $self, $args ) = @_;
165
    my ( $self, $args ) = @_;
172
166
Lines 198-209 sub build_sample_biblio { Link Here
198
    return Koha::Biblios->find($biblio_id);
192
    return Koha::Biblios->find($biblio_id);
199
}
193
}
200
194
201
=head2 build_sample_item
202
203
Missing POD for build_sample_item.
204
205
=cut
206
207
sub build_sample_item {
195
sub build_sample_item {
208
    my ( $self, $args ) = @_;
196
    my ( $self, $args ) = @_;
209
197
Lines 602-613 sub _gen_text { Link Here
602
    return $random->randregex($regex);
590
    return $random->randregex($regex);
603
}
591
}
604
592
605
=head2 alt_rand
606
607
Missing POD for alt_rand.
608
609
=cut
610
611
sub alt_rand {    #Alternative randomizer
593
sub alt_rand {    #Alternative randomizer
612
    my ($max)  = @_;
594
    my ($max)  = @_;
613
    my $random = Bytes::Random::Secure->new( NonBlocking => 1 );
595
    my $random = Bytes::Random::Secure->new( NonBlocking => 1 );
Lines 830-835 if a record with that primary key already exists. Link Here
830
Given a plural Koha::Object-derived class, it creates a random element, and
812
Given a plural Koha::Object-derived class, it creates a random element, and
831
returns the corresponding Koha::Object.
813
returns the corresponding Koha::Object.
832
814
815
=head2 build_sample_biblio
816
817
Missing POD for build_sample_biblio.
818
819
=head2 build_sample_item
820
821
Missing POD for build_sample_item.
822
833
=head2 build_sample_ill_request
823
=head2 build_sample_ill_request
834
824
835
    my $ill_request = $builder->build_sample_ill_request({ biblio_id => $biblio_id });
825
    my $ill_request = $builder->build_sample_ill_request({ biblio_id => $biblio_id });
Lines 848-853 C<$args> is a hashref with the following optional keys: Link Here
848
838
849
=back
839
=back
850
840
841
=head2 alt_rand
842
843
Missing POD for alt_rand.
844
851
=head1 AUTHOR
845
=head1 AUTHOR
852
846
853
Yohann Dufour <yohann.dufour@biblibre.com>
847
Yohann Dufour <yohann.dufour@biblibre.com>
854
- 

Return to bug 39367