--- nfo/perl/libs/OEF/Component/WebCache.pm	2003/02/11 09:46:09	1.1
+++ nfo/perl/libs/OEF/Component/WebCache.pm	2003/02/20 21:09:59	1.2
@@ -1,7 +1,10 @@
 ## ------------------------------------------------------------------------
-##  $Id: WebCache.pm,v 1.1 2003/02/11 09:46:09 joko Exp $
+##  $Id: WebCache.pm,v 1.2 2003/02/20 21:09:59 joko Exp $
 ## ------------------------------------------------------------------------
 ##  $Log: WebCache.pm,v $
+##  Revision 1.2  2003/02/20 21:09:59  joko
+##  modified runtime namespace hierarchy
+##
 ##  Revision 1.1  2003/02/11 09:46:09  joko
 ##  + initial commit
 ##
@@ -58,8 +61,8 @@
     #print Dumper($self);
     #exit;
   
-  my $proxyObj = $self->{app}->{import}->remote('HttpProxy');
-  my @results = $self->{app}->{import}->select($proxyObj, $proxyObj->{url} eq $url);
+  my $proxyObj = $self->{app}->{storage}->{import}->remote('HttpProxy');
+  my @results = $self->{app}->{storage}->{import}->select($proxyObj, $proxyObj->{url} eq $url);
   my $content = $results[0]->{content} if $results[0]->{content};
   my $oktxt = "no";
   if ($content) {
@@ -85,7 +88,7 @@
     age => $response->current_age(),
   );
   my $oktxt = "no";
-  if ($self->{app}->{import}->insert($proxyObj)) {
+  if ($self->{app}->{storage}->{import}->insert($proxyObj)) {
     $oktxt = "ok";
   }
   $logger->debug( __PACKAGE__ . "->savePageToProxy  ...$oktxt" );