From 863030365c5a2dc80a69b89256deaec442989d89 Mon Sep 17 00:00:00 2001
From: Angel Ortega <angel@venexma.es>
Date: Wed, 17 Oct 2007 14:02:40 +0200
Subject: [PATCH] transfer_to_source() now also transfers tags.

---
 Gruta.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Gruta.pm b/Gruta.pm
index 9054028..b44796b 100644
--- a/Gruta.pm
+++ b/Gruta.pm
@@ -250,7 +250,9 @@ sub transfer_to_source {
 
 		foreach my $id ($self->stories($topic_id)) {
 			my $s = $self->story($topic_id, $id);
-			$dst->insert_story($s);
+			my $ns = $dst->insert_story($s);
+
+			$ns->tags( $s->tags() );
 		}
 	}
 
-- 
2.11.4.GIT