|
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.' |