gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 18541: [QA Follow-up] Add POD to Patroncard.pm 

Just adding the POD framework to make qa tools happy. The authors
are encouraged to complete this information.

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Marcel de Rooy 2017-09-06 16:14:26 +02:00 committed by Jonathan Druart
parent c7ac741e6a
commit 7f5e8668a7
1 changed files with 43 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
C4/Patroncards/Patroncard.pm
View File

@ -28,6 +28,26 @@ use C4::Creators::Lib qw(get_font_types get_unit_values);
use C4::Creators::PDF qw(StrWidth);
use C4::Patroncards::Lib qw(unpack_UTF8 text_alignment leading box get_borrower_attributes);
=head1 NAME
C4::Patroncards::Patroncard
=head1 SYNOPSIS
use C4::Patroncards::Patroncard;
# Please extend
=head1 DESCRIPTION
This module allows you to ...
=head1 FUNCTIONS
=head2 new
=cut
sub new {
my ($invocant, %params) = @_;
@ -62,6 +82,10 @@ sub new {
return $self;
}
=head2 draw_barcode
=cut
sub draw_barcode {
my ($self, $pdf) = @_;
# Default values for barcode scaling are set in constructor to work with pre-existing installations
@ -79,6 +103,10 @@ sub draw_barcode {
);
}
=head2 draw_guide_box
=cut
sub draw_guide_box {
my ($self, $pdf) = @_;
warn sprintf('No pdf object passed in.') and return -1 if !$pdf;
@ -93,6 +121,10 @@ sub draw_guide_box {
$pdf->Add($obj_stream);
}
=head2 draw_guide_grid
=cut
sub draw_guide_grid {
my ($self, $pdf) = @_;
warn sprintf('No pdf object passed in.') and return -1 if !$pdf;
@ -165,6 +197,9 @@ sub draw_guide_grid {
$pdf->Text( $self->{'llx'} + $self->{'width'} - $strtop_len , $self->{'lly'} + $self->{'height'} - $font_size , $strtop );
}
=head2 draw_text
=cut
sub draw_text {
my ($self, $pdf, %params) = @_;
@ -268,6 +303,10 @@ sub draw_text {
}
}
=head2 draw_image
=cut
sub draw_image {
my ($self, $pdf) = @_;
warn sprintf('No pdf object passed in.') and return -1 if !$pdf;
@ -288,6 +327,10 @@ sub draw_image {
}
}
=head2 draw_barcode
=cut
sub _draw_barcode { # this is cut-and-paste from Label.pm because there is no common place for it atm...
my $self = shift;
my %params = @_;
@ -370,6 +413,3 @@ __END__
Chris Nighswonger <cnighswonger AT foundations DOT edu>
=cut