* Model::Events: add select()

diff --git a/src/newslash_web/lib/Newslash/Model/Events.pm b/src/newslash_web/lib/Newslash/Model/Events.pm
index 29275dd..7f2b64e 100644 (file)
--- a/src/newslash_web/lib/Newslash/Model/Events.pm
+++ b/src/newslash_web/lib/Newslash/Model/Events.pm
@@ -40,6 +40,28 @@ EOSQL
     return 1;
 }
 
+sub select {
+    my $self = shift;
+    my $params = {@_};
+
+    my $unique_keys = { id => "ns_events.event_id",
+                        event_id => "ns_events.event_id",
+                      };
+    my $keys = { type => "ns_events.event_type",
+                 event_type => "ns_events.event_type",
+                 event_subtype => "ns_events.event_subtype",
+                 subtype => "ns_events.event_subtype",
+                 related_id => "ns_events.related_id",
+                 source_user_id => "ns_events.source_user_id",
+                 active => "ns_events.active",
+                 result => "ns_events.result",
+               };
+    return $self->generic_select("ns_events",
+                                 unique_keys => $unique_keys,
+                                 keys => $keys,
+                                 params => $params);
+}
+
 
 sub create {
     my $self = shift @_;