serials/subscription-numberpattern.pl

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