More fooling with links.

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@24 48953598-375a-da11-a14b-00016c27c3ee

diff --git a/templates/factory/macros b/templates/factory/macros
index b9b8dee42b63333f474d880aac3ed77bd5bc204e..2a2315523300949de9c7b48f103f28367a4cf9b9 100644 (file)
--- a/templates/factory/macros
+++ b/templates/factory/macros
@@ -15,6 +15,8 @@ END;
         "<td>";
         IF col == "url";  # Possibly too much magic.
             "<A HREF="; item.url; "> "; item.url; "</A>";
+        ELSIF col == "name";
+            maybe_link_view(item);
         ELSE;
             maybe_link_view(item.$col);
         END;

diff --git a/templates/factory/view b/templates/factory/view
index 861e8761184e6dc33911aa2d1fe090cbeb81e24b..509208eddb0a2d22e6afe17886afa69efdee4c7a 100644 (file)
--- a/templates/factory/view
+++ b/templates/factory/view
@@ -14,7 +14,13 @@
 
 <TR>
     <TD class="field"> [% classmetadata.colnames.$col; %] </TD>
-    <TD> [% maybe_link_view(item.$col) %] </TD>
+    <TD> [%
+
+    IF col == "url";  # Possibly too much magic.
+                "<A HREF="; item.url; "> "; item.url; "</A>";
+    ELSE;
+    maybe_link_view(item.$col); END;
+    %] </TD>
 </TR>
 [% END; %]
 </TABLE>