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;
}
|
