From 93becadc827b37bf377907055f9c26d2fa755a31 Mon Sep 17 00:00:00 2001
From: David Cook <dcook@prosentient.com.au>
Date: Thu, 14 May 2020 04:00:32 +0000
Subject: [PATCH] Bug 25476: Add ability to browse file uploads by category

This patch adds the ability to search/browse files by category.
(Note it doesn't include temporary uploads since they don't have
 a "category" per se.)

Test Plan:
0) Apply patch
1) Go to /cgi-bin/koha/admin/authorised_values.pl
2) Create "UPLOAD" authorized value category
3) Create "test" authorized value in "UPLOAD" category
4) Go to /cgi-bin/koha/tools/upload.pl
5) Note "Search uploads by category" fieldset
6) Upload new file to "test" category
7) Click "Back"
8) Choose "test" category in "Search uploads by category"
9) Click "Search"
10) Note that your file upload is displayed in result list

Signed-off-by: Mazen Khallaf <mazen.i.khallaf@gamil.com>
Signed-off-by: Victor Grousset/tuxayo <victor@tuxayo.net>

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
(cherry picked from commit 5f25235b9ea4838cf1a875b10f873dc68c00ba0b)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
---
 .../prog/en/modules/tools/upload.tt           | 26 +++++++++++++++++++
 tools/upload.pl                               | 17 ++++++++++++
 2 files changed, 43 insertions(+)

diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/upload.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/tools/upload.tt
index 8f428016de..b6de976786 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/upload.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/tools/upload.tt
@@ -95,6 +95,31 @@
     </form>
 [% END %]
 
+[% BLOCK form_browse %]
+    [% IF uploadcategories %]
+    <form method="post" id="browsefile" action="/cgi-bin/koha/tools/upload.pl" enctype="multipart/form-data">
+        [% PROCESS plugin_pars %]
+        <input type="hidden" name="op" value="browse"/>
+        <fieldset class="rows">
+        <legend>Search uploads by category</legend>
+        <ol>
+            <li>
+                <label for="browsecategory">Category: </label>
+                <select id="browsecategory" name="browsecategory">
+                [% FOREACH cat IN uploadcategories %]
+                    <option value="[% cat.code | html %]">[% cat.name | html %]</option>
+                [% END %]
+                </select>
+            </li>
+        </ol>
+        <fieldset class="action">
+            <button id="browsebutton" class="submit">Search</button>
+        </fieldset>
+        </fieldset>
+    </form>
+    [% END %]
+[% END %]
+
 [% BLOCK form_search %]
     <form method="post" id="searchfile" action="/cgi-bin/koha/tools/upload.pl" enctype="multipart/form-data">
         [% PROCESS plugin_pars %]
@@ -222,6 +247,7 @@
 [% PROCESS submitter %]
 [% IF mode == 'new' || mode == 'deleted' %]
     [% PROCESS form_new %]
+    [% PROCESS form_browse %]
     [% PROCESS form_search %]
     [% PROCESS closer %]
 [% ELSIF mode == 'report' %]
diff --git a/tools/upload.pl b/tools/upload.pl
index 61e8a22ee4..cf9a2c6053 100755
--- a/tools/upload.pl
+++ b/tools/upload.pl
@@ -36,6 +36,7 @@ my $index  = $input->param('index');         # MARC editor input field id
 my $term   = $input->param('term');
 my $id     = $input->param('id');
 my $msg    = $input->param('msg');
+my $browsecategory = $input->param('browsecategory');
 
 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
     {   template_name   => "tools/upload.tt",
@@ -58,6 +59,22 @@ if ( $op eq 'new' ) {
     );
     output_html_with_http_headers $input, $cookie, $template->output;
 
+} elsif ( $op eq 'browse' ) {
+    my $uploads;
+    if ($browsecategory){
+        $uploads = Koha::UploadedFiles->search({
+            uploadcategorycode => $browsecategory,
+            $plugin? ( public => 1 ): (),
+        })->unblessed;
+    }
+
+    $template->param(
+        mode    => 'report',
+        msg     => $msg,
+        uploads => $uploads,
+    );
+    output_html_with_http_headers $input, $cookie, $template->output;
+
 } elsif ( $op eq 'search' ) {
     my $uploads;
     if( $id ) { # might be a comma separated list
-- 
2.39.5