Lines 713-724
sub create_test_database {
Link Here
|
713 |
diag 'creating testing database...'; |
713 |
diag 'creating testing database...'; |
714 |
my $installer = C4::Installer->new() or die 'unable to create new installer'; |
714 |
my $installer = C4::Installer->new() or die 'unable to create new installer'; |
715 |
# warn Data::Dumper->Dump( [ $installer ], [ 'installer' ] ); |
715 |
# warn Data::Dumper->Dump( [ $installer ], [ 'installer' ] ); |
716 |
my $all_languages = getAllLanguages(); |
|
|
717 |
my $error = $installer->load_db_schema(); |
716 |
my $error = $installer->load_db_schema(); |
718 |
die "unable to load_db_schema: $error" if ( $error ); |
717 |
die "unable to load_db_schema: $error" if ( $error ); |
719 |
my $list = $installer->sql_file_list('en', 'marc21', { optional => 1, |
718 |
my $list = $installer->sql_file_list('en', 'marc21', { optional => 1, |
720 |
mandatory => 1 } ); |
719 |
mandatory => 1 } ); |
721 |
my ($fwk_language, $installed_list) = $installer->load_sql_in_order($all_languages, @$list); |
720 |
my ($fwk_language, $installed_list) = $installer->load_sql_in_order(@$list); |
722 |
$installer->set_version_syspref(); |
721 |
$installer->set_version_syspref(); |
723 |
$installer->set_marcflavour_syspref('MARC21'); |
722 |
$installer->set_marcflavour_syspref('MARC21'); |
724 |
diag 'database created.' |
723 |
diag 'database created.' |