[Openinteract-commits] CVS: OpenInteract2/pkg/base_page/OpenInteract2/Action Page.pm,1.25,1.26

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

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 ----