#!/usr/bin/perl # Copyright 2020 Aleisha Amohia # # This file is part of Koha. # # Koha is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 3 of the License, or # (at your option) any later version. # # Koha is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with Koha; if not, see . use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; use C4::Output; use C4::Auth; use Koha::ProblemReports; my $query = CGI->new; my ( $template, $loggedinuser, $cookie ) = get_template_and_user( { template_name => "tools/problem-reports.tt", query => $query, type => "intranet", authnotrequired => 0, flagsrequired => { problem_reports => 1 }, } ); my $action; foreach (qw( viewed closed new )) { $action = $_ if ( $query->param("mark_selected-$_") ); } $action ||= 'none'; my @report_ids = $query->multi_param('report_ids'); if ( $action eq 'viewed' ) { foreach my $report_id ( @report_ids ) { my $report = Koha::ProblemReports->find($report_id); $report->set({ status => 'Viewed' })->store; } } elsif ( $action eq 'closed' ) { foreach my $report_id ( @report_ids ) { my $report = Koha::ProblemReports->find($report_id); $report->set({ status => 'Closed' })->store; } } elsif ( $action eq 'new' ) { foreach my $report_id ( @report_ids ) { my $report = Koha::ProblemReports->find($report_id); $report->set({ status => 'New' })->store; } } my $problem_reports = Koha::ProblemReports->search(); $template->param( selected_count => scalar(@report_ids), action => $action, problem_reports => $problem_reports, ); output_html_with_http_headers $query, $cookie, $template->output;