From da58630ad7aac0d74b5f1df25e35813089da8513 Mon Sep 17 00:00:00 2001
From: Angel Ortega <angel@venexma.es>
Date: Tue, 8 Jan 2008 11:03:59 +0100
Subject: [PATCH] The story_tags Artemus function returns a
 foreach()-compatible list.

---
 Gruta/Template/Artemus.pm       | 28 ++++++++++++++--------------
 templates/artemus/es/EDIT_STORY |  3 ++-
 2 files changed, 16 insertions(+), 15 deletions(-)

diff --git a/Gruta/Template/Artemus.pm b/Gruta/Template/Artemus.pm
index cdb1ee4..1c7051a 100644
--- a/Gruta/Template/Artemus.pm
+++ b/Gruta/Template/Artemus.pm
@@ -75,20 +75,6 @@ sub _artemus {
 			};
 		}
 
-		$f{story_tags} = sub {
-			my $topic_id	= shift;
-			my $id		= shift;
-			my $ret		= '';
-
-			if ($id ne '[]') {
-				my $story = $data->story($topic_id, $id);
-
-				$ret = join(', ', $story->tags());
-			}
-
-			return $ret;
-		};
-
 		$f{story_abstract} = sub {
 			my $story = $data->story($_[0], $_[1]);
 
@@ -602,6 +588,20 @@ sub _artemus {
 			return $self->{_artemus}->armor($ret);
 		};
 
+		$f{story_tags} = sub {
+			my $topic_id	= shift;
+			my $id		= shift;
+			my $ret		= '';
+
+			if ($id ne '[]') {
+				my $story = $data->story($topic_id, $id);
+
+				$ret = join(':', $story->tags());
+			}
+
+			return $ret;
+		};
+
 		$self->{abort}		= 0;
 		$self->{unresolved}	= [];
 		$self->{search_count}	= 0;
diff --git a/templates/artemus/es/EDIT_STORY b/templates/artemus/es/EDIT_STORY
index 0a77622..b9f6c55 100644
--- a/templates/artemus/es/EDIT_STORY
+++ b/templates/artemus/es/EDIT_STORY
@@ -41,7 +41,8 @@
 	}
 
 	<p>Etiquetas: <small>(separadas por comas)</small><br>
-	<input type = 'text' size = '60' name = 'tags' value = '{-story_tags|{-var|topic}|{-var|id}}'>
+	<input type = 'text' size = '60' name = 'tags'
+		value = '{-foreach|{-story_tags|{-var|topic}|{-var|id}}|\$0|, }'>
 
 	<p>Contenido:<br>
 
-- 
2.11.4.GIT