Lines 581-587
sub GetSubscriptions {
Link Here
|
581 |
my @sqlstrings; |
581 |
my @sqlstrings; |
582 |
my @strings_to_search; |
582 |
my @strings_to_search; |
583 |
@strings_to_search = map { "%$_%" } split( / /, $string ); |
583 |
@strings_to_search = map { "%$_%" } split( / /, $string ); |
584 |
foreach my $index qw(biblio.title subscription.callnumber subscription.location subscription.notes subscription.internalnotes) { |
584 |
foreach my $index (qw(biblio.title subscription.callnumber subscription.location subscription.notes subscription.internalnotes)) { |
585 |
push @bind_params, @strings_to_search; |
585 |
push @bind_params, @strings_to_search; |
586 |
my $tmpstring = "AND $index LIKE ? " x scalar(@strings_to_search); |
586 |
my $tmpstring = "AND $index LIKE ? " x scalar(@strings_to_search); |
587 |
$debug && warn "$tmpstring"; |
587 |
$debug && warn "$tmpstring"; |
Lines 594-600
sub GetSubscriptions {
Link Here
|
594 |
my @sqlstrings; |
594 |
my @sqlstrings; |
595 |
my @strings_to_search; |
595 |
my @strings_to_search; |
596 |
@strings_to_search = map { "%$_%" } split( / /, $issn ); |
596 |
@strings_to_search = map { "%$_%" } split( / /, $issn ); |
597 |
foreach my $index qw(biblioitems.issn subscription.callnumber) { |
597 |
foreach my $index ( qw(biblioitems.issn subscription.callnumber)) { |
598 |
push @bind_params, @strings_to_search; |
598 |
push @bind_params, @strings_to_search; |
599 |
my $tmpstring = "OR $index LIKE ? " x scalar(@strings_to_search); |
599 |
my $tmpstring = "OR $index LIKE ? " x scalar(@strings_to_search); |
600 |
$debug && warn "$tmpstring"; |
600 |
$debug && warn "$tmpstring"; |
601 |
- |
|
|