#!/usr/bin/perl

#use strict;
use CGI;
use C4::Auth;
use C4::Output;
use C4::Interface::CGI::Output;
use C4::Context;
use HTML::Template;
use PDF::Reuse;
use PDF::Reuse::Barcode;

my $htdocs_path = C4::Context->config('intrahtdocs');
my $cgi         = new CGI;

my $spine_text = "";

#--------------------------------------------------------
# get the printing settings

my $dbh    = C4::Context->dbh;
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'};
my $startrow    = $conf_data->{'startrow'};

$sth->finish;

#------------------

# get the actual items to be printed.
my @data;
my $query3 = " Select * from labels ";
my $sth    = $dbh->prepare($query3);
$sth->execute();
my @resultsloop;
my $cnt = $sth->rows;
my $i1  = 1;
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
                                biblioitems.biblionumber=biblio.biblionumber";

    my $sth1 = $dbh->prepare($query1);
    $sth1->execute( $data->{'itemnumber'} );
    my $data1 = $sth1->fetchrow_hashref();

    push( @resultsloop, $data1 );
    $sth1->finish;

    $i1++;
}
$sth->finish;

# dimensions of gaylord paper
my $lowerLeftX  = 0;
my $lowerLeftY  = 0;
my $upperRightX = 612;
my $upperRightY = 792;

#----------------------------------
# setting up the pdf doc

prFile("$htdocs_path/barcodes/new.pdf");
prLogDir("$htdocs_path/barcodes");

#prMbox ( $lowerLeftX, $lowerLeftY, $upperRightX, $upperRightY );
prMbox( 0, 0, 612, 792 );

prFont('Times-Roman');    # Just setting a font
prFontSize(10);

my $margin = 36;

my $label_height = 90;
my $spine_width  = 72;
my $circ_width   = 207;
my $colspace     = 27;

my $x_pos_spine = 36;
my $x_pos_circ1 = 135;
my $x_pos_circ2 = 369;

my $pageheight = 792;

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;

#my $y_pos            = $y_pos_initial;
my $rowspace         = 36;
my $page_break_count = $startrow;
my $codetype         = 'Code39';

# do border---------------
my $str = "q\n";    # save the graphic state
$str .= "4 w\n";                # border color red
$str .= "0.0 0.0 0.0  RG\n";    # border color red
$str .= "1 1 1 rg\n";           # fill color blue
$str .= "0 0 612 792 re\n";     # a rectangle
$str .= "B\n";                  # fill (and a little more)
$str .= "Q\n";                  # save the graphic state

# do border---------------

prAdd($str);
my $item;

my $i2 = 1;
foreach $item (@resultsloop) {
    if ( $i2 == 1 ) {

        #draw_boxes();
    }

    #building up spine text
    my $line        = 75;
    my $line_spacer = 16;

    build_circ_barcode( $x_pos_circ1, $y_pos, $item->{'barcode'},
        $conf_data->{'barcodetype'} );
    build_circ_barcode( $x_pos_circ2, $y_pos, $item->{'barcode'},
        $conf_data->{'barcodetype'} );

# 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',

    $y_pos = ( $y_pos - $label_height );

    # the gaylord labels have 8 rows per sheet, this pagebreaks after 8 rows
    if ( $page_break_count == 8 ) {
        prPage();

        $page_break_count = 0;
        $i2               = 0;
        $y_pos            = $y_pos_initial;
    }
    $page_break_count++;
    $i2++;
}

prEnd();

#----------------------------------------------------------------------------

use PDF::Table;
use Acme::Comment;

$file = '/usr/local/opus-dev/intranet/htdocs/intranet-tmpl/barcodes/new.pdf';
use PDF::Report;

my $pdf = new PDF::Report( File => $file );

# my $pdf = new PDF::Report(PageSize => "letter",
#                                  PageOrientation => "Landscape");

#$pdf->newpage($nopage);
my $pagenumber = 1;
$pdf->openpage($pagenumber);

( $pagewidth, $pageheight ) = $pdf->getPageDimensions();
my $y_pos = ( $y_pos_initial_startrow + 90 );
$pdf->setAlign('left');
$pdf->setSize(9);

my $page_break_count = $startrow;

