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

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

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

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


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

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

use strict;
use OpenInteract::CommonHandler qw( OK ERROR );
use OpenInteract::Handler::GenericDispatcher qw( DEFAULT_SECURITY_KEY );
use SPOPS::Secure qw( :level );

@OpenInteract::Handler::BasePage::ISA     = qw( OpenInteract::CommonHandler  SPOPS::Secure );
$OpenInteract::Handler::BasePage::VERSION = sprintf("%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/);
$OpenInteract::Handler::BasePage::author            = 'ch...@cw...';
$OpenInteract::Handler::BasePage::default_method    = 'show';
@OpenInteract::Handler::BasePage::forbidden_methods = ();
%OpenInteract::Handler::BasePage::security          = (
   DEFAULT_SECURITY_KEY() => SEC_LEVEL_WRITE,
   show   => SEC_LEVEL_NONE, notify  => SEC_LEVEL_READ,
);


sub MY_PACKAGE                 { return 'base_page' }
sub MY_HANDLER_PATH            { return '/BasePage' }
sub MY_OBJECT_TYPE             { return 'basicpage' }
sub MY_OBJECT_CLASS            {
     return OpenInteract::Request->instance->basicpage
 }
sub MY_SEARCH_FIELDS           { return () }
sub MY_OBJECT_FORM_TITLE       { return 'Edit Page' }
sub MY_OBJECT_FORM_TEMPLATE    { return '' }
sub MY_EDIT_RETURN_URL         { return '/Thingy/search_form/' }
sub MY_EDIT_FIELDS             {
     return qw( myobject_id name type quantity purpose_in_life )
 }
sub MY_EDIT_FIELDS_TOGGLED     { return qw( is_indoctrinated ) }
sub MY_EDIT_FIELDS_DATE        { return qw( birth_date ) }
sub MY_ALLOW_SEARCH_FORM       { return undef }
sub MY_ALLOW_SEARCH            { return undef }
sub MY_ALLOW_SHOW              { return 1 }
sub MY_ALLOW_EDIT              { return 1 }
sub MY_ALLOW_REMOVE            { return 1 }
sub MY_ALLOW_WIZARD            { return undef }


1;