[Sitesampler-submitinfo] sitesampler/SiteSampler/Report/Urls Collection.pm,1.1,1.2

[Shane H. <sha...@us...>]

Update of /cvsroot/sitesampler/sitesampler/SiteSampler/Report/Urls
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17312/SiteSampler/Report/Urls

Modified Files:
	Collection.pm 
Log Message:
committing what is very close to another rendition of the web stats report

Index: Collection.pm
===================================================================
RCS file: /cvsroot/sitesampler/sitesampler/SiteSampler/Report/Urls/Collection.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Collection.pm	28 Aug 2005 18:47:00 -0000	1.1
--- Collection.pm	31 Aug 2005 01:59:44 -0000	1.2
***************
*** 7,9 ****
--- 7,31 ----
  sub base_class_suffix{'Url'}
  
+ sub new{
+   my $class = shift;
+   my($root_url,@params) = @_;
+   my $self = $class->SUPER::new(@params);
+   $self->url_root($root_url);
+   return($self);
+ }
+ 
+ sub fetch_obj{
+   my $self = shift;
+   my($obj_id) = @_;
+   return undef unless(defined($obj_id) && exists($self->obj_count_hash->{$obj_id}));
+   my $class = ref($self);
+   $class =~ s/Collection$//;
+   $class .= $self->base_class_suffix;
+   return $class->new($obj_id,$self->report,$self);
+ }
  
+ sub url_root{
+   my $self = shift;
+   return($self->get_set('url_root',@_));
+ }
+ 1;
\ No newline at end of file