a1a8cc41f6
- "return undef" -> "return" - ":utf8" -> ":encoding(UTF-8)" - TAB -> SPACES Signed-off-by: Bernardo Gonzalez Kriegel <bgkriegel@gmail.com> Signed-off-by: Paul Poulain <paul.poulain@biblibre.com> Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>
19 lines
608 B
Perl
Executable file
19 lines
608 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
use CGI;
|
|
use C4::Context;
|
|
use C4::Serials::Frequency;
|
|
use C4::Auth qw/check_cookie_auth/;
|
|
use URI::Escape;
|
|
use strict;
|
|
|
|
my $input=new CGI;
|
|
my $frqid=$input->param("frequency_id");
|
|
my ($auth_status, $sessionID) = check_cookie_auth($input->cookie('CGISESSID'), { serials => '*' });
|
|
if ($auth_status ne "ok") {
|
|
exit 0;
|
|
}
|
|
my $frequencyrecord=GetSubscriptionFrequency($frqid);
|
|
binmode STDOUT, ":encoding(UTF-8)";
|
|
print $input->header(-type => 'text/plain', -charset => 'UTF-8');
|
|
print "{".join (",",map { "\"$_\":\"".uri_escape($frequencyrecord->{$_})."\"" }sort keys %$frequencyrecord)."}";
|