39 |
binmode STDOUT, ":encoding(UTF-8)"; |
39 |
binmode STDOUT, ":encoding(UTF-8)"; |
40 |
print $input->header( -type => 'text/plain', -charset => 'UTF-8' ); |
40 |
print $input->header( -type => 'text/plain', -charset => 'UTF-8' ); |
42 |
my ( $auth_status, $sessionID ) = check_cookie_auth( $input->cookie('CGISESSID'), { circulate => '*' } ); |
42 |
my ( $auth_status, $sessionID ) = check_cookie_auth( $input->cookie('CGISESSID'), { catalogue => '1' } ); |