Make sure Event menuTitles are <= 15 characters

docs/changelog/7.x.x.txt

@@ -18,6 +18,8 @@
  	http://www.plainblack.com/bugs/tracker/webguiimage-new-doesnt-obey-width-and-height-settings
  - fix: Calendar week view didn't display events correctly if they happened on
         Sunday or if first day of week was set to Monday.
+ - fix: Events limit menuTitle to 15 characters yet if not specified, used
+        Title without limiting its length.
 
 7.3.14
  - fix: a typo in DatabaseLink.pm

lib/WebGUI/Asset/Event.pm

@@ -165,7 +165,16 @@ sub canEdit {
 }
 
 
-
+sub update {
+    my $self = shift;
+    my $properties = shift;
+    # Make sure menuTitle has some text, and that it is <= 15 characters.
+    if (exists $properties->{menuTitle}) {
+        $properties->{menuTitle} ||= $properties->{title} || $self->getTitle;
+        $properties->{menuTitle} = substr($properties->{menuTitle}, 0, 15);
+    }
+    return $self->SUPER::update($properties);
+}