*** ../3-orig/perl_lib/EPrints/Language.pm	Thu Mar  4 20:02:49 2004
--- perl_lib/EPrints/Language.pm	Tue Apr 13 16:13:51 2004
***************
*** 216,232 ****
  		if( $name eq "pin" )
  		{
  			my $ref = $node->getAttribute( "ref" );
! 			my $repl;
! 			if( defined $inserts->{$ref} )
  			{
! 				if( $used->{$ref} )
  				{
  					$retnode = EPrints::XML::clone_node( 
! 						$inserts->{$ref}, 1 );
  				}
  				else
  				{
! 					$retnode = $inserts->{$ref};
  					$used->{$ref} = 1;
  				}
  			}
--- 216,232 ----
  		if( $name eq "pin" )
  		{
  			my $ref = $node->getAttribute( "ref" );
! 			my $insert = $inserts->{$ref};
! 			if( defined $insert )
  			{
! 				if( $used->{$ref} || scalar $node->getChildNodes() )
  				{
  					$retnode = EPrints::XML::clone_node( 
! 						$insert, 1 );
  				}
  				else
  				{
! 					$retnode = $insert;
  					$used->{$ref} = 1;
  				}
  			}