/[webpac2]/trunk/lib/WebPAC/Search/Estraier.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Search/Estraier.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 122 by dpavlin, Wed Nov 23 21:52:55 2005 UTC revision 123 by dpavlin, Wed Nov 23 21:53:01 2005 UTC
# Line 132  sub search { Line 132  sub search {
132    
133          my $q = $args->{phrase};          my $q = $args->{phrase};
134    
135            $log->debug("args: " . Dumper( $args ));
136    
137          my $cond = HyperEstraier::Condition->new();          my $cond = HyperEstraier::Condition->new();
138          if ( ref($args->{add_attr}) eq 'ARRAY' ) {          if ( ref($args->{add_attr}) eq 'ARRAY' ) {
139                  $log->debug("adding search attributes: " . join(", ", @{ $args->{add_attr} }) );                  $log->debug("adding search attributes: " . join(", ", @{ $args->{add_attr} }) );
140                  map {                  map {
141                          $cond->add_attr( $self->{iconv}->conver( $_ ) );                          $cond->add_attr( $self->{iconv}->convert( $_ ) );
142                          $log->debug(" + $_");                          $log->debug(" + $_");
143                  } $args->{add_attr};                  } @{ $args->{add_attr} };
144          }          };
145    
146          $cond->set_phrase( $self->{iconv}->convert($q) ) if ($q);          $cond->set_phrase( $self->{iconv}->convert($q) ) if ($q);
147          $cond->set_max( $args->{max} ) if ($args->{max});          $cond->set_max( $args->{max} ) if ($args->{max});
Legend:
Removed from v.122  
changed lines
  Added in v.123
  ViewVC Help
Powered by ViewVC 1.1.26