#UserPermsOrcid Report $c->{orcid_user}->{exportfields} = { user_report_core => [ qw( userid username name orcid usertype email dept org authenticate read update )], }; $c->{orcid_user}->{exportfield_defaults} = [ qw( userid username name orcid usertype email dept org authenticate read update )]; $c->{orcid_user}->{custom_export} = { authenticate => sub { my( $dataobj, $plugin ) = @_; my @perms; my $repo = $dataobj->repository; if( $dataobj->get_value( "orcid_granted_permissions" ) =~ m/\/authenticate/ ) { return "Y"; } else { return "N"; } }, read => sub { my( $dataobj, $plugin ) = @_; my @perms; my $repo = $dataobj->repository; if( $dataobj->get_value( "orcid_granted_permissions" ) =~ m/\/read-limited/ ) { return "Y"; } else { return "N"; } }, update => sub { my( $dataobj, $plugin ) = @_; my @perms; my $repo = $dataobj->repository; if( $dataobj->get_value( "orcid_granted_permissions" ) =~ m/\/activities\/update/ ) { return "Y"; } else { return "N"; } }, }; #CheckName Report $c->{orcid_check_name}->{sortfields} = { "byname" => "name", }; $c->{orcid_check_name}->{exportfields} = { user_report_core => [ qw( userid username name orcid orcid_name )], }; $c->{orcid_check_name}->{exportfield_defaults} = [ qw( userid username name orcid orcid_name )]; $c->{orcid_check_name}->{export_plugins} = $c->{user_report}->{export_plugins}; $c->{plugins}{"Screen::Report::Orcid::CheckName"}{params}{custom} = 1; $c->{datasets}->{user}->{search}->{orcid_check_name} = $c->{search}->{user};