Lines 36-47
GetOptions(
Link Here
|
36 |
'help|h' => \$cmd_args->{help}, |
36 |
'help|h' => \$cmd_args->{help}, |
37 |
'renumber' => \$cmd_args->{renumber}, |
37 |
'renumber' => \$cmd_args->{renumber}, |
38 |
'reset' => \$cmd_args->{reset}, |
38 |
'reset' => \$cmd_args->{reset}, |
|
|
39 |
'schema:s' => \$cmd_args->{schema}, |
39 |
'table:s' => \$cmd_args->{table}, |
40 |
'table:s' => \$cmd_args->{table}, |
40 |
'verbose|v' => \$cmd_args->{verbose}, |
41 |
'verbose|v' => \$cmd_args->{verbose}, |
41 |
); |
42 |
); |
42 |
$cmd_args->{dry_run} = !$cmd_args->{commit}; |
43 |
$cmd_args->{dry_run} = !$cmd_args->{commit}; |
43 |
|
44 |
|
44 |
my $commenter = Koha::Database::Commenter->new({ database => delete $cmd_args->{database}, dbh => C4::Context->dbh }); |
45 |
my $commenter = Koha::Database::Commenter->new({ |
|
|
46 |
database => delete $cmd_args->{database}, dbh => C4::Context->dbh, schema_file => delete $cmd_args->{schema}, |
47 |
}); |
45 |
my $messages = $cmd_args->{verbose} || $cmd_args->{dry_run} ? [] : undef; |
48 |
my $messages = $cmd_args->{verbose} || $cmd_args->{dry_run} ? [] : undef; |
46 |
if( $cmd_args->{help} ) { |
49 |
if( $cmd_args->{help} ) { |
47 |
pod2usage( -verbose => 2 ); |
50 |
pod2usage( -verbose => 2 ); |
Lines 71-77
misc/maintenance/sync_db_comments.pl
Link Here
|
71 |
|
74 |
|
72 |
=head1 SYNOPSIS |
75 |
=head1 SYNOPSIS |
73 |
|
76 |
|
74 |
perl sync_db_comments.pl [-h] [-v] [-database DB_NAME] [-table TABLE_NAME] [-commit] [-clear|-reset|-renumber] |
77 |
perl sync_db_comments.pl [-h] [-v] [-schema FILE ] [-database DB_NAME] [-table TABLE_NAME] [-commit] [-clear|-reset|-renumber] |
75 |
|
78 |
|
76 |
=head1 DESCRIPTION |
79 |
=head1 DESCRIPTION |
77 |
|
80 |
|
78 |
- |
|
|