Lines 28-33
use C4::Creators::Lib qw(get_font_types get_unit_values);
Link Here
|
28 |
use C4::Creators::PDF qw(StrWidth); |
28 |
use C4::Creators::PDF qw(StrWidth); |
29 |
use C4::Patroncards::Lib qw(unpack_UTF8 text_alignment leading box get_borrower_attributes); |
29 |
use C4::Patroncards::Lib qw(unpack_UTF8 text_alignment leading box get_borrower_attributes); |
30 |
|
30 |
|
|
|
31 |
=head1 NAME |
32 |
|
33 |
C4::Patroncards::Patroncard |
34 |
|
35 |
=head1 SYNOPSIS |
36 |
|
37 |
use C4::Patroncards::Patroncard; |
38 |
|
39 |
# Please extend |
40 |
|
41 |
|
42 |
=head1 DESCRIPTION |
43 |
|
44 |
This module allows you to ... |
45 |
|
46 |
=head1 FUNCTIONS |
47 |
|
48 |
=head2 new |
49 |
|
50 |
=cut |
31 |
|
51 |
|
32 |
sub new { |
52 |
sub new { |
33 |
my ($invocant, %params) = @_; |
53 |
my ($invocant, %params) = @_; |
Lines 62-67
sub new {
Link Here
|
62 |
return $self; |
82 |
return $self; |
63 |
} |
83 |
} |
64 |
|
84 |
|
|
|
85 |
=head2 draw_barcode |
86 |
|
87 |
=cut |
88 |
|
65 |
sub draw_barcode { |
89 |
sub draw_barcode { |
66 |
my ($self, $pdf) = @_; |
90 |
my ($self, $pdf) = @_; |
67 |
# Default values for barcode scaling are set in constructor to work with pre-existing installations |
91 |
# Default values for barcode scaling are set in constructor to work with pre-existing installations |
Lines 79-84
sub draw_barcode {
Link Here
|
79 |
); |
103 |
); |
80 |
} |
104 |
} |
81 |
|
105 |
|
|
|
106 |
=head2 draw_guide_box |
107 |
|
108 |
=cut |
109 |
|
82 |
sub draw_guide_box { |
110 |
sub draw_guide_box { |
83 |
my ($self, $pdf) = @_; |
111 |
my ($self, $pdf) = @_; |
84 |
warn sprintf('No pdf object passed in.') and return -1 if !$pdf; |
112 |
warn sprintf('No pdf object passed in.') and return -1 if !$pdf; |
Lines 93-98
sub draw_guide_box {
Link Here
|
93 |
$pdf->Add($obj_stream); |
121 |
$pdf->Add($obj_stream); |
94 |
} |
122 |
} |
95 |
|
123 |
|
|
|
124 |
=head2 draw_guide_grid |
125 |
|
126 |
=cut |
127 |
|
96 |
sub draw_guide_grid { |
128 |
sub draw_guide_grid { |
97 |
my ($self, $pdf) = @_; |
129 |
my ($self, $pdf) = @_; |
98 |
warn sprintf('No pdf object passed in.') and return -1 if !$pdf; |
130 |
warn sprintf('No pdf object passed in.') and return -1 if !$pdf; |
Lines 165-170
sub draw_guide_grid {
Link Here
|
165 |
$pdf->Text( $self->{'llx'} + $self->{'width'} - $strtop_len , $self->{'lly'} + $self->{'height'} - $font_size , $strtop ); |
197 |
$pdf->Text( $self->{'llx'} + $self->{'width'} - $strtop_len , $self->{'lly'} + $self->{'height'} - $font_size , $strtop ); |
166 |
} |
198 |
} |
167 |
|
199 |
|
|
|
200 |
=head2 draw_text |
201 |
|
202 |
=cut |
168 |
|
203 |
|
169 |
sub draw_text { |
204 |
sub draw_text { |
170 |
my ($self, $pdf, %params) = @_; |
205 |
my ($self, $pdf, %params) = @_; |
Lines 268-273
sub draw_text {
Link Here
|
268 |
} |
303 |
} |
269 |
} |
304 |
} |
270 |
|
305 |
|
|
|
306 |
=head2 draw_image |
307 |
|
308 |
=cut |
309 |
|
271 |
sub draw_image { |
310 |
sub draw_image { |
272 |
my ($self, $pdf) = @_; |
311 |
my ($self, $pdf) = @_; |
273 |
warn sprintf('No pdf object passed in.') and return -1 if !$pdf; |
312 |
warn sprintf('No pdf object passed in.') and return -1 if !$pdf; |
Lines 288-293
sub draw_image {
Link Here
|
288 |
} |
327 |
} |
289 |
} |
328 |
} |
290 |
|
329 |
|
|
|
330 |
=head2 draw_barcode |
331 |
|
332 |
=cut |
333 |
|
291 |
sub _draw_barcode { # this is cut-and-paste from Label.pm because there is no common place for it atm... |
334 |
sub _draw_barcode { # this is cut-and-paste from Label.pm because there is no common place for it atm... |
292 |
my $self = shift; |
335 |
my $self = shift; |
293 |
my %params = @_; |
336 |
my %params = @_; |
Lines 370-375
__END__
Link Here
|
370 |
Chris Nighswonger <cnighswonger AT foundations DOT edu> |
413 |
Chris Nighswonger <cnighswonger AT foundations DOT edu> |
371 |
|
414 |
|
372 |
=cut |
415 |
=cut |
373 |
|
|
|
374 |
|
375 |
|
376 |
- |