MT 1059 : Records merging

[koha.git] / cataloguing / merge_ajax.pl

diff --git a/cataloguing/merge_ajax.pl b/cataloguing/merge_ajax.pl
new file mode 100755 (executable)
index 0000000..db4a430
--- /dev/null
+++ b/cataloguing/merge_ajax.pl
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+
+use strict;
+
+# standard or CPAN modules used
+use IO::File;
+use CGI;
+use CGI::Session;
+use C4::Context;
+use C4::Biblio;
+use C4::Auth qw/check_cookie_auth/;
+use C4::UploadedFile;
+use JSON;
+use CGI::Cookie; # need to check cookies before
+                 # having CGI parse the POST request
+
+my %cookies = fetch CGI::Cookie;
+my ($auth_status, $sessionID) = check_cookie_auth($cookies{'CGISESSID'}->value, { editcatalogue => '1' });
+if ($auth_status ne "ok") {
+    my $reply = CGI->new("");
+    print $reply->header(-type => 'text/html');
+    exit 0;
+} 
+
+my $reply = new CGI;
+my $framework = $reply->param('frameworkcode');
+my $tagslib = GetMarcStructure(1, $framework);
+print $reply->header(-type => 'text/html');
+print encode_json $tagslib;