Changeset 204
- Timestamp:
- 03/14/06 16:10:35 (7 years ago)
- Location:
- Search-Namazu/trunk
- Files:
-
- 2 modified
Legend:
- Unmodified
- Added
- Removed
-
Search-Namazu/trunk/ChangeLog
r62 r204 1 2006-03-14 NOKUBI Takatsugu <knok@daionet.gr.jp> 2 3 * Namazu.pm: Added more error status. 4 1 5 2003-03-10 NOKUBI Takatsugu <knok@daionet.gr.jp> 2 6 -
Search-Namazu/trunk/Namazu.pm
r62 r204 2 2 # Search::Namazu.pm 3 3 # 4 # Copyright (C) 1999,200 0,2001,2002NOKUBI Takatsugu All rights reserved.4 # Copyright (C) 1999,2001-2003,2005 NOKUBI Takatsugu All rights reserved. 5 5 # This is free software with ABSOLUTELY NO WARRANTY. 6 6 # … … 184 184 @EXPORT = qw(NMZ_SORTBYDATE NMZ_SORTBYSCORE NMZ_SORTBYFIELD 185 185 NMZ_ASCENDSORT NMZ_DESCENDSORT 186 NMZ_NOT_SPECIFIED_INDEX NMZ_ERR_INDEX); 186 NMZ_NOT_SPECIFIED_INDEX NMZ_ERR_INDEX NMZ_ERR_EMPTY_QUERY 187 NMZ_ERR_RESULT_EXCEEDED); 187 188 # %EXPORT_TAGS = (all => [qw()]); 188 189 … … 201 202 sub NMZ_NOT_SPECIFIED_INDEX { return -1; } 202 203 sub NMZ_ERR_INDEX { return -2; } 204 sub NMZ_ERR_EMPTY_QUERY { return -3; } 205 sub NMZ_ERR_RESULT_EXCEEDED { return -4; } 203 206 204 207 sub Search { … … 253 256 } 254 257 255 if (defined $config) {256 if (nmz_setconfig($config)) {257 return ();258 }259 }260 261 258 if (defined $lang) { 262 259 nmz_setlang($lang); … … 266 263 267 264 if (! defined $query) { 268 return ();265 return NMZ_ERR_RESULT_EXCEEDED; 269 266 } 270 267
