X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=svc%2Fauthentication;h=945d3161e2b7abe65d92b2d1fbfdd1c92ad26251;hb=f7644ec91f2d151535f8f5125c4057a9213d766e;hp=f36d1335a5d3c172b1112d9c0bc692749783c884;hpb=7ee7effc89e5b17b72d27d38e1eaa6acc28b35d2;p=koha.git diff --git a/svc/authentication b/svc/authentication index f36d1335a5..945d3161e2 100755 --- a/svc/authentication +++ b/svc/authentication @@ -13,12 +13,14 @@ # 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 XML::Simple; @@ -41,7 +43,7 @@ my $query = new CGI; # web browser, but instead should be stored and submitted by biblios. -my ($status, $cookie, $sessionID) = check_api_auth($query, { editcatalogue => 1} ); +my ($status, $cookie, $sessionID) = check_api_auth($query, { editcatalogue => 'edit_catalogue'} ); if ($status eq "ok") { print $query->header(-type => 'text/xml', cookie => $cookie);