Perl 101 for EPrints - Revision history

Kgoetz: create further reading section

2018-09-20T02:03:07Z

create further reading section

← Older revision		Revision as of 02:03, 20 September 2018
Line 171:		Line 171:

	This example can be expanded to test work in progress functions as required.		This example can be expanded to test work in progress functions as required.

			== Further reading ==

			[[Core_API]] describes many possible activities.

2018-09-18T01:59:08Z

mention get_config is a wrapper

← Older revision		Revision as of 01:59, 18 September 2018
Line 130:		Line 130:
	==== Usage of get_config ====		==== Usage of get_config ====

	EPrints::Repository::get_config (accessed via $session->get_repository->get_conf()) can be used with two or three parameters		EPrints::Repository::get_config (accessed via $session->get_repository->get_conf()) can be used with two or three parameters.

	With only two (key and value) returns a hash		With only two (key and value) returns a hash
Line 139:		Line 139:


			get_config is a thin wrapper around config()

	See also "perl_lib/EPrints/Repository.pm" line 1611		See also "perl_lib/EPrints/Repository.pm" line 1611

2018-09-18T01:52:14Z

WIP get_config. I need to reword this

← Older revision		Revision as of 01:52, 18 September 2018
Line 128:		Line 128:
	</source>		</source>

			==== Usage of get_config ====

			EPrints::Repository::get_config (accessed via $session->get_repository->get_conf()) can be used with two or three parameters

			With only two (key and value) returns a hash
			$session->get_repository->get_conf( "datacitedoi", "typesallowed")

			With three values (key and two values) will return 1 (true) if the last item is found in the list of the second entry - config_entry below
			$session->get_repository->get_conf( "datacitedoi", "config_entry", 'Thesis')




			See also "perl_lib/EPrints/Repository.pm" line 1611

	== A basic EPrint extracting script ==		== A basic EPrint extracting script ==

2018-09-18T01:37:05Z

add some tips / tricks.

@@ Line 104: / Line 104: @@
 my ($plugin, $eprint, $field_conf) = @_;
 </source>
 == A basic EPrint extracting script ==

2018-09-18T01:12:39Z

lift script to its own section

← Older revision		Revision as of 01:12, 18 September 2018
Line 105:		Line 105:
	</source>		</source>

	=== A basic EPrint extracting script ===		== A basic EPrint extracting script ==

	The simplest of examples, use eprints to register a session in the repository then read an (arbitrary) eprint; accessing two bits of information about it. The attributes accessed come from [[EPrint Object]] and [[API:EPrints/DataObj]].		The simplest of examples, use eprints to register a session in the repository then read an (arbitrary) eprint; accessing two bits of information about it. The attributes accessed come from [[EPrint Object]] and [[API:EPrints/DataObj]].

2018-09-18T01:09:58Z

add missing words

← Older revision		Revision as of 01:09, 18 September 2018
Line 132:		Line 132:
	</source>		</source>

	This example can be expanded to		This example can be expanded to test work in progress functions as required.

2018-09-18T01:09:28Z

remove use of legacy Eprints::Session

← Older revision		Revision as of 01:09, 18 September 2018
Line 115:		Line 115:

	use strict;		use strict;

	~~# Need repo id (second val) or errors of~~
	~~#Use of uninitialized value $repository_id in string eq at /usr/share/eprints/perl_lib/EPrints.pm line 551.~~
	~~#Can't call method "get_database" on an undefined value at /usr/share/eprints/perl_lib/EPrints/DataObj.pm line 132.~~
	# Create new session for interacting with eprints		# Create new session for interacting with eprints
	my $~~session~~ = EPrints~~::Session~~->new( 1, 'REPOID');		my $ep = EPrints->new( cleanup=>0 );
			my $session = $ep->repository( 'REPOID');
	my $id = 23743;		my $id = 23743;

2018-09-13T05:51:23Z

change repo id

← Older revision		Revision as of 05:51, 13 September 2018
Line 120:		Line 120:
	#Can't call method "get_database" on an undefined value at /usr/share/eprints/perl_lib/EPrints/DataObj.pm line 132.		#Can't call method "get_database" on an undefined value at /usr/share/eprints/perl_lib/EPrints/DataObj.pm line 132.
	# Create new session for interacting with eprints		# Create new session for interacting with eprints
	my $session = EPrints::Session->new( 1, '~~epprod~~');		my $session = EPrints::Session->new( 1, 'REPOID');
	my $id = 23743;		my $id = 23743;

2018-09-13T05:50:36Z

add language to source box

← Older revision		Revision as of 05:50, 13 September 2018
Line 108:		Line 108:

	The simplest of examples, use eprints to register a session in the repository then read an (arbitrary) eprint; accessing two bits of information about it. The attributes accessed come from [[EPrint Object]] and [[API:EPrints/DataObj]].		The simplest of examples, use eprints to register a session in the repository then read an (arbitrary) eprint; accessing two bits of information about it. The attributes accessed come from [[EPrint Object]] and [[API:EPrints/DataObj]].
	<source>		<source lang="perl">

	#!/usr/bin/perl -w		#!/usr/bin/perl -w

2018-09-13T05:50:00Z

add minimal script example

← Older revision		Revision as of 05:50, 13 September 2018
Line 104:		Line 104:
	my ($plugin, $eprint, $field_conf) = @_;		my ($plugin, $eprint, $field_conf) = @_;
	</source>		</source>

			=== A basic EPrint extracting script ===

			The simplest of examples, use eprints to register a session in the repository then read an (arbitrary) eprint; accessing two bits of information about it. The attributes accessed come from [[EPrint Object]] and [[API:EPrints/DataObj]].
			<source>

			#!/usr/bin/perl -w

			use EPrints;

			use strict;

			# Need repo id (second val) or errors of
			#Use of uninitialized value $repository_id in string eq at /usr/share/eprints/perl_lib/EPrints.pm line 551.
			#Can't call method "get_database" on an undefined value at /usr/share/eprints/perl_lib/EPrints/DataObj.pm line 132.
			# Create new session for interacting with eprints
			my $session = EPrints::Session->new( 1, 'epprod');
			my $id = 23743;

			# Create new object referency thing for our desired eprint (23743)
			$::pulled_eprint = EPrints::DataObj::EPrint->new( $session, $id );

			print $::pulled_eprint->get_dataset_id . "\n";
			print $::pulled_eprint->get_type . "\n";


			$session->terminate();

			</source>

			This example can be expanded to