From a52beabc9fff115508e19615566e3a6dad353cd5 Mon Sep 17 00:00:00 2001
From: sushi <sushi>
Date: Wed, 19 Apr 2006 04:51:03 +0000
Subject: [PATCH] Small fix, 'labels remaining' now works.

---
 barcodes/label-manager.pl | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/barcodes/label-manager.pl b/barcodes/label-manager.pl
index 02e534a758..d36ec82683 100755
--- a/barcodes/label-manager.pl
+++ b/barcodes/label-manager.pl
@@ -122,13 +122,19 @@ if ( !$startrow ) {
 
 #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
+my $sheets_needed = ( ( --$number_of_results + $startrow ) / 8 );
+        $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);
 
 $template->param(
     resultsloop             => \@resultsloop,
     startrow                => $startrow,
     sheets                  => $sheets_needed,
+    labels_remaining        => $labels_remaining,
+
     intranetcolorstylesheet =>
       C4::Context->preference("intranetcolorstylesheet"),
     intranetstylesheet => C4::Context->preference("intranetstylesheet"),
-- 
2.20.1