foreach $item (@resultsloop) {

    my $firstrow = 0;

    $pdf->setAddTextPos( 36, ( $y_pos - 15 ) );    # INIT START POS
    ( $hPos, $vPos )  = $pdf->getAddTextPos();
    ( $hPos, $vPos1 ) = $pdf->getAddTextPos();

    if ( $conf_data->{'dewey'} && $item->{'dewey'} ) {

        ( $hPos, $vPos1 ) = $pdf->getAddTextPos();
        $pdf->addText( $item->{'dewey'}, 10, 72, 90 );
        ( $hPos, $vPos1 ) = $pdf->getAddTextPos();
        $firstrow = 1;
    }

    if ( $conf_data->{'isbn'} && $item->{'isbn'} ) {
        if ( $vPos1 == $vPos && $firstrow != 0 ) {
            $pdf->setAddTextPos( 36, ( $vPos - 15 ) );
        }
        else {
            $pdf->setAddTextPos( 36, $vPos1 - 5 );    #add a space
        }

        ( $hPos, $vPos ) = $pdf->getAddTextPos();
        $pdf->addText( $item->{'isbn'}, 10, 72, 90 );
        ( $hPos, $vPos1 ) = $pdf->getAddTextPos();
        $firstrow = 1;
    }

    if ( $conf_data->{'class'} && $item->{'classification'} ) {

        if ( $vPos1 == $vPos && $firstrow != 0 ) {
            $pdf->setAddTextPos( 36, ( $vPos - 15 ) );
        }
        else {
            $pdf->setAddTextPos( 36, $vPos1 - 5 );    #add a space
        }

        ( $hPos, $vPos ) = $pdf->getAddTextPos();
        $pdf->addText( $item->{'classification'}, 10, 72, 90 );
        ( $hPos, $vPos1 ) = $pdf->getAddTextPos();
        $firstrow = 1;
    }

    if ( $conf_data->{'itemtype'} && $item->{'itemtype'} ) {

        if ( $vPos1 == $vPos && $firstrow != 0 ) {
            $pdf->setAddTextPos( 36, ( $vPos - 15 ) );
        }
        else {
            $pdf->setAddTextPos( 36, $vPos1 - 5 );    #add a space
        }

        ( $hPos, $vPos ) = $pdf->getAddTextPos();
        $pdf->addText( $item->{'itemtype'}, 10, 72, 90 );
        ( $hPos, $vPos1 ) = $pdf->getAddTextPos();
        $firstrow = 1;
    }

    #$pdf->drawRect(
    #    $x_pos_spine, $y_pos,
    #    ( $x_pos_spine + $spine_width ),
    #    ( $y_pos - $label_height )
    #);

    $y_pos = ( $y_pos - $label_height );
    if ( $page_break_count == 8 ) {
        $pagenumber++;
        $pdf->openpage($pagenumber);

        $page_break_count = 0;
        $i2               = 0;
        $y_pos            = ( $y_pos_initial + 90 );
    }

    $page_break_count++;
    $i2++;

}
$DB::single = 1;
$pdf->saveAs($file);

#------------------------------------------------

print $cgi->redirect("/intranet-tmpl/barcodes/new.pdf");

# draw boxes------------------
sub draw_boxes {

    my $y_pos_initial = ( ( 792 - 36 ) - 90 );
    my $y_pos         = $y_pos_initial;
    my $i             = 1;

    for ( $i = 1 ; $i <= 8 ; $i++ ) {

        &drawbox( $x_pos_spine, $y_pos, ($spine_width), ($label_height) );

        &drawbox( $x_pos_circ1, $y_pos, ($circ_width), ($label_height) );
        &drawbox( $x_pos_circ2, $y_pos, ($circ_width), ($label_height) );

        $y_pos = ( $y_pos - $label_height );

    }
}

# draw boxes------------------

