[Openinteract-commits] CVS: OpenInteract/pkg/base_page/OpenInteract/SQLInstall BasePage.pm,NONE,1.1

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

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

Added Files:
	BasePage.pm 
Log Message:
add handler/installer


--- NEW FILE: BasePage.pm ---
package OpenInteract::SQLInstall::BasePage;

# $Id: BasePage.pm,v 1.1 2001/10/17 12:10:09 lachoy Exp $

# Do installation of SQL for this package

use strict;
use vars qw( %HANDLERS );

@OpenInteract::SQLInstall::BasePage::ISA = qw( OpenInteract::SQLInstall );

my %files = (
  tables   => [ 'page.sql', 'page_content.sql' ],
  security => [ 'install_security.dat' ],
);

%HANDLERS = (
  create_structure => { '_default_' => [ 'create_structure',
                                         { table_file_list => $files{tables} } ] },
  install_security => { '_default_' => [ 'install_data',
                                         { data_file_list => $files{security} } ] },
);

1;