[Koha-cvs] koha/barcodes label-manager.pl
Mason James
szrj1m at yahoo.com
Wed Apr 19 06:51:03 CEST 2006
CVSROOT: /sources/koha
Module name: koha
Branch:
Changes by: Mason James <sushi at savannah.gnu.org> 06/04/19 04:51:03
Modified files:
barcodes : label-manager.pl
Log message:
Small fix, 'labels remaining' now works.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/barcodes/label-manager.pl.diff?tr1=1.2&tr2=1.3&r1=text&r2=text
Patches:
Index: koha/barcodes/label-manager.pl
diff -u koha/barcodes/label-manager.pl:1.2 koha/barcodes/label-manager.pl:1.3
--- koha/barcodes/label-manager.pl:1.2 Tue Apr 11 20:56:14 2006
+++ koha/barcodes/label-manager.pl Wed Apr 19 04:51:03 2006
@@ -122,13 +122,19 @@
#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"),
More information about the Koha-cvs
mailing list