Namazu-users-ja(旧)

["Hiroaki, Sakuma" <nlug@xxxxxxxxxxxxxxxxx>]

こんにちは。佐久間です。

開発ご苦労様です。

> 古川です。
>
> nlug> 設定ですが、
> nlug> $RespTextOrig=0;
> nlug> を
> nlug> $RespTextOrig=1;
> nlug> に変えただけです。この部分が、初期のままだとフォームは表示されます。
>
> 分かりました。
>
> --- namazu.pl.orig      Tue Jun 26 01:54:52 2001
> +++ namazu.pl   Tue Aug 21 01:32:26 2001
> @@ -261,7 +261,7 @@
>  sub tag_elem{
>      my ($str, $key, $val) = @_;
>
> -    if ($val ne ''){
> +    if (defined $val){
>          $str =~ s/($key\s*\=\s*\")([^\"]*)(\")/$1$val$3/i
>              || $str =~ s/($key\s*\=\s*)(\S*)/$1$val/i
>                  || $str =~ s/\s*\>/ $key=\"$val\"\>/; #"
>
> でどうでしょう？

こちらで無事動作するようになりました。

また、昨晩、新たな問題が起こりました。
前回同様、
$RespTextOrig=1;
としたpNamazuで、検索文字に%22(")が含まれていると、フォーム内ではHTMLエン
コードされないために、フォーム周辺のHTMLがおかしくなってしまいます。
私は、headcatサブルーチン内の、


if ($tag eq 'input') {
  my($type)=&tag_elem($_, 'type');
  $type =~ tr/A-Z/a-z/;
  if ($type eq 'text' and $name eq 'key' || $name eq 'query') {
    if ($RespTextOrig) {
-     $_=&tag_elem($_, 'value', $KeyStr);


部分を、


if ($tag eq 'input') {
  my($type)=&tag_elem($_, 'type');
  $type =~ tr/A-Z/a-z/;
  if ($type eq 'text' and $name eq 'key' || $name eq 'query') {
    if ($RespTextOrig) {
      $tmp=&metach($KeyStr);
+     $_=&tag_elem($_, 'value', $tmp);


として回避しいています。
古川さんで確認していただけますでしょうか？

+----+----+----+----+----+----+
佐久間 浩彰
nlug@xxxxxxxxxxxxxxxxx

I love IBM ! (^^)

AUDIOSITE >>
■ http://www.audiosite-web.com/
AUDIOWEBSITE.NET >>
■ http://www.audiowebsite.net/
BEETAS.COM >>
■ http://www.beetas.com/