fix: Couple Calendar fixes. Some Calendar code formatting changes

docs/changelog/7.x.x.txt

@@ -18,6 +18,10 @@
    require that it be used.
  - fix: Image in trash though visible in article
  - fix: Direct 6.8.10-7.2+ Upgrade Problem
+ - fix: Calendar feeds lastUpdated field only shows the year
+ - fix: Calendar feeds do not work
+ - fix: Sharing information between Calendars on the same server is now less
+        kludgy
  - fix: Adding tasks to project manager has long load time
  - fix: Project manager tasks get cached (not clearing) when bouncing between edit and new
 

docs/upgrades/upgrade_7.3.8-7.3.9.pl

@@ -21,6 +21,8 @@ my $quiet; # this line required
 my $session = start(); # this line required
 
 # upgrade functions go here
+fixCalendarFeedsLastUpdatedField();
+
 
 finish($session); # this line required
 
@@ -33,6 +35,13 @@ finish($session); # this line required
 #}
 
 
+##-------------------------------------------------
+sub fixCalendarFeedsLastUpdatedField {
+    my $session = shift;
+    print "\tFixing Calendar Feeds lastUpdated field.\n" unless ($quiet);
+    $session->db->write("alter table Calendar_feeds modify column lastUpdated datetime");
+}
+
 
 # ---- DO NOT EDIT BELOW THIS LINE ----
 

lib/WebGUI/Workflow/Activity/CalendarUpdateFeeds.pm

@@ -88,8 +88,10 @@ sub execute {
 	my $sth	    = $self->session->db->prepare("select * from Calendar_feeds");
 	$sth->execute();
 	
-	
+	use Data::Dumper;
+
 	FEED:while (my $feed = $sth->hashRef) {
+
 		#!!! KLUDGE - If the feed is on the same server, set a scratch value
 		# I do not know how dangerous this is, so THIS MUST CHANGE!
 		# Preferably: Spectre would add a userSession to the database, 
@@ -214,7 +216,7 @@ sub execute {
 						split / /, WebGUI::DateTime(
 							year	=> $year,
 							month	=> $month,
-							day	=> $day,
+							day	    => $day,
 							hour	=> $hour,
 							minute	=> $minute,
 							second	=> $second,
@@ -274,6 +276,10 @@ sub execute {
 					{
 						$properties->{url} = $events{$id}->{$key}->[1];
 					}
+                    elsif (lc $property_name eq "menutitle")
+                    {
+                        $properties->{menuTitle} = $events{$id}->{$key}->[1];
+                    }
 				}