Added canEdit template variable for events.

lib/WebGUI/Asset/Event.pm

@@ -1160,6 +1160,7 @@ sub getTemplateVars {
     my %var;
     
     # Some miscellaneous stuff
+    $var{'canEdit'} = $self->canEdit;
     $var{"isPublic"} = 1
         if $self->get("groupIdView") eq "7";
     $var{"groupToView"} = $self->get("groupIdView");    # Todo: Remove this? 

lib/WebGUI/Help/Asset_Event.pm

@@ -88,6 +88,9 @@ our $HELP = {
 		isa => [
 		],
 		variables => [
+		          {
+		            'name'     => 'canEdit',
+		          },
 		          {
 		            'name'     => 'isPublic',
 		          },

lib/WebGUI/i18n/English/Asset_Event.pm

@@ -452,6 +452,11 @@ be useful, others may not.|,
 		message 	=> q{Event},
 		lastUpdated 	=> 1131394072,
 	},
+
+	'canEdit' => {
+		message 	=> q{This variable is true if the current user can edit this event.},
+		lastUpdated 	=> 0,
+	},
 };
 
 1;