X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=svc%2Fbib_profile;h=e1c1f68a299b778b2c8955284ef4c28a54d5450e;hb=413a1e1e61b343db47b9b6fdecf3d981d87013ef;hp=274a63432388c4f533f640e5d7daa836bd791693;hpb=f38989087a8acc944597ea3d70bedc7923e0c52a;p=koha_fer diff --git a/svc/bib_profile b/svc/bib_profile index 274a634323..e1c1f68a29 100755 --- a/svc/bib_profile +++ b/svc/bib_profile @@ -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 C4::Context; @@ -27,7 +29,7 @@ use XML::Simple; my $query = new CGI; -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);