Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision d41efcfe

Von Sven Schöling vor mehr als 8 Jahren hinzugefügt

  • ID d41efcfe571f88b63aa53492e3e3460d948232d6
  • Vorgänger fe669345
  • Nachfolger fac8417d

RequirementSpecs: js accessor angepasst

Unterschiede anzeigen:

SL/Controller/RequirementSpecVersion.pm
7 7 
use Carp;
8 8 
use List::MoreUtils qw(any);
9 9 

  		




  10
  
  
    
use SL::ClientJS;


  		




  11
  10
  
    
use SL::DB::Customer;


  		




  12
  11
  
    
use SL::DB::Project;


  		




  13
  12
  
    
use SL::DB::RequirementSpec;


  		




  ......




  17
  16
  
    

  		




  18
  17
  
    
use Rose::Object::MakeMethods::Generic


  		




  19
  18
  
    
(


  		




  20
  
  
    
  'scalar --get_set_init' => [ qw(requirement_spec version js) ],


  		




  
  19
  
    
  'scalar --get_set_init' => [ qw(requirement_spec version) ],


  		




  21
  20
  
    
);


  		




  22
  21
  
    

  		




  23
  22
  
    
__PACKAGE__->run_before('check_auth');


  		




  ......




  69
  68
  
    
  my %attributes = %{ delete($::form->{rs_version}) || {} };


  		




  70
  69
  
    
  my @errors     = SL::DB::RequirementSpecVersion->new(%attributes, version_number => 1)->validate;


  		




  71
  70
  
    

  		




  72
  
  
    
  return $self->js->error(@errors)->render($self) if @errors;


  		




  
  71
  
    
  return $self->js->error(@errors)->render if @errors;


  		




  73
  72
  
    

  		




  74
  73
  
    
  my $db     = $self->requirement_spec->db;


  		




  75
  74
  
    
  my @result = $self->requirement_spec->create_version(%attributes);


  		




  76
  75
  
    

  		




  77
  76
  
    
  if (!@result) {


  		




  78
  77
  
    
    $::lxdebug->message(LXDebug::WARN(), "Error: " . $db->error);


  		




  79
  
  
    
    return $self->js->error($::locale->text('Saving failed. Error message from the database: #1'), $db->error)->render($self);


  		




  
  78
  
    
    return $self->js->error($::locale->text('Saving failed. Error message from the database: #1'), $db->error)->render;


  		




  80
  79
  
    
  }


  		




  81
  80
  
    

  		




  82
  81
  
    
  $self->version($result[0]);


  		




  ......




  87
  86
  
    
    ->html('#requirement_spec_version', $version_info_html)


  		




  88
  87
  
    
    ->html('#versioned_copies_list',    $version_list_html)


  		




  89
  88
  
    
    ->dialog->close('#jqueryui_popup_dialog')


  		




  90
  
  
    
    ->render($self);


  		




  
  89
  
    
    ->render;


  		




  91
  90
  
    
}


  		




  92
  91
  
    

  		




  93
  92
  
    
#


  		




  ......




  113
  112
  
    
  $self->version(SL::DB::RequirementSpecVersion->new(id => $::form->{id})->load) if $::form->{id};


  		




  114
  113
  
    
}


  		




  115
  114
  
    

  		




  116
  
  
    
sub init_js {


  		




  117
  
  
    
  my ($self, %params) = @_;


  		




  118
  
  
    
  $self->js(SL::ClientJS->new);


  		




  119
  
  
    
}


  		




  120
  
  
    

  		




  121
  115
  
    
sub has_item_changed {


  		




  122
  116
  
    
  my ($previous, $current) = @_;


  		




  123
  117
  
    
  croak "Missing previous/current" if !$previous || !$current;


  		












Auch abrufbar als:  Unified diff