[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.256,1.257

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

Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv3626/bin

Modified Files:
	sandweb.cgi 
Log Message:
ok, some of the basic framework is there for supporting alpha/reverse alpha
sorting, need to keep state of the last one though. I'm going to leave it here
for tonite.



Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.256
retrieving revision 1.257
diff -U2 -r1.256 -r1.257
--- sandweb.cgi	7 Mar 2002 08:37:14 -0000	1.256
+++ sandweb.cgi	7 Mar 2002 09:15:53 -0000	1.257
@@ -183,4 +183,5 @@
 					module_name => $module_name,
 					repo_name => $repo_name,
+					sort => CGI::param('sort'),
 				);
 			}
@@ -553,4 +554,5 @@
 	my $users_dir = $config->{'paths'}->{'users_dir'} || '';
 	my $repo_name = $args{'repo_name'};
+	my $sort = $args{'sort'};
 
 	my $repo_server = $user->get_repo_server(repo => $repo_name);
@@ -590,4 +592,5 @@
 		'template_dir' => $template_dir,
 		'vcs_commands' => \@vcs_commands,
+		'sort' => $sort,
 		'users_dir' => $users_dir,
 		'log_obj' => $log,
@@ -654,4 +657,5 @@
 		'repo_type' => $repo_type,
 		'repo_name' => $repo_name,
+		'sort' => $sort,
 	);
 
@@ -663,7 +667,13 @@
 	}
 
+	$sort = 'alpha';
+
 	my $browser_menu = $ui->get_menu( 
 		MENU => 'browse_module',
 		ENTRY_LOOP => \@loop_data,
+		MODULE_NAME => $module_name,
+		REPO_NAME => $repo_name,
+		LOCATION => $location,
+		SORT => $sort,
 	);