sub build_circ_barcode {
    my ( $x_pos_circ, $y_pos, $value, $barcodetype ) = @_;

    #$DB::single = 1;

    if ( $barcodetype eq 'EAN13' ) {
        eval {
  	    PDF::Reuse::Barcode::EAN13(
                x     => ( $x_pos_circ + 32 ),
                y     => ( $y_pos + 18 ),
                value => $value,

                #            prolong => 2.96,
                xSize   => 1.5,
                ySize   => 1.2,
            );
        };
        if ($@) {
            $item->{'barcodeerror'} = 1;
        }

    }
    elsif ( $barcodetype eq 'Code39' ) {

        eval {
            PDF::Reuse::Barcode::Code39(
                x     => ( $x_pos_circ + 9 ),
                y     => ( $y_pos + 15 ),
                value => "*$value*",
                hide_asterisk => 1,
                #           prolong => 2.96,
                xSize => .85,
                ySize => 1.3,
            );
        };
        if ($@) {
            $item->{'barcodeerror'} = 1;
        }
    }

    elsif ( $barcodetype eq 'Matrix2of5' ) {

        eval {
            PDF::Reuse::Barcode::Matrix2of5(
                x     => ( $x_pos_circ + 27 ),
                y     => ( $y_pos + 15 ),
                value => $value,

                #        prolong => 2.96,
                #       xSize   => 1.5,

                # ySize   => 1.2,
            );
        };
        if ($@) {
            $item->{'barcodeerror'} = 1;
        }
    }

    elsif ( $barcodetype eq 'EAN8' ) {

        eval {
            PDF::Reuse::Barcode::EAN8(
                x       => ( $x_pos_circ + 42 ),
                y       => ( $y_pos + 15 ),
                value   => $value,
                prolong => 2.96,
                xSize   => 1.5,

                # ySize   => 1.2,
            );
        };

        if ($@) {
            $item->{'barcodeerror'} = 1;
        }

    }

    elsif ( $barcodetype eq 'UPC-E' ) {
        eval {
            PDF::Reuse::Barcode::UPCE(
                x       => ( $x_pos_circ + 27 ),
                y       => ( $y_pos + 15 ),
                value   => $value,
                prolong => 2.96,
                xSize   => 1.5,

                # ySize   => 1.2,
            );
        };

        if ($@) {
            $item->{'barcodeerror'} = 1;
        }
    }
    elsif ( $barcodetype eq 'NW7' ) {
        eval {
            PDF::Reuse::Barcode::NW7(
                x       => ( $x_pos_circ + 27 ),
                y       => ( $y_pos + 15 ),
                value   => $value,
                prolong => 2.96,
                xSize   => 1.5,

                # ySize   => 1.2,
            );
        };

        if ($@) {
            $item->{'barcodeerror'} = 1;
        }
    }
    elsif ( $barcodetype eq 'ITF' ) {
        eval {
            PDF::Reuse::Barcode::ITF(
                x       => ( $x_pos_circ + 27 ),
                y       => ( $y_pos + 15 ),
                value   => $value,
                prolong => 2.96,
                xSize   => 1.5,

                # ySize   => 1.2,
            );
        };

        if ($@) {
            $item->{'barcodeerror'} = 1;
        }
    }
    elsif ( $barcodetype eq 'Industrial2of5' ) {
        eval {
            PDF::Reuse::Barcode::Industrial2of5(
                x       => ( $x_pos_circ + 27 ),
                y       => ( $y_pos + 15 ),
                value   => $value,
                prolong => 2.96,
                xSize   => 1.5,

                # ySize   => 1.2,
            );
        };
        if ($@) {
            $item->{'barcodeerror'} = 1;
        }
    }
    elsif ( $barcodetype eq 'IATA2of5' ) {
        eval {
            PDF::Reuse::Barcode::IATA2of5(
                x       => ( $x_pos_circ + 27 ),
                y       => ( $y_pos + 15 ),
                value   => $value,
                prolong => 2.96,
                xSize   => 1.5,

                # ySize   => 1.2,
            );
        };
        if ($@) {
            $item->{'barcodeerror'} = 1;
        }

    }

    elsif ( $barcodetype eq 'COOP2of5' ) {
        eval {
            PDF::Reuse::Barcode::COOP2of5(
                x       => ( $x_pos_circ + 27 ),
                y       => ( $y_pos + 15 ),
                value   => $value,
                prolong => 2.96,
                xSize   => 1.5,

                # ySize   => 1.2,
            );
        };
        if ($@) {
            $item->{'barcodeerror'} = 1;
        }
    }
    elsif ( $barcodetype eq 'UPC-A' ) {

        eval {
            PDF::Reuse::Barcode::UPCA(
                x       => ( $x_pos_circ + 27 ),
                y       => ( $y_pos + 15 ),
                value   => $value,
                prolong => 2.96,
                xSize   => 1.5,

                # ySize   => 1.2,
            );
        };
        if ($@) {
            $item->{'barcodeerror'} = 1;
        }
    }
}

#-----------------------------

sub drawbox {
    my ( $llx, $lly, $urx, $ury ) = @_;

    my $str = "q\n";    # save the graphic state
    $str .= "1.0 0.0 0.0  RG\n";           # border color red
    $str .= "1 1 1  rg\n";                 # fill color blue
    $str .= "$llx $lly $urx $ury re\n";    # a rectangle
    $str .= "B\n";                         # fill (and a little more)
    $str .= "Q\n";                         # save the graphic state

    prAdd($str);

}