SCONUL Report - Revision history

Af05v@ecs.soton.ac.uk: /* Number of full text items held in the institutional repository, available externally */

2015-06-16T14:19:25Z

Number of full text items held in the institutional repository, available externally

← Older revision		Revision as of 14:19, 16 June 2015
Line 11:		Line 11:
	perl -I ../perl_lib/ report.pl <archive_name>		perl -I ../perl_lib/ report.pl <archive_name>

	<~~pre~~>		<source lang="perl">

	#!/usr/bin/perl -I/opt/eprints/eprints3/perl_lib		#!/usr/bin/perl -I/opt/eprints/eprints3/perl_lib

Line 75:		Line 74:
	print Dumper $counts;		print Dumper $counts;

	</~~pre~~>		</source>

Mooread@liv.ac.uk at 09:20, 20 May 2015

2015-05-20T09:20:35Z

← Older revision		Revision as of 09:20, 20 May 2015
Line 1:		Line 1:
			'''Update''': I've written a [[Departmental report script]] based on this

	For our SCONUL return this year we were asked for:		For our SCONUL return this year we were asked for:

Mooread@liv.ac.uk at 12:03, 22 January 2015

2015-01-22T12:03:53Z

← Older revision		Revision as of 12:03, 22 January 2015
Line 1:		Line 1:
			For our SCONUL return this year we were asked for:

			====Number of full text items held in the institutional repository, available externally====

			* Include all items freely available to view as full text, including pre- and post- prints, reports, theses etc., and other complete works, e.g. artistic works, datasets, etc. Include all items, not just those added during the year.

			Adam Field wrote the code below, which I copied into /eprints/eprints3/bin and ran with

			perl -I ../perl_lib/ report.pl <archive_name>

	<pre>		<pre>

Line 16:		Line 26:
	my $repo = $ep->repository( $repositoryid );		my $repo = $ep->repository( $repositoryid );

	die "Could not create repository object for $repositoryid\n" unless $~~repository~~;		die "Could not create repository object for $repositoryid\n" unless $repositoryid;

	my $ds = $repo->dataset('archive');		my $ds = $repo->dataset('archive');

Af05v@ecs.soton.ac.uk: Created page with '

  #!/usr/bin/perl -I/opt/eprints/eprints3/perl_lib  use strict; use warnings;  my $date_value = '-2014-06-31'; #all dates up to June 31st 2014 use EPrints; binmode(STDOUT, '…'

2015-01-22T11:35:22Z

Created page with '<pre> #!/usr/bin/perl -I/opt/eprints/eprints3/perl_lib use strict; use warnings; my $date_value = '-2014-06-31'; #all dates up to June 31st 2014 use EPrints; binmode(STDOUT, '…'

New page

<pre>

#!/usr/bin/perl -I/opt/eprints/eprints3/perl_lib

use strict;
use warnings;

my $date_value = '-2014-06-31'; #all dates up to June 31st 2014
use EPrints;
binmode(STDOUT, ':utf8');

my $repositoryid = $ARGV[0];
die "report.pl *repositoryid*\n" unless $repositoryid;

my $ep = EPrints->new();
my $repo = $ep->repository( $repositoryid );

die "Could not create repository object for $repositoryid\n" unless $repository;

my $ds = $repo->dataset('archive');

my $search = $ds->prepare_search();

$search->add_field($ds->field('eprint_status'), 'archive');
$search->add_field($ds->field('datestamp'), $date_value);
my $list = $search->perform_search;

my $counts = {};

$list->map( sub
{
my ($repo, $ds, $dataobj, $counts) = @_;

my @docs = $dataobj->get_all_documents;

my $public = 0;
my $private = 0;
foreach my $doc (@docs)
{
if ($doc->value('security') eq 'public')
{
$public++;
}
else
{
$private++;
}
}

if ($public)
{
$counts->{public}++;
}
elsif ($private)
{
$counts->{private}++;
}
$counts->{total}++;

}, $counts);

use Data::Dumper;
print Dumper $counts;

</pre>