#!/usr/bin/perl

#use Biblio::WebPortal;
require "../WebPortal.pm";

$n = Biblio::WebPortal::opendiglib( {name => 'nat'} );

open F, ">_n2.html";
print F '$n->f1("ferramenta")', join(",",sort $n->f1("ferramenta")),"\n\n";
print F '$n->f1("tool")', join(",",sort $n->f1("tool")),"\n\n";
print F '$n->f1("Projecto Natura")', join(",",sort $n->f1("Projecto Natura")),"\n\n";


print F '$n->f1("pln")', join(",",sort $n->f1("pln")),"\n\n";
print F '$n->f1("processamento de documentos")', join(",",sort $n->f1("processamento de documentos")),"\n\n";

print F '$n->f3("perl")', join(",",$n->f3("perl")),"\n\n";

print F '$n->f3("pln")', join(",",$n->f3("pln")),"\n\n";
print F '$n->{the}->tc("pln","NT","HAS","INST")', 
         join(",",$n->{the}->tc("pln","NT","HAS","INST")),"\n\n";

print F '$n->f3("jsp")', join(",",$n->f3("jsp")),"\n\n";

print F '$n->f3(".")', join(",",$n->f3(".")),"\n\n";

print F '$n->f4("jsp","ferramenta")', join(",",sort $n->f4("jsp","ferramenta")),"\n\n";

close F;