[Koha-cvs] koha/barcodes label-home.pl label-manager.pl la...
Mason James
szrj1m at yahoo.com
Wed Jul 19 03:09:43 CEST 2006
CVSROOT: /sources/koha
Module name: koha
Changes by: Mason James <sushi> 06/07/19 01:09:43
Modified files:
barcodes : label-home.pl label-manager.pl
label-print-pdf.pl label-print.pl
Added files:
barcodes : label-print-opus-pdf.pl test.textblock.pl
Log message:
tidy up by mason.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/label-home.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/label-manager.pl?cvsroot=koha&r1=1.3&r2=1.4
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/label-print-pdf.pl?cvsroot=koha&r1=1.12&r2=1.13
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/label-print.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/label-print-opus-pdf.pl?cvsroot=koha&rev=1.1
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/test.textblock.pl?cvsroot=koha&rev=1.1
Patches:
Index: label-home.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/label-home.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- label-home.pl 11 Apr 2006 20:56:14 -0000 1.2
+++ label-home.pl 19 Jul 2006 01:09:42 -0000 1.3
@@ -8,6 +8,8 @@
use C4::Context;
use HTML::Template;
+#use Data::Dumper;
+
my $query = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
{
@@ -28,8 +30,10 @@
my $data = $sth->fetchrow_hashref;
$sth->finish;
-# next line passes a var like 'EAN13_cheched' to the tmpl ,
-# which makes the barcodetype sticky in the dropbox
+$template->param( guidebox => 1 ) if ( $data->{'guidebox'} );
+
+$data->{'printingtype'} = 'both' if ( !$data->{'printingtype'} );
+$template->param( "printingtype_$data->{'printingtype'}" => 1 );
$template->param( "$data->{'barcodetype'}_checked" => 1 );
$template->param( "startrow" . $data->{'startrow'} . "_checked" => 1 );
@@ -45,9 +49,11 @@
dewey => $data->{'dewey'},
class => $data->{'class'},
startrow => $data->{'startrow'},
+
intranetcolorstylesheet =>
C4::Context->preference("intranetcolorstylesheet"),
intranetstylesheet => C4::Context->preference("intranetstylesheet"),
IntranetNav => C4::Context->preference("IntranetNav"),
);
+
output_html_with_http_headers $query, $cookie, $template->output;
Index: label-manager.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/label-manager.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- label-manager.pl 19 Apr 2006 04:51:03 -0000 1.3
+++ label-manager.pl 19 Jul 2006 01:09:42 -0000 1.4
@@ -23,6 +23,10 @@
my $itemnumber = $query->param('itemnumber');
my $summary = $query->param('summary');
my $startrow = $query->param('startrow');
+my $printingtype = $query->param('printingtype');
+my $guidebox = $query->param('guidebox');
+
+warn $printingtype;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
{
@@ -42,12 +46,14 @@
$sth2->finish;
my $query2 = "INSERT INTO labels_conf
( barcodetype, title, isbn, itemtype, barcode,
- dewey, class, author, papertype, startrow)
- values ( ?, ?, ?, ?, ?, ?, ?, ?, ?, ? )";
+ dewey, class, author, papertype, printingtype,
+ guidebox, startrow)
+ values ( ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ? )";
my $sth2 = $dbh->prepare($query2);
$sth2->execute(
- $barcodetype, $title, $isbn, $itemtype, $bcn,
- $dcn, $classif, $author, $papertype, $startrow
+ $barcodetype, $title, $isbn, $itemtype,
+ $bcn, $dcn, $classif, $author,
+ $papertype, $printingtype, $guidebox, $startrow
);
$sth2->finish;
@@ -65,6 +71,7 @@
$sth2->finish;
}
elsif ( $op eq 'delete' ) {
+ warn "MASON, deleting label..";
my $query2 = "DELETE FROM labels where itemnumber = ?";
my $sth2 = $dbh->prepare($query2);
$sth2->execute($itemnumber);
@@ -123,11 +130,11 @@
#calc-ing number of sheets
my $number_of_results = scalar @resultsloop;
my $sheets_needed = ( ( --$number_of_results + $startrow ) / 8 );
- $sheets_needed = ceil($sheets_needed); # rounding up int's
+$sheets_needed = ceil($sheets_needed); # rounding up int's
-my $tot_labels = ($sheets_needed * 8);
-my $start_results = ($number_of_results + $startrow);
-my $labels_remaining = ($tot_labels - $start_results);
+my $tot_labels = ( $sheets_needed * 8 );
+my $start_results = ( $number_of_results + $startrow );
+my $labels_remaining = ( $tot_labels - $start_results );
$template->param(
resultsloop => \@resultsloop,
Index: label-print-pdf.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/label-print-pdf.pl,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -b -r1.12 -r1.13
--- label-print-pdf.pl 13 Jul 2006 23:14:13 -0000 1.12
+++ label-print-pdf.pl 19 Jul 2006 01:09:42 -0000 1.13
@@ -11,8 +11,8 @@
# the reason for this goofyness, it that i couldnt find a single perl package that handled both barcodes and decent text placement.
-use lib '/usr/local/opus-dev/intranet/modules';
-use C4::Context("/etc/koha-opus-dev.conf");
+#use lib '/usr/local/hlt/intranet/modules';
+#use C4::Context("/etc/koha-hlt.conf");
#use strict;
use CGI;
@@ -26,6 +26,7 @@
use PDF::Reuse;
use PDF::Reuse::Barcode;
use PDF::Report;
+use Data::Dumper;
#use Acme::Comment;
#use Data::Dumper;
@@ -40,9 +41,22 @@
my $conf_data = get_label_options();
my @resultsloop = get_label_items();
+warn Dumper $conf_data;
+
+
my $barcodetype = $conf_data->{'barcodetype'};
+my $printingtype = $conf_data->{'printingtype'};
+my $guidebox = $conf_data->{'guidebox'};
my $startrow = $conf_data->{'startrow'};
+if (!$printingtype) {
+ $printingtype = 'both';
+}
+
+warn $printingtype;
+warn $guidebox;
+
+
#warn Dumper @resultsloop;
# dimensions of gaylord paper
@@ -54,6 +68,9 @@
#----------------------------------
# setting up the pdf doc
+#remove the file before write, for testing
+unlink "$htdocs_path/barcodes/new.pdf";
+
prFile("$htdocs_path/barcodes/new.pdf");
prLogDir("$htdocs_path/barcodes");
@@ -76,18 +93,18 @@
my $pageheight = 792;
-#warn "STARTROW = $startrow\n";
+warn "STARTROW = $startrow\n";
+#my $y_pos_initial = ( ( 792 - 36 ) - 90 );
my $y_pos_initial = ( ( $pageheight - $margin ) - $label_height );
my $y_pos_initial_startrow =
( ( $pageheight - $margin ) - ( $label_height * $startrow ) );
-my $y_pos_initial = ( ( 792 - 36 ) - 90 );
my $y_pos = $y_pos_initial_startrow;
-#warn "Y POS INITAL : $y_pos_initial";
-#warn "Y POS : $y_pos";
-#warn "Y START ROW = $y_pos_initial_startrow";
+warn "Y POS INITAL : $y_pos_initial";
+warn "Y POS : $y_pos";
+warn "Y START ROW = $y_pos_initial_startrow";
my $rowspace = 36;
my $page_break_count = $startrow;
@@ -111,7 +128,7 @@
my $i2 = 1;
foreach $item (@resultsloop) {
- if ( $i2 == 1 ) {
+ if ( $i2 == 1 && $guidebox == 1) {
draw_boundaries(
$x_pos_spine, $x_pos_circ1, $x_pos_circ2, $y_pos,
$spine_width, $label_height, $circ_width
@@ -127,13 +144,14 @@
$DB::single = 1;
- #warn "COUNT=$i2, PBREAKCNT=$page_break_count, X,Y POS x=$x_pos_circ1, y=$y_pos";
-
+ warn
+"COUNT=$i2, PBREAKCNT=$page_break_count, X,Y POS x=$x_pos_circ1, y=$y_pos";
+ if ( $printingtype eq 'barcode' || $printingtype eq 'both' ) {
build_circ_barcode( $x_pos_circ1, $y_pos, $item->{'barcode'},
$conf_data->{'barcodetype'}, \$item );
build_circ_barcode( $x_pos_circ2, $y_pos, $item->{'barcode'},
$conf_data->{'barcodetype'}, \$item );
-
+}
# added for xpdf compat. doesnt use type3 fonts., but increases filesize from 20k to 200k
# i think its embedding extra fonts in the pdf file.
# mode => 'graphic',
@@ -154,50 +172,60 @@
}
############## end of loop
+
prEnd();
#----------------------------------------------------------------------------
# this second section of the script uses a diff perl class than the previous section
# it opens the 'new.pdf' file that the previous section has just saved
-$file = '/usr/local/opus-dev/intranet/htdocs/intranet-tmpl/barcodes/new.pdf';
+if ( $printingtype eq 'spine' || $printingtype eq 'both' ) {
-my $pdf = new PDF::Report( File => $file );
+ $file = "$htdocs_path/barcodes/new.pdf";
-# my $pdf = new PDF::Report(PageSize => "letter",
-# PageOrientation => "Landscape");
+ my $pdf = new PDF::Report( File => $file );
-#$pdf->newpage($nopage);
-my $pagenumber = 1;
-$pdf->openpage($pagenumber);
-
-( $pagewidth, $pageheight ) = $pdf->getPageDimensions();
-#warn "PAGE DIM = $pagewidth, $pageheight";
-#warn "Y START ROW = $y_pos_initial_startrow";
-my $y_pos = ( $y_pos_initial_startrow + 90 );
-
-#my $y_pos = ( $y_pos_initial_startrow );
-#warn "Y POS = $y_pos";
-$pdf->setAlign('left');
-$pdf->setSize(11);
+ # my $pdf = new PDF::Report(PageSize => "letter",
+ # PageOrientation => "Landscape");
-my $page_break_count = $startrow;
-#warn "INIT PAGEBREAK COUNT = $page_break_count";
+ #$pdf->newpage($nopage);
+ my $pagenumber = 1;
+ $pdf->openpage($pagenumber);
-#warn "#----------------------------------\n";
-#warn "INIT VPOS = $vPos, hPos = $hPos";
+ ( $pagewidth, $pageheight ) = $pdf->getPageDimensions();
-my $vPosSpacer = 15;
-my $start_text_pos = 39; # ( 36 - 5 = 31 ) 5 is an inside border for text.
-my $spine_label_text_with = 67;
+ #warn "PAGE DIM = $pagewidth, $pageheight";
+ #warn "Y START ROW = $y_pos_initial_startrow";
+ my $y_pos = ( $y_pos_initial_startrow + 90 );
-foreach $item (@resultsloop) {
+ #my $y_pos = ( $y_pos_initial_startrow );
+ #warn "Y POS = $y_pos";
+
+ # now needed now we are using centerString().
+ #$pdf->setAlign('left');
+
+ # SET THE FONT SIZE
+ $pdf->setSize(9);
+
+ my $page_break_count = $startrow;
+
+ #warn "INIT PAGEBREAK COUNT = $page_break_count";
+
+ #warn "#----------------------------------\n";
+ #warn "INIT VPOS = $vPos, hPos = $hPos";
+
+ my $vPosSpacer = 15;
+ my $start_text_pos = 39; # ( 36 - 5 = 31 ) 5 is an inside border for text.
+ my $spine_label_text_with = 67;
+
+ foreach $item (@resultsloop) {
#warn Dumper $item;
#warn "START Y_POS=$y_pos";
my $firstrow = 0;
- $pdf->setAddTextPos( $start_text_pos, ( $y_pos - 20 ) ); # INIT START POS
+ $pdf->setAddTextPos( $start_text_pos, ( $y_pos - 20 ) )
+ ; # INIT START POS
( $hPos, $vPos ) = $pdf->getAddTextPos();
my $hPosEnd = ( $hPos + $spine_label_text_with ); # 72
@@ -215,7 +243,8 @@
if ( $conf_data->{'class'} && $item->{'classification'} ) {
( $hPos, $vPos1 ) = $pdf->getAddTextPos();
- $pdf->centerString( $hPos, $hPosEnd, $vPos, $item->{'classification'} );
+ $pdf->centerString( $hPos, $hPosEnd, $vPos,
+ $item->{'classification'} );
$vPos = $vPos - $vPosSpacer;
}
@@ -247,13 +276,14 @@
$page_break_count++;
$i2++;
+
#warn "#----------------------------------\n";
+ }
+ $DB::single = 1;
+ $pdf->saveAs($file);
}
-$DB::single = 1;
-$pdf->saveAs($file);
#------------------------------------------------
print $cgi->redirect("/intranet-tmpl/barcodes/new.pdf");
-
Index: label-print.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/label-print.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- label-print.pl 11 Apr 2006 20:56:14 -0000 1.2
+++ label-print.pl 19 Jul 2006 01:09:42 -0000 1.3
@@ -3,14 +3,20 @@
use strict;
use CGI;
use C4::Auth;
+use C4::Bull;
use C4::Output;
use C4::Interface::CGI::Output;
use C4::Context;
use HTML::Template;
use GD::Barcode::UPCE;
+use Data::Random qw(:all);
my $htdocs_path = C4::Context->config('intrahtdocs');
+
+use Data::Dumper;
+
my $query = new CGI;
+
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
{
template_name => "barcodes/label-print.tmpl",
@@ -26,10 +32,11 @@
my $query2 = "SELECT * FROM labels_conf LIMIT 1";
my $sth = $dbh->prepare($query2);
$sth->execute();
+
my $conf_data = $sth->fetchrow_hashref;
-# get barcode type from $conf_data
-my $barcodetype = $conf_data->{'barcodetype'};
+#warn Dumper $conf_data;
+
$sth->finish;
my @data;
@@ -42,14 +49,16 @@
while ( my $data = $sth->fetchrow_hashref ) {
# lets get some summary info from each item
+
my $query1 = "
- SELECT * FROM biblio,biblioitems,items WHERE itemnumber=? AND
- items.biblioitemnumber=biblioitems.biblioitemnumber AND
+ select * from biblio,biblioitems,items where itemnumber=? and
+ items.biblioitemnumber=biblioitems.biblioitemnumber and
biblioitems.biblionumber=biblio.biblionumber";
my $sth1 = $dbh->prepare($query1);
$sth1->execute( $data->{'itemnumber'} );
my $data1 = $sth1->fetchrow_hashref();
+
push( @resultsloop, $data1 );
$sth1->finish;
@@ -57,36 +66,73 @@
}
$sth->finish;
+#warn Dumper @resultsloop;
+
+
+
+
+#------------------------------------------------------
+
#lets write barcode files to tmp dir for every item in @resultsloop
+
+
binmode(FILE);
-foreach my $item (@resultsloop) {
- my $filename = "$htdocs_path/barcodes/$barcodetype-$item->{'barcode'}.png";
- open( FILE, ">$filename" );
- eval {
- print FILE GD::Barcode->new( $barcodetype, $item->{'barcode'} )
- ->plot->png;
- };
- if ($@) {
- $item->{'barcodeerror'} = 1;
- }
+foreach my $item (@resultsloop){
+
+
+my $random = int( rand(100000000000)) + 999999999999;
+#warn "$random\n";
+
+ $item->{'barcode'} = $random;
+
+# my $itembarcode = $item->{'barcode'};
+# warn $item->{'barcode'};
+
+
+ my $filename = "$htdocs_path/barcodes/$item->{'barcode'}.png";
+ #warn $filename;
+ open(FILE, ">$filename");
+
+ print FILE GD::Barcode->new('EAN13', $item->{'barcode'})->plot->png;
+# warn $GD::Barcode::errStr;
+
close(FILE);
+
+#warn Dumper $item->{'barcode'};
+
}
+
+
+
+
+# lets pass the config setting
+
$template->param(
+
resultsloop => \@resultsloop,
+
+
itemtype_opt => $conf_data->{'itemtype'},
papertype_opt => $conf_data->{'papertype'},
author_opt => $conf_data->{'author'},
+ barcode_opt => $conf_data->{'barcode'},
id_opt => $conf_data->{'id'},
- barcodetype_opt => $conf_data->{'barcodetype'},
+ type_opt => $conf_data->{'type'},
title_opt => $conf_data->{'title'},
isbn_opt => $conf_data->{'isbn'},
dewey_opt => $conf_data->{'dewey'},
class_opt => $conf_data->{'class'},
+
+
+
+
intranetcolorstylesheet =>
C4::Context->preference("intranetcolorstylesheet"),
intranetstylesheet => C4::Context->preference("intranetstylesheet"),
IntranetNav => C4::Context->preference("IntranetNav"),
);
output_html_with_http_headers $query, $cookie, $template->output;
+
+
Index: label-print-opus-pdf.pl
===================================================================
RCS file: label-print-opus-pdf.pl
diff -N label-print-opus-pdf.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ label-print-opus-pdf.pl 19 Jul 2006 01:09:42 -0000 1.1
@@ -0,0 +1,62 @@
+#!/usr/bin/perl
+
+#use lib '/usr/local/opus-dev/intranet/modules';
+#use C4::Context("/etc/koha-opus-dev.conf");
+
+use strict;
+use CGI;
+use C4::Labels;
+use C4::Auth;
+use C4::Bull;
+use C4::Output;
+use C4::Interface::CGI::Output;
+use C4::Context;
+use PDF::Reuse;
+use PDF::Reuse::Barcode;
+use PDF::Report;
+use PDF::Create;
+use PDF::Labels;
+use Acme::Comment;
+use Data::Dumper;
+warn "-------";
+
+my $htdocs_path = C4::Context->config('intrahtdocs');
+my $cgi = new CGI;
+
+my $pdf = new PDF::Labels(
+ $PDF::Labels::PageFormats[1],
+ filename => "$htdocs_path/barcodes/opus.pdf",
+ Author => 'PDF Labelmaker',
+ 'PageMode' => 'UseOutlines',
+ Title => 'My Labels'
+);
+
+warn "$htdocs_path/barcodes/opus.pdf";
+
+my @resultsloop = get_label_items();
+
+#warn Dumper @resultsloop;
+warn Dumper $pdf->{'filename'};
+
+$pdf->setlabel(0); # Start with label 5 on first page
+
+foreach my $result (@resultsloop) {
+ warn Dumper $result;
+ $pdf->label( $result->{'itemtype'}, $result->{'number'}, 'LAK',
+ $result->{'barcode'} );
+ $pdf->label( $result->{'itemtype'}, $result->{'dewey'}, 'LAK',
+ $result->{'barcode'} );
+
+}
+warn "HERE";
+$pdf->close();
+
+#--------------------------------------------------
+
+use PDF::Reuse;
+prFile("$htdocs_path/barcodes/opus1.pdf");
+prDoc("$htdocs_path/barcodes/opus.pdf");
+prEnd();
+
+print $cgi->redirect("/intranet-tmpl/barcodes/opus1.pdf");
+
Index: test.textblock.pl
===================================================================
RCS file: test.textblock.pl
diff -N test.textblock.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ test.textblock.pl 19 Jul 2006 01:09:42 -0000 1.1
@@ -0,0 +1,33 @@
+#!/usr/bin/perl
+
+use C4::Context;
+use PDF::API2;
+use PDF::Table;
+
+my $pdftable = new PDF::Table;
+my $pdf = PDF::API2->new();
+
+#$pdf->mediabox(612,792);
+my $fnt = $pdf->corefont('Helvetica-Bold');
+my $page = $pdf->page; # returns the last page
+my $txt = $page->text;
+$txt->{' font'}=$fnt;
+$text_to_place = "moo moo";
+
+($width_of_last_line, $ypos_of_last_line, $left_over_text) =
+ $pdftable->text_block(
+ $txt,
+ $text_to_place,
+ -x => 100,
+ -y => 300,
+ -w => 50,
+ -h => 40,
+
+ # -lead => 13,
+ # -font_size => 12,
+ # -parspace => 0,
+ # -align => "left",
+ # -hang => 1,
+);
+
+$pdf->saveas("$htdocs_path/barcodes/foo.pdf");
More information about the Koha-cvs
mailing list