From 13533156e1752bd16ab70cb67ca3e1c833c03495 Mon Sep 17 00:00:00 2001 From: jeremy breuillard Date: Mon, 4 Apr 2022 12:04:27 +0200 Subject: [PATCH] Bug 27123: Delete useless code --- .../prog/en/modules/tools/modborrowers.tt | 3 ++ tools/modborrowers.pl | 35 +++++++------------ 2 files changed, 16 insertions(+), 22 deletions(-) diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/modborrowers.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/tools/modborrowers.tt index db8cd4610f..b1ac074827 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/modborrowers.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/tools/modborrowers.tt @@ -33,6 +33,8 @@
+ [% USE Dumper %] [% Dumper.dump(message, message_type) %] + [% IF ( op == 'show_form' ) %]

Batch patron modification

@@ -426,6 +428,7 @@
+ [% USE Dumper %] [% Dumper.dump(message, message_type) %] [% MACRO jsinclude BLOCK %] [% INCLUDE 'calendar.inc' %] diff --git a/tools/modborrowers.pl b/tools/modborrowers.pl index 1cf8cc4cc8..c8908fc508 100755 --- a/tools/modborrowers.pl +++ b/tools/modborrowers.pl @@ -439,31 +439,22 @@ if ( $op eq 'do' ) { } $i++; } - # Create a block to save in database the patron_messages update + security slice : "if" this field is filled-up then...etc - my $patron_messages = Koha::Patron::Messages->search( + + # Handle patron messages + my $message = $input->param('message'); + my $branchcode = C4::Context::mybranch; + my $message_type = $input->param('add_message_type'); + + Koha::Patron::Message->new( { - 'me.borrowernumber' => $patron->borrowernumber, - } - ); - if ( defined $patron_messages ) { - if ( defined $infos ) { - my $message = $input->param('message'); - my $borrowernumber = $patron->borrowernumber; - my $branchcode = C4::Context::mybranch; - my $message_type = $input->param('add_message_type'); - - Koha::Patron::Message->new( - { - borrowernumber => $borrowernumber, - branchcode => $branchcode, - message_type => $message_type, - message => $message, - } - )->store; - $template->param( message_type => $message_type ); + borrowernumber => $borrowernumber, + branchcode => $branchcode, + message_type => $message_type, + message => $message, } - } + )->store; } + $op = "show_results"; # We have process modifications, the user want to view its # Construct the results list -- 2.17.1