Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

bug 2801 followup

Browse source 
Quell unitialized value warnings emited when
'use warnings' was added.

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
This commit is contained in:
Galen Charlton 2008-11-20 18:49:23 -06:00
parent 3cd80072f3
commit 33514a4e35
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
tools/letter.pl
View file

@ -48,6 +48,7 @@ sub StringSearch {
my $dbh = C4::Context->dbh;
$searchstring =~ s/\'/\\\'/g;
my @data = split( ' ', $searchstring );
$data[0] = '' unless @data;
my $sth = $dbh->prepare("SELECT * FROM letter WHERE (code LIKE ?) ORDER BY module, code");
$sth->execute("$data[0]%"); # slightly bogus, only searching on first string.
return $sth->fetchall_arrayref({});
@ -77,12 +78,15 @@ sub column_picks ($) {
my $input = new CGI;
my $searchfield = $input->param('searchfield');
$searchfield = '' unless defined($searchfield);
# my $offset = $input->param('offset'); # pagination not implemented
my $script_name = "/cgi-bin/koha/tools/letter.pl";
my $code = $input->param('code');
my $module = $input->param('module');
$module = '' unless defined($module);
my $content = $input->param('content');
my $op = $input->param('op');
$op = '' unless defined($op);
$searchfield =~ s/\,//g;
my $dbh = C4::Context->dbh;