[Sandweb-commit] CVS: sandweb/lib/SandWeb Repository.pm,1.21,1.22

[Rob H. <for...@us...>]

Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv20430/lib/SandWeb

Modified Files:
	Repository.pm 
Log Message:
hmm, "watchers" wasn't implemented. odd, it used to be there.


Index: Repository.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Repository.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -U2 -r1.21 -r1.22
--- Repository.pm	19 Feb 2002 09:09:13 -0000	1.21
+++ Repository.pm	20 Feb 2002 04:49:49 -0000	1.22
@@ -566,4 +566,30 @@
 }
 
+sub watchers {
+	my $self = shift;
+	my %args = @_;
+
+	my $recurse = $args{'recurse'};
+	my $set = $args{'set'};
+	my $notify = $args{'notify'};
+	my $file = $args{'file'};
+	my $repo_type = $self->get_repo_type();
+	my $root = $self->get_root();
+	my $sandbox = $self->get_sandbox();
+	my %return = {};
+	my $vcs = SandWeb::Repository::CVS->new(root => $root,
+						sandbox => $sandbox);
+
+	if ($repo_type eq 'CVS') {
+	%return = $vcs->watchers(recurse => $recurse,
+				 date => $date,
+				 set => $set,
+				 notify => $notify,
+				 file => $file );
+	} 
+
+	return %return;
+}
+
 sub get_repo_type {
 	my $self = shift;