[Openinteract-commits] CVS: OpenInteract2/pkg/base_box/OpenInteract2/Action SystemBoxes.pm,1.7,1.8

[Salve J. N. <sj...@us...>]

Update of /cvsroot/openinteract/OpenInteract2/pkg/base_box/OpenInteract2/Action
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21582/pkg/base_box/OpenInteract2/Action

Modified Files:
	SystemBoxes.pm 
Log Message:
Let site admins see the templates_used_box by default, in addition to the
admin_tools_box.


Index: SystemBoxes.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/base_box/OpenInteract2/Action/SystemBoxes.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** SystemBoxes.pm	18 Feb 2004 05:25:22 -0000	1.7
--- SystemBoxes.pm	9 Nov 2004 12:23:07 -0000	1.8
***************
*** 18,21 ****
--- 18,22 ----
  
      my @boxes = ();
+     my @admin_boxes = qw(templates_used_box admin_tools_box);
      my $request = CTX->request;
  
***************
*** 31,39 ****
          }
          if ( $request->auth_is_admin ) {
!             $log->is_debug &&
!                 $log->debug( "Adding box [admin_tools]" );
!             eval { push @boxes, CTX->lookup_action( 'admin_tools_box' ) };
!             if ( $@ ) {
!                 $log->warn( "Error looking up 'admin_tools_box': $@" );
              }
          }
--- 32,42 ----
          }
          if ( $request->auth_is_admin ) {
!             foreach ( @admin_boxes ) {
!                 $log->is_debug &&
!                     $log->debug( "Adding box '$_'" );
!                 eval { push @boxes, CTX->lookup_action( $_ ) };
!                 if ( $@ ) {
!                     $log->warn( "Error looking up '$_': $@" );
!                 }
              }
          }
***************
*** 116,118 ****
  =head1 AUTHORS
  
! Chris Winters E<lt>ch...@cw...E<gt>
\ No newline at end of file
--- 119,121 ----
  =head1 AUTHORS
  
! Chris Winters E<lt>ch...@cw...E<gt>