/[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 228 by dpavlin, Mon Dec 5 23:15:43 2005 UTC revision 237 by dpavlin, Tue Dec 6 23:49:13 2005 UTC
# Line 7  use base qw/ Line 7  use base qw/
7          Catalyst::Model          Catalyst::Model
8  /;  /;
9  use Data::Dumper;  use Data::Dumper;
10  use WebPAC::Store 0.03;  use WebPAC::Store 0.08;
11  use WebPAC::Output::TT 0.02;  use WebPAC::Output::TT 0.02;
12  use WebPAC::Search::Estraier 0.05;  use WebPAC::Search::Estraier 0.05;
13  use File::Slurp;  use File::Slurp;
# Line 192  sub search { Line 192  sub search {
192    
193          for my $i ( 0 .. $#results ) {          for my $i ( 0 .. $#results ) {
194    
195                  my ($id, $prefix);                  my ($database, $prefix, $id);
196                  if ( $results[$i]->{'@uri'} =~ m!/([^/]+)#(\d+)$!) {                  if ( $results[$i]->{'@uri'} =~ m!/([^/]+)/([^/]+)#(\d+)$!) {
197                          ($prefix,$id) = ($1,$2);                          ($database, $prefix,$id) = ($1,$2,$3);
198                  } else {                  } else {
199                          $log->warn("can't decode prefix#id from " .  $results[$i]->{'@uri'});                          $log->warn("can't decode prefix#id from " .  $results[$i]->{'@uri'});
200                          next;                          next;
# Line 204  sub search { Line 204  sub search {
204    
205                  $t = time();                  $t = time();
206    
207                  my $ds = $self->{db}->load_ds( id => $id, prefix => $prefix ) || $log->error("can't load_ds( id => $id, prefix => '$prefix' )") && next;                  my $ds = $self->{db}->load_ds( database => $database, prefix => $prefix, id => $id ) || $log->error("can't load_ds( $database / $prefix # $id )") && next;
208    
209                  $times->{db} += time() - $t;                  $times->{db} += time() - $t;
210    
# Line 215  sub search { Line 215  sub search {
215                  my $html = $self->{out}->apply(                  my $html = $self->{out}->apply(
216                          template => $template_filename,                          template => $template_filename,
217                          data => $ds,                          data => $ds,
218                            record_uri => "${database}/${prefix}#${id}",
219                  );                  );
220    
221                  $times->{out} += time() - $t;                  $times->{out} += time() - $t;
Legend:
Removed from v.228  
changed lines
  Added in v.237
  ViewVC Help
Powered by ViewVC 1.1.26