|
Lines 420-425
sub StringSearch {
Link Here
|
| 420 |
my $sth = $dbh->prepare("Select variable,value,explanation,type,options from systempreferences where (variable like ?) order by variable"); |
420 |
my $sth = $dbh->prepare("Select variable,value,explanation,type,options from systempreferences where (variable like ?) order by variable"); |
| 421 |
$sth->execute($syspref); |
421 |
$sth->execute($syspref); |
| 422 |
while ( my $data = $sth->fetchrow_hashref ) { |
422 |
while ( my $data = $sth->fetchrow_hashref ) { |
|
|
423 |
unless (defined $data->{value}) { $data->{value} = "";} |
| 423 |
$data->{shortvalue} = $data->{value}; |
424 |
$data->{shortvalue} = $data->{value}; |
| 424 |
$data->{shortvalue} = substr( $data->{value}, 0, 60 ) . "..." if defined( $data->{value} ) and length( $data->{value} ) > 60; |
425 |
$data->{shortvalue} = substr( $data->{value}, 0, 60 ) . "..." if defined( $data->{value} ) and length( $data->{value} ) > 60; |
| 425 |
push( @results, $data ); |
426 |
push( @results, $data ); |
|
Lines 452-457
sub StringSearch {
Link Here
|
| 452 |
} |
453 |
} |
| 453 |
|
454 |
|
| 454 |
while ( my $data = $sth->fetchrow_hashref ) { |
455 |
while ( my $data = $sth->fetchrow_hashref ) { |
|
|
456 |
unless (defined $data->{value}) { $data->{value} = "";} |
| 455 |
$data->{shortvalue} = $data->{value}; |
457 |
$data->{shortvalue} = $data->{value}; |
| 456 |
$data->{shortvalue} = substr( $data->{value}, 0, 60 ) . "..." if length( $data->{value} ) > 60; |
458 |
$data->{shortvalue} = substr( $data->{value}, 0, 60 ) . "..." if length( $data->{value} ) > 60; |
| 457 |
push( @results, $data ); |
459 |
push( @results, $data ); |
| 458 |
- |
|
|