EmailReminder/BirthdayStore.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::BirthdayStore;
  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::BirthdayEvent;
  30 use EmailReminder::EventStore;
  31
  32 use base qw(EmailReminder::EventStore);
  33
  34 # Column indices
  35 my $EMAIL_INDEX = 3;
  36
  37 sub init
  38 {
  39     my ($self) = @_;
  40
  41     $self->{TYPE} = EmailReminder::BirthdayEvent->get_type();
  42     $self->{NB_COLUMNS} = EmailReminder::BirthdayEvent->get_nb_fields();
  43
  44     $self->EmailReminder::EventStore::init();
  45     return 1;
  46 }
  47
  48 sub get_event_column
  49 {
  50     my ($self, $event, $col) = @_;
  51
  52     if ($col == $EMAIL_INDEX) {
  53         return $event->get_email();
  54     }
  55     else {
  56         return $self->EmailReminder::YearlyStore::get_event_column($event, $col);
  57     }
  58 }
  59
  60 sub set_event_column
  61 {
  62     my ($self, $event, $col, $new_value) = @_;
  63
  64     if ($col == $EMAIL_INDEX) {
  65         $event->set_email($new_value);
  66     }
  67     else {
  68         $self->EmailReminder::YearlyStore::set_event_column($event, $col, $new_value);
  69     }
  70     return 1;
  71 }
  72
  73 1;