Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv32043/lib/SandWeb
Modified Files:
Browse.pm
Log Message:
starting moving non-browse code out of browse method.
This checkin disables the toolbar and the current location bar.
sorry!
Index: Browse.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Browse.pm,v
retrieving revision 1.53
retrieving revision 1.54
diff -U2 -r1.53 -r1.54
--- Browse.pm 20 Feb 2002 04:46:55 -0000 1.53
+++ Browse.pm 22 Feb 2002 03:47:19 -0000 1.54
@@ -38,10 +38,4 @@
my $location = $args{'location'};
my $progname = $args{'progname'};
- my @vcs_commands;
- my $count = 0;
- while ( $args{'vcs_commands'}->[$count] ) {
- push (@vcs_commands, $args{'vcs_commands'}->[$count]);
- $count++;
- }
my $repo_type = $args{'repo_type'};
@@ -61,50 +55,4 @@
my $content = HTML::Template->new( filename => "$template_dir/browse_module.html" );
- if ($location eq '/') {
- $location = '';
- }
-
- if ($location) {
- # Security check, no "/.." or "../" allowed mister!
- $location =~ s:/\.\.::g;
- $location =~ s:\.\./::g;
- } else {
- $location = '';
- }
- my @location_link;
- push (@location_link, split( /\//, $location ));
- my @loop_data = ();
- $count = 0;
- my @location_full = ();
-
- unless ($count) {
- my %row_data;
- $row_data{LOCATION_LINK} = "[$module_name]";
- $row_data{LOCATION_FULL} = "/";
- $row_data{MODULE_NAME} = "$module_name";
- $row_data{REPO_NAME} = "$repo_name";
- $row_data{PROGNAME} = "$progname";
- push (@loop_data, \%row_data);
- $count++;
- }
-
- foreach my $link (@location_link) {
- my %row_data;
-
- if ( $link ) {
- $row_data{LOCATION_LINK} = "[$link]";
- }
- my $data = join("/", @location_full);
-
- if ($location_link[$count]) {
- push (@location_full, "/$location_link[$count]");
- }
- $row_data{LOCATION_FULL} = "$data";
- $row_data{MODULE_NAME} = "$module_name";
- $row_data{REPO_NAME} = "$repo_name";
- $row_data{PROGNAME} = "$progname";
- push (@loop_data, \%row_data);
- $count++;
- }
$content->param(
@@ -112,10 +60,10 @@
MODULE_NAME => $module_name,
LOCATION => $location,
- LOCATION_LOOP => \@loop_data,
+# LOCATION_LOOP => \@loop_data,
REPO_NAME => $repo_name,
);
my @return = ();
- @loop_data = ();
+ my @loop_data = ();
if ( opendir(SANDBOX, "$sandbox/$location") ) {
@@ -205,14 +153,73 @@
@loop_data = ();
- foreach my $vcs_command (@vcs_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;
}
+#sub get_tool_bar {
+# my @vcs_commands;
+# my $count = 0;
+# while ( $args{'vcs_commands'}->[$count] ) {
+# push (@vcs_commands, $args{'vcs_commands'}->[$count]);
+# $count++;
+# $content->param( VCS_CMD_LOOP => \@loop_data );
+# }
+# foreach my $vcs_command (@vcs_commands) {
+# my %row_data;
+# $row_data{VCS_CMD} = "$vcs_command";
+# push (@loop_data, \%row_data);
+# }
+#}
+#
+#sub get_current_location {
+#my $count;
+# if ($location eq '/') {
+# $location = '';
+# }
+#
+# if ($location) {
+# # Security check, no "/.." or "../" allowed mister!
+# $location =~ s:/\.\.::g;
+# $location =~ s:\.\./::g;
+# } else {
+# $location = '';
+# }
+# my @location_link;
+# push (@location_link, split( /\//, $location ));
+# my @loop_data = ();
+# $count = 0;
+# my @location_full = ();
+#
+# unless ($count) {
+# my %row_data;
+# $row_data{LOCATION_LINK} = "[$module_name]";
+# $row_data{LOCATION_FULL} = "/";
+# $row_data{MODULE_NAME} = "$module_name";
+# $row_data{REPO_NAME} = "$repo_name";
+# $row_data{PROGNAME} = "$progname";
+# push (@loop_data, \%row_data);
+# $count++;
+# }
+#
+# foreach my $link (@location_link) {
+# my %row_data;
+#
+# if ( $link ) {
+# $row_data{LOCATION_LINK} = "[$link]";
+# }
+# my $data = join("/", @location_full);
+#
+# if ($location_link[$count]) {
+# push (@location_full, "/$location_link[$count]");
+# }
+# $row_data{LOCATION_FULL} = "$data";
+# $row_data{MODULE_NAME} = "$module_name";
+# $row_data{REPO_NAME} = "$repo_name";
+# $row_data{PROGNAME} = "$progname";
+# push (@loop_data, \%row_data);
+# $count++;
+# }
+#}
+
sub _get_username {
my $self = shift;
@@ -238,4 +245,5 @@
return $self->{'log_obj'};
}
+
1;
|
