/[webpac2]/trunk/lib/WebPAC/Config.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/Config.pm

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

revision 685 by dpavlin, Sun Sep 24 17:24:59 2006 UTC revision 866 by dpavlin, Thu Jun 21 12:53:41 2007 UTC
# Line 14  WebPAC::Config - handle WebPAC configura Line 14  WebPAC::Config - handle WebPAC configura
14    
15  =head1 VERSION  =head1 VERSION
16    
17  Version 0.01  Version 0.02
18    
19  =cut  =cut
20    
21  our $VERSION = '0.01';  our $VERSION = '0.02';
22    
23  =head1 SYNOPSIS  =head1 SYNOPSIS
24    
# Line 92  Which indexer are we using? Line 92  Which indexer are we using?
92    
93  sub use_indexer {  sub use_indexer {
94          my $self = shift;          my $self = shift;
         my $default = 'hyperestraier';  
95          return unless ($self->{config});          return unless ($self->{config});
96          return $self->{config}->{use_indexer} || $default;          return $self->{config}->{use_indexer} || undef;
97  }  }
98    
99  =head2 get  =head2 get
# Line 136  sub webpac { Line 135  sub webpac {
135  =head2 iterate_inputs  =head2 iterate_inputs
136    
137    $config->iterate_inputs( sub {    $config->iterate_inputs( sub {
138          my $input = shift;          my ($input, $database, $database_config_hash) = @_;
139          # ... do something with input config hash          # ... do something with input config hash
140    } );    } );
141    
142    This function will also modify C<< $input->{normalize} >> to
143    be C<ARRAY>, even with just one element.
144    
145  =cut  =cut
146    
147  sub iterate_inputs {  sub iterate_inputs {
# Line 162  sub iterate_inputs { Line 164  sub iterate_inputs {
164    
165                  foreach my $input (@inputs) {                  foreach my $input (@inputs) {
166                          $log->debug("iterating over input ", dump($input));                          $log->debug("iterating over input ", dump($input));
167                          $code_ref->($input);                          if ( defined( $input->{normalize} ) && ref($input->{normalize}) ne 'ARRAY' ) {
168                                    $input->{normalize} = [ $input->{normalize} ];
169                            }
170                            $code_ref->($input, $database, $db_config);
171                  }                  }
172          }          }
173    
Legend:
Removed from v.685  
changed lines
  Added in v.866
  ViewVC Help
Powered by ViewVC 1.1.26