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

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

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

Modified Files:
	Page.pm 
Log Message:
OIN-60: parse out the box declarations for a page into add/remove

Index: Page.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/base_page/OpenInteract2/Action/Page.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -d -r1.20 -r1.21
*** Page.pm	2 Oct 2004 22:38:34 -0000	1.20
--- Page.pm	2 Oct 2004 23:15:11 -0000	1.21
***************
*** 750,757 ****
      # Use page metadata to modify display
  
!     my @boxes = grep { $_ } map { s/^\s+// }
!                                 split( /\s+/, $page->{boxes} );
  
!     my %params = ( boxes => \@boxes, page => $page );
  
      # Grab content we're actually going to show
--- 750,773 ----
      # Use page metadata to modify display
  
!     $page->{boxes} ||= [];
!     my @box_add    = ();
!     my @box_remove = ();
!     foreach ( @{ $page->{boxes} } ) {
!         s/^\s+//;
!         s/\s+$//;
!         if ( /^\-/ ) {
!             push @box_remove, $_;
!         }
!         else {
!             s/^\+//;
!             push @box_add, $_;
!         }
!     }
  
!     my %params = (
!         box_add    => \@box_add,
!         box_remove => \@box_remove,
!         page       => $page,
!     );
  
      # Grab content we're actually going to show