Subversion Repositories wimsdev

Rev

Rev 17221 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 17221 Rev 18617
Line 475... Line 475...
475 
 
 475 
 
476 
sub dbg { print STDERR "$_[0]\n" if ($verbose); }
 476 
sub dbg { print STDERR "$_[0]\n" if ($verbose); }
477 
 
 477 
 
478 
sub store_index { my ($label, $Id, $ref_index) = @_;
 478 
sub store_index { my ($label, $Id, $ref_index) = @_;
479 
  dbg("... index: \"$label\"");
 479 
  dbg("... index: \"$label\"");
- 
 
 480 
  my $labelmod=$label;
480 
  $label=~s/[^\w]+//g;
 481 
  $label=~s/[^\w]+//g;
481 
  $label=treate_accent($label);
 482 
  $label=treate_accent($label);
482 
  my $L = $ref_index->{page}{$label};
 483 
  my $L = $ref_index->{page}{$labelmod};
483 
  $ref_index->{page}{$label} = !$L ? $Id : "$L,$Id";
 484 
  $ref_index->{page}{$label} = !$L ? $Id : "$L,$Id";
484 
  "<a id=\"$label\"></a>";
 485 
  "<a id=\"$label\"></a>";
485 
}
 486 
}
486 
## FIXME ! has disappeared in store_index because of label
 487 
## FIXME ! has disappeared in store_index because of label
487 
sub class_index { my ($index,$level) = @_ ;
 488 
sub class_index { my ($index,$level) = @_ ;