|
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 |
- |
|
|