Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 99ca5bfa

Von Moritz Bunkus vor etwa 11 Jahren hinzugefügt

  • ID 99ca5bfa5a8e249a3cf67a59ab5dae3a6ee10430
  • Vorgänger e160d721
  • Nachfolger 96a2fd5f

CRM-Menü in der ERP speichern inklusive der Übersetzungen

Fixt #2328.

Unterschiede anzeigen:

SL/InstanceConfiguration.pm
4 4 

  		




  5
  5
  
    
use Carp;


  		




  6
  6
  
    
use SL::DBUtils ();


  		




  
  7
  
    
use SL::System::Process;


  		




  7
  8
  
    

  		




  8
  9
  
    
use parent qw(Rose::Object);


  		




  9
  10
  
    
use Rose::Object::MakeMethods::Generic (


  		




  10
  
  
    
  'scalar --get_set_init' => [ qw(data currencies default_currency _table_currencies_exists) ],


  		




  
  11
  
    
  'scalar --get_set_init' => [ qw(data currencies default_currency _table_currencies_exists crm_installed) ],


  		




  11
  12
  
    
);


  		




  12
  13
  
    

  		




  13
  14
  
    
sub init_data {


  		




  ......




  34
  35
  
    
  return (SL::DBUtils::selectfirst_array_query($::form, $::form->get_standard_dbh, qq|SELECT name FROM currencies WHERE id = ?|, $self->data->{currency_id}))[0];


  		




  35
  36
  
    
}


  		




  36
  37
  
    

  		




  
  38
  
    
sub crm_installed {


  		




  
  39
  
    
  return -f (SL::System::Process->exe_dir . '/crm/Changelog');


  		




  
  40
  
    
}


  		




  
  41
  
    

  		




  37
  42
  
    
sub reload {


  		




  38
  43
  
    
  my ($self) = @_;


  		




  39
  44
  
    

  		




  ......




  93
  98
  
    

  		




  94
  99
  
    
Creates a new instance. Does not read the configuration.


  		




  95
  100
  
    

  		




  96
  
  
    
=item C<init>


  		




  
  101
  
    
=item C<crm_installed>


  		




  97
  102
  
    

  		




  98
  
  
    
Reads the configuration from the database. Returns C<$self>.


  		




  
  103
  
    
Returns trueish if the CRM component is installed.


  		




  99
  104
  
    

  		




  100
  105
  
    
=item C<get_currencies>


  		




  101
  106
  
    

  		












Auch abrufbar als:  Unified diff