projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 21722: Use Koha::Account->add_debit in chargelostitem
[koha.git]
/
C4
/
Creators
/
Layout.pm
diff --git
a/C4/Creators/Layout.pm
b/C4/Creators/Layout.pm
index
1a912fe
..
f1dc20e
100644
(file)
--- a/
C4/Creators/Layout.pm
+++ b/
C4/Creators/Layout.pm
@@
-9,9
+9,6
@@
use C4::Context;
use C4::Debug;
use C4::Creators::PDF;
use C4::Debug;
use C4::Creators::PDF;
-BEGIN {
- use version; our $VERSION = qv('1.0.0_1');
-}
# FIXME: Consider this style parameter verification instead...
# my %param = @_;
# FIXME: Consider this style parameter verification instead...
# my %param = @_;
@@
-33,6
+30,7
@@
sub _check_params {
'printing_type',
'layout_name',
'guidebox',
'printing_type',
'layout_name',
'guidebox',
+ 'oblique_title',
'font',
'font_size',
'callnum_split',
'font',
'font_size',
'callnum_split',
@@
-40,6
+38,8
@@
sub _check_params {
'format_string',
'layout_xml', # FIXME: all layouts should be stored in xml format to greatly simplify handling -chris_n
'creator',
'format_string',
'layout_xml', # FIXME: all layouts should be stored in xml format to greatly simplify handling -chris_n
'creator',
+ 'units',
+ 'start_label',
);
if (scalar(@_) >1) {
my %given_params = @_;
);
if (scalar(@_) >1) {
my %given_params = @_;
@@
-59,6
+59,7
@@
sub _check_params {
return $exit_code;
}
return $exit_code;
}
+use constant PRESET_FIELDS => [qw(title author isbn issn itemtype barcode itemcallnumber)];
sub new {
my $invocant = shift;
my $self = '';
sub new {
my $invocant = shift;
my $self = '';
@@
-68,15
+69,19
@@
sub new {
my $type = ref($invocant) || $invocant;
if (grep {$_ eq 'Labels'} @_) {
$self = {
my $type = ref($invocant) || $invocant;
if (grep {$_ eq 'Labels'} @_) {
$self = {
+ layout_xml => '',
+ units => 'POINT',
+ start_label => 1,
barcode_type => 'CODE39',
printing_type => 'BAR',
layout_name => 'DEFAULT',
guidebox => 0,
barcode_type => 'CODE39',
printing_type => 'BAR',
layout_name => 'DEFAULT',
guidebox => 0,
+ oblique_title => 1,
font => 'TR',
font_size => 3,
callnum_split => 0,
text_justify => 'L',
font => 'TR',
font_size => 3,
callnum_split => 0,
text_justify => 'L',
- format_string =>
'title, author, isbn, issn, itemtype, barcode, callnumber'
,
+ format_string =>
join(', ', @{ PRESET_FIELDS() })
,
@_,
};
}
@_,
};
}
@@
-123,8
+128,8
@@
sub delete {
push @params, $opts{'layout_id'}, $opts{'creator'};
}
if (scalar(@params) < 2) { # If there is no layout id or creator type then we cannot delete it
push @params, $opts{'layout_id'}, $opts{'creator'};
}
if (scalar(@params) < 2) { # If there is no layout id or creator type then we cannot delete it
- warn sprintf('%s : Cannot delete layout as the profile id is invalid or non-exist
a
nt.', $call_type) if !$params[0];
- warn sprintf('%s : Cannot delete layout as the creator type is invalid or non-exist
a
nt.', $call_type) if !$params[1];
+ warn sprintf('%s : Cannot delete layout as the profile id is invalid or non-exist
e
nt.', $call_type) if !$params[0];
+ warn sprintf('%s : Cannot delete layout as the creator type is invalid or non-exist
e
nt.', $call_type) if !$params[1];
return -1;
}
my $query = "DELETE FROM creator_layouts WHERE layout_id = ? AND creator = ?";
return -1;
}
my $query = "DELETE FROM creator_layouts WHERE layout_id = ? AND creator = ?";
@@
-222,7
+227,7
@@
sub get_text_wrap_cols {
my $textlimit = $params{'label_width'} - (( 3 * $params{'left_text_margin'} ) || 13.5 );
while ($strwidth < $textlimit) {
my $textlimit = $params{'label_width'} - (( 3 * $params{'left_text_margin'} ) || 13.5 );
while ($strwidth < $textlimit) {
- $string .= '
0';
+ $string .= '
8'; # using '8' as filling char instead of '0'
$col_count++;
$strwidth = C4::Creators::PDF->StrWidth( $string, $self->{'font'}, $self->{'font_size'} );
}
$col_count++;
$strwidth = C4::Creators::PDF->StrWidth( $string, $self->{'font'}, $self->{'font_size'} );
}
@@
-261,7
+266,7
@@
This module provides methods for creating, retrieving, and otherwise manipulatin
CODE39MOD10 = Code 3 of 9 with modulo 10 checksum
=item .
CODE39MOD10 = Code 3 of 9 with modulo 10 checksum
=item .
- COOP2OF5 = A vari
e
nt of 2 of 5 barcode based on NEC's "Process 8000" code
+ COOP2OF5 = A vari
a
nt of 2 of 5 barcode based on NEC's "Process 8000" code
=item .
INDUSTRIAL2OF5 = The standard 2 of 5 barcode (a binary level bar code developed by Identicon Corp. and Computer Identics Corp. in 1970)
=item .
INDUSTRIAL2OF5 = The standard 2 of 5 barcode (a binary level bar code developed by Identicon Corp. and Computer Identics Corp. in 1970)