net-script-commits

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

Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2
In directory usw-pr-cvs1:/tmp/cvs-serv4181

Modified Files:
	NodeList.pm 
Log Message:
* fixed all methods

Index: NodeList.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/NodeList.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** NodeList.pm	2001/12/03 21:18:42	1.5
--- NodeList.pm	2001/12/11 22:22:59	1.6
***************
*** 56,61 ****
  #*/           
  sub item {
!     my ( $this, %params ) = @_;
!     my $index = params { "index" };
  
      if ( $index < 0 || $index > $this -> length() ) {
--- 56,61 ----
  #*/           
  sub item {
!     my ( $this, $paramsRef ) = @_;
!     my $index = $paramsRef -> { "index" };
  
      if ( $index < 0 || $index > $this -> length() ) {
***************
*** 93,98 ****
  #*/
  sub add {
!     my ( $this, %params ) = @_;
!     my $node = $params{ node };
      push (@{ $this -> { m_nodeList } }, $node );
      }
--- 93,98 ----
  #*/
  sub add {
!     my ( $this, $paramsRef ) = @_;
!     my $node = $paramsRef -> { node };
      push (@{ $this -> { m_nodeList } }, $node );
      }
***************
*** 108,113 ****
  #*/
  sub remove {
!     my ( $this, %params ) = @_;
!     my $index = $params{ "index" };
  
      if ( $index < 0 || $index > $this -> length() ) {
--- 108,113 ----
  #*/
  sub remove {
!     my ( $this, $paramsRef ) = @_;
!     my $index = $paramsRef -> { "index" };
  
      if ( $index < 0 || $index > $this -> length() ) {
***************
*** 139,145 ****
  #*/
  sub insert {
!     my ( $this, %params ) = @_;
!     my $index = $params{ "index" };
!     my $node = $params{ node };
      if ( $index < 0 || $index > $this -> length() ) {
          my $exception =  XML::DOM2::DOMException -> new(
--- 139,145 ----
  #*/
  sub insert {
!     my ( $this, $paramsRef ) = @_;
!     my $index = $paramsRef -> { "index" };
!     my $node = $paramsRef -> { node };
      if ( $index < 0 || $index > $this -> length() ) {
          my $exception =  XML::DOM2::DOMException -> new(
***************
*** 172,178 ****
  #*/
  sub indexOf {
!     my ( $this , %params ) = @_;
      my $startIndex = defined( $params{ "index" } ) ? $params{ "index" } : 0;
!     my $node = $params{ node };
      my @list = @{ $this -> { m_nodeList } };
      
--- 172,178 ----
  #*/
  sub indexOf {
!     my ( $this , $paramsRef ) = @_;
      my $startIndex = defined( $params{ "index" } ) ? $params{ "index" } : 0;
!     my $node = $paramsRef -> { node };
      my @list = @{ $this -> { m_nodeList } };