Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 35073: perltidy subscription-batchedit.pl

Browse source 
git show -w <this_patch_hash>

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
Signed-off-by: Victor Grousset/tuxayo <victor@tuxayo.net>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
(cherry picked from commit ffb5022591)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
(cherry picked from commit 3621e32bd1)
Signed-off-by: Pedro Amorim <pedro.amorim@ptfs-europe.com>
This commit is contained in:
Pedro Amorim 2023-10-17 09:24:09 +00:00
parent 77495e2778
commit 40bab28b99
1 changed files with 34 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
serials/subscription-batchedit.pl
View file

@ -31,12 +31,14 @@ use Koha::DateUtils qw( dt_from_string );
my $cgi = CGI->new;
my ($template, $loggedinuser, $cookie) = get_template_and_user({
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
{
template_name => 'serials/subscription-batchedit.tt',
query => $cgi,
type => 'intranet',
flagsrequired => { serials => 'edit_subscription' },
});
}
);
my @subscriptionids = $cgi->multi_param('subscriptionid');
@ -69,7 +71,9 @@ if ($batchedit) {
}
foreach my $subscription (@subscriptions) {
next unless C4::Serials::can_edit_subscription( $subscription->unblessed ); # This should be moved to Koha::Subscription->can_edit
next
unless C4::Serials::can_edit_subscription( $subscription->unblessed )
; # This should be moved to Koha::Subscription->can_edit
while ( my ( $key, $value ) = each %params ) {
if ( defined $value and $value ne '' ) {
$subscription->$key($value);