C4/Contract.pm

   1 package C4::Contract;
   2
   3 # Copyright 2009-2010 BibLibre SARL
   4 #
   5 # This file is part of Koha.
   6 #
   7 # Koha is free software; you can redistribute it and/or modify it under the
   8 # terms of the GNU General Public License as published by the Free Software
   9 # Foundation; either version 2 of the License, or (at your option) any later
  10 # version.
  11 #
  12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  14 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  15 #
  16 # You should have received a copy of the GNU General Public License along with
  17 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
  18 # Suite 330, Boston, MA  02111-1307 USA
  19
  20 use strict;
  21 use C4::SQLHelper qw(:all);
  22
  23 use vars qw($VERSION @ISA @EXPORT);
  24
  25 BEGIN {
  26         # set the version for version checking
  27         $VERSION = 3.2;
  28     require Exporter;
  29         @ISA    = qw(Exporter);
  30         @EXPORT = qw(
  31                 &GetContract
  32                 &AddContract
  33                 &ModContract
  34                 &DelContract
  35         );
  36 }
  37
  38 =head1 NAME
  39
  40 C4::Contract - Koha functions for dealing with bookseller contracts.
  41
  42 =head1 SYNOPSIS
  43
  44 use C4::Contract;
  45
  46 =head1 DESCRIPTION
  47
  48 The functions in this module deal with contracts. They allow to
  49 add a new contract, to modify it or to get some informations around
  50 a contract.
  51
  52 This module is just a wrapper for C4::SQLHelper functions, so take a look at
  53 SQLHelper centralised documentation to know how to use the following subs.
  54
  55 =cut
  56
  57 sub GetContract { SearchInTable("aqcontract", shift); }
  58
  59 sub AddContract { InsertInTable("aqcontract", shift); }
  60
  61 sub ModContract { UpdateInTable("aqcontract", shift); }
  62
  63 sub DelContract { DeleteInTable("aqcontract", shift); }
  64
  65 1;
  66
  67 __END__
  68
  69 =head1 AUTHOR
  70
  71 Koha Developement team <info@koha.org>
  72
  73 =cut