Update of /cvsroot/openinteract/OpenInteract2/pkg/base_page/OpenInteract2/Action
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8114/base_page/OpenInteract2/Action
Modified Files:
Page.pm
Log Message:
OIN-133: warning fixes
Index: Page.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/base_page/OpenInteract2/Action/Page.pm,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -d -r1.25 -r1.26
*** Page.pm 11 Mar 2005 05:37:31 -0000 1.25
--- Page.pm 12 Mar 2005 05:08:42 -0000 1.26
***************
*** 640,647 ****
$log ||= get_logger( LOG_APP );
$log->is_debug &&
$log->debug( "Edit status of page: ",
! "[edit: ", $self->param( 'edit' ), "] ",
! "[new object: ", $self->param( 'is_new_object' ), "]" );
my $page_class = CTX->lookup_object( 'page' );
my $page = $self->param( 'c_object' ) || $self->param( 'page' );
--- 640,649 ----
$log ||= get_logger( LOG_APP );
+ my $request = CTX->request;
+ my $do_edit = $self->param( 'edit' ) || $request->param( 'edit' ) || '';
+ my $is_new = $self->param( 'is_new_object' ) || '';
$log->is_debug &&
$log->debug( "Edit status of page: ",
! "[edit: $do_edit] [new object: $is_new]" );
my $page_class = CTX->lookup_object( 'page' );
my $page = $self->param( 'c_object' ) || $self->param( 'page' );
***************
*** 681,686 ****
# to display yet
- my $do_edit = $self->param( 'edit' )
- || CTX->request->param( 'edit' );
unless ( $page or $do_edit ) {
CTX->response->content_type( 'text/html' );
--- 683,686 ----
|
