5 use C4::Serials::Numberpattern;
6 use C4::Auth qw/check_cookie_auth/;
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');
17 my $numpatternid=$input->param("numberpattern_id");
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),"}";