41 |
binmode STDOUT, ":encoding(UTF-8)"; |
41 |
binmode STDOUT, ":encoding(UTF-8)"; |
42 |
print $input->header( -type => 'text/plain', -charset => 'UTF-8' ); |
42 |
print $input->header( -type => 'text/plain', -charset => 'UTF-8' ); |
44 |
my ( $auth_status, $sessionID ) = check_cookie_auth( $input->cookie('CGISESSID'), { cataloguing => '*' } ); |
44 |
my ( $auth_status, $sessionID ) = check_cookie_auth( $input->cookie('CGISESSID'), { editcatalogue => '*' } ); |