X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=svc%2Fbib_profile;h=e1c1f68a299b778b2c8955284ef4c28a54d5450e;hb=f245998ac964881e9cc2b36434860c55698e8701;hp=41ea042047411d462d9976fed1b7a5f444006a75;hpb=7ee7effc89e5b17b72d27d38e1eaa6acc28b35d2;p=koha.git diff --git a/svc/bib_profile b/svc/bib_profile index 41ea042047..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); @@ -70,6 +72,7 @@ sub _get_mandatory_subfields { FROM marc_subfield_structure WHERE frameworkcode = '' AND tagsubfield <> '\@' + AND kohafield <> 'biblioitems.itemtype' AND mandatory = 1"); $sth->execute(); my @subfields = ();