L-Plugin: Hilfsfunktion is_rdbo($obj) zum Testen ob $obj von einem RDBO ableitet

[mfinanz.git] / SL / Template / Plugin / HTMLFixes.pm

diff --git a/SL/Template/Plugin/HTMLFixes.pm b/SL/Template/Plugin/HTMLFixes.pm
index fad69932a9fe5ff4f440603fc8d08fbf463c136b..ce21b5cd967839e832544762154b02fa03c1c2fd 100644 (file)
--- a/SL/Template/Plugin/HTMLFixes.pm
+++ b/SL/Template/Plugin/HTMLFixes.pm
@@ -1,6 +1,7 @@
 package SL::Template::Plugin::HTMLFixes;
 
 use Template::Plugin::HTML;
+use Template::Stash;
 
 1;
 
@@ -27,3 +28,19 @@ sub url {
 }
 
 1;
+
+package Template::Stash;
+
+# A method for forcing list context. If a method uses 'wantarray' then
+# calling that method from Template will do strange stuff like chosing
+# scalar context. The most obvious offender are RDBO relationships.
+
+# Example of how NOT to test whether or not a customer has contacts:
+#   [% IF customer.contacts.size %] ...
+# Instead force list context and then test the size:
+#   [% IF customer.contacts.as_list.size %] ...
+$Template::Stash::LIST_OPS->{ as_list } = sub {
+  return ref( $_[0] ) eq 'ARRAY' ? shift : [shift];
+};
+
+1;