svc/virtualshelves/search

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4 use CGI;
   5
   6 use C4::Auth qw( get_template_and_user );
   7 use C4::Output qw( output_with_http_headers );
   8 use C4::Utils::DataTables qw( dt_get_params );
   9 use C4::Utils::DataTables::VirtualShelves qw( search );
  10
  11 my $input = new CGI;
  12
  13 exit unless $input->param('template_path');
  14
  15 my ($template, $user, $cookie) = get_template_and_user({
  16     template_name   => scalar $input->param('template_path'),
  17     query           => $input,
  18     type            => "intranet",
  19     authnotrequired => 0,
  20     flagsrequired   => { catalogue => 1 }
  21 });
  22
  23 my $shelfname = $input->param('shelfname');
  24 my $count = $input->param('count');
  25 my $owner = $input->param('owner');
  26 my $type = $input->param('type');
  27 my $sortby = $input->param('sortby');
  28
  29 # variable information for DataTables (id)
  30 my $sEcho = $input->param('sEcho');
  31
  32 my %dt_params = dt_get_params($input);
  33 foreach (grep {$_ =~ /^mDataProp/} keys %dt_params) {
  34     $dt_params{$_} =~ s/^dt_//;
  35 }
  36
  37 my $results = C4::Utils::DataTables::VirtualShelves::search(
  38     {
  39         shelfname => $shelfname,
  40         count => $count,
  41         owner => $owner,
  42         type => $type,
  43         sortby => $sortby,
  44         dt_params => \%dt_params,
  45     }
  46 );
  47
  48 $template->param(
  49     sEcho => $sEcho,
  50     iTotalRecords => $results->{iTotalRecords},
  51     iTotalDisplayRecords => $results->{iTotalDisplayRecords},
  52     aaData => $results->{shelves}
  53 );
  54
  55 output_with_http_headers $input, $cookie, $template->output, 'json';
  56
  57 __END__
  58
  59 =head1 NAME
  60
  61 search - a search script for finding virtual shelves
  62
  63 =head1 SYNOPSIS
  64
  65 This script provides a service for template for virtual shelves search using DataTables
  66
  67 =cut
  68
  69 =back
  70
  71 =head1 LICENSE
  72
  73 Copyright 2014 BibLibre
  74
  75 This file is part of Koha.
  76
  77 Koha is free software; you can redistribute it and/or modify it under the
  78 terms of the GNU General Public License as published by the Free Software
  79 Foundation; either version 2 of the License, or (at your option) any later
  80 version.
  81
  82 Koha is free software; you can redistribute it and/or modify it
  83 under the terms of the GNU General Public License as published by
  84 the Free Software Foundation; either version 3 of the License, or
  85 (at your option) any later version.
  86
  87 Koha is distributed in the hope that it will be useful, but
  88 WITHOUT ANY WARRANTY; without even the implied warranty of
  89 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  90 GNU General Public License for more details.
  91
  92 You should have received a copy of the GNU General Public License
  93 along with Koha; if not, see <http://www.gnu.org/licenses>.