X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=svc%2Fbib;h=29121cabad0e387268db8a639f3e61ab3fcf4f30;hb=c7a2ef33177f176b8c5a5c12da9586de77569af1;hp=b6df2e50a97af30f70cc873c92edb557a232a6c1;hpb=7ee7effc89e5b17b72d27d38e1eaa6acc28b35d2;p=koha_gimpoz diff --git a/svc/bib b/svc/bib index b6df2e50a9..29121cabad 100755 --- a/svc/bib +++ b/svc/bib @@ -13,20 +13,23 @@ # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR # A PARTICULAR PURPOSE. See the GNU General Public License for more details. # -# You should have received a copy of the GNU General Public License along with -# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA +# You should have received a copy of the GNU General Public License along +# with Koha; if not, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. # use strict; +use warnings; + use CGI; use C4::Auth qw/check_api_auth/; use C4::Biblio; use XML::Simple; my $query = new CGI; +binmode STDOUT, ":utf8"; -my ($status, $cookie, $sessionID) = check_api_auth($query, { editcatalogue => 1} ); +my ($status, $cookie, $sessionID) = check_api_auth($query, { editcatalogue => 'edit_catalogue'} ); unless ($status eq "ok") { print $query->header(-type => 'text/xml', -status => '403 Forbidden'); print XMLout({ auth_status => $status }, NoAttr => 1, RootName => 'response', XMLDecl => 1);