CatalystX::Usul::Model::Config::Globals - Class definition for global configuration variables

   # The constructor is called by Catalyst at startup

# @(#)$Id: Globals.pm 591 2009-06-13 13:34:41Z pjf $

package CatalystX::Usul::Model::Config::Globals;

use strict;
use warnings;
use version; our $VERSION = qv( sprintf '0.3.%d', q$Rev: 591 $ =~ /\d+/gmx );
use parent qw(CatalystX::Usul::Model::Config);

__PACKAGE__->config( create_msg_key    => q(Globals [_2] created),
                     delete_msg_key    => q(Globals [_2] deleted),
                     file              => q(default),
                     keys_attr         => q(),
                     schema_attributes => {
                        attributes     => [ qw(value) ],
                        defaults       => {},
                        element        => q(globals),
                        lang_dep       => {}, },
                     typelist          => {},
                     update_msg_key    => q(Globals [_1] updated), );

__PACKAGE__->mk_accessors( qw(file) );

sub globals_form {
   my $self = shift; my $s = $self->context->stash;
   my ($clear, $e, $element, @elements, $form, $nitems, $prompt, $step, $text);

   $step     = 1;
   $form     = $s->{form}->{name};
   $prompt   = $self->loc( q(defTextPrompt) );
   @elements = eval { $self->search( $self->file ) };

   return $self->add_error( $e ) if ($e = $self->catch);

   $s->{pwidth} -= 10;
   $self->clear_form( { firstfld => $form.'.newParam' } ); $nitems = 0;
   $self->add_field(  { id       => $form.'.newParam',
                        stepno   => $step++ } ); $nitems++;

   for $element (sort { $a->name cmp $b->name } @elements) {
      $clear = $nitems > 0 ? q(left) : q();
      $text  = $element->name; $text =~ s{ _ }{ }gmx; $text = $prompt.$text;
      $self->add_field( { clear    => $clear,
                          default  => $element->value,
                          name     => $element->name,
                          prompt   => $text,
                          stepno   => $step++,
                          width    => 40 } ); $nitems++;
   }

   $self->group_fields( { id => $form.'.edit', nitems => $nitems } );
   $self->add_buttons(  qw(Save Delete) );
   return;
}

sub save {
   my $self = shift; my ($element, $p, $updated, $val);

   if ($p = $self->query_value( q(newParam) )) {
      if ($self->find( $self->file, lc $p )) {
         $self->throw( error => 'Attribute [_1] already exists',
                       args  => [ lc $p ] );
      }

      $self->create( { file   => $self->file,
                       fields => { value => q() }, name => lc $p } );
   }
   else {
      for $element ($self->search( $self->file )) {
         if (defined ($val = $self->query_value( $element->name ))
             && (($val && !defined $element->value)
                 || (defined $element->value && $element->value ne $val))) {
            $element->value( $val );
            $element->update;
            $self->add_result_msg( $self->update_msg_key, $element->name );
            $updated = 1;
         }
      }

      $self->throw( 'Nothing updated' ) unless ($updated);
   }

   return;
}

1;

__END__

# Local Variables:
# mode: perl
# tab-width: 3
# End: