Gossamer Forum: Products: DBMan SQL: Discussion: multiple sort

Here's a copy from our support tickets. Everybody might be interested in using it :

You could do the same modification in Dbsql 2.x by following the
instructions below:
1. Add two new sub below into Dbsql/HTML.pm

Code:
sub generate_so_list {  
#----------------------------------------------------------------------  
my $name = shift;  
my $tags = GT::Template->tags;  
my $so = $tags->{home}->{disp}->select ( {  name => $name,  
                                            values => {  ASC => 'Ascending',  
                                                              DESC=> 'Descending'  
                                                        },  
                                            default => $tags->{home}-> {cgi}->{$name},  
                                            blank => 0 });  
return $so;  
}  
sub generate_sb_list {  
#----------------------------------------------------------------------  
my $name = shift;  
my $tags = GT::Template->tags;  
my $c = $tags->{home}->{db}->cols;  
my ($hash, $order) = ({}, []);  
foreach my $col (sort {  
    defined ($c->{$a}->{pos}) or warn "No pos for $a\n";  
    defined ($c->{$b}->{pos}) or warn "No pos for $b\n";  
    $c->{$a}->{'pos'} <=> $c->{$b}->{'pos'}  
} keys %$c) {  
            $hash->{$col} = $c->{$col}->{view_name} || $col;  
            push @$order, $col;  
            }  
my $sb = $tags->{home}->{disp}->select ( {  
                                            name => $name,  
                                            values => $hash,  
                                            sort_order => $order,  
                                            default => $tags->{home}->{cgi}->{$name},  
                                            blank => 1 });  
return $sb;  
} 
 

then add tags like :
<%Dbsql::HTML::generate_sb_list('sb1')%><%Dbsql::HTML::generate_so_list
('so1')%>
<%Dbsql::HTML::generate_sb_list('sb2')%><%Dbsql::HTML::generate_so_list
('so2')%>
.....
into your search_form template. These functions will generate
automatically select lists with name sb1,so1 ...etc from your
current collumns (or if you like you can add these HTML code directly
to the template and ignore this step)

2. Add this code (asuming you have 6 columns to sort by)

Code:

#---NEW CODE ----  
$self->{cgi}->{sb} = '';  
my $order = join ',' => map {$self->{cgi}->{"sb$_"}.' '.$self->{cgi}->{"so$_"}} (1..6) ;  
($order) and $self->{db}->select_options ("ORDER BY $order") ;  
#---END NEW CODE ----  

into Dbsql/Home.pm (sub process), below the line (around line 19)
$self->{disp} = $self->{sql}->html ($self->{db}, $self->{cgi});

Cheers,
Jean@Gossamer Threads