First installment: Patron card generation feature

Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/C4/Labels.pm b/C4/Labels.pm
index 4740f15..1632eb2 100644 (file)
--- a/C4/Labels.pm
+++ b/C4/Labels.pm
@@ -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 {
 #

diff --git a/labels/label-print-pdf.pl b/labels/label-print-pdf.pl
index f4d0b47..cb0939c 100755 (executable)
--- a/labels/label-print-pdf.pl
+++ b/labels/label-print-pdf.pl
@@ -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();
+    }
+