View | Details | Raw Unified | Return to bug 2505
Collapse All | Expand All

(-)a/admin/admin-home.pl (+2 lines)
Lines 16-21 Link Here
16
# Suite 330, Boston, MA  02111-1307 USA
16
# Suite 330, Boston, MA  02111-1307 USA
17
17
18
use strict;
18
use strict;
19
use warnings;
20
19
use CGI;
21
use CGI;
20
use C4::Auth;
22
use C4::Auth;
21
use C4::Output;
23
use C4::Output;
(-)a/admin/roadtype.pl (-24 / +7 lines)
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
- 

Return to bug 2505