[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2/Setup CreateTemporaryLibraryDirectory.pm,1.4,1.5

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

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

Modified Files:
	CreateTemporaryLibraryDirectory.pm 
Log Message:
add 'devel_mode' to top-level server config; if set to 'yes' we recreate the temporary library directory every restart

Index: CreateTemporaryLibraryDirectory.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Setup/CreateTemporaryLibraryDirectory.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** CreateTemporaryLibraryDirectory.pm	4 Jul 2005 03:06:49 -0000	1.4
--- CreateTemporaryLibraryDirectory.pm	30 Jul 2005 22:43:43 -0000	1.5
***************
*** 35,40 ****
      $self->param( created => [] ); # default: don't create anything
  
!     my $devel_mode = $ctx->server_config->{devel_mode} eq 'yes';;
!     my $do_create = $self->param( 'create_templib' ) || $devel_mode || 0;
      if ( ! $do_create && -d $full_temp_lib_dir ) {
          my $refresh_file = catfile( $full_temp_lib_dir,
--- 35,43 ----
      $self->param( created => [] ); # default: don't create anything
  
!     # should probably assign this default when we read in the config?
!     $ctx->server_config->{devel_mode} ||= 'no';
! 
!     my $in_devel_mode = $ctx->server_config->{devel_mode} eq 'yes';
!     my $do_create = $self->param( 'create_templib' ) || $in_devel_mode || 0;
      if ( ! $do_create && -d $full_temp_lib_dir ) {
          my $refresh_file = catfile( $full_temp_lib_dir,