Revision e30c7b70
Von Werner Hahn vor etwa 1 Jahr hinzugefügt
| SL/Controller/VariantProperty.pm | ||
|---|---|---|
| package SL::Controller::VariantProperty;
 | ||
|  | ||
| use strict;
 | ||
|  | ||
| use parent qw(SL::Controller::Base);
 | ||
|  | ||
| use SL::Helper::Flash;
 | ||
| use SL::Locale::String;
 | ||
| use SL::DB::Default;
 | ||
| use SL::DB::Manager::VariantProperty;
 | ||
|  | ||
| use Rose::Object::MakeMethods::Generic (
 | ||
|   'scalar --get_set_init' => [ qw(variant_property) ]
 | ||
| );
 | ||
|  | ||
| #__PACKAGE__->run_before('check_auth');
 | ||
|  | ||
| #
 | ||
| # actions
 | ||
| #
 | ||
|  | ||
| sub action_list_properties {
 | ||
|   my ($self) = @_;
 | ||
|  | ||
|   $self->_setup_list_action_bar;
 | ||
|   $self->render('variant_property/list',
 | ||
|                 title             => t8('Variant Property'),
 | ||
|                 VARIANTPROPERTIES => SL::DB::Manager::VariantProperty->get_all_sorted,
 | ||
|                );
 | ||
| }
 | ||
|  | ||
| sub action_edit_property {
 | ||
|   my ($self) = @_;
 | ||
|  | ||
|   my $is_new = !$self->variant_property->id;
 | ||
|   $self->_setup_form_action_bar;
 | ||
|   $self->render('variant_property/variant_propertie_form', title => ($is_new ? t8('Add Variant Property') : t8('Edit Variant Property')));
 | ||
| }
 | ||
|  | ||
| sub action_save_property {
 | ||
|   my ($self) = @_;
 | ||
|  | ||
|   $self->create_or_update;
 | ||
| }
 | ||
|  | ||
| sub action_delete_property {
 | ||
|   my ($self) = @_;
 | ||
|  | ||
|   if ( eval { $self->shop->delete; 1; } ) {
 | ||
|     flash_later('info',  $::locale->text('The shop has been deleted.'));
 | ||
|   } else {
 | ||
|     flash_later('error', $::locale->text('The shop is in use and cannot be deleted.'));
 | ||
|   };
 | ||
|   $self->redirect_to(action => 'list');
 | ||
| }
 | ||
|  | ||
| sub action_reorder_properties {
 | ||
|   my ($self) = @_;
 | ||
|  | ||
|   SL::DB::Shop->reorder_list(@{ $::form->{shop_id} || [] });
 | ||
|   $self->render(\'', { type => 'json' }); # ' emacs happy again
 | ||
| }
 | ||
|  | ||
| #
 | ||
| #inits
 | ||
| #
 | ||
|  | ||
| sub init_variant_property {
 | ||
|   SL::DB::Manager::VariantProperty::find_by_or_create(id => $::form->{id} || 0)->assign_attributes(%{ $::form->{variant_property} });
 | ||
| }
 | ||
|  | ||
| #
 | ||
| # helpers
 | ||
| #
 | ||
|  | ||
| sub create_or_update_property {
 | ||
|   my ($self) = @_;
 | ||
|  | ||
|   my $is_new = !$self->variant_property->id;
 | ||
|  | ||
|   my @errors = $self->variant_property->validate;
 | ||
|   if (@errors) {
 | ||
|     flash('error', @errors);
 | ||
|     $self->action_edit();
 | ||
|     return;
 | ||
|   }
 | ||
|  | ||
|   $self->variant_property->save;
 | ||
|  | ||
|   flash_later('info', $is_new ? t8('The Variant Property has been created.') : t8('The Variant Property has been saved.'));
 | ||
|   $self->redirect_to(action => 'list_property');
 | ||
| }
 | ||
|  | ||
| sub _setup_form_action_bar {
 | ||
|   my ($self) = @_;
 | ||
|  | ||
|   for my $bar ($::request->layout->get('actionbar')) {
 | ||
|     $bar->add(
 | ||
|       combobox => [
 | ||
|         action => [
 | ||
|           t8('Save'),
 | ||
|           submit    => [ '#form', { action => "VariantProperty/save_property" } ],
 | ||
|           accesskey => 'enter',
 | ||
|         ],
 | ||
|          action => [
 | ||
|           t8('Delete'),
 | ||
|           submit => [ '#form', { action => "VariantProperty/delete_property" } ],
 | ||
|         ],
 | ||
|       ],
 | ||
|       action => [
 | ||
|         t8('Cancel'),
 | ||
|         submit => [ '#form', { action => "VariantProperty/list_properties" } ],
 | ||
|       ],
 | ||
|     );
 | ||
|   }
 | ||
| }
 | ||
|  | ||
| sub _setup_list_action_bar {
 | ||
|   my ($self) = @_;
 | ||
|  | ||
|   for my $bar ($::request->layout->get('actionbar')) {
 | ||
|     $bar->add(
 | ||
|       link => [
 | ||
|         t8('Add'),
 | ||
|         link => $self->url_for(action => 'edit_property'),
 | ||
|       ],
 | ||
|     )
 | ||
|   };
 | ||
| }
 | ||
|  | ||
| 1;
 | ||
Auch abrufbar als: Unified diff
VariantProperty: Controller bisher nur für Eigenschaften