Lines 63-68
sub search {
Link Here
|
63 |
push @args, "%$shelfname%"; |
63 |
push @args, "%$shelfname%"; |
64 |
} |
64 |
} |
65 |
if ( defined $owner and $owner ne '' ) { |
65 |
if ( defined $owner and $owner ne '' ) { |
|
|
66 |
$owner =~ s/^\s+|\s+$//g; # Trim leading/trailing spaces |
67 |
$owner =~ s/\s+/ /g; # Collapse multiple internal spaces to one |
66 |
my @name_parts = split ' ', $owner; |
68 |
my @name_parts = split ' ', $owner; |
67 |
|
69 |
|
68 |
if ( @name_parts == 2 ) { |
70 |
if ( @name_parts == 2 ) { |
69 |
- |
|
|