&FineSlip

sub GetBorrowerFines {

    my ($borrowernumber) = @_;

    my $dbh       = C4::Context->dbh;

    my $query = qq{

        SELECT * FROM accountlines

        LEFT JOIN borrowers ON borrowers.borrowernumber = accountlines.borrowernumber

        LEFT JOIN items ON accountlines.itemnumber = items.itemnumber

        WHERE accountlines.borrowernumber = ?

        ORDER BY accountlines.timestamp

    };

    my $sth = $dbh->prepare( $query );

    $sth->execute( $borrowernumber );

    my $data = $sth->fetchall_arrayref({});

    return $data;

}

sub FineSlip {

    my ($borrowernumber, $branch) = @_;

    #my $now       = POSIX::strftime("%Y-%m-%d", localtime);

    my $issueslist = GetBorrowerFines($borrowernumber);

    my $total = 0.0;

    foreach my $it (@$issueslist){

        my $dt = dt_from_string( $it->{'date'} );

        $it->{'date_due'} = output_pref({ dt => $dt, dateonly => 1 });

        $it->{'amount'} = sprintf('%.2f', $it->{'amount'});

        $total = $total + $it->{'amount'};

        $it->{'barcode'} = '-' if (!defined($it->{'barcode'}));

    }

    my @issues = sort { $b->{'timestamp'} <=> $a->{'timestamp'} } @$issueslist;

    my %repeat = (

        'fines' => [ map {

            'fines' => $_,

            'borrowers' => $_,

            'items' => $_

                     }, @issues ],

        );

    return  C4::Letters::GetPreparedLetter (

        module => 'circulation',

        letter_code => 'FINESLIP',

        branchcode => $branch,

        tables => {

            'branches'    => $branch,

            'borrowers'   => $borrowernumber,

        },

        substitute => {

            'total.amount' => sprintf('%.2f', $total),

            'total.fines' => scalar(@issues)

        },

        repeat => \%repeat,

        message_transport_type => 'print',

    );

}

$DBversion = 'XXX'; # will be replaced by the RM

if( CheckVersion( $DBversion ) ) {

    # you can use $dbh here like:

    # $dbh->do( "ALTER TABLE biblio ADD COLUMN badtaste int" );

    $dbh->do( qq| INSERT INTO letter (module, code, branchcode, name, is_html, title, content, message_transport_type) VALUES ( "circulation", "FINESLIP", "", "Patron fines -slip", "1", "Fines and fees slip", "<<borrowers.firstname>> <<borrowers.surname>><br><<borrowers.cardnumber>><br>Fines: <<total.fines>><ul><fines><li><<fines.date_due>>, <<fines.amount>><br>Barcode: <<items.barcode>><br><<fines.description>></li></fines></ul>Total: <<total.amount>>", "print")| );

    # Always end with this (adjust the bug info)

    NewVersion( $DBversion, 12285, "Allow easy printing of patron's fines");

}

        - module:

          code: FINESLIP

          branchcode: ""

          name: "Patron fines -slip"

          is_html: 1

          title: "Fines and fees slip"

          message_transport_type: pront

          lang: default

          content:

          - "<<borrowers.firstname>> <<borrowers.surname>><br>"

          - "<<borrowers.cardnumber>><br>"

          - "Fines: <<total.fines>>"

          - "<ul>"

          - "<fines>"

          - "<li>""

          - "<<fines.date_due>>, <<fines.amount>><br>"

          - "Barcode: <<items.barcode>><br>"

          - "<<fines.description>>"

          - "</li>"

          - "</fines>"

          - "</ul>"

          - "Total: <<total.amount>>"

                <li><a id="printfineslip" href="#">Print fines</a></li>

    $("#printfineslip").click(function(){

        printx_window("fineslip");

        $(".btn-group").removeClass("open");

        return false;

    });

} elsif ($print eq 'fineslip') {

    my $letter = C4::Members::FineSlip($borrowernumber, $session->param('branch') || $branch);

    $slip = $letter->{content};

    $is_html = $letter->{is_html};