\@LANGUAGES );
debug( "LANGUAGES=@LANGUAGES header=".
$input->http("Accept-Language").
- " http_lang=$http_lang", 2 );
+ " http_lang=$http_lang", 2 ) if DEBUG;
bindtextdomain ( 'pdo', $LOCALES );
textdomain( 'pdo' );
shift @components;
$input->param( 'source', 1 );
}
- if (@components > 1 and $components[0] eq 'search') {
+ if (@components > 0 and $components[0] eq 'search') {
shift @components;
$what_to_do = 'search';
# Done