[Sandweb-commit] CVS: sandweb/lib/SandWeb Browse.pm,1.69,1.70

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

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

Modified Files:
	Browse.pm 
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: Browse.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Browse.pm,v
retrieving revision 1.69
retrieving revision 1.70
diff -U2 -r1.69 -r1.70
--- Browse.pm	7 Mar 2002 08:56:35 -0000	1.69
+++ Browse.pm	7 Mar 2002 09:15:53 -0000	1.70
@@ -43,4 +43,5 @@
 	my $repo_type = $args{'repo_type'};
 	my $repo_name = $args{'repo_name'};
+	my $sort = $args{'sort'};
 
 	my $username = $self->_get_username();
@@ -73,5 +74,9 @@
 	closedir SANDBOX;
 
-	@return = sort { uc($a) cmp uc($b) } @return;
+	if ( $sort eq 'reverse-alpha' ) {
+		@return = sort { uc($b) cmp uc($a) } @return;
+	} else {
+		@return = sort { uc($a) cmp uc($b) } @return;
+	} 
 
 	my $counter=0;