Skip to content

move lib/bin/issues_audit2 to bin/issues_audit2 #1

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
cziaarm wants to merge 9 commits into
base: master
Choose a base branch
from
Open

move lib/bin/issues_audit2 to bin/issues_audit2 #1

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
9 commits
Select commit Hold shift + click to select a range
1c8276f
move issues_audit2 bin to a location it can be installed from
Oct 30, 2018
03c1a70
better loc for bin
Oct 30, 2018
01ed005
update epmi
Oct 30, 2018
4fb9c55
update FindBin line to take in to account new location
Nov 6, 2018
67c69c8
ADding missing citation files
Apr 6, 2019
bcf7b1d
updated epm(i)
Apr 6, 2019
bcdce5b
Remove current issues that refer to an eprint which no longer exists
wfyson Sep 13, 2021
fd8a4f7
Removing ISSNs from issues check and updating bin script to remove pr…
EDumbill May 2, 2025
6df9e9d
Removing ISSNs from issues check and updating bin script to remove pr…
EDumbill May 2, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
20 changes: 15 additions & 5 deletions lib/bin/issues_audit2 → bin/issues_audit2
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,8 +1,7 @@
#!/usr/bin/perl -w

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

use lib "$FindBin::Bin/../../../perl_lib";
######################################################################
#
#
Expand Down Expand Up @@ -141,6 +140,8 @@ sub _set_item_issues($$);
#}

my $ds = $session->get_archive()->get_dataset( 'eprint' );
my %ids = map { $_ => 1 } @{$ds->search->ids};

my $list;
if( @ARGV )
{
Expand Down Expand Up @@ -262,9 +263,12 @@ sub _set_item_issues($$)
# clone, otherwise we can't detect changes
$current_issues = EPrints::Utils::clone( $current_issues );

my @updated_issues;

# update existing issues
foreach my $issue (@$current_issues)
{
next if $issue->{type} eq "duplicate_issn";
my $new_issue = delete $issues_map{$issue->{id}};
if( defined $new_issue )
{
Expand All @@ -276,21 +280,27 @@ sub _set_item_issues($$)
{
## $issue->{status} = "autoresolved";
}

# check current issue still refers to an existing eprint
my $item_id = substr $issue->{id}, rindex( $issue->{id}, "_" )+1 ;
if( exists( $ids{$item_id} ) )
{
push @updated_issues, $issue;
}
}

# append all other new issues
foreach my $new_issue (@$new_issues)
{
next if !exists $issues_map{$new_issue->{id}};
push @$current_issues, $new_issue;
push @updated_issues, $new_issue;
}

$self->set_value( "item_issues2", $current_issues ); # key difference
$self->set_value( "item_issues2", \@updated_issues ); # key difference
}




=head1 COPYRIGHT

=for COPYRIGHT BEGIN
Expand Down
1 change: 0 additions & 1 deletion cfg/namedsets/issues2
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,4 @@
# register issues2 plugins here
duplicate_doi
duplicate_isbn
duplicate_issn
duplicate_title
459 changes: 184 additions & 275 deletions issues2.epm
View file
Open in desktop

Large diffs are not rendered by default.

Loading