--- trunk2/all2all.pl	2004/06/15 22:40:07	352
+++ trunk2/all2all.pl	2004/06/16 11:29:37	353
@@ -7,8 +7,6 @@
 =cut
 
 use strict;
-use OpenIsis;
-use Text::Iconv;
 use Data::Dumper;
 use Carp;
 
@@ -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:]]');