Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Action
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7726/OpenInteract2/Action
Modified Files:
CommonUpdate.pm CommonSearch.pm CommonRemove.pm CommonAdd.pm
Common.pm
Log Message:
start modifying some logging messages...
Index: CommonUpdate.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Action/CommonUpdate.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -d -r1.21 -r1.22
*** CommonUpdate.pm 17 Feb 2005 05:04:32 -0000 1.21
--- CommonUpdate.pm 25 Feb 2005 00:01:05 -0000 1.22
***************
*** 25,29 ****
$object = eval { $object_class->fetch( $id ) };
if ( $@ ) {
! $log->error( "Failed to fetch object [$object_class: $id]: $@" );
$self->add_error_key( 'action.error.fetch_for_update', $@ );
return $self->execute({ task => $fail_task });
--- 25,29 ----
$object = eval { $object_class->fetch( $id ) };
if ( $@ ) {
! $log->warn( "Failed to fetch object [$object_class: $id]: $@" );
$self->add_error_key( 'action.error.fetch_for_update', $@ );
return $self->execute({ task => $fail_task });
***************
*** 56,60 ****
unless ( $object and $object->is_saved ) {
! $log->error( "Object does not exist or is not saved, cannot update" );
$self->add_error_key( 'action.error.update_not_saved' );
return $self->execute({ task => $fail_task });
--- 56,60 ----
unless ( $object and $object->is_saved ) {
! $log->warn( "Object does not exist or is not saved, cannot update" );
$self->add_error_key( 'action.error.update_not_saved' );
return $self->execute({ task => $fail_task });
***************
*** 95,99 ****
eval { $object->save( \%save_options ) };
if ( $@ ) {
! $log->error( "Update of $object_spec failed: $@" );
$self->add_error_key( 'action.error.update', $@ );
return $self->execute({ task => $fail_task });
--- 95,99 ----
eval { $object->save( \%save_options ) };
if ( $@ ) {
! $log->warn( "Update of $object_spec failed: $@" );
$self->add_error_key( 'action.error.update', $@ );
return $self->execute({ task => $fail_task });
Index: CommonSearch.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Action/CommonSearch.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** CommonSearch.pm 19 Feb 2005 04:28:03 -0000 1.18
--- CommonSearch.pm 25 Feb 2005 00:01:06 -0000 1.19
***************
*** 248,252 ****
};
if ( $@ ) {
! $log->error( "Search failed: $@" );
oi_error $@;
}
--- 248,252 ----
};
if ( $@ ) {
! $log->warn( "Search failed: $@" );
oi_error $@;
}
Index: CommonRemove.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Action/CommonRemove.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** CommonRemove.pm 5 Dec 2004 08:52:55 -0000 1.18
--- CommonRemove.pm 25 Feb 2005 00:01:06 -0000 1.19
***************
*** 51,55 ****
if ( $@ ) {
$self->add_error_key( 'action.error.remove', $@ );
! $log->error( "Failed to remove ", $self->param( 'c_object_class' ),
"with ID" , $object->id, ": $@" );
return $self->execute({ task => $fail_task });
--- 51,55 ----
if ( $@ ) {
$self->add_error_key( 'action.error.remove', $@ );
! $log->warn( "Failed to remove ", $self->param( 'c_object_class' ),
"with ID" , $object->id, ": $@" );
return $self->execute({ task => $fail_task });
Index: CommonAdd.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Action/CommonAdd.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** CommonAdd.pm 17 Feb 2005 05:03:57 -0000 1.22
--- CommonAdd.pm 25 Feb 2005 00:01:06 -0000 1.23
***************
*** 79,83 ****
eval { $object->save( \%save_options ) };
if ( $@ ) {
! $log->error( "Failed to create object: $@" );
$self->add_error_key( 'action.error.create', $@ );
my $fail_task = $self->param( 'c_add_fail_task' );
--- 79,83 ----
eval { $object->save( \%save_options ) };
if ( $@ ) {
! $log->warn( "Failed to create object: $@" );
$self->add_error_key( 'action.error.create', $@ );
my $fail_task = $self->param( 'c_add_fail_task' );
Index: Common.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Action/Common.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -d -r1.21 -r1.22
*** Common.pm 17 Feb 2005 05:03:13 -0000 1.21
--- Common.pm 25 Feb 2005 00:01:06 -0000 1.22
***************
*** 331,335 ****
if ( $@ ) {
my $error = $@;
! $log->error( "Caught exception fetching object: $error" );
if ( $error->isa( 'SPOPS::Exception::Security' ) ) {
$self->add_error_key( 'action.error.security' );
--- 331,335 ----
if ( $@ ) {
my $error = $@;
! $log->warn( "Caught exception fetching object: $error" );
if ( $error->isa( 'SPOPS::Exception::Security' ) ) {
$self->add_error_key( 'action.error.security' );
|
