--- trunk2/all2all.pl	2004/06/15 22:40:07	352
+++ trunk2/all2all.pl	2004/06/16 11:31:42	354
@@ -2,20 +2,18 @@
 
 =head1 NAME
 
-all2all.pl - basic script for all WebPac needs
+all2all.pl - basic script for all WebPAC needs
 
 =cut
 
 use strict;
-use OpenIsis;
-use Text::Iconv;
 use Data::Dumper;
 use Carp;
 
 use lib './lib';
-use WebPac;
+use WebPAC;
 
-my $webpac = new WebPac(
+my $webpac = new WebPAC(
 	code_page => 'ISO-8859-2',
 ) || die;
 
@@ -44,7 +42,6 @@
 	print " Uži pojam: ",join("\t\n",@t),"\n" if (@t);
 
 	@t = $webpac->fill_in($rec,'[a:v251::];;[d:[a:v251::]]');
-	@t = map { $webpac->lookup($_) => $_ } @t;
 	print " Područje: ",join("\t\n",@t),"\n" if (@t);
 
 	@t = $webpac->fill_in($rec,'[a:v561^4:v251:];;[d:[a:v561^4:v251:]]');