src/lib/Torrus/SQL/ReportFields.pm

   1 #  Copyright (C) 2005  Stanislav Sinyagin
   2 #
   3 #  This program is free software; you can redistribute it and/or modify
   4 #  it under the terms of the GNU General Public License as published by
   5 #  the Free Software Foundation; either version 2 of the License, or
   6 #  (at your option) any later version.
   7 #
   8 #  This program 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
  11 #  GNU General Public License for more details.
  12 #
  13 #  You should have received a copy of the GNU General Public License
  14 #  along with this program; if not, write to the Free Software
  15 #  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
  16
  17 # Stanislav Sinyagin <ssinyagin@yahoo.com>
  18
  19
  20
  21 ## Class for report fields table
  22
  23 package Torrus::SQL::ReportFields;
  24
  25 use strict;
  26 use warnings;
  27
  28 use base 'Torrus::SQL';
  29
  30 our $VERSION = 1.0;
  31
  32 # The name of the table and columns
  33 # defaults configured in torrus-config.pl
  34 our $tableName;
  35 our %columns;
  36
  37 sub add
  38 {
  39     my $self = shift;
  40     my $reportId = shift;
  41     my $attrs = shift;
  42
  43     my $id = $self->sequenceNext();
  44
  45     $self->{'sql'}->insert({
  46         'table' => $tableName,
  47         'fields' => { $columns{'id'}         => $id,
  48                       $columns{'rep_id'}     => $reportId,
  49                       $columns{'name'}       => $attrs->{'name'},
  50                       $columns{'serviceid'}  => $attrs->{'serviceid'},
  51                       $columns{'value'}      => $attrs->{'value'},
  52                       $columns{'units'}      => $attrs->{'units'} } });
  53     return;
  54 }
  55
  56
  57 sub getAll
  58 {
  59     my $self = shift;
  60     my $reportId = shift;
  61
  62     $self->{'sql'}->select({
  63         'table' => $tableName,
  64         'where' => { $columns{'rep_id'} => $reportId },
  65         'fields' => [ $columns{'name'},
  66                       $columns{'serviceid'},
  67                       $columns{'value'},
  68                       $columns{'units'}] });
  69
  70     return $self->fetchall([ 'name', 'serviceid', 'value', 'units' ]);
  71 }
  72
  73
  74 sub removeAll
  75 {
  76     my $self = shift;
  77     my $reportId = shift;
  78
  79     $self->{'sql'}->delete({
  80         'table' => $tableName,
  81         'where' => { $columns{'rep_id'} => $reportId }});
  82     return;
  83 }
  84
  85
  86
  87
  88 1;
  89
  90
  91 # Local Variables:
  92 # mode: perl
  93 # indent-tabs-mode: nil
  94 # perl-indent-level: 4
  95 # End: