/[webpac]/trunk2/all2all.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk2/all2all.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 562 by dpavlin, Sat Oct 30 23:56:57 2004 UTC revision 572 by dpavlin, Mon Nov 1 14:55:16 2004 UTC
# Line 36  my $result = GetOptions( Line 36  my $result = GetOptions(
36  my $filter = {  my $filter = {
37          'CROVOC' => sub {          'CROVOC' => sub {
38                  my $tmp = shift || return;                  my $tmp = shift || return;
39                    $tmp =~ s/\s*HIDRA.*//;
40                  return undef unless ($tmp =~ s/\s*CROVOC.*$/ #C#/);                  return undef unless ($tmp =~ s/\s*CROVOC.*$/ #C#/);
41                  # remove repeating stars                  # remove repeating stars
42                  # FIXME this should be fixed at right place, not here!                  # FIXME this should be fixed at right place, not here!
# Line 46  my $filter = { Line 47  my $filter = {
47                  my $tmp = shift || return;                  my $tmp = shift || return;
48                  $tmp =~ s/\s*CROVOC.*$/ <img src="img\/crovoc.png" border="0">/;                  $tmp =~ s/\s*CROVOC.*$/ <img src="img\/crovoc.png" border="0">/;
49                  $tmp =~ s/\s*EUROVOC.*//;                  $tmp =~ s/\s*EUROVOC.*//;
50                    $tmp =~ s/\s*HIDRA.*//;
51                  return $tmp;                  return $tmp;
52          },          },
53          # TT filter          # TT filter
# Line 283  my @tree = ({ Line 285  my @tree = ({
285          lookup_mfn      => sub { shift @{$l->{"900_mfn:".$_[0]}} },          lookup_mfn      => sub { shift @{$l->{"900_mfn:".$_[0]}} },
286          have_children   => sub { return $l->{"a:".$_[1].":"} },          have_children   => sub { return $l->{"a:".$_[1].":"} },
287          style           => 'display: none',          style           => 'display: none',
288            iframe          => 1,
289          },{          },{
290          # 2          # 2
291          code_arr        => sub { @{$_[0]} },          code_arr        => sub { @{$_[0]} },
# Line 291  my @tree = ({ Line 294  my @tree = ({
294          lookup_term     => sub { shift @{$l->{"d:".$_[0]}} },          lookup_term     => sub { shift @{$l->{"d:".$_[0]}} },
295          lookup_mfn      => sub { shift @{$l->{"900_mfn:".$_[0]}} },          lookup_mfn      => sub { shift @{$l->{"900_mfn:".$_[0]}} },
296          have_children   => sub { return $l->{"a:".$_[1].":".$_[0]} },          have_children   => sub { return $l->{"a:".$_[1].":".$_[0]} },
297          #style          => 'display: none',          style           => 'display: none',
298          },{          },{
299          # 3 uži pojam          # 3 uži pojam
300          code_arr        => sub { @{$_[0]} },          code_arr        => sub { @{$_[0]} },
# Line 360  my $tree = new WebPAC::Tree( Line 363  my $tree = new WebPAC::Tree(
363  $tree->output(  $tree->output(
364          dir => './out',          dir => './out',
365          html => 'browse.html',          html => 'browse.html',
366          template => './output_template/tree.tt',          template_dir => './output_template/',
367            template_tree => 'tree.tt',
368            template_node => 'node.tt',
369            nodes => 'nodes',
370          js => 'tree-ids.js',          js => 'tree-ids.js',
371  );  );
372    
373  $tree->output(  $tree->output(
374          dir => './eurovoc',          dir => './eurovoc',
375          html => 'hijerarhija.html',          html => 'hijerarhija.html',
376          template => './output_template/hijerarhija.tt',          template_dir => './output_template/',
377            template_tree => 'hijerarhija.tt',
378            template_node => 'hijerarhija_node.tt',
379            nodes => 'nodes',
380          js => 'tree-ids.js',          js => 'tree-ids.js',
381  );  );
382    
Legend:
Removed from v.562  
changed lines
  Added in v.572
  ViewVC Help
Powered by ViewVC 1.1.26