Lines 70-83
sub StringSearch {
Link Here
|
70 |
|
70 |
|
71 |
my $strsth = "Select variable,value,explanation,type,options from systempreferences where variable in ("; |
71 |
my $strsth = "Select variable,value,explanation,type,options from systempreferences where variable in ("; |
72 |
my $first = 1; |
72 |
my $first = 1; |
|
|
73 |
my @sql_bind; |
73 |
for my $name ( get_local_prefs() ) { |
74 |
for my $name ( get_local_prefs() ) { |
74 |
$strsth .= ',' unless $first; |
75 |
$strsth .= ',' unless $first; |
75 |
$strsth .= "'$name'"; |
76 |
$strsth .= "?"; |
|
|
77 |
push(@sql_bind,$name); |
76 |
$first = 0; |
78 |
$first = 0; |
77 |
} |
79 |
} |
78 |
$strsth .= ") order by variable"; |
80 |
$strsth .= ") order by variable"; |
79 |
$sth = $dbh->prepare($strsth); |
81 |
$sth = $dbh->prepare($strsth); |
80 |
$sth->execute(); |
82 |
$sth->execute(@sql_bind); |
81 |
|
83 |
|
82 |
while ( my $data = $sth->fetchrow_hashref ) { |
84 |
while ( my $data = $sth->fetchrow_hashref ) { |
83 |
unless (defined $data->{value}) { $data->{value} = "";} |
85 |
unless (defined $data->{value}) { $data->{value} = "";} |
84 |
- |
|
|