File Coverage

File:C4/Reports.pm
Coverage:78.1%

linestmtbrancondsubtimecode
1package 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
2
2
2
2
4822
19
65
use strict;
21#use warnings; FIXME - Bug 2505
22
2
2
2
2
247
14611
62
use CGI;
23
24
2
2
2
2
166
20
169
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
25
2
2
2
2
50
17
35
use C4::Context;
26
2
2
2
2
21
15
328
use C4::Debug;
27
28BEGIN {
29    # set the version for version checking
30
2
2
15
    $VERSION = 0.13;
31
2
20
    require Exporter;
32
2
30
    @ISA = qw(Exporter);
33
2
376
    @EXPORT = qw(
34        GetDelimiterChoices
35    );
36}
37
38 - 54
=head1 NAME

C4::Reports - Module for generating reports 

=head1 DESCRIPTION

This module contains functions common to reports.

=head1 EXPORTED FUNCTIONS

=head2 GetDelimiterChoices

  my $delims = GetDelimiterChoices;

This will return a list of all the available delimiters.

=cut
55
56sub GetDelimiterChoices {
57
0
0
    my $dbh = C4::Context->dbh;
58
59
0
    my $sth = $dbh->prepare("
60      SELECT options, value
61      FROM systempreferences
62      WHERE variable = 'delimiter'
63    ");
64
65
0
    $sth->execute();
66
67
0
    my ($choices, $default) = $sth->fetchrow;
68
0
    my @dels = split /\|/, $choices;
69
70
0
    return CGI::scrolling_list(
71                -name => 'sep',
72                -id => 'sep',
73                -default => $default,
74                -values => \@dels,
75                -size => 1,
76                -multiple => 0 );
77}
78
791;
80