Lines 17-23
package Koha::Item::Template;
Link Here
|
17 |
|
17 |
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use JSON qw( encode_json decode_json ); |
20 |
use Encode qw(encode_utf8); |
|
|
21 |
use JSON qw(encode_json decode_json); |
21 |
|
22 |
|
22 |
use base qw(Koha::Object); |
23 |
use base qw(Koha::Object); |
23 |
|
24 |
|
Lines 27-33
Koha::Item::Template - Koha Item Template Object class
Link Here
|
27 |
|
28 |
|
28 |
=head1 API |
29 |
=head1 API |
29 |
|
30 |
|
30 |
=head2 Class Methods |
31 |
=head2 Class methods |
31 |
|
32 |
|
32 |
=head3 store |
33 |
=head3 store |
33 |
|
34 |
|
Lines 55-64
Returns a deserilized perl structure of the JSON formatted contents
Link Here
|
55 |
sub decoded_contents { |
56 |
sub decoded_contents { |
56 |
my ($self) = @_; |
57 |
my ($self) = @_; |
57 |
|
58 |
|
58 |
return decode_json( $self->contents ) if $self->contents; |
59 |
return decode_json( encode_utf8($self->contents) ) if $self->contents; |
59 |
} |
60 |
} |
60 |
|
61 |
|
61 |
=head3 type |
62 |
=head2 Internal methods |
|
|
63 |
|
64 |
=head3 _type |
62 |
|
65 |
|
63 |
=cut |
66 |
=cut |
64 |
|
67 |
|
65 |
- |
|
|