From c93c8e11ae29c48b1f3f1dd9d90ad99bb48a6b59 Mon Sep 17 00:00:00 2001
From: OliverKrueger <OliverKrueger@0b4bb1d4-4e5a-0410-9cc4-b2b747904278>
Date: Wed, 23 Jun 2010 10:47:36 +0000
Subject: [PATCH] Item1918: handle duplicate tags

git-svn-id: http://svn.foswiki.org/trunk/TagsPlugin@7892 0b4bb1d4-4e5a-0410-9cc4-b2b747904278
---
 lib/Foswiki/Plugins/TagsPlugin/ImportTagMe.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/lib/Foswiki/Plugins/TagsPlugin/ImportTagMe.pm b/lib/Foswiki/Plugins/TagsPlugin/ImportTagMe.pm
index 16f4dc1..5d15d57 100644
--- a/lib/Foswiki/Plugins/TagsPlugin/ImportTagMe.pm
+++ b/lib/Foswiki/Plugins/TagsPlugin/ImportTagMe.pm
@@ -120,8 +120,19 @@ sub do {
                     if ($dryrun) {
                         $retval .= "(dryrun) <br />";
                     } else {
+                        try {
                         Foswiki::Plugins::TagsPlugin::Tag::do( "tag", $webTopic,
                             $tag, $user_id, $public );
+                        }
+                        catch Error::Simple with {
+                            my $e = shift;
+                            my $n = $e->{'-value'};
+                            if ( $n == 3 ) {
+                                $retval .= " (skipping, duplicate)";
+                            } else {
+                                $e->throw();
+                            }
+                        }
                         $retval .= "<br />";
                     }
                 }