EmailReminder/AnniversaryStore.pm

   1 # This file is part of Email-Reminder.
   2 #
   3 # Email-Reminder is free software; you can redistribute it and/or
   4 # modify it under the terms of the GNU General Public License as
   5 # published by the Free Software Foundation; either version 3 of the
   6 # License, or (at your option) any later version.
   7 #
   8 # Email-Reminder is distributed in the hope that it will be useful,
   9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  11 # General Public License for more details.
  12 #
  13 # You should have received a copy of the GNU General Public License
  14 # along with Email-Reminder; if not, write to the Free Software
  15 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  16 # 02110-1301, USA.
  17
  18 package EmailReminder::AnniversaryStore;
  19
  20 use strict;
  21 use warnings;
  22
  23 use Gtk2;
  24 use Glib::Object::Subclass
  25     Glib::Object::,
  26     interfaces => [ Gtk2::TreeModel:: ],
  27     ;
  28
  29 use EmailReminder::AnniversaryEvent;
  30 use EmailReminder::EventStore;
  31
  32 use base qw(EmailReminder::EventStore);
  33
  34 # Column indices
  35 my $PARTNER_NAME_INDEX  = 4;
  36 my $PARTNER_EMAIL_INDEX = 5;
  37
  38 sub init
  39 {
  40     my ($self) = @_;
  41
  42     $self->{TYPE} = EmailReminder::AnniversaryEvent->get_type();
  43     $self->{NB_COLUMNS} = EmailReminder::AnniversaryEvent->get_nb_fields();
  44
  45     $self->EmailReminder::EventStore::init();
  46     return 1;
  47 }
  48
  49 sub get_event_column
  50 {
  51     my ($self, $event, $col) = @_;
  52
  53     if ($col == $PARTNER_NAME_INDEX) {
  54         return $event->get_partner_name();
  55     }
  56     elsif ($col == $PARTNER_EMAIL_INDEX) {
  57         return $event->get_partner_email();
  58     }
  59     else {
  60         return $self->EmailReminder::BirthdayStore::get_event_column($event, $col);
  61     }
  62 }
  63
  64 sub set_event_column
  65 {
  66     my ($self, $event, $col, $new_value) = @_;
  67
  68     if ($col == $PARTNER_NAME_INDEX) {
  69         $event->set_partner_name($new_value);
  70     }
  71     elsif ($col == $PARTNER_EMAIL_INDEX) {
  72         $event->set_partner_email($new_value);
  73     }
  74     else {
  75         $self->EmailReminder::BirthdayStore::set_event_column($event, $col, $new_value);
  76     }
  77     return 1;
  78 }
  79
  80 1;