Miscellaneous Config Options/get users owned eprints - Revision history

Alex-ball at 12:36, 1 October 2024

2024-10-01T12:36:43Z

Alex-ball at 12:27, 1 October 2024

2024-10-01T12:27:17Z

Libjlrs: /* Example */

2024-07-26T14:33:21Z

‎Example

Drn@ecs.soton.ac.uk: Added example

2024-07-26T14:22:12Z

Added example

New page

== Example ==
$c->{get_users_owned_eprints} = sub
{
my( $session, $user, %opts ) = @_;
# for non-editorial accounts, return the normal list
if( $user->get_type ne "editor" )
{
return $user->owned_eprints_list_actual( %opts );
}
# only interested in editor accounts now
# allow editors to see their items, and items from a specific userid e.g. 99999
my $extra_userid = 99999;
my $searchexp = $opts{dataset}->prepare_search( %opts );
$searchexp->add_field( $opts{dataset}->field( "userid" ), $user->id . " $extra_userid", "IN", "ANY" );
return $searchexp->perform_search;
};

@@ Line 26: / Line 26: @@
+  {
       my( $session, $user, $dataset ) = @_;
-      my $searchexp = new EPrints::Search(
+      my $searchexp = $dataset->prepare_search(
-         session => $session,
+          # options go here
       );
       # Add fields to $searchexp here
       return $searchexp->perform_search;
   };

← Older revision		Revision as of 14:33, 26 July 2024
Line 1:		Line 1:
		+	This example should work with v3.4.6+.
		+
		+	Prior to v3.4.6 defining this method resulted in unexpected behaviour when eprint_status checkboxes were used on the ''Manage deposits'' page.
		+
	== Example ==		== Example ==
	$c->{get_users_owned_eprints} = sub		$c->{get_users_owned_eprints} = sub

@@ Line 17: / Line 17: @@
       my $searchexp = $opts{dataset}->prepare_search( %opts );
       $searchexp->add_field( $opts{dataset}->field( "userid" ), $user->id . " $extra_userid", "IN", "ANY" );
       return $searchexp->perform_search;
   };