/[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 101 by dpavlin, Tue Nov 22 15:29:06 2005 UTC revision 116 by dpavlin, Wed Nov 23 21:52:20 2005 UTC
# Line 5  use warnings; Line 5  use warnings;
5  use lib '/data/webpac2/lib';  use lib '/data/webpac2/lib';
6  use base qw/  use base qw/
7          Catalyst::Model          Catalyst::Model
         WebPAC::Search::Estraier  
8  /;  /;
9  use Data::Dumper;  use Data::Dumper;
10  use WebPAC::DB;  use WebPAC::DB;
11  use WebPAC::Output::TT;  use WebPAC::Output::TT;
12    use WebPAC::Search::Estraier 0.02;
13    
14  =head1 NAME  =head1 NAME
15    
# Line 107  sub search { Line 107  sub search {
107          my $template_filename = $template || $self->{template};          my $template_filename = $template || $self->{template};
108    
109          my @results = $self->{est}->search(          my @results = $self->{est}->search(
110                  query => $query,                  phrase => $query,
111                  attr => [ '@uri' ],                  get_attr => [ '@uri' ],
112                  max => 100,                  max => 100,
113          );          );
114    
# Line 120  sub search { Line 120  sub search {
120    
121                  my $mfn = $1 if ( $results[$i]->{'@uri'} =~ m#/(\d+)$#);                  my $mfn = $1 if ( $results[$i]->{'@uri'} =~ m#/(\d+)$#);
122    
123                  # $log->debug("load_ds( $mfn )");                  #$log->debug("load_ds( $mfn )");
124    
125                  my $ds = $self->{db}->load_ds( $mfn ) || next;                  my $ds = $self->{db}->load_ds( $mfn ) || $log->error("can't load_ds( $mfn )") && next;
126                    
127                    #$log->debug( "ds = " . Dumper( \@html_results ) );
128    
129                  my $html = $self->{out}->apply(                  my $html = $self->{out}->apply(
130                          template => $template_filename,                          template => $template_filename,
131                          data => $ds,                          data => $ds,
# Line 135  sub search { Line 137  sub search {
137    
138          }          }
139    
140            #$log->debug( '@html_results = ' . Dumper( \@html_results ) );
141    
142          return \@html_results;          return \@html_results;
143  }  }
144    
Legend:
Removed from v.101  
changed lines
  Added in v.116
  ViewVC Help
Powered by ViewVC 1.1.26