return @res;
}
sub DESTROY {
=head1 CLASS METHODS
# ************** HELPER ROUTINES / CLASS METHODS ******************************
=head2 getCategories
);
# ************** INTERNAL ROUTINES ********************************************
=head1 INTERNAL ROUTINES
=cut
sub _init {
my ( $self, $params ) = @_;
my ( $self, $rec ) = @_;
my $p;
if( ref $rec ) {
$p= $rec->{permanent}? $self->{rootdir}: $self->{tmpdir};
$p = File::Spec->catfile(
$p.= '/';
$rec->{permanent}? $self->{rootdir}: $self->{tmpdir},
$p.= $rec->{dir}. '/'. $rec->{hashvalue}. '_'. $rec->{filename};
$rec->{dir},
$rec->{hashvalue}. '_'. $rec->{filename}
return $p;
sub _lookup {
my $dbh = C4::Context->dbh;
my $sql = qq|
my $sql = q|
SELECT id,hashvalue,filename,dir,filesize,categorycode,public,permanent
FROM uploaded_files
|;
});
sub upload_pars {
sub upload_pars { # this sub parses QUERY_STRING in order to build the
# parameter hash for Koha::Upload
my ( $qstr ) = @_;
$qstr = Encode::decode_utf8( uri_unescape( $qstr ) );
# category could include a utf8 character
-