Perl 101 for EPrints - Revision history

Kgoetz: create further reading section

2018-09-20T02:03:07Z

create further reading section

2018-09-18T01:59:08Z

mention get_config is a wrapper

2018-09-18T01:52:14Z

WIP get_config. I need to reword this

2018-09-18T01:37:05Z

add some tips / tricks.

2018-09-18T01:12:39Z

lift script to its own section

2018-09-18T01:09:58Z

add missing words

2018-09-18T01:09:28Z

remove use of legacy Eprints::Session

2018-09-13T05:51:23Z

change repo id

2018-09-13T05:50:36Z

add language to source box

2018-09-13T05:50:00Z

add minimal script example

← 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.

@@ Line 130: / Line 130: @@
 ==== 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
@@ Line 139: / Line 139: @@
+get_config is a thin wrapper around config()
 See also "perl_lib/EPrints/Repository.pm" line 1611

← 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 ==

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

@@ Line 105: / Line 105: @@
 </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]].

← 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.

@@ Line 115: / Line 115: @@
 use strict;
-−
 # Create new session for interacting with eprints
-my $session = EPrints::Session->new( 1, 'REPOID');
+my $ep = EPrints->new( cleanup=>0 );
 my $id = 23743;

@@ 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]].
-<source>
+<source lang="perl">
 #!/usr/bin/perl -w

← 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