jesusbagpuss

#!/usr/bin/perl -w

# NB This file is designed to be saved as [EPRINTS_ROOT]/bin/local/delete_user
# If you want to save it elsewhere, the 'FindBin' on line 52 may need altering.

=pod

=head1 NAME

B<delete_user> - Removes an EPrints user account

jesusbagpuss

use EPrints::Const;

my %rewrite_map = (
	123 => 'https://other.site/321',
	456 => 'https://else.where/stuff-999',
);

$c->add_trigger( EP_TRIGGER_URL_REWRITE, sub {
        my( %o ) = @_;

jesusbagpuss

{
	"type": "thesis",
	"title": "This is a test thesis",
	"publisher": "University of Leeds",
	"publisher-place": "Leeds, UK",
	"genre": "Doctoral thesis",
	"source": "test.repository.leeds.ac.uk",
	"abstract": "The abstract of the thesis.",
	"URL": "https://test.repository.leeds.ac.uk/123456/",
	"language": "en",

jesusbagpuss

package EPrints::Plugin::WRRecaptcha;
use strict;
our @ISA = qw/ EPrints::Plugin /;

######################################################################
#
# Use recaptcha.net instead of Google, so people in China can add their stuff
#
######################################################################
#

jesusbagpuss

# Open block
{

# Write into EPrints::Script::Compiled
package EPrints::Script::Compiled;

use strict;

# Example usage in citation file:
#

jesusbagpuss

# this is the block from EPrints::DataObj::EPrint, but with:
# export_as_xml => 1
# and
# replace_core => 1 (to overwrite the default field)

push @{ $c->{fields}->{eprint} },
	{ name=>"item_issues", type=>"compound", multiple=>1,
		fields => [
			{
				sub_name => "id",

jesusbagpuss

#!/usr/bin/perl -w

### SAVE FILE TO ~/bin/local/eprints_to_reindex, or edit the FindBin path below according to where you've saved it. 

use FindBin;
use lib "$FindBin::Bin/../../perl_lib";

use EPrints;

use strict;

jesusbagpuss

#!/usr/bin/perl -w

# Usage: ~/bin/local/get_user_preferences ARCHIVEID USERID 

# NOTE: If you save this to a location other that EPRINTS_ROOT/bin/local/ the 'use lib' statement
# below will need to be adjusted accordingly

use FindBin;
use lib "$FindBin::Bin/../../perl_lib";

jesusbagpuss

{
package EPrints::Script::Compiled;

use strict;

sub run_wrro_people_limited
{
        my( $self, $state, $value, $limit ) = @_;

        my $session = $state->{session};

jesusbagpuss

################################################################################
#
#  This fix was submitted to Symplectic April 2018
#  As yet they haven't made a new release of the connector with it included :o\
#
#
# The changes below consist of:
# - new method in Symplectic::RepoProcess::MergeManager
# - replace two method calls with calls to the new method
#