SiteSuite::Module::User::WWW::Public::Register

    8: sub build_form {
    9:     my ($self) = shift;
   10: 
   11:     my $userform = $self->cgiapp->userform || die "No metainfo supplied";
   12:     $self->action( $self->cgiapp->url({ rm => 'update', path_info => [$userform->id, 'new'] }) );
   13:     $self->method( 'post' );
   14:     $self->id( $userform->config('form_id') ) if $userform->config('form_id');

  191: 
  192:   $self->SUPER::init(@_);
  193: 
  194:   $self->build_form()  if($self->build_on_init);
  195: }
  196: 
  197: sub html_element  { 'form' }

  128: 
  129:   bless $self, $class;
  130: 
  131:   $self->init(@_);
  132: 
  133:   return $self;
  134: }

 1604:     my $object_id_column = $options->{object_id_column} || 'id';
 1605: 
 1606:     if (!$options->{object} && $options->{object_id} eq 'new') {
 1607:         my $form = $options->{form_class}->new( cgiapp => $self, object_id => $options->{object_id}, object_class => $options->{object_class} );
 1608:         if ($options->{create_default_values}) {
 1609:             $form->params($options->{create_default_values});
 1610:             $form->init_fields();

 1522:     my $tt_vars = $options->{tt_vars} || {};
 1523: 
 1524:     if ( !$form ) {
 1525:         ($form, $object) = $self->load_form_with_object({
 1526:             object_class          => $options->{object_class},
 1527:             form_class            => $options->{form_class},
 1528:             object_id             => $object_id,

  876:     } elsif ($object_id && $object_id ne 'new' && $options->{edit_form_class}) {
  877:         $form_class = $options->{edit_form_class};
  878:     }
  879:     return $self->standard_edit({
  880:         object_class          => $options->{object_class},
  881:         object_name           => $options->{object_name},
  882:         object_id_column      => $options->{object_id_column},

 1503:     my $self = shift;
 1504:     $self->consume_param(); # if we are redirecting from standard_update the 'new' may already be there
 1505:     $self->giveback_param('new');
 1506:     return $self->edit(@_);
 1507: }
 1508: 
 1509: sub standard_edit {

  861:     my $options = $self->crud_options(qw(readonly));
  862:     #$self->log->debug('calling create');
  863:     return $self->forbidden if $options->{readonly};
  864:     return $self->standard_create(@_);
  865: }
  866: 
  867: sub edit {

  139: 
  140: 	my $body;
  141: 	eval {
  142:         $body = $is_autoload ? $self->$rmeth($rm) : $self->$rmeth();
  143: 	};
  144: 	if ($@) {
  145: 		my $error = $@;

  138: 	my ($rmeth, $is_autoload) = $self->__get_runmeth($rm);
  139: 
  140: 	my $body;
  141: 	eval {
  142:         $body = $is_autoload ? $self->$rmeth($rm) : $self->$rmeth();
  143: 	};
  144: 	if ($@) {

  187: 	}
  188: 
  189: 	# Process run mode!
  190: 	my $body = $self->__get_body($rm);
  191: 
  192: 	# Support scalar-ref for body return
  193: 	$body = $$body if ref $body eq 'SCALAR';

 2144: #        $Devel::Leak::Object::TRACKSOURCELINES = 1;
 2145: #        Devel::Leak::Object::track($app);
 2146: 
 2147:         $app->run;
 2148: 
 2149: #        use Devel::Cycle;
 2150: #        Devel::Cycle::find_cycle($app);

    5: 
    6: use SiteSuite::Module::User::WWW;
    7: 
    8: SiteSuite::Module::User::WWW->dispatch(
    9:     DEFAULTMODULE => 'register',
   10:     MODULEMAP     => {
   11:         activate           => 'SiteSuite::Module::User::WWW::Public::Activate',

  204:     { # run the code and preserve warnings setup when it's done
  205:         no warnings FATAL => 'all';
  206:         #local $^W = 0;
  207:         eval { $cv->($r, @_) };
  208: 
  209:         # log script's execution errors
  210:         $rc = $self->error_check;

  204:     { # run the code and preserve warnings setup when it's done
  205:         no warnings FATAL => 'all';
  206:         #local $^W = 0;
  207:         eval { $cv->($r, @_) };
  208: 
  209:         # log script's execution errors
  210:         $rc = $self->error_check;

  170:     # handlers shouldn't set $r->status but return it, so we reset the
  171:     # status after running it
  172:     my $old_status = $self->{REQ}->status;
  173:     my $rc = $self->run;
  174:     my $new_status = $self->{REQ}->status($old_status);
  175:     return ($rc == Apache2::Const::OK && $old_status != $new_status)
  176:         ? $new_status

   17: sub handler : method {
   18:     my $class = (@_ >= 2) ? shift : __PACKAGE__;
   19:     my $r = shift;
   20:     return $class->new($r)->default_handler();
   21: }
   22: 
   23: *chdir_file = \&ModPerl::RegistryCooker::chdir_file_normal;