Changeset 47

Timestamp:

04/11/05 16:03:36 (3 years ago)

Author:

ogawa

Message:

Add "glue" option to MTAllKeywords and MTEntryAllKeywords

Files:

• all-keywords/trunk/all-keywords.pl (modified) (5 diffs)

all-keywords/trunk/all-keywords.pl

@@ -73 +73 @@
-        }
-    }
-    my $res = '';
-    my $builder = $ctx->stash('builder');
-    my $tokens = $ctx->stash('tokens');
-
-    my @list;
@@ -96 +93 @@
-    $ctx->stash('all_keywords_total_sum', $total_sum);
-
+    my @res;
+    my $builder = $ctx->stash('builder');
+    my $tokens = $ctx->stash('tokens');
-    my $i = 0;
-    foreach (@list) {
@@ -103 +103 @@
-        defined(my $out = $builder->build($ctx, $tokens))
-            or return $ctx->error($ctx->errstr);
-$res .=
+push @res,
-        $i++;
-    }
-
+
+
-}
-
@@ -121 +122 @@
-
-    my @keywords = split_keywords($e->keywords, $delimiter, $case_sensitive);
-    my $res = '';
-    my $builder = $ctx->stash('builder');
-    my $tokens = $ctx->stash('tokens');
-    my $total = scalar(@keywords);
-    $ctx->stash('all_keywords_total', $total);
-    $ctx->stash('all_keywords_total_sum', $total);
+
+    my @res;
+    my $builder = $ctx->stash('builder');
+    my $tokens = $ctx->stash('tokens');
-    foreach (@keywords) {
-        $ctx->stash('all_keyword', $case_sensitive ? $_ : ucfirst $_);
@@ -132 +134 @@
-        defined(my $out = $builder->build($ctx, $tokens))
-            or return $ctx->error($ctx->errstr);
-
-
-
+
+
+
+
-}
-