Make sure that all builder methods that use session sare set to be lazy.

plainblack · Feb 5, 2010 · d1572c4 · d1572c4
1 parent 9f06085
commit d1572c4
Show file tree

Hide file tree

Showing 5 changed files with 8 additions and 0 deletions.
diff --git a/lib/WebGUI/Asset.pm b/lib/WebGUI/Asset.pm
@@ -286,6 +286,7 @@ has       [qw/parentId     lineage
 has       className  => (
             is              => 'ro',
             builder         => '_build_className',
+            lazy            => 1,
             init_arg        => undef,
           );
 sub _build_className {

diff --git a/lib/WebGUI/Asset/Event.pm b/lib/WebGUI/Asset/Event.pm
@@ -41,11 +41,13 @@ property startDate => (
             label           => ['start date', 'Asset_Event'],
             fieldType       => "Date",
             builder         => '_defaultMysqlDate',
+            lazy            => 1,
         );
 property endDate => (
             label           => ['end date', 'Asset_Event'],
             fieldType       => "Date",
             builder         => '_defaultMysqlDate',
+            lazy            => 1,
         );
 sub _defaultMysqlDate {
     my $self = shift;

diff --git a/lib/WebGUI/Asset/File/Image.pm b/lib/WebGUI/Asset/File/Image.pm
@@ -30,6 +30,7 @@ property thumbnailSize => (
                 hoverHelp       => ['Thumbnail size description', 'Asset_Image'],
                 fieldType       => 'integer',
                 builder         => '_default_thumbnailSize',
+                lazy            => 1,
          );
 sub _default_thumbnailSize {
     my $self = shift;

diff --git a/lib/WebGUI/Asset/Template.pm b/lib/WebGUI/Asset/Template.pm
@@ -64,6 +64,7 @@ property parser => (
              fieldType       => 'selectBox',
              lazy            => 1,
              builder         => '_default_parser',
+             lazy            => 1,
          );
 sub _default_parser {
     my $self = shift;

diff --git a/lib/WebGUI/Asset/Wobject/Calendar.pm b/lib/WebGUI/Asset/Wobject/Calendar.pm
@@ -232,6 +232,7 @@ property listViewPageInterval => (
             label           => ['editForm listViewPageInterval label', 'Asset_Calendar'],
             hoverHelp       => ['editForm listViewPageInterval description', 'Asset_Calendar'],
             unitsAvailable  => [ qw( days weeks months years ) ],
+            lazy            => 1,
         );
 sub _listViewPageInterval_builder {
     my $self = shift;
@@ -250,6 +251,7 @@ property icalFeeds    => (
 property icalInterval    => (
             fieldType       => "interval",
             builder         => '_icalInterval_builder',
+            lazy            => 1,
             tab             => "display",
             label           => ['editForm icalInterval label', 'Asset_Calendar'],
             hoverHelp       => ['editForm icalInterval description', 'Asset_Calendar'],
@@ -262,6 +264,7 @@ sub _icalInterval_builder {
 property workflowIdCommit => (
             fieldType       => "workflow",
             builder         => '_workflowIdCommit_builder',
+            lazy            => 1,
             tab             => 'security',
             label           => ['editForm workflowIdCommit label', 'Asset_Calendar'],
             hoverHelp       => ['editForm workflowIdCommit description', 'Asset_Calendar'],