# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
-use strict;
-#use warnings; FIXME - Bug 2505
+use Modern::Perl;
use CGI qw ( -utf8 );
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
use C4::Context;
-use C4::Debug;
+our (@ISA, @EXPORT_OK);
BEGIN {
- # set the version for version checking
require Exporter;
@ISA = qw(Exporter);
- @EXPORT = qw(
+ @EXPORT_OK = qw(
GetDelimiterChoices
);
}
my $sth = $dbh->prepare("
SELECT options, value
FROM systempreferences
- WHERE variable = 'delimiter'
+ WHERE variable = 'CSVDelimiter'
");
$sth->execute();