[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2/Exception Parameter.pm,1.5,1.6

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Exception
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30229/OpenInteract2/Exception

Modified Files:
	Parameter.pm 
Log Message:
ensure invalid parameter messages get output properly (was serializing an arrayref before, not too helpful...)


Index: Parameter.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Exception/Parameter.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Parameter.pm	18 Feb 2004 05:25:28 -0000	1.5
--- Parameter.pm	28 Feb 2005 00:57:35 -0000	1.6
***************
*** 15,20 ****
      my ( $self ) = @_;
      my $failures = $self->parameter_fail;
!     my $valid_msg = join( '; ', map { "$_: " . $failures->{ $_ } } keys %{ $failures } );
!     return "One or more parameters were not valid: $valid_msg";
  }
  
--- 15,26 ----
      my ( $self ) = @_;
      my $failures = $self->parameter_fail;
!     my @errors = ();
!     foreach my $field ( sort keys %{ $failures } ) {
!         my $field_msg = ( ref $failures->{ $field } eq 'ARRAY' )
!                           ? join( '; ', @{ $failures->{ $field } } )
!                           : $failures->{ $field };
!         push @errors, "$field: $field_msg";
!     }
!     return "One or more parameters were not valid: " . join( ' ;; ', @errors );
  }