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