--- trunk/Estraier.pm 2006/05/09 12:42:39 135 +++ trunk/Estraier.pm 2006/05/09 14:03:36 136 @@ -1781,11 +1781,11 @@ map { croak "need parametar '$_' for action '$action'" unless ($args->{$_}); push @args, $_ . '=' . uri_escape( $args->{$_} ); - } ( keys %{ $rest->{required} } ); + } ( @{ $rest->{required} } ); map { push @args, $_ . '=' . uri_escape( $args->{$_} ) if ($args->{$_}); - } ( keys %{ $rest->{optional} } ); + } ( @{ $rest->{optional} } ); } @@ -1819,6 +1819,7 @@ return @results; } elsif ($resbody) { + chomp $resbody; return $resbody; } else { return 0E0;