Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

First installment: Patron card generation feature

Browse source 
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Chris Nighswonger 2008-03-17 10:43:51 -04:00 committed by Joshua Ferraro
parent 850b9ac67c
commit a988d199a2
2 changed files with 117 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

93
C4/Labels.pm
View file

@ -23,6 +23,8 @@ use vars qw($VERSION @ISA @EXPORT);
use PDF::Reuse;
use Text::Wrap;
use Algorithm::CheckDigits;
use C4::Members;
use C4::Branch;
# use Data::Dumper;
# use Smart::Comments;
@ -38,8 +40,8 @@ BEGIN {
&GetSingleLabelTemplate &SaveTemplate
&CreateTemplate &SetActiveTemplate
&SaveConf &DrawSpineText &GetTextWrapCols
&GetUnitsValue &DrawBarcode
&get_printingtypes
&GetUnitsValue &DrawBarcode &DrawPatronCardText
&get_printingtypes &GetPatronCardItems
&get_layouts
&get_barcode_types
&get_batches &delete_batch
@ -256,10 +258,11 @@ sub by_order {
}
sub add_batch {
my ( $batch_type ) = @_;
my $new_batch;
my $dbh = C4::Context->dbh;
my $q =
"select distinct batch_id from labels order by batch_id desc limit 1";
"SELECT DISTINCT batch_id FROM $batch_type ORDER BY batch_id desc LIMIT 1";
my $sth = $dbh->prepare($q);
$sth->execute();
my $data = $sth->fetchrow_hashref;
@ -275,7 +278,7 @@ sub add_batch {
return $new_batch;
}
#FIXME: Needs to be ported to receive $batch_type
sub get_highest_batch {
my $new_batch;
my $dbh = C4::Context->dbh;
@ -297,6 +300,7 @@ sub get_highest_batch {
}
#FIXME: Needs to be ported to receive $batch_type
sub get_batches {
my $dbh = C4::Context->dbh;
my $q = "select batch_id, count(*) as num from labels group by batch_id";
@ -318,9 +322,10 @@ sub get_batches {
}
sub delete_batch {
my ($batch_id) = @_;
my ($batch_id, $batch_type) = @_;
warn "Deleteing batch of type $batch_type";
my $dbh = C4::Context->dbh;
my $q = "DELETE FROM labels where batch_id = ?";
my $q = "DELETE FROM $batch_type WHERE batch_id = ?";
my $sth = $dbh->prepare($q);
$sth->execute($batch_id);
$sth->finish;
@ -798,6 +803,29 @@ sub GetItemFields {
return @fields;
}
sub GetPatronCardItems {
my ( $batch_id ) = @_;
my @resultsloop;
warn "Received batch id: $batch_id";
my $dbh = C4::Context->dbh;
my $query = "SELECT * FROM patroncards WHERE batch_id = ? ORDER BY borrowernumber";
my $sth = $dbh->prepare($query);
warn "Executing query...\n";
$sth->execute($batch_id);
warn "Parsing results...\n";
while ( my $data = $sth->fetchrow_hashref ) {
warn "for borrowernumber $data->{'borrowernumber'}\n";
my $patron_data = GetMember( $data->{'borrowernumber'} );
$patron_data->{'branchname'} = GetBranchName( $patron_data->{'branchcode'} );
push( @resultsloop, $patron_data );
}
$sth->finish;
return @resultsloop;
}
sub deduplicate_batch {
my $batch_id = shift or return undef;
my $query = "
@ -848,7 +876,7 @@ sub DrawSpineText {
my $str;
my $top_text_margin = ( $fontsize + 3 ); #FIXME: This should be a template parameter and passed in...
my $line_spacer = ( $fontsize * 0.20 ); # number of pixels between text rows (This is actually leading: baseline to baseline minus font size. Recommended starting point is 20% of font size.).
my $line_spacer = ( $fontsize * 1 ); # number of pixels between text rows (This is actually leading: baseline to baseline minus font size. Recommended starting point is 20% of font size.).
# add your printable fields manually in here
@ -882,16 +910,30 @@ sub DrawSpineText {
# strip out naughty existing nl/cr's
$str =~ s/\n//g;
$str =~ s/\r//g;
# wrap lines based on call number dividers '/'
my @strings;
while ( $str =~ /\// ) {
$str =~ /^(.*)\/(.*)$/;
#warn "\$2=$2";
unshift @strings, $2;
$str = $1;
}
unshift @strings, $str;
# strip out division slashes
$str =~ s/\///g;
#$str =~ s/\///g;
#warn "\$str after striping division marks: $str";
# chop the string up into _upto_ 12 chunks
# and seperate the chunks with newlines
$str = wrap( "", "", "$str" );
$str = wrap( "", "", "$str" );
#$str = wrap( "", "", "$str" );
#$str = wrap( "", "", "$str" );
# split the chunks between newline's, into an array
my @strings = split /\n/, $str;
#my @strings = split /\n/, $str;
# then loop for each string line
foreach my $str (@strings) {
@ -916,10 +958,37 @@ sub DrawSpineText {
sub PrintText {
my ( $hPos, $vPos, $font, $fontsize, $text ) = @_;
my $str = "BT /$font $fontsize Tf $hPos $vPos Td ($text) Tj ET";
warn $str;
prAdd($str);
}
# Is this used anywhere?
sub DrawPatronCardText {
my ( $x_pos, $y_pos, $label_height, $label_width, $fontname, $fontsize, $left_text_margin,
$text_wrap_cols, $text, $printingtype )
= @_;
my $top_text_margin = 25; #FIXME: This should be a template parameter and passed in...
my $vPos = ( $y_pos + ( $label_height - $top_text_margin ) );
my $font = prFont($fontname);
my $hPos;
foreach my $line (keys %$text) {
warn "Current text is \"$line\" and font size for \"$line\" is $text->{$line} points";
# some code to try and center each line on the label based on font size and string point width...
my $stringwidth = prStrWidth($line, $fontname, $text->{$line});
my $whitespace = ( $label_width - ( $stringwidth + (2 * $left_text_margin) ) );
$hPos = ( ( $whitespace / 2 ) + $x_pos + $left_text_margin );
PrintText( $hPos, $vPos, $font, $text->{$line}, $line );
my $line_spacer = ( $text->{$line} * 1 ); # number of pixels between text rows (This is actually leading: baseline to baseline minus font size. Recommended starting point is 20% (0.20) of font size.).
$vPos = $vPos - ($line_spacer + $text->{$line}); # Linefeed equiv: leading + font size
}
}
# Not used anywhere.
#sub SetFontSize {
#

42
labels/label-print-pdf.pl
View file

@ -6,10 +6,13 @@ use C4::Labels;
use C4::Auth;
use C4::Output;
use C4::Context;
use C4::Members;
use C4::Branch;
use HTML::Template::Pro;
use PDF::Reuse;
use PDF::Reuse::Barcode;
use POSIX;
use Data::Dumper;
#use Smart::Comments;
my $DEBUG = 0;
@ -29,7 +32,7 @@ my $conf_data = get_label_options();
my $profile = GetAssociatedProfile($template->{'tmpl_id'});
my $batch_id = $cgi->param('batch_id');
my @resultsloop = get_label_items($batch_id);
my @resultsloop;
#$DB::single = 1;
@ -43,6 +46,12 @@ if ($cgi->param('startlabel')) {
warn "Starting on label #$start_label" if $DEBUG;
my $units = $template->{'units'};
if ($printingtype eq 'PATCRD') {
@resultsloop = GetPatronCardItems($batch_id);
} else {
@resultsloop = get_label_items($batch_id);
}
#warn "UNITS $units";
#warn "fontsize = $fontsize";
#warn Dumper $template;
@ -195,10 +204,9 @@ else {
foreach $item (@resultsloop) {
warn "Label parameters: xpos=$x_pos, ypos=$y_pos, lblwid=$label_width, lblhig=$label_height" if $DEBUG;
my $barcode = $item->{'barcode'};
if ( $printingtype eq 'BAR' ) {
drawbox( $x_pos, $y_pos, $label_width, $label_height ) if $guidebox;
DrawBarcode( $x_pos, $y_pos, $label_height, $label_width, $barcode,
DrawBarcode( $x_pos, $y_pos, $label_height, $label_width, $item->{'barcode'},
$barcodetype );
CalcNextLabelPos();
}
@ -211,7 +219,7 @@ foreach $item (@resultsloop) {
my $barcode_y = $y_pos + ( $label_height / 2.5 ); ## scaling voodoo
DrawBarcode( $x_pos, $barcode_y, $barcode_height, $label_width,
$barcode, $barcodetype );
$item->{'barcode'}, $barcodetype );
DrawSpineText( $x_pos, $y_pos, $label_height, $label_width, $fontname, $fontsize,
$left_text_margin, $text_wrap_cols, \$item, \$conf_data );
@ -221,7 +229,7 @@ foreach $item (@resultsloop) {
elsif ( $printingtype eq 'BIBBAR' ) {
drawbox( $x_pos, $y_pos, $label_width, $label_height ) if $guidebox;
my $barcode_height = $label_height / 2;
DrawBarcode( $x_pos, $y_pos, $barcode_height, $label_width, $barcode,
DrawBarcode( $x_pos, $y_pos, $barcode_height, $label_width, $item->{'barcode'},
$barcodetype );
DrawSpineText( $x_pos, $y_pos, $label_height, $label_width, $fontname, $fontsize,
$left_text_margin, $text_wrap_cols, \$item, \$conf_data );
@ -231,7 +239,7 @@ foreach $item (@resultsloop) {
elsif ( $printingtype eq 'ALT' ) {
drawbox( $x_pos, $y_pos, $label_width, $label_height ) if $guidebox;
DrawBarcode( $x_pos, $y_pos, $label_height, $label_width, $barcode,
DrawBarcode( $x_pos, $y_pos, $label_height, $label_width, $item->{'barcode'},
$barcodetype );
CalcNextLabelPos();
drawbox( $x_pos, $y_pos, $label_width, $label_height ) if $guidebox;
@ -249,6 +257,28 @@ foreach $item (@resultsloop) {
CalcNextLabelPos();
}
elsif ( $printingtype eq 'PATCRD' ) {
my $borrowernumber = '3'; # Hardcoded for testing purposes...
my $patron_data = $item;
#FIXME: This needs to be paramatized and passed in from the user...
#Each element of this hash is a separate line on the patron card. Keys are the text to print and the associated data is the point size.
my $text = {
$patron_data->{'description'} => $fontsize,
$patron_data->{'branchname'} => ($fontsize + 3),
};
warn "Generating patron card for cardnumber $patron_data->{'cardnumber'}";
drawbox( $x_pos, $y_pos, $label_width, $label_height ) if $guidebox;
my $barcode_height = $label_height / 2.75; #FIXME: Scaling barcode height; this needs to be a user parameter.
DrawBarcode( $x_pos, $y_pos, $barcode_height, $label_width, $patron_data->{'cardnumber'},
$barcodetype );
DrawPatronCardText( $x_pos, $y_pos, $label_height, $label_width, $fontname, $fontsize,
$left_text_margin, $text_wrap_cols, $text, $printingtype );
CalcNextLabelPos();
}