[Openinteract-commits] CVS: OpenInteract/pkg/base_page/OpenInteract Page.pm,1.2,1.3

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

Update of /cvsroot/openinteract/OpenInteract/pkg/base_page/OpenInteract
In directory usw-pr-cvs1:/tmp/cvs-serv22705/OpenInteract

Modified Files:
	Page.pm 
Log Message:
more updates (stability! functionality!)


Index: Page.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/pkg/base_page/OpenInteract/Page.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Page.pm	2001/10/24 20:55:11	1.2
--- Page.pm	2001/10/24 23:04:12	1.3
***************
*** 6,9 ****
--- 6,11 ----
  use Data::Dumper   qw( Dumper );
  use File::Basename qw();
+ use OpenInteract::Page::Database;
+ use OpenInteract::Page::File;
  
  $OpenInteract::Page::VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
***************
*** 71,75 ****
  # whenever we save the object
  
! sub ruleset_behavior {
      my ( $class, $rs_table ) = @_;
      push @{ $rs_table->{pre_save_action} },    \&find_directory;
--- 73,77 ----
  # whenever we save the object
  
! sub ruleset_factory {
      my ( $class, $rs_table ) = @_;
      push @{ $rs_table->{pre_save_action} },    \&find_directory;
***************
*** 91,96 ****
      return 1 unless ( $self->{content} );
      return ( $self->{is_file} eq 'yes' )
!              ? OpenInteract::Page::File::save( $self )
!              : OpenInteract::Page::Database::save( $self );
  }
  
--- 93,98 ----
      return 1 unless ( $self->{content} );
      return ( $self->{is_file} eq 'yes' )
!              ? OpenInteract::Page::File::save( $self, $self->{content} )
!              : OpenInteract::Page::Database::save( $self, $self->{content} );
  }