Bugzilla – Attachment 24296 Details for
Bug 11539
C4::Barcodes::PrinterConfig does not appear to be being used anywhere
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
bug 11539: removing 2 unused files
bug-11539-removing-2-unused-files.patch (text/plain), 8.34 KB, created by
Kyle M Hall (khall)
on 2014-01-14 19:57:08 UTC
(
hide
)
Description:
bug 11539: removing 2 unused files
Filename:
MIME Type:
Creator:
Kyle M Hall (khall)
Created:
2014-01-14 19:57:08 UTC
Size:
8.34 KB
patch
obsolete
>From 73d5a8bc703c8170ac174658399be938acaa9ff2 Mon Sep 17 00:00:00 2001 >From: Tom Houlker <thomas.houlker@hibs.school.nz> >Date: Tue, 14 Jan 2014 14:24:11 +1300 >Subject: [PATCH] bug 11539: removing 2 unused files > >Signed-off-by: Emma Heath <emmaheath.student@wegc.school.nz> >Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> >No instances of PrinterConfig found in the codebase >--- > C4/Barcodes/PrinterConfig.pm | 223 ------------------------------------------ > t/Barcodes_PrinterConfig.t | 22 ---- > 2 files changed, 0 insertions(+), 245 deletions(-) > delete mode 100644 C4/Barcodes/PrinterConfig.pm > delete mode 100755 t/Barcodes_PrinterConfig.t > >diff --git a/C4/Barcodes/PrinterConfig.pm b/C4/Barcodes/PrinterConfig.pm >deleted file mode 100644 >index 25f48eb..0000000 >--- a/C4/Barcodes/PrinterConfig.pm >+++ /dev/null >@@ -1,223 +0,0 @@ >-package C4::Barcodes::PrinterConfig; >- >-# This file is part of Koha. >-# >-# Koha is free software; you can redistribute it and/or modify it under the >-# terms of the GNU General Public License as published by the Free Software >-# Foundation; either version 2 of the License, or (at your option) any later >-# version. >-# >-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY >-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR >-# A PARTICULAR PURPOSE. See the GNU General Public License for more details. >-# >-# You should have received a copy of the GNU General Public License along with >-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, >-# Suite 330, Boston, MA 02111-1307 USA >- >-use strict; >-#use warnings; FIXME - Bug 2505 >-use vars qw($VERSION @EXPORT); >- >-use PDF::API2; >-use PDF::API2::Page; >- >-BEGIN { >- # set the version for version checking >- $VERSION = 3.07.00.049; >- require Exporter; >- @EXPORT = qw(&labelsPage &getLabelPosition setPositionsForX setPositionsForY); >-} >- >-=head1 NAME >- >-C4::Barcodes::PrinterConfig - Koha module dealing with labels in a PDF. >- >-=head1 SYNOPSIS >- >-use C4::Barcodes::PrinterConfig; >- >-=head1 DESCRIPTION >- >-This package is used to deal with labels in a pdf file. Giving some parameters, >-this package contains several functions to handle every label considering the >-environment of the pdf file. >- >-=head1 FUNCTIONS >- >-=head2 my @positionsForX; >- >-Takes all the X positions of the pdf file. >- >-=head2 my @positionsForY; >- >-Takes all the Y positions of the pdf file. >- >-=head2 my $firstLabel = 1; >- >-Test if the label passed as a parameter is the first label to be printed into the pdf file. >- >-=head2 setPositionsForX >- >- C4::Barcodes::PrinterConfig::setPositionsForX($marginLeft, $labelWidth, $columns, $pageType); >- >-Calculate and stores all the X positions across the pdf page. >- >-C<$marginLeft> Indicates how much left margin do you want in your page type. >- >-C<$labelWidth> Indicates the width of the label that you are going to use. >- >-C<$columns> Indicates how many columns do you want in your page type. >- >-C<$pageType> Page type to print (eg: a4, legal, etc). >- >-=cut >- >-# Globals used by the functions >-my @positionsForX; >-my @positionsForY; >-my $firstLabel = 1; >- >-sub setPositionsForX { >- my ($marginLeft, $labelWidth, $columns, $pageType) = @_; >- my $defaultDpi = 72/25.4; # By default we know 25.4 mm -> 1 inch -> 72 dots per inch >- my $whereToStart = ($marginLeft + ($labelWidth/2)); >- my $firstLabel = $whereToStart*$defaultDpi; >- my $spaceBetweenLabels = $labelWidth*$defaultDpi; >- my @positions; >- for (my $i = 0; $i < $columns ; $i++) { >- push @positions, ($firstLabel+($spaceBetweenLabels*$i)); >- } >- @positionsForX = @positions; >-} >- >-=head2 setPositionsForY >- >- C4::Barcodes::PrinterConfig::setPositionsForY($marginBottom, $labelHeigth, $rows, $pageType); >- >-Calculate and stores all tha Y positions across the pdf page. >- >-C<$marginBottom> Indicates how much bottom margin do you want in your page type. >- >-C<$labelHeigth> Indicates the height of the label that you are going to use. >- >-C<$rows> Indicates how many rows do you want in your page type. >- >-C<$pageType> Page type to print (eg: a4, legal, etc). >- >-=cut >- >-sub setPositionsForY { >- my ($marginBottom, $labelHeigth, $rows, $pageType) = @_; >- my $defaultDpi = 72/25.4; # By default we know 25.4 mm -> 1 inch -> 72 dots per inch >- my $whereToStart = ($marginBottom + ($labelHeigth/2)); >- my $firstLabel = $whereToStart*$defaultDpi; >- my $spaceBetweenLabels = $labelHeigth*$defaultDpi; >- my @positions; >- for (my $i = 0; $i < $rows; $i++) { >- unshift @positions, ($firstLabel+($spaceBetweenLabels*$i)); >- } >- @positionsForY = @positions; >-} >- >-=head2 getLabelPosition >- >- (my $x, my $y, $pdfObject, $pageObject, $gfxObject, $textObject, $coreObject, $labelPosition) = >- C4::Barcodes::PrinterConfig::getLabelPosition($labelPosition, $pdfObject, $page, $gfx, $text, $fontObject, $pageType); >- >-Return the (x,y) position of the label that you are going to print considering the environment. >- >-C<$labelPosition> Indicates which label positions do you want to place by x and y coordinates. >- >-C<$pdfObject> The PDF object in use. >- >-C<$page> The page in use. >- >-C<$gfx> The gfx resource to handle with barcodes objects. >- >-C<$text> The text resource to handle with text. >- >-C<$fontObject> The font object >- >-C<$pageType> Page type to print (eg: a4, legal, etc). >- >-=cut >- >-sub getLabelPosition { >- my ($labelNum, $pdf, $page, $gfxObject, $textObject, $fontObject, $pageType) = @_; >- my $indexX = $labelNum % @positionsForX; >- my $indexY = int($labelNum / @positionsForX); >- # Calculates the next label position and return that label number >- my $nextIndexX = $labelNum % @positionsForX; >- my $nextIndexY = $labelNum % @positionsForY; >- if ($firstLabel) { >- $page = $pdf->page; >- $page->mediabox($pageType); >- $gfxObject = $page->gfx; >- $textObject = $page->text; >- $textObject->font($fontObject, 7); >- $firstLabel = 0; >- } elsif (($nextIndexX == 0) && ($nextIndexY == 0)) { >- $page = $pdf->page; >- $page->mediabox($pageType); >- $gfxObject = $page->gfx; >- $textObject = $page->text; >- $textObject->font($fontObject, 7); >- } >- $labelNum = $labelNum + 1; >- if ($labelNum == (@positionsForX*@positionsForY)) { >- $labelNum = 0; >- } >- return ($positionsForX[$indexX], $positionsForY[$indexY], $pdf, $page, $gfxObject, $textObject, $fontObject, $labelNum); >-} >- >-=head2 labelsPage >- >- my @labelTable = C4::Barcodes::PrinterConfig::labelsPage($rows, $columns); >- >-This function will help you to build the labels panel, where you can choose >-wich label position do you want to start the printer process. >- >-C<$rows> Indicates how many rows do you want in your page type. >- >-C<$columns> Indicates how many rows do you want in your page type. >- >-=cut >- >-sub labelsPage{ >- my ($rows, $columns) = @_; >- my @pageType; >- my $tagname = 0; >- my $labelname = 1; >- my $check; >- for (my $i = 1; $i <= $rows; $i++) { >- my @column; >- for (my $j = 1; $j <= $columns; $j++) { >- my %cell; >- if ($tagname == 0) { >- $check = 'checked'; >- } else { >- $check = ''; >- } >- %cell = (check => $check, >- tagname => $tagname, >- labelname => $labelname); >- $tagname = $tagname + 1; >- $labelname = $labelname + 1; >- push @column, \%cell; >- } >- my %columns = (columns => \@column); >- push @pageType, \%columns; >- } >- return @pageType; >-} >- >-1; >- >-__END__ >- >-=head1 AUTHOR >- >-Koha Physics Library UNLP <matias_veleda@hotmail.com> >- >-=cut >diff --git a/t/Barcodes_PrinterConfig.t b/t/Barcodes_PrinterConfig.t >deleted file mode 100755 >index 94102e5..0000000 >--- a/t/Barcodes_PrinterConfig.t >+++ /dev/null >@@ -1,22 +0,0 @@ >-#!/usr/bin/perl >-# >-# This Koha test module is a stub! >-# Add more tests here!!! >- >-use strict; >-use warnings; >- >-use Test::More tests => 6; >- >-BEGIN { >- use_ok('C4::Barcodes::PrinterConfig'); >-} >- >-is(C4::Barcodes::PrinterConfig::setPositionsForY(), "0", "testing setPositionsForY returns'0' when given no arguments"); >-is(C4::Barcodes::PrinterConfig::setPositionsForX(), "0", "testing setPositionsForX returns'0' when given no arguments"); >- >-is(C4::Barcodes::PrinterConfig::setPositionsForY(undef, undef, 5), "5", "testing setPositionsForY returns'5' when given (undef, undef, 5)"); >-is(C4::Barcodes::PrinterConfig::setPositionsForX(undef, undef, 5), "5", "testing setPositionsForX returns'5' when given (undef, undef, 5)"); >- >- >-is(C4::Barcodes::PrinterConfig::labelsPage(), "0", "testing labelsPage returns'0' when given no arguments"); >-- >1.7.2.5
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 11539
:
24255
|
24265
|
24296
|
24313