[Sandweb-commit] CVS: sandweb/lib/SandWeb Browse.pm,1.13,1.14

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

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

Modified Files:
	Browse.pm 
Log Message:

Browse now selects what to show on the pull-down menu based
on repo_type



Index: Browse.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Browse.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -U2 -r1.13 -r1.14
--- Browse.pm	2001/09/28 21:51:53	1.13
+++ Browse.pm	2001/10/16 04:51:44	1.14
@@ -125,5 +125,5 @@
             push(@loop_data, \%row_data);
             $content->param(ENTRY_LOOP => \@loop_data);
-          
+
             if ($counter eq "1") {
                 $counter = 0;
@@ -135,4 +135,18 @@
 	$content->param(STATUS => 'No files.');
     }
+
+    my @loop_data = ();
+
+    my @cvs_commands = ( 'add', 'annotate', 'commit', 'diff', 'edit', 'editors', 'history', 'import', 'log', 'remove', 'status', 'tag', 'unedit', 'update', 'tag', 'unedit', 'watch', 'watchers' );
+
+    if ($repo_type eq "CVS") {
+        foreach my $vcs_command (@cvs_commands) {
+            my %row_data;
+            $row_data{VCS_CMD} = "$vcs_command";
+            push (@loop_data, \%row_data);
+        }
+            $content->param( VCS_CMD_LOOP => \@loop_data );
+    }
+
     return $content->output;
 }