/[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 450 by dpavlin, Tue May 2 10:21:06 2006 UTC revision 451 by dpavlin, Sun May 7 19:58:43 2006 UTC
# Line 447  sub record { Line 447  sub record {
447  Return all databases which have records for selected site. Returned array of  Return all databases which have records for selected site. Returned array of
448  hashes has elements C<name> and C<label>.  hashes has elements C<name> and C<label>.
449    
450  =cut  This function does cacheing inside C<< $self->{nodes_in_site} >>, but you
451    probably didn't want to know that.
452    
453  my $nodes_list;  =cut
454    
455  sub list_nodes {  sub list_nodes {
456          my $self = shift;          my $self = shift;
# Line 457  sub list_nodes { Line 458  sub list_nodes {
458          my $site = shift || $self->{defaultnode};          my $site = shift || $self->{defaultnode};
459    
460          # cache?          # cache?
461          if ($nodes_list->{$site} && ref($nodes_list->{$site} eq 'ARRAY')) {          if ($self->{nodes_in_site}->{$site} && ref($self->{nodes_in_site}->{$site}) eq 'ARRAY') {
462                  $self->{log}->debug("list_nodes for site $site and returns from cache");                  $self->{log}->debug("list_nodes for site $site and returns from cache");
463                  return @{ $nodes_list->{$site} };                  return @{ $self->{nodes_in_site}->{$site} };
464          };          };
465    
466          $self->{log}->debug("list_nodes for site $site");          $self->{log}->debug("list_nodes for site $site");
# Line 503  sub list_nodes { Line 504  sub list_nodes {
504          $self->setup_site( $site );          $self->setup_site( $site );
505          $self->{est_node}->_set_info;          $self->{est_node}->_set_info;
506    
507          $self->{log}->dumper( \@nodes, 'nodes' );          $self->{nodes_in_site}->{$site} = \@nodes;
   
         $nodes_list->{$site} = \@nodes;  
508    
509          return @nodes;          return @nodes;
510  }  }
Legend:
Removed from v.450  
changed lines
  Added in v.451
  ViewVC Help
Powered by ViewVC 1.1.26