net-script-commits

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2/src/perl/XML/DAL
In directory sc8-pr-cvs1:/tmp/cvs-serv7847/perl/XML/DAL

Modified Files:
	LibXMLDAL.pm 
Log Message:
* added <?netscript include ?> directive

Index: LibXMLDAL.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DAL/LibXMLDAL.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** LibXMLDAL.pm	1 Jun 2003 13:34:04 -0000	1.3
--- LibXMLDAL.pm	2 Jun 2003 21:49:16 -0000	1.4
***************
*** 394,399 ****
  sub importNode {
      my ( $this, $document, $node, $deep ) = @_;
!     my $clone = $node -> cloneNode( $deep );
!     return $document -> importNode( $clone );
      }
  
--- 394,402 ----
  sub importNode {
      my ( $this, $document, $node, $deep ) = @_;
!     unless ($deep) {
!         $node = $node -> cloneNode( $deep );  #make a shallow copy  
!         }
!     
!     return $document -> importNode( $node );
      }