bug 8215: (followup) make sure C4::CourseReserves doesn't export anything
[koha.git] / C4 / Reports.pm
1 package C4::Reports;
2
3 # Copyright 2007 Liblime Ltd
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
17 # with Koha; if not, write to the Free Software Foundation, Inc.,
18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19
20 use strict;
21 #use warnings; FIXME - Bug 2505
22 use CGI;
23
24 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
25 use C4::Context;
26 use C4::Debug;
27
28 BEGIN {
29     # set the version for version checking
30     $VERSION = 3.07.00.049;
31     require Exporter;
32     @ISA = qw(Exporter);
33     @EXPORT = qw(
34         GetDelimiterChoices
35     );
36 }
37
38 =head1 NAME
39
40 C4::Reports - Module for generating reports 
41
42 =head1 DESCRIPTION
43
44 This module contains functions common to reports.
45
46 =head1 EXPORTED FUNCTIONS
47
48 =head2 GetDelimiterChoices
49
50   my $delims = GetDelimiterChoices;
51
52 This will return a list of all the available delimiters.
53
54 =cut
55
56 sub GetDelimiterChoices {
57     my $dbh = C4::Context->dbh;
58
59     my $sth = $dbh->prepare("
60       SELECT options, value
61       FROM systempreferences
62       WHERE variable = 'delimiter'
63     ");
64
65     $sth->execute();
66
67     my ($choices, $default) = $sth->fetchrow;
68     my @dels = split /\|/, $choices;
69
70     return CGI::scrolling_list(
71                 -name     => 'sep',
72                 -id       => 'sep',
73                 -default  => $default,
74                 -values   => \@dels,
75                 -size     => 1,
76                 -multiple => 0 );
77 }
78
79 1;
80
81 __END__
82
83 =head1 AUTHOR
84
85 Jesse Weaver <jesse.weaver@liblime.com>
86
87 =cut