Changeset 251
- Timestamp:
- 03/30/06 15:40:23 (6 years ago)
- Location:
- Search-Namazu/trunk/Search-Namazu
- Files:
-
- 2 modified
Legend:
- Unmodified
- Added
- Removed
-
Search-Namazu/trunk/Search-Namazu/ChangeLog
r250 r251 2 2 3 3 * Namazu.pm (Search): Added "sortField" method. 4 Fixed constants. 4 //Fixed constants. - reverted 5 Changed value check. 5 6 6 7 * Namazu.xs (call_search_main): Fixed half of results bug. -
Search-Namazu/trunk/Search-Namazu/Namazu.pm
r250 r251 245 245 use Carp; 246 246 247 sub NMZ_SORTBYSCORE { return 0; }248 247 sub NMZ_SORTBYDATE { return 1; } 249 sub NMZ_SORTBYFIELD { return 2; } 250 sub NMZ_ASCENDSORT { return 0; } 251 sub NMZ_DESCENDSORT { return 1; } 248 sub NMZ_SORTBYSCORE { return 2; } 249 sub NMZ_SORTBYFIELD { return 3; } 250 sub NMZ_ASCENDSORT { return 16; } 251 sub NMZ_DESCENDSORT { return 32; } 252 252 253 253 sub NMZ_NOT_SPECIFIED_INDEX { return -1; } … … 263 263 my %args = @_; 264 264 my $index = $args{'index'}; 265 my $sortmeth = $args{'sortMethod'} ;266 my $sortord = $args{'sortOrder'} ;267 my $sortfield = $args{'sortField'} ;265 my $sortmeth = $args{'sortMethod'} || -1; 266 my $sortord = $args{'sortOrder'} || -1; 267 my $sortfield = $args{'sortField'} || -1; 268 268 my $lang = $args{'lang'}; 269 269 my $query = $args{'query'}; … … 294 294 # set paramater 295 295 296 if (!defined $sortmeth) { 297 nmz_sortbydate(); 298 } elsif ( $sortmeth == NMZ_SORTBYDATE) { 296 if ( $sortmeth == NMZ_SORTBYDATE) { 299 297 nmz_sortbydate(); 300 298 } elsif ($sortmeth == NMZ_SORTBYSCORE) { … … 307 305 } 308 306 309 if (!defined $sortord) { 310 nmz_descendingsort(); 311 } elsif ($sortord == NMZ_DESCENDSORT) { 307 if ($sortord == NMZ_DESCENDSORT) { 312 308 nmz_descendingsort(); 313 309 } elsif ($sortord == NMZ_ASCENDSORT) { … … 324 320 # query and get hlist 325 321 326 if (! defined $query) {322 if (!defined $query) { 327 323 return NMZ_ERR_RESULT_EXCEEDED; 328 324 }
