X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=C4%2FPatroncards%2FPatroncard.pm;h=339b969c2c9fd35c6eb1fb5eb689e660da811cbf;hb=130e3d9c108fb35955ab9a9944e16946537aafe9;hp=23cba15005565a08f1249510acaf3d089c131e01;hpb=f57ceeb8c56cfcae782db9802f5f6df8a2a1bc93;p=koha_fer diff --git a/C4/Patroncards/Patroncard.pm b/C4/Patroncards/Patroncard.pm index 23cba15005..339b969c2c 100644 --- a/C4/Patroncards/Patroncard.pm +++ b/C4/Patroncards/Patroncard.pm @@ -24,12 +24,12 @@ use autouse 'Data::Dumper' => qw(Dumper); use Text::Wrap qw(wrap); #use Font::TTFMetrics; -use C4::Creators::Lib 1.000000 qw(get_font_types); -use C4::Creators::PDF 1.000000 qw(StrWidth); -use C4::Patroncards::Lib 1.000000 qw(unpack_UTF8 text_alignment leading box get_borrower_attributes); +use C4::Creators::Lib qw(get_font_types); +use C4::Creators::PDF qw(StrWidth); +use C4::Patroncards::Lib qw(unpack_UTF8 text_alignment leading box get_borrower_attributes); BEGIN { - use version; our $VERSION = qv('1.0.0_1'); + use version; our $VERSION = qv('3.07.00.049'); } sub new { @@ -127,7 +127,7 @@ sub draw_text { while (1) { # $line =~ m/^.*(\s\b.*\b\s*|\s&|\<\b.*\b\>)$/; # original regexp... can be removed after dev stage is over $line =~ m/^.*(\s.*\s*|\s&|\<.*\>)$/; - warn sprintf('Line wrap failed. DEBUG INFO: Data: \'%s\'\n Method: C4::Patroncards->draw_text Additional Information: Line wrap regexp failed. (Please file in this information in a bug report at http://bugs.koha.org', $line) and last WRAP_LINES if !$1; + warn sprintf('Line wrap failed. DEBUG INFO: Data: \'%s\'\n Method: C4::Patroncards->draw_text Additional Information: Line wrap regexp failed. (Please file in this information in a bug report at http://bugs.koha-community.org', $line) and last WRAP_LINES if !$1; $trim = $1 . $trim; $line =~ s/$1//; $string_width = C4::Creators::PDF->StrWidth($line, $text_attribs->{'font'}, $text_attribs->{'font_size'});