*** eprints-3.0.1.orig/bin/epadmin	Fri May 25 10:42:04 2007
--- eprints-3.0.1/bin/epadmin	Wed Jun 13 10:06:05 2007
***************
*** 695,701 ****
  	close CORE;
  	print "Wrote $corefile\n";
  
! 	my $anamefile = "$repodir/cfg/lang/en/phrases/archive_name.xml";
  	open( ANAME, ">$anamefile" ) || die "Could not write to $anamefile: $!";
  	print ANAME <<END;
  <?xml version="1.0" encoding="iso-8859-1" standalone="no" ?>
--- 695,705 ----
  	close CORE;
  	print "Wrote $corefile\n";
  
! 	my $langs = do "$repodir/cfg/cfg.d/languages.pl" ;
! 	foreach my $lang (@$langs ) 
! 	{
! 
! 	my $anamefile = "$repodir/cfg/lang/$langs/phrases/archive_name.xml";
  	open( ANAME, ">$anamefile" ) || die "Could not write to $anamefile: $!";
  	print ANAME <<END;
  <?xml version="1.0" encoding="iso-8859-1" standalone="no" ?>
***************
*** 710,715 ****
--- 714,720 ----
  END
  	close( ANAME );
  	print "Wrote $anamefile\n";
+ 	}
  }
  
  sub config_db