Lines Matching refs:rsd
83 if ($j == $i) { $rsd[$j] = $rsd[$j] * -1; }
84 if ($rsd[$j] == -1) { print "-"; }
85 if ($j == $i) { $rsd[$j] = $rsd[$j] * -1; }
107 # rsd = Result Sort Direction
110 @rsd = (1, 1, -1, 1);
124 if ($so[$i] =~ /-/) { $rsd[$i] = -1; }
125 else { $rsd[$i] = 1; }
155 @ri = sort { ($a->{$rso[0]} cmp $b->{$rso[0]})*$rsd[0]
156 || ($a->{$rso[1]} cmp $b->{$rso[1]})*$rsd[1]
157 || ($a->{$rso[2]} cmp $b->{$rso[2]})*$rsd[2]
158 || ($a->{$rso[3]} cmp $b->{$rso[3]})*$rsd[3] } @ri;
