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

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

revision 94 by dpavlin, Tue Nov 22 12:57:20 2005 UTC revision 95 by dpavlin, Tue Nov 22 12:57:25 2005 UTC
# Line 8  use base qw/ Line 8  use base qw/
8          WebPAC::Search::Estraier          WebPAC::Search::Estraier
9  /;  /;
10  use Data::Dumper;  use Data::Dumper;
11    use WebPAC::DB;
12    use WebPAC::Output::TT;
13    
14  =head1 NAME  =head1 NAME
15    
# Line 52  sub new { Line 54  sub new {
54    
55          $self->{est} = new WebPAC::Search::Estraier( %{ $est_cfg } );          $self->{est} = new WebPAC::Search::Estraier( %{ $est_cfg } );
56    
57            my $db_path = $c->config->{webpac}->{db_path};
58            my $template_path = $c->config->{webpac}->{template_path};
59    
60            $log->debug("using db path '$db_path', template path '$template_path'");
61    
62            $self->{db} = new WebPAC::DB(
63                    path => $db_path,
64                    read_only => 1,
65            );
66    
67            $self->{out} = new WebPAC::Output::TT(
68                    include_path => $template_path,
69                    filters => { foo => sub { shift } },
70            );
71    
72            $self->{template} ||= $c->config->{webpac}->{template};
73    
74          return $self;          return $self;
75    
76  }  }
# Line 59  sub new { Line 78  sub new {
78  sub search {  sub search {
79          my ( $self, $query ) = @_;          my ( $self, $query ) = @_;
80    
81          $self->{log}->debug("search got query: $query<--");          my $log = $self->{log};
82    
83            $log->debug("search got query: $query<--");
84    
85            my $template_filename = $self->{template};
86    
87          my @results = $self->{est}->search(          my @results = $self->{est}->search(
88                  query => $query,                  query => $query,
# Line 67  sub search { Line 90  sub search {
90                  max => 100,                  max => 100,
91          );          );
92    
93          return @results;          for my $i ( 0 .. $#results ) {
94    
95                    my $mfn = $1 if ( $results[$i]->{'@uri'} =~ m#/(\d+)$#);
96    
97                    $log->debug("load_ds( $mfn )");
98    
99                    my $ds = $self->{db}->load_ds( $mfn ) || next;
100                    $results[$i]->{ html } = $self->{out}->apply(
101                            template => $template_filename,
102                            data => $ds,
103                    );
104            }
105    
106            return \@results;
107  }  }
108    
109    
Legend:
Removed from v.94  
changed lines
  Added in v.95
  ViewVC Help
Powered by ViewVC 1.1.26