5 use C4::Serials::Frequency;
6 use C4::Auth qw/check_cookie_auth/;
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") {
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)."}";