35 lines
658 B
Perl
35 lines
658 B
Perl
package C4::Patroncards;
|
|
|
|
use Modern::Perl;
|
|
|
|
BEGIN {
|
|
use vars qw(@EXPORT @ISA);
|
|
@ISA = qw(Exporter);
|
|
our @EXPORT = qw(unpack_UTF8
|
|
text_alignment
|
|
leading
|
|
box
|
|
get_borrower_attributes
|
|
put_image
|
|
get_image
|
|
rm_image
|
|
);
|
|
use C4::Patroncards::Batch;
|
|
use C4::Patroncards::Layout;
|
|
use C4::Patroncards::Lib qw(
|
|
box
|
|
get_borrower_attributes
|
|
get_image
|
|
leading
|
|
put_image
|
|
rm_image
|
|
text_alignment
|
|
unpack_UTF8
|
|
);
|
|
use C4::Patroncards::Patroncard;
|
|
use C4::Patroncards::Profile;
|
|
use C4::Patroncards::Template;
|
|
}
|
|
|
|
1;
|