/[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 98 by dpavlin, Tue Nov 22 12:57:30 2005 UTC revision 99 by dpavlin, Tue Nov 22 14:45:12 2005 UTC
# Line 85  sub new { Line 85  sub new {
85                  $c->config->{webpac}->{out_encoding}                  $c->config->{webpac}->{out_encoding}
86          );          );
87    
88            $log->debug("converting encoding from webpac_encoding '" ,
89                    $c->config->{webpac}->{webpac_encoding},
90                    "' to '",
91                    $c->config->{webpac}->{out_encoding},
92                    "'"
93            );
94    
95          return $self;          return $self;
96    
# Line 95  sub search { Line 101  sub search {
101    
102          my $log = $self->{log};          my $log = $self->{log};
103    
104          $log->debug("search got query: $query<--");          $log->debug("search model query: -->$query<--");
105    
106          my $template_filename = $self->{template};          my $template_filename = $self->{template};
107    
# Line 105  sub search { Line 111  sub search {
111                  max => 100,                  max => 100,
112          );          );
113    
114            $log->debug("loading " . ($#results + 1) . " results");
115    
116          for my $i ( 0 .. $#results ) {          for my $i ( 0 .. $#results ) {
117    
118                  my $mfn = $1 if ( $results[$i]->{'@uri'} =~ m#/(\d+)$#);                  my $mfn = $1 if ( $results[$i]->{'@uri'} =~ m#/(\d+)$#);
119    
120                  $log->debug("load_ds( $mfn )");                  # $log->debug("load_ds( $mfn )");
121    
122                  my $ds = $self->{db}->load_ds( $mfn ) || next;                  my $ds = $self->{db}->load_ds( $mfn ) || next;
123                  $results[$i]->{ html } = $self->{iconv}->convert(                  $results[$i]->{ html } = $self->{iconv}->convert(
Legend:
Removed from v.98  
changed lines
  Added in v.99
  ViewVC Help
Powered by ViewVC 1.1.26