|
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 |
- |
|
|