gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 24591: Add --help option to misc/devel/get-prepared-letter.pl 

Also fix code style with perltidy

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Julian Maurice 2020-04-10 11:19:47 +02:00 committed by Jonathan Druart
parent f74ab4e9de
commit df0ef02de5
1 changed files with 59 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
misc/devel/get_prepared_letter.pl
View File

@ -16,17 +16,71 @@
# You should have received a copy of the GNU General Public License along
# with Koha; if not, see <http://www.gnu.org/licenses>.
=head1 NAME
get-prepared-letter.pl - preview letter content
=head1 SYNOPSIS
get-prepared-letter.pl --module MODULE --letter-code CODE [options]
=head1 OPTIONS
=over
=item B<--module MODULE>
The letter module (acquisition, catalogue, circulation, ...)
=item B<--letter-code CODE>
The letter code (DUE, PREDUE, ...)
=item B<--branchcode BRANCHCODE>
The letter branchcode
=item B<--message-transport-type TYPE>
The message transport type (email, print, ...)
=item B<--lang LANG>
The letter language (es-ES, fr-FR, ...)
=item B<--repeat REPEAT>
A JSON formatted string that will be used as repeat parameter. See
documentation of GetPreparedLetter for more informations.
=item B<--tables TABLES>
A JSON formatted string that will be used as tables parameter. See
documentation of GetPreparedLetter for more informations.
=item B<--loops LOOPS>
A JSON formatted string that will be used as loops parameter. See
documentation of GetPreparedLetter for more informations.
=back
=cut
use Modern::Perl;
use Getopt::Long;
use JSON;
use Pod::Usage;
use C4::Letters;
my $help;
my ( $module, $letter_code, $branchcode, $message_transport_type, $lang,
$repeat, $tables, $loops );
GetOptions(
'help' => \$help,
'module=s' => \$module,
'letter-code=s' => \$letter_code,
'branchcode=s' => \$branchcode,
@ -35,7 +89,11 @@ GetOptions(
'repeat=s' => \$repeat,
'tables=s' => \$tables,
'loops=s' => \$loops,
) or die "Error in command line arguments\n";
) or pod2usage( -exitval => 2, -verbose => 1 );
if ($help) {
pod2usage( -exitval => 0, -verbose => 1 );
}
$repeat = $repeat ? decode_json($repeat) : {};
$tables = $tables ? decode_json($tables) : {};