8d536b8ecf
Give the user the ability to merge two records, one being kept and the other deleted. Selection of the records to merge can be done from virtualshelves.
29 lines
756 B
Perl
Executable file
29 lines
756 B
Perl
Executable file
#!/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;
|