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

(-)a/C4/Creators/Lib.pm (-9 / +8 lines)
Lines 17-24 package C4::Creators::Lib; Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
21
use Storable qw(dclone);
22
22
23
use autouse 'Data::Dumper' => qw(Dumper);
23
use autouse 'Data::Dumper' => qw(Dumper);
24
24
Lines 405-411 This function returns a reference to an array of hashes containing all barcode t Link Here
405
=cut
405
=cut
406
406
407
sub get_barcode_types {
407
sub get_barcode_types {
408
    return $barcode_types;
408
    return dclone $barcode_types;
409
}
409
}
410
410
411
=head2 C4::Creators::Lib::get_label_types()
411
=head2 C4::Creators::Lib::get_label_types()
Lines 417-423 This function returns a reference to an array of hashes containing all label typ Link Here
417
=cut
417
=cut
418
418
419
sub get_label_types {
419
sub get_label_types {
420
    return $label_types;
420
    return dclone $label_types;
421
}
421
}
422
422
423
=head2 C4::Creators::Lib::get_font_types()
423
=head2 C4::Creators::Lib::get_font_types()
Lines 429-435 This function returns a reference to an array of hashes containing all font type Link Here
429
=cut
429
=cut
430
430
431
sub get_font_types {
431
sub get_font_types {
432
    return $font_types;
432
    return dclone $font_types;
433
}
433
}
434
434
435
=head2 C4::Creators::Lib::get_text_justification_types()
435
=head2 C4::Creators::Lib::get_text_justification_types()
Lines 441-447 This function returns a reference to an array of hashes containing all text just Link Here
441
=cut
441
=cut
442
442
443
sub get_text_justification_types {
443
sub get_text_justification_types {
444
    return $text_justification_types;
444
    return dclone $text_justification_types;
445
}
445
}
446
446
447
=head2 C4::Creators::Lib::get_unit_values()
447
=head2 C4::Creators::Lib::get_unit_values()
Lines 455-461 There are 72 PS points to the inch. Link Here
455
=cut
455
=cut
456
456
457
sub get_unit_values {
457
sub get_unit_values {
458
    return $unit_values;
458
    return dclone $unit_values;
459
}
459
}
460
460
461
=head2 C4::Creators::Lib::get_output_formats()
461
=head2 C4::Creators::Lib::get_output_formats()
Lines 467-473 This function returns a reference to an array of hashes containing all label out Link Here
467
=cut
467
=cut
468
468
469
sub get_output_formats {
469
sub get_output_formats {
470
    return $output_formats;
470
    return dclone $output_formats;
471
}
471
}
472
472
473
473
474
- 

Return to bug 25852