/[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 292 by dpavlin, Sat Dec 17 23:41:05 2005 UTC revision 293 by dpavlin, Sun Dec 18 23:35:24 2005 UTC
# Line 193  sub search { Line 193  sub search {
193          for my $i ( 0 .. $#results ) {          for my $i ( 0 .. $#results ) {
194    
195                  my ($database, $prefix, $id);                  my ($database, $prefix, $id);
196                  if ( $results[$i]->{'@uri'} =~ m!/([^/]+)/([^/]+)#(\d+)$!) {                  if ( $results[$i]->{'@uri'} =~ m!/([^/]+)/([^/]+)/(\d+)$!) {
197                          ($database, $prefix,$id) = ($1,$2,$3);                          ($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 database/prefix/id from " .  $results[$i]->{'@uri'});
200                          next;                          next;
201                  }                  }
202    
# Line 206  sub search { Line 206  sub search {
206    
207                  my $ds = $self->{db}->load_ds( database => $database, prefix => $prefix, id => $id );                  my $ds = $self->{db}->load_ds( database => $database, prefix => $prefix, id => $id );
208                  if (! $ds) {                  if (! $ds) {
209                          $log->error("can't load_ds( ${database}/${prefix}#${id} )");                          $log->error("can't load_ds( ${database}/${prefix}/${id} )");
210                          next;                          next;
211                  }                  }
212    
Legend:
Removed from v.292  
changed lines
  Added in v.293
  ViewVC Help
Powered by ViewVC 1.1.26