# HG changeset patch
# User Steve Kemp <steve@steve.org.uk>
# Date 1228845955 0
# Node ID 7dd1318c86526d3336e8da081c70098bb044635b
# Parent  382b8fc443c3762cb769dea2ba854ea914c9c228
  Abort if we encounter non-unique titles.
  (Closes: #508268)

diff -r 382b8fc443c3 -r 7dd1318c8652 bin/chronicle
--- a/bin/chronicle	Sat Dec 06 22:17:54 2008 +0000
+++ b/bin/chronicle	Tue Dec 09 18:05:55 2008 +0000
@@ -643,6 +643,36 @@
         exit;
     }
 
+    #
+    #  Make sure we have no duplicate titles.
+    #
+    my %titles;
+    foreach my $key ( keys( %results  ) )
+    {
+        #
+        #  Get the title for this file.
+        #
+        my $title = $results{$key}->{'title'};
+        next if ( !defined($title ) );
+
+        #
+        #  If we've seen this already then abort
+        #
+        if ( $titles{$title} )
+        {
+            print "Non-unique title: $title\n";
+            print "Shared by (at least):\n";
+            print "\t" . $key . "\n";
+            print "\t" . $titles{$title} . "\n";
+            print "\nAborting\n";
+            exit;
+        }
+        else
+        {
+            $titles{$title} = $key;
+        }
+    }
+
     return %results;
 }
 
diff -r 382b8fc443c3 -r 7dd1318c8652 debian/changelog
--- a/debian/changelog	Sat Dec 06 22:17:54 2008 +0000
+++ b/debian/changelog	Tue Dec 09 18:05:55 2008 +0000
@@ -1,3 +1,10 @@
+chronicle (3.4-1) unstable; urgency=medium
+
+  * Abort if non-unique titles are encountered.
+    (Closes: #508268)
+
+ -- XXX
+
 chronicle (3.3-1) unstable; urgency=medium
 
   * Default to UTF-8 when processing input in textile formats.  Allow