XML/EPC.pm.diff

From EPrints

*** eprints-3.0.2-beta-3/perl_lib/EPrints/XML/EPC.pm   2007-06-13 16:13:51.000000000 +0200
--- eprints-3.0.1Z/perl_lib/EPrints/XML/EPC.pm 2007-06-28 14:05:25.000000000 +0200
***************
*** 174,180 ****


       my $retnode;
!      if( $params{pindata}->{used}->{$ref} )
       {
               $retnode = EPrints::XML::clone_node(
                               $params{pindata}->{inserts}->{$ref}, 1 );
--- 174,180 ----


       my $retnode;
!      if( $params{pindata}->{used}->{$ref} || $node->hasChildNodes )
       {
               $retnode = EPrints::XML::clone_node(
                               $params{pindata}->{inserts}->{$ref}, 1 );
***************
*** 207,213 ****
       my %pins = ();
       foreach my $param ( $node->getChildNodes )
       {
!              next unless( $param->tagName eq "param" );

               if( !$param->hasAttribute( "name" ) )
               {
--- 207,214 ----
       my %pins = ();
       foreach my $param ( $node->getChildNodes )
       {
!              next unless( EPrints::XML::is_dom( $param, "Element" ) ) );
!              next unless( $param->tagName =~ /param$/ );

               if( !$param->hasAttribute( "name" ) )
               {