Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 65b2387a

Von Moritz Bunkus vor mehr als 5 Jahren hinzugefügt

  • ID 65b2387a54494a8cbc1d011602ae3f8d7208ea4d
  • Vorgänger 43f67d0d
  • Nachfolger f93b80e4

Module: gebundletes YAML durch dünnen Wrapper über YAML::XS & YAML ersetzt

Unterschiede anzeigen:

SL/Controller/Draft.pm
9 9 
use SL::Request;
10 10 
use SL::DB::Draft;
11 11 
use SL::DBUtils qw(selectall_hashref_query);
12 
use YAML;
12 
use SL::YAML;
13 13 
use List::Util qw(max);
14 14 

  		




  15
  15
  
    
use Rose::Object::MakeMethods::Generic (


  		




  ......




  53
  53
  
    
    module      => $self->module,


  		




  54
  54
  
    
    submodule   => $self->submodule,


  		




  55
  55
  
    
    description => $description,


  		




  56
  
  
    
    form        => YAML::Dump($form),


  		




  
  56
  
    
    form        => SL::YAML::Dump($form),


  		




  57
  57
  
    
    employee_id => SL::DB::Manager::Employee->current->id,


  		




  58
  58
  
    
  );


  		




  59
  59
  
    

  		




  ......




  83
  83
  
    
    require $allowed_modules{ $self->draft->module };


  		




  84
  84
  
    
  }


  		




  85
  85
  
    
  my $params = delete $::form->{form};


  		




  86
  
  
    
  my $new_form = YAML::Load($self->draft->form);


  		




  
  86
  
    
  my $new_form = SL::YAML::Load($self->draft->form);


  		




  87
  87
  
    
  $::form->{$_} = $new_form->{$_} for keys %$new_form;


  		




  88
  88
  
    
  $::form->{"draft_$_"} = $self->draft->$_ for qw(id description);


  		




  89
  89
  
    

  		












Auch abrufbar als:  Unified diff