[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2 Action.pm,1.63,1.64

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

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

Modified Files:
	Action.pm 
Log Message:
add a couple more error/status message shortcuts

Index: Action.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Action.pm,v
retrieving revision 1.63
retrieving revision 1.64
diff -C2 -d -r1.63 -r1.64
*** Action.pm	1 Dec 2004 05:27:07 -0000	1.63
--- Action.pm	2 Dec 2004 03:18:54 -0000	1.64
***************
*** 933,944 ****
  # shortcuts...
  
  sub add_error_key {
      my ( $self, $key, @params ) = @_;
!     $self->param_add( error_msg => $self->_msg( $key, @params ) );
  }
  
  sub add_status_key {
      my ( $self, $key, @params ) = @_;
!     $self->param_add( status_msg => $self->_msg( $key, @params ) );
  }
  
--- 933,968 ----
  # shortcuts...
  
+ sub add_error {
+     my ( $self, @msg ) = @_;
+     my $err = join( '', @msg );
+     $self->param_add( error_msg => $err );
+     return $err;
+ }
+ 
+ sub add_status {
+     my ( $self, @msg ) = @_;
+     my $status = join( '', @msg );
+     $self->param_add( status_msg => $status );
+     return $status;
+ }
+ 
  sub add_error_key {
      my ( $self, $key, @params ) = @_;
!     return $self->add_error( $self->_msg( $key, @params ) );
  }
  
  sub add_status_key {
      my ( $self, $key, @params ) = @_;
!     return $self->add_status( $self->_msg( $key, @params ) );
! }
! 
! sub clear_error {
!     my ( $self ) = @_;
!     $self->param_clear( 'error_msg' );
! }
! 
! sub clear_status {
!     my ( $self ) = @_;
!     $self->param_clear( 'status_msg' );
  }
  
***************
*** 2564,2567 ****
--- 2588,2603 ----
  Returns: nothing
  
+ B<add_error( @msg )>
+ 
+ Adds message (C<join>ed C<msg>) to action parameter 'error_msg').
+ 
+ Returns: added message
+ 
+ B<add_status( @msg )>
+ 
+ Adds message (C<join>ed C<msg>) to action parameter 'status_msg').
+ 
+ Returns: added message
+ 
  B<add_error_key( $key, [ @msg_params ] )>
  
***************
*** 2578,2581 ****
--- 2614,2625 ----
  Returns: added message
  
+ B<clear_error()>
+ 
+ Removes all error messages.
+ 
+ B<clear_status()>
+ 
+ Removes all status messages.
+ 
  B<message_from_key_or_param( $param_name, $message_key, @key_arguments )>