1 package Koha::UploadedFiles;
3 # Copyright Rijksmuseum 2016
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 3 of the License, or (at your option) any later
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License along
17 # with Koha; if not, write to the Free Software Foundation, Inc.,
18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
23 use Koha::UploadedFile;
25 use parent qw(Koha::Objects);
29 Koha::UploadedFiles - Koha::Objects class for uploaded files
33 use Koha::UploadedFiles;
41 =head2 INSTANCE METHODS
43 =head3 delete, delete_errors
45 Delete uploaded files.
46 Returns true if no errors occur.
47 Delete_errors returns the number of errors when deleting files.
49 Parameter keep_file may be used to delete records, but keep files.
54 my ( $self, $params ) = @_;
55 # We use the individual delete on each resultset record
57 while( my $row = $self->_resultset->next ) {
58 my $kohaobj = Koha::UploadedFile->_new_from_dbic( $row );
59 $err++ if !$kohaobj->delete( $params );
61 $self->{delete_errors} = $err;
67 return $self->{delete_errors};
72 Search_term allows you to pass a term to search in filename and hashvalue.
73 If you do not pass include_private, only public records are returned.
75 Is only a wrapper around Koha::Objects search. Has similar return value.
80 my ( $self, $params ) = @_;
81 my $term = $params->{term} // '';
83 if( !$params->{include_private} ) {
84 %public = ( public => 1 );
87 [ { filename => { like => '%'.$term.'%' }, %public },
88 { hashvalue => { like => '%'.$params->{term}.'%' }, %public } ],
89 { order_by => { -asc => 'id' }},
97 Returns name of corresponding DBIC resultset
102 return 'UploadedFile';
107 Returns name of corresponding Koha object class
112 return 'Koha::UploadedFile';
117 Marcel de Rooy (Rijksmuseum)
119 Koha Development Team