namazu-ml(ring)

[Satoru Takabayashi <satoru@xxxxxxxxxxxxx>]

takehi-s@xxxxxxxxxxx (SHIOZAKI Takehiko) wrote:

>v1.3系列には、[namazu 337]のような<Hn>タグの要約の不具合修正は
>取り込まれないのでしょうか?

忘れていました。とりあえず、下のパッチで直ります。たぶんその
うち v1.3.0.7 をリリースします。ご報告ありがとうございます。

-- Satoru Takabayashi @ 生駒市

*** mknmz.pl~	Tue Mar 23 18:47:06 1999
--- mknmz.pl	Fri Apr  2 11:31:26 1999
***************
*** 858,867 ****
      foreach $tag (sort keys(%TAGW)) {
  	my ($tmp, $tagw);
  	$tmp = "";
! 	$$contents =~ s/<($tag)>([^<]*)<\/$tag>/weight_tag_sub($1, $2, \$tmp)/gie;
! 	$$headings .= $tmp if $tag =~ /^H[1-6]$/ && ! $NoHeadAbstOpt 
  	    && $tmp;
! 	$tagw = $tag =~ /^H[1-6]$/ && ! $NoHeadAbstOpt ? 
  	    $TAGW{$tag} : $TAGW{$tag} - 1;
  	$$weighted_str .= "\x7f$tagw\x7f$tmp\x7f/$tagw\x7f\n" if $tmp;
      }
--- 858,867 ----
      foreach $tag (sort keys(%TAGW)) {
  	my ($tmp, $tagw);
  	$tmp = "";
! 	$$contents =~ s/<($tag)>([^<]*)<\/$tag>/weight_tag_sub($1, $2, \$tmp)/gies;
! 	$$headings .= $tmp if $tag =~ /^H[1-6]$/i && ! $NoHeadAbstOpt 
  	    && $tmp;
! 	$tagw = $tag =~ /^H[1-6]$/i && ! $NoHeadAbstOpt ? 
  	    $TAGW{$tag} : $TAGW{$tag} - 1;
  	$$weighted_str .= "\x7f$tagw\x7f$tmp\x7f/$tagw\x7f\n" if $tmp;
      }