Lines 18-23
Link Here
|
18 |
# Suite 330, Boston, MA 02111-1307 USA |
18 |
# Suite 330, Boston, MA 02111-1307 USA |
19 |
|
19 |
|
20 |
use strict; |
20 |
use strict; |
|
|
21 |
use warnings; |
22 |
|
21 |
use CGI; |
23 |
use CGI; |
22 |
use C4::Context; |
24 |
use C4::Context; |
23 |
use C4::Output; |
25 |
use C4::Output; |
Lines 25-51
use C4::Auth;
Link Here
|
25 |
|
27 |
|
26 |
|
28 |
|
27 |
sub StringSearch { |
29 |
sub StringSearch { |
28 |
my ($searchstring,$type)=@_; |
30 |
my $sth = C4::Context->dbh->prepare("Select * from roadtype where (road_type like ?) ORDER BY road_type"); |
29 |
my $dbh = C4::Context->dbh; |
31 |
$sth->execute((shift || '') . '%'); |
30 |
$searchstring=~ s/\'/\\\'/g; |
32 |
return $sth->fetchall_arrayref({}); |
31 |
my @data=split(' ',$searchstring); |
|
|
32 |
my $count=@data; |
33 |
my $sth=$dbh->prepare("Select * from roadtype where (road_type like ?)"); |
34 |
$sth->execute("$data[0]%"); |
35 |
my @results; |
36 |
while (my $data=$sth->fetchrow_hashref){ |
37 |
push(@results,$data); |
38 |
} |
39 |
# $sth->execute; |
40 |
$sth->finish; |
41 |
return (scalar(@results),\@results); |
42 |
} |
33 |
} |
43 |
|
34 |
|
44 |
my $input = new CGI; |
35 |
my $input = new CGI; |
45 |
my $searchfield=$input->param('road_type'); |
36 |
my $searchfield=$input->param('road_type'); |
46 |
my $script_name="/cgi-bin/koha/admin/roadtype.pl"; |
37 |
my $script_name="/cgi-bin/koha/admin/roadtype.pl"; |
47 |
my $roadtypeid=$input->param('roadtypeid'); |
38 |
my $roadtypeid=$input->param('roadtypeid'); |
48 |
my $op = $input->param('op'); |
39 |
my $op = $input->param('op') || ''; |
49 |
|
40 |
|
50 |
my ($template, $loggedinuser, $cookie) |
41 |
my ($template, $loggedinuser, $cookie) |
51 |
= get_template_and_user({template_name => "admin/roadtype.tmpl", |
42 |
= get_template_and_user({template_name => "admin/roadtype.tmpl", |
Lines 139-152
if ($op eq 'add_form') {
Link Here
|
139 |
# END $OP eq DELETE_CONFIRMED |
130 |
# END $OP eq DELETE_CONFIRMED |
140 |
} else { # DEFAULT |
131 |
} else { # DEFAULT |
141 |
$template->param(else => 1); |
132 |
$template->param(else => 1); |
142 |
my @loop; |
133 |
$template->param(loop => StringSearch($searchfield)); |
143 |
my ($count,$results)=StringSearch($searchfield,'web'); |
|
|
144 |
for (my $i=0; $i < $count; $i++){ |
145 |
my %row = (roadtypeid => $results->[$i]{'roadtypeid'}, |
146 |
road_type => $results->[$i]{'road_type'}); |
147 |
push @loop, \%row; |
148 |
} |
149 |
$template->param(loop => \@loop); |
150 |
|
134 |
|
151 |
|
135 |
|
152 |
} #---- END $OP eq DEFAULT |
136 |
} #---- END $OP eq DEFAULT |
153 |
- |
|
|