View | Details | Raw Unified | Return to bug 18000
Collapse All | Expand All

(-)a/misc/devel/update_dbix_class_files.pl (-2 / +7 lines)
Lines 32-37 my $db_port = '3306'; Link Here
32
my $db_name;
32
my $db_name;
33
my $db_user;
33
my $db_user;
34
my $db_passwd;
34
my $db_passwd;
35
my $tablename;
35
my $help;
36
my $help;
36
37
37
GetOptions(
38
GetOptions(
Lines 42-47 GetOptions( Link Here
42
    "db_name=s"   => \$db_name,
43
    "db_name=s"   => \$db_name,
43
    "db_user=s"   => \$db_user,
44
    "db_user=s"   => \$db_user,
44
    "db_passwd=s" => \$db_passwd,
45
    "db_passwd=s" => \$db_passwd,
46
    "tablename=s"=> \$tablename,
45
    "h|help"      => \$help
47
    "h|help"      => \$help
46
);
48
);
47
49
Lines 52-61 if (! defined $db_name ) { Link Here
52
    print "Error: \'db_name\' parameter is mandatory.\n";
54
    print "Error: \'db_name\' parameter is mandatory.\n";
53
    pod2usage(1);
55
    pod2usage(1);
54
} else {
56
} else {
57
    my $options = { debug => 1, dump_directory => $path, preserve_case => 1 };
58
    if ($tablename) {
59
        $options->{constraint} = qr/\A$tablename\z/
60
    }
55
61
56
    make_schema_at(
62
    make_schema_at(
57
        "Koha::Schema",
63
        "Koha::Schema",
58
        { debug => 1, dump_directory => $path, preserve_case => 1 },
64
        $options,
59
        ["DBI:$db_driver:dbname=$db_name;host=$db_host;port=$db_port",$db_user, $db_passwd ]
65
        ["DBI:$db_driver:dbname=$db_name;host=$db_host;port=$db_port",$db_user, $db_passwd ]
60
    );
66
    );
61
}
67
}
62
- 

Return to bug 18000