serials/subscription-frequency.pl

   1 #!/usr/bin/perl
   2
   3 use CGI;
   4 use C4::Context;
   5 use C4::Serials::Frequency;
   6 use C4::Auth qw/check_cookie_auth/;
   7 use URI::Escape;
   8 use strict;
   9
  10 my $input=new CGI;
  11 my $frqid=$input->param("frequency_id");
  12 my ($auth_status, $sessionID) = check_cookie_auth($input->cookie('CGISESSID'), { serials => '*' });
  13 if ($auth_status ne "ok") {
  14     exit 0;
  15 }
  16 my $frequencyrecord=GetSubscriptionFrequency($frqid);
  17 binmode STDOUT, ":encoding(UTF-8)";
  18 print $input->header(-type => 'text/plain', -charset => 'UTF-8');
  19 print "{".join (",",map { "\"$_\":\"".uri_escape($frequencyrecord->{$_})."\"" }sort keys %$frequencyrecord)."}";