+sub init_default_currency {
+ my ($self) = @_;
+
+ return undef if !$self->_table_currencies_exists || !$self->data->{currency_id};
+ return (SL::DBUtils::selectfirst_array_query($::form, $::form->get_standard_dbh, qq|SELECT name FROM currencies WHERE id = ?|, $self->data->{currency_id}))[0];
+}
+
+sub init_crm_installed {
+ return -f (SL::System::Process->exe_dir . '/crm/Changelog');
+}
+