Add missing Monitor() function.

scripts/ZoneMinder/lib/ZoneMinder/Event.pm

@@ -915,6 +915,15 @@ sub canEdit {
   return 0;
 } # end sub canEdit
 
+sub Monitor {
+  my $self = shift;
+  $$self{Monitor} = shift if @_;
+  if ( !$$self{Monitor} ) {
+    $$self{Monitor} = new ZoneMinder::Monitor($$self{MonitorId});
+  }
+  return $$self{Monitor};
+}
+
 1;
 __END__