serials/subscription-numberpattern.pl

   1 #!/usr/bin/perl
   2
   3 use CGI;
   4 use C4::Serials::Numberpattern;
   5 use URI::Escape;
   6 use strict;
   7 use warnings;
   8
   9 my $input=new CGI;
  10 my $numpatternid=$input->param("numberpattern_id");
  11
  12 my $numberpatternrecord=GetSubscriptionNumberpattern($numpatternid);
  13 binmode STDOUT, ":encoding(UTF-8)";
  14 print $input->header(-type => 'text/plain', -charset => 'UTF-8');
  15 print "{",join (",",map {"\"$_\":\"".(uri_escape($numberpatternrecord->{$_}) // '')."\"" }sort keys %$numberpatternrecord),"}";