Falschen Methodennamen gefixt

diff --git a/SL/InstanceConfiguration.pm b/SL/InstanceConfiguration.pm
index 699568993e53950bf216ad97ab267d71614fc7af..b8537f1c73bd400346f095853b8a27571d65c5e0 100644 (file)
--- a/SL/InstanceConfiguration.pm
+++ b/SL/InstanceConfiguration.pm
@@ -35,7 +35,7 @@ sub init_default_currency {
   return (SL::DBUtils::selectfirst_array_query($::form, $::form->get_standard_dbh, qq|SELECT name FROM currencies WHERE id = ?|, $self->data->{currency_id}))[0];
 }
 
   return (SL::DBUtils::selectfirst_array_query($::form, $::form->get_standard_dbh, qq|SELECT name FROM currencies WHERE id = ?|, $self->data->{currency_id}))[0];
 }
 

-sub crm_installed {
+sub init_crm_installed {

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