From 61bc312d13b0a8b0e04589ad649a8c96a2d4a09c Mon Sep 17 00:00:00 2001
From: Joe Atzberger <joe.atzberger@liblime.com>
Date: Thu, 3 Jan 2008 14:46:19 -0600
Subject: [PATCH] Labels.pm - add deduplicate_batch sub

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 C4/Labels.pm | 48 ++++++++++++++++++++++++++++++++++++++++++------
 1 file changed, 42 insertions(+), 6 deletions(-)

diff --git a/C4/Labels.pm b/C4/Labels.pm
index 4f357d46f3..9ff8e02dca 100644
--- a/C4/Labels.pm
+++ b/C4/Labels.pm
@@ -28,7 +28,7 @@ use Algorithm::CheckDigits;
 # use Data::Dumper;
 # use Smart::Comments;
 
-$VERSION = 0.01;
+$VERSION = 0.02;
 
 =head1 NAME
 
@@ -61,14 +61,14 @@ C4::Labels - Functions for printing spine labels and barcodes in Koha
   &set_active_layout &by_order
   &build_text_dropbox
   &delete_layout &get_active_layout
-&get_highest_batch
+  &get_highest_batch
+  &deduplicate_batch
 );
 
 =item get_label_options;
 
 	$options = get_label_options()
 
-
 Return a pointer on a hash list containing info from labels_conf table in Koha DB.
 
 =cut
@@ -564,7 +564,6 @@ sub save_layout {
 
         $options = get_label_items()
 
-
 Returns an array of references-to-hash, whos keys are the field from the biblio, biblioitems, items and labels tables in the Koha database.
 
 =cut
@@ -601,12 +600,12 @@ sub get_label_items {
 		where itemnumber=? and  i.biblioitemnumber=bi.biblioitemnumber and                  
 		bi.biblionumber=b.biblionumber"; 
      
-	 my $sth1 = $dbh->prepare($query1);
+	 	my $sth1 = $dbh->prepare($query1);
         $sth1->execute( $data->{'itemnumber'} );
 
         my $data1 = $sth1->fetchrow_hashref();
-
         $data1->{'labelno'}  = $i1;
+        $data1->{'labelid'}  = $data->{'labelid'};
         $data1->{'batch_id'} = $batch_id;
         $data1->{'summary'} =
           "$data1->{'barcode'}, $data1->{'title'}, $data1->{'isbn'}";
@@ -631,6 +630,42 @@ sub GetItemFields {
     return @fields;
 }
 
+sub deduplicate_batch {
+	my $batch_id = shift or return undef;
+	my $query = "
+	SELECT DISTINCT
+			batch_id,itemnumber,
+			count(labelid) as count 
+	FROM     labels 
+	WHERE    batch_id = ?
+	GROUP BY itemnumber,batch_id
+	HAVING   count > 1
+	ORDER BY batch_id,
+			 count DESC  ";
+	my $sth = C4::Context->dbh->prepare($query);
+	$sth->execute($batch_id);
+	$sth->rows or return undef;
+
+	my $del_query = qq(
+	DELETE 
+	FROM     labels 
+	WHERE    batch_id = ?
+	AND      itemnumber = ?
+	ORDER BY timestamp ASC
+	);
+	my $killed = 0;
+	while (my $data = $sth->fetchrow_hashref()) {
+		my $itemnumber = $data->{itemnumber} or next;
+		my $limit      = $data->{count} - 1  or next;
+		my $sth2 = C4::Context->dbh->prepare("$del_query  LIMIT $limit");
+		# die sprintf "$del_query LIMIT %s\n (%s, %s)", $limit, $batch_id, $itemnumber;
+		# $sth2->execute($batch_id, C4::Context->dbh->quote($data->{itemnumber}), $data->{count} - 1)
+		$sth2->execute($batch_id, $itemnumber) and
+			$killed += ($data->{count} - 1);
+	}
+	return $killed;
+}
+
 sub DrawSpineText {
 
     my ( $y_pos, $label_height, $fontsize, $x_pos, $left_text_margin,
@@ -1220,5 +1255,6 @@ __END__
 =head1 AUTHOR
 
 Mason James <mason@katipo.co.nz>
+
 =cut
 
-- 
2.39.5