Make sure that calendar time span flags are always set. Fixes bug #12271.

perlDreamer · perlDreamer · commit 9da88844e0e5 · 2011-10-15T13:06:44.000-07:00
diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
@@ -3,6 +3,7 @@
  - fixed #12268: Point of sale form missing from cart screen.
  - fixed #12201: AssetReport - no selects.
  - fixed #12269: Login / Loginbox with encryptlogin
+ - fixed #12271: Calendar List View does not always show labels
 
 7.10.23
  - fixed #12225: Stock asset, multiple instances on a page
diff --git a/lib/WebGUI/Asset/Wobject/Calendar.pm b/lib/WebGUI/Asset/Wobject/Calendar.pm
@@ -1133,7 +1133,7 @@ sub viewList {
         );
 
     ### Build the event vars
-    my $dtLast = $dtStart; # The DateTime of the last event
+    my $dtLast = WebGUI::DateTime->new(0); # The DateTime of the last event
     EVENT: for my $event (@events) {
         next EVENT unless $event && $event->canView();
         my ( %eventVar, %eventDate )
@@ -1142,12 +1142,15 @@ sub viewList {
         # Add the change flags
         my $dt  = $event->getDateTimeStart;
         if ( $dt->year > $dtLast->year ) {
-            $eventVar{ new_year } = 1;
+            $eventVar{ new_year }  = 1;
+            $eventVar{ new_month } = 1;
+            $eventVar{ new_day }   = 1;
         }
-        if ( $dt->month > $dtLast->month ) {
+        elsif ( $dt->month > $dtLast->month ) {
             $eventVar{ new_month } = 1;
+            $eventVar{ new_day }   = 1;
         }
-        if ( $dt->day > $dtLast->day ) {
+        elsif ( $dt->day > $dtLast->day ) {
             $eventVar{ new_day } = 1;
         }
 
diff --git a/lib/WebGUI/Help/Asset_Calendar.pm b/lib/WebGUI/Help/Asset_Calendar.pm
@@ -241,15 +241,15 @@ our $HELP = {
         ],
         variables   => [
             {
-                name        => 'newYear',
+                name        => 'new_year',
                 description => 'helpvar newYear',
             },
             {
-                name        => 'newMonth',
+                name        => 'new_month',
                 description => 'helpvar newMonth',
             },
             {
-                name        => 'newDay',
+                name        => 'new_day',
                 description => 'helpvar newDay',
             },
             {
diff --git a/t/Asset/Wobject/Calendar.t b/t/Asset/Wobject/Calendar.t
@@ -57,8 +57,6 @@ use Data::Dumper;
 use WebGUI::Asset::Wobject::Calendar;
 use WebGUI::Asset::Event;
 
-plan tests => 15 + scalar @icalWrapTests;
-
 my $session = WebGUI::Test->session;
 
 # Do our work in the import node
@@ -571,6 +569,9 @@ cmp_deeply(
     '... correct set of events in list view'
 );
 
+ok(exists $listVars->{events}->[0]->{new_year} && $listVars->{events}->[0]->{new_year}, 'first event has new_year set');
+ok(exists $listVars->{events}->[0]->{new_month} && $listVars->{events}->[0]->{new_month}, 'first event has new_month set');
+ok(exists $listVars->{events}->[0]->{new_day} && $listVars->{events}->[0]->{new_day}, 'first event has new_day set');
 
 ######################################################################
 #
@@ -606,3 +607,5 @@ cmp_deeply(
     [],
     'but getFeeds still returns a data structure.'
 );
+
+done_testing;

Original file line number	Diff line number	Diff line change
`@@ -241,15 +241,15 @@ our $HELP = {`
`241`	`241`	`],`
`242`	`242`	`variables => [`
`243`	`243`	`{`
`244`		`- name => 'newYear',`
	`244`	`+ name => 'new_year',`
`245`	`245`	`description => 'helpvar newYear',`
`246`	`246`	`},`
`247`	`247`	`{`
`248`		`- name => 'newMonth',`
	`248`	`+ name => 'new_month',`
`249`	`249`	`description => 'helpvar newMonth',`
`250`	`250`	`},`
`251`	`251`	`{`
`252`		`- name => 'newDay',`
	`252`	`+ name => 'new_day',`
`253`	`253`	`description => 'helpvar newDay',`
`254`	`254`	`},`
`255`	`255`	`{`