XML/EPC.pm.diff.2

From EPrints

This is a diff file for EPrints/XML/EPC.pm which passes the $item variable to the invoked phrases.

--- eprints-3.0.2-beta-3/perl_lib/EPrints/XML/EPC.pm    2007-06-13 16:13:51.000000000 +0200
+++ eprints-3.0.2-patched/perl_lib/EPrints/XML/EPC.pm   2007-07-06 13:15:26.000000000 +0200
@@ -136,6 +136,7 @@
 {
        my( $node, %params ) = @_;

+       $params{item}=$params{pindata}->{inserts}->{__item} if( !$params{item} );
        my $collapsed = $params{session}->make_doc_fragment;

        foreach my $child ( $node->getChildNodes )
@@ -204,7 +205,7 @@
        }
        my $ref = $node->getAttribute( "ref" );

-       my %pins = ();
+       my %pins = ( __item => $params{item} );
        foreach my $param ( $node->getChildNodes )
        {
                next unless( $param->tagName eq "param" );