Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision e84dabe0

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

  • ID e84dabe016b9d9684c60fbafab2f7bb8d73da354
  • Vorgänger 9d5127dd
  • Nachfolger 03907d6f

DBUpgrade: locales parsen

Unterschiede anzeigen:

SL/DBUpgrade2.pm
59 59 
    my $control = {
60 60 
      "priority" => 1000,
61 61 
      "depends"  => [],
62 
      "locales"  => [],
62 63 
    };
63 64 

  		




  64
  65
  
    
    while (<IN>) {


  		




  ......




  73
  74
  
    

  		




  74
  75
  
    
      if ($fields[0] eq "depends") {


  		




  75
  76
  
    
        push(@{$control->{"depends"}}, split(/\s+/, $fields[1]));


  		




  
  77
  
    
      } elsif ($fields[0] eq "locales") {


  		




  
  78
  
    
        push @{$control->{locales}}, $fields[1];


  		




  76
  79
  
    
      } else {


  		




  77
  80
  
    
        $control->{$fields[0]} = $fields[1];


  		




  78
  81
  
    
      }


  		












Auch abrufbar als:  Unified diff