[Sandweb-commit] CVS: sandweb/lib/SandWeb Repository.pm,1.52,1.53

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

Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory sc8-pr-cvs1:/tmp/cvs-serv9806/lib/SandWeb

Modified Files:
	Repository.pm 
Log Message:
* started implementing groups for valid VCS commands


Index: Repository.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Repository.pm,v
retrieving revision 1.52
retrieving revision 1.53
diff -U2 -r1.52 -r1.53
--- Repository.pm	1 Apr 2003 02:46:26 -0000	1.52
+++ Repository.pm	8 Jul 2003 23:21:23 -0000	1.53
@@ -2492,4 +2492,16 @@
 }
 
+# FIXME needs documentation
+
+sub get_vcs {
+	my $self = shift;
+	if ($self->{'vcs'}) {
+		return \$self->{'vcs'};
+	}
+	else {
+		return 0;
+	}
+}
+
 =head1
 
@@ -2526,31 +2538,47 @@
 =cut
 
-sub get_vcs {
+sub get_vcs_commands {
 	my $self = shift;
-	if ($self->{'vcs'}) {
-		return \$self->{'vcs'};
-	}
-	else {
+	my %args = @_;
+
+	my $group = $args{'group'} || '';
+
+	if ($group eq 'read-only'){
+		return (
+			'annotate', 
+			'diff', 
+			'editors', 
+			'history', 
+			'log', 
+			'status', 
+			'update', 
+		);
+
+	} elsif ($group eq 'simple'){
+		return(
+			'add', 
+			'commit', 
+			'update', 
+		);
+	} elsif ($group eq 'all'){
+		return ( 
+			'add', 
+			'annotate', 
+			'branch',
+			'commit', 
+			'diff', 
+			'edit', 
+			'editors', 
+			'history', 
+			'log', 
+			'remove', 
+			'status', 
+			'tag', 
+			'unedit', 
+			'update', 
+		 );
+	} else {
 		return 0;
 	}
-}
-
-sub get_vcs_commands {
-	return ( 
-		'add', 
-		'annotate', 
-		'branch',
-		'commit', 
-		'diff', 
-		'edit', 
-		'editors', 
-		'history', 
-		'log', 
-		'remove', 
-		'status', 
-		'tag', 
-		'unedit', 
-		'update', 
-	 );
 }