--- trunk2/all2all.pl 2004/11/01 17:19:48 574 +++ trunk2/all2all.pl 2004/11/06 21:00:14 587 @@ -178,7 +178,7 @@ # strip all non word characters from beginning or end # of word - my $words = join(" ",@{$ds->{'swish'}}); + my $words = unac(join(" ",@{$ds->{'swish'}})); $words =~ s/^\W+//; $words =~ s/\W*\s+\W*/ /g; $words =~ s/\W+$//; @@ -195,7 +195,7 @@ #path => $f, path => $webpac->mfn, headline => $h, - words => unac($words), + words => $words, ); } @@ -276,6 +276,7 @@ return(9, $l->{"a:$code:"} ) if (defined($l->{"a:$code:"})); }, style => 'display: none', + iframe => 1, },{ # 1 code_arr => sub { @{$_[0]} }, @@ -285,7 +286,6 @@ lookup_mfn => sub { shift @{$l->{"900_mfn:".$_[0]}} }, have_children => sub { return $l->{"a:".$_[1].":"} }, style => 'display: none', - iframe => 1, },{ # 2 code_arr => sub { @{$_[0]} }, @@ -363,7 +363,7 @@ my $url = "thes/${mfn}.html"; return $url if (-e "./out/$url"); }, - iframe_base => '../', + nodes_dir => 'nodes', ); $tree->output( @@ -372,7 +372,6 @@ template_dir => './output_template/', template_tree => 'tree.tt', template_node => 'node.tt', - nodes => 'nodes', js => 'tree-ids.js', ); @@ -382,7 +381,6 @@ template_dir => './output_template/', template_tree => 'hijerarhija.tt', template_node => 'hijerarhija_node.tt', - nodes => 'nodes', js => 'tree-ids.js', );