line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Biblio::COUNTER; |
2
|
|
|
|
|
|
|
|
3
|
1
|
|
|
1
|
|
2722
|
use Biblio::COUNTER::Report; |
|
1
|
|
|
|
|
4
|
|
|
1
|
|
|
|
|
69
|
|
4
|
|
|
|
|
|
|
|
5
|
1
|
|
|
1
|
|
5
|
use warnings; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
32
|
|
6
|
1
|
|
|
1
|
|
4
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
37
|
|
7
|
|
|
|
|
|
|
|
8
|
1
|
|
|
1
|
|
4
|
use vars qw($VERSION); |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
654
|
|
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
$VERSION = '0.11'; |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
sub report { |
13
|
0
|
|
|
0
|
1
|
|
my ($cls, $how, %args) = @_; |
14
|
0
|
0
|
|
|
|
|
if (ref($how) eq 'ARRAY') { |
|
|
0
|
|
|
|
|
|
15
|
0
|
|
|
|
|
|
die "Instantiating a report from an array not yet implemented"; |
16
|
|
|
|
|
|
|
} |
17
|
|
|
|
|
|
|
elsif (ref($how)) { |
18
|
|
|
|
|
|
|
# Read report from a filehandle |
19
|
0
|
|
|
|
|
|
my $fh = $how; |
20
|
0
|
|
0
|
|
|
|
my $callbacks = delete($args{'callback'}) || {}; |
21
|
|
|
|
|
|
|
my $report = Biblio::COUNTER::Report->new( |
22
|
|
|
|
|
|
|
%args, |
23
|
|
|
|
|
|
|
'fh' => $fh, |
24
|
|
|
|
|
|
|
'callback' => { |
25
|
|
|
|
|
|
|
'output' => sub { |
26
|
0
|
|
|
0
|
|
|
my ($self, $output) = @_; |
27
|
0
|
|
|
|
|
|
print $output, "\n"; |
28
|
|
|
|
|
|
|
}, |
29
|
0
|
|
|
|
|
|
%$callbacks, |
30
|
|
|
|
|
|
|
}, |
31
|
|
|
|
|
|
|
'rows' => [], |
32
|
|
|
|
|
|
|
'errors' => 0, |
33
|
|
|
|
|
|
|
'warnings' => 0, |
34
|
|
|
|
|
|
|
# Current position within the report |
35
|
|
|
|
|
|
|
'r' => 0, |
36
|
|
|
|
|
|
|
'c' => '', |
37
|
|
|
|
|
|
|
# Current scope (REPORT, HEADER, or RECORD) |
38
|
|
|
|
|
|
|
'scope' => undef, |
39
|
|
|
|
|
|
|
# Current field (NAME, DESCRIPTION, etc. or TITLE, PUBLISHER, etc.) |
40
|
|
|
|
|
|
|
'field' => undef, |
41
|
|
|
|
|
|
|
# Containers |
42
|
|
|
|
|
|
|
'report' => undef, |
43
|
|
|
|
|
|
|
'header' => undef, |
44
|
|
|
|
|
|
|
'record' => undef, |
45
|
|
|
|
|
|
|
'container' => undef, # Current container |
46
|
|
|
|
|
|
|
); |
47
|
|
|
|
|
|
|
} |
48
|
|
|
|
|
|
|
else { |
49
|
|
|
|
|
|
|
# Instantiate a named report, e.g., "Journal Report 1 (R2)" |
50
|
0
|
|
|
|
|
|
my $name = $how; |
51
|
0
|
|
|
|
|
|
my ($genre, $number, $release) = $cls->_parse_report_name($name); |
52
|
0
|
0
|
|
|
|
|
die "Unrecognized report type: $name" |
53
|
|
|
|
|
|
|
unless defined $genre; |
54
|
|
|
|
|
|
|
# Create the "model" object |
55
|
0
|
|
|
|
|
|
$cls = "Biblio::COUNTER::Report::Release${release}::${genre}Report${number}"; |
56
|
0
|
0
|
|
|
|
|
die "Unimplemented report type: $name" |
57
|
|
|
|
|
|
|
unless eval "use $cls; 1"; |
58
|
0
|
|
|
|
|
|
return $cls->new(%args); |
59
|
|
|
|
|
|
|
} |
60
|
|
|
|
|
|
|
} |
61
|
|
|
|
|
|
|
|
62
|
|
|
|
|
|
|
sub _parse_report_name { |
63
|
0
|
|
|
0
|
|
|
my ($cls, $name) = @_; |
64
|
0
|
|
|
|
|
|
my ($genre, $number, $release); |
65
|
0
|
0
|
|
|
|
|
if ($name =~ s/^\s*(Journal|Database|Book)\s+Report\s+(\w+)\s*//) { |
66
|
0
|
|
|
|
|
|
($genre, $number) = ($1, $2); |
67
|
|
|
|
|
|
|
} |
68
|
|
|
|
|
|
|
else { |
69
|
0
|
|
|
|
|
|
return; |
70
|
|
|
|
|
|
|
} |
71
|
0
|
0
|
|
|
|
|
if ($name =~ /^\(R?(\d+[a-z]?)\)/) { |
72
|
0
|
|
|
|
|
|
$release = $1; |
73
|
|
|
|
|
|
|
} |
74
|
|
|
|
|
|
|
else { |
75
|
0
|
|
|
|
|
|
$release = 2; # XXX Safe to default? |
76
|
|
|
|
|
|
|
} |
77
|
0
|
|
|
|
|
|
return ($genre, $number, $release); |
78
|
|
|
|
|
|
|
} |
79
|
|
|
|
|
|
|
|
80
|
|
|
|
|
|
|
|
81
|
|
|
|
|
|
|
1; |
82
|
|
|
|
|
|
|
|
83
|
|
|
|
|
|
|
|
84
|
|
|
|
|
|
|
=pod |
85
|
|
|
|
|
|
|
|
86
|
|
|
|
|
|
|
=head1 NAME |
87
|
|
|
|
|
|
|
|
88
|
|
|
|
|
|
|
Biblio::COUNTER - COUNTER Codes of Practice report processing |
89
|
|
|
|
|
|
|
|
90
|
|
|
|
|
|
|
=head1 SYNOPSIS |
91
|
|
|
|
|
|
|
|
92
|
|
|
|
|
|
|
# --- Process a report |
93
|
|
|
|
|
|
|
|
94
|
|
|
|
|
|
|
# (1) Using Biblio::COUNTER |
95
|
|
|
|
|
|
|
$report = Biblio::COUNTER->report(\*STDIN)->process; |
96
|
|
|
|
|
|
|
$report = Biblio::COUNTER->report($file)->process; |
97
|
|
|
|
|
|
|
|
98
|
|
|
|
|
|
|
# (2) Using Biblio::COUNTER::Processor or a subclass |
99
|
|
|
|
|
|
|
$processor = Biblio::COUNTER::Processor::Default->new;\ |
100
|
|
|
|
|
|
|
$report = $processor->run(\*STDIN); |
101
|
|
|
|
|
|
|
$report = $processor->run($file); |
102
|
|
|
|
|
|
|
$report = $processor->run(Biblio::COUNTER->new(\*STDIN)); |
103
|
|
|
|
|
|
|
|
104
|
|
|
|
|
|
|
# --- Access information in a processed report |
105
|
|
|
|
|
|
|
|
106
|
|
|
|
|
|
|
warn "Invalid report" unless $report->is_valid; |
107
|
|
|
|
|
|
|
|
108
|
|
|
|
|
|
|
# Access data in the report |
109
|
|
|
|
|
|
|
$name = $report->name; |
110
|
|
|
|
|
|
|
# e.g., "Database Report 2 (R2)" |
111
|
|
|
|
|
|
|
$descrip = $report->description; |
112
|
|
|
|
|
|
|
# e.g., "Turnaways by Month and Database" |
113
|
|
|
|
|
|
|
$date_run = $report->date_run; |
114
|
|
|
|
|
|
|
# e.g., "2008-04-11" |
115
|
|
|
|
|
|
|
$criteria = $report->criteria; |
116
|
|
|
|
|
|
|
$publisher = $report->publisher; |
117
|
|
|
|
|
|
|
$platform = $report->platform; |
118
|
|
|
|
|
|
|
$periods = $report->periods; |
119
|
|
|
|
|
|
|
# e.g., [ "2008-01", "2008-02", "2008-03" ] |
120
|
|
|
|
|
|
|
|
121
|
|
|
|
|
|
|
foreach $rec ($report->records) { |
122
|
|
|
|
|
|
|
$title = $rec->{title}; |
123
|
|
|
|
|
|
|
$publisher = $rec->{publisher}; |
124
|
|
|
|
|
|
|
$platform = $rec->{platform}; |
125
|
|
|
|
|
|
|
$count = $rec->{count}; |
126
|
|
|
|
|
|
|
foreach $period (@periods) { |
127
|
|
|
|
|
|
|
$period_count = $count->{$period}; |
128
|
|
|
|
|
|
|
while (($metric, $n) = each %$period_count) { |
129
|
|
|
|
|
|
|
# e.g., ("turnaways", 3) |
130
|
|
|
|
|
|
|
} |
131
|
|
|
|
|
|
|
} |
132
|
|
|
|
|
|
|
} |
133
|
|
|
|
|
|
|
|
134
|
|
|
|
|
|
|
=head1 NOTE |
135
|
|
|
|
|
|
|
|
136
|
|
|
|
|
|
|
Because the COUNTER Codes of Practice are so poorly written and |
137
|
|
|
|
|
|
|
documented, with incomplete specifications and inconsistent |
138
|
|
|
|
|
|
|
terminology, it has been necessary to make certain assumptions and |
139
|
|
|
|
|
|
|
normalizations in the code and documentation of this module. |
140
|
|
|
|
|
|
|
|
141
|
|
|
|
|
|
|
First, all reports must be in plain text, tab- or comma-delimited |
142
|
|
|
|
|
|
|
format; Excel spreadsheets are not allowed. (To convert an Excel |
143
|
|
|
|
|
|
|
spreadsheet to tab-delimited text, consider using |
144
|
|
|
|
|
|
|
L. |
145
|
|
|
|
|
|
|
|
146
|
|
|
|
|
|
|
(XML formats may be handled in a future version of this module.) |
147
|
|
|
|
|
|
|
|
148
|
|
|
|
|
|
|
Some terminology notes are in order: |
149
|
|
|
|
|
|
|
|
150
|
|
|
|
|
|
|
=over 4 |
151
|
|
|
|
|
|
|
|
152
|
|
|
|
|
|
|
=item B |
153
|
|
|
|
|
|
|
|
154
|
|
|
|
|
|
|
The B of a report fully denotes the report's type and the version |
155
|
|
|
|
|
|
|
of the COUNTER Codes of Practice that defines it. For example, |
156
|
|
|
|
|
|
|
C. COUNTER sometimes refers to this as the |
157
|
|
|
|
|
|
|
report I. |
158
|
|
|
|
|
|
|
|
159
|
|
|
|
|
|
|
=item B |
160
|
|
|
|
|
|
|
|
161
|
|
|
|
|
|
|
This is the phrase, also defined by the COUNTER Codes of Practice, that |
162
|
|
|
|
|
|
|
describes the contents of a report. For example, B |
163
|
|
|
|
|
|
|
is described as C
|
164
|
|
|
|
|
|
|
Month and Journal>. |
165
|
|
|
|
|
|
|
|
166
|
|
|
|
|
|
|
=item B |
167
|
|
|
|
|
|
|
|
168
|
|
|
|
|
|
|
This is the term I use for the short name that identifies the type, |
169
|
|
|
|
|
|
|
B, of a COUNTER report. For example, C is the code |
170
|
|
|
|
|
|
|
for B reports. |
171
|
|
|
|
|
|
|
|
172
|
|
|
|
|
|
|
=item B |
173
|
|
|
|
|
|
|
|
174
|
|
|
|
|
|
|
A metric is a particular measure of usage (or non-usage), including the |
175
|
|
|
|
|
|
|
number of searches or sessions in a database or the number of full-text |
176
|
|
|
|
|
|
|
articles in a journal downloaded successfully. |
177
|
|
|
|
|
|
|
|
178
|
|
|
|
|
|
|
=back |
179
|
|
|
|
|
|
|
|
180
|
|
|
|
|
|
|
=head1 METHODS |
181
|
|
|
|
|
|
|
|
182
|
|
|
|
|
|
|
=over 4 |
183
|
|
|
|
|
|
|
|
184
|
|
|
|
|
|
|
=item B(I<$how>, [I<%args>]) |
185
|
|
|
|
|
|
|
|
186
|
|
|
|
|
|
|
Create a new report instance. |
187
|
|
|
|
|
|
|
|
188
|
|
|
|
|
|
|
Set I<$how> to a glob ref (e.g., C<\*STDIN>) to specify a filehandle |
189
|
|
|
|
|
|
|
from which an existing report will be read. |
190
|
|
|
|
|
|
|
|
191
|
|
|
|
|
|
|
Specify a report name in I<$how> (e.g., C) to |
192
|
|
|
|
|
|
|
instantiate a new, empty report. (Report generation is not yet implemented.) |
193
|
|
|
|
|
|
|
|
194
|
|
|
|
|
|
|
I<%args> may contain any of the following: |
195
|
|
|
|
|
|
|
|
196
|
|
|
|
|
|
|
=over 4 |
197
|
|
|
|
|
|
|
|
198
|
|
|
|
|
|
|
=item B |
199
|
|
|
|
|
|
|
|
200
|
|
|
|
|
|
|
If set to a true value, a blank cell where a count was expected is |
201
|
|
|
|
|
|
|
treated as if it contained a zero; otherwise, blank counts are silently |
202
|
|
|
|
|
|
|
ignored (the default). |
203
|
|
|
|
|
|
|
|
204
|
|
|
|
|
|
|
=item B |
205
|
|
|
|
|
|
|
|
206
|
|
|
|
|
|
|
If set to a true value (the default), the value C) in a count |
207
|
|
|
|
|
|
|
field will be changed to the empty string. It will B be treated |
208
|
|
|
|
|
|
|
as if it were zero, regardless of the B |
209
|
|
|
|
|
|
|
setting. |
210
|
|
|
|
|
|
|
|
211
|
|
|
|
|
|
|
=item B |
212
|
|
|
|
|
|
|
|
213
|
|
|
|
|
|
|
Get or set a reference to a hash of (I<$event>, I<$code>) pairs |
214
|
|
|
|
|
|
|
specifying what to do for each of the events described under |
215
|
|
|
|
|
|
|
L. |
216
|
|
|
|
|
|
|
|
217
|
|
|
|
|
|
|
Each I<$code> must be a coderef, not the name of a function or method. |
218
|
|
|
|
|
|
|
|
219
|
|
|
|
|
|
|
If an event is not specified in this hash, then the default action for the |
220
|
|
|
|
|
|
|
event will be taken. |
221
|
|
|
|
|
|
|
|
222
|
|
|
|
|
|
|
=back |
223
|
|
|
|
|
|
|
|
224
|
|
|
|
|
|
|
=item B |
225
|
|
|
|
|
|
|
|
226
|
|
|
|
|
|
|
Get or set the report's name: this is the official name defined by the COUNTER |
227
|
|
|
|
|
|
|
codes of practice. See L for a complete list of the |
228
|
|
|
|
|
|
|
reports supported by this verison of L. |
229
|
|
|
|
|
|
|
|
230
|
|
|
|
|
|
|
=item B |
231
|
|
|
|
|
|
|
|
232
|
|
|
|
|
|
|
Get or set the report's code: this is the short string (e.g., C) |
233
|
|
|
|
|
|
|
that identifies the type, B, of a COUNTER report. |
234
|
|
|
|
|
|
|
|
235
|
|
|
|
|
|
|
=item B |
236
|
|
|
|
|
|
|
|
237
|
|
|
|
|
|
|
Get or set the report's description: this is the official description |
238
|
|
|
|
|
|
|
defined by the COUNTER codes of practice. For example, the C
|
239
|
|
|
|
|
|
|
Report 1 (R2)> report has the description C
|
240
|
|
|
|
|
|
|
Full-Text Article Requests by Month and Journal>. |
241
|
|
|
|
|
|
|
|
242
|
|
|
|
|
|
|
=item B |
243
|
|
|
|
|
|
|
|
244
|
|
|
|
|
|
|
Get or set the date on which the report was run. The date, if valid, is in |
245
|
|
|
|
|
|
|
the ISO8601 standard form C. |
246
|
|
|
|
|
|
|
|
247
|
|
|
|
|
|
|
=item B |
248
|
|
|
|
|
|
|
|
249
|
|
|
|
|
|
|
Get or set the report criteria. This is a free text field. |
250
|
|
|
|
|
|
|
|
251
|
|
|
|
|
|
|
=item B |
252
|
|
|
|
|
|
|
|
253
|
|
|
|
|
|
|
Get or set the periods for which the report contains counts. To |
254
|
|
|
|
|
|
|
simplify things, periods are returned (and must be set) in the ISO 8601 |
255
|
|
|
|
|
|
|
standard form C. |
256
|
|
|
|
|
|
|
|
257
|
|
|
|
|
|
|
=item B |
258
|
|
|
|
|
|
|
|
259
|
|
|
|
|
|
|
Get or set the publisher common to all of the resources in the report. |
260
|
|
|
|
|
|
|
|
261
|
|
|
|
|
|
|
=item B |
262
|
|
|
|
|
|
|
|
263
|
|
|
|
|
|
|
Get or set the platform common to all of the resources in the report. |
264
|
|
|
|
|
|
|
|
265
|
|
|
|
|
|
|
=back |
266
|
|
|
|
|
|
|
|
267
|
|
|
|
|
|
|
=head1 CALLBACKS |
268
|
|
|
|
|
|
|
|
269
|
|
|
|
|
|
|
While processing a report, a number of different B occur. For |
270
|
|
|
|
|
|
|
example, a B event occurs when a field whose value is invalid |
271
|
|
|
|
|
|
|
is corrected. For event different kind of event, a B may be |
272
|
|
|
|
|
|
|
specified that is triggered each time the event occurs; see the B |
273
|
|
|
|
|
|
|
method for how to specify a callback. |
274
|
|
|
|
|
|
|
|
275
|
|
|
|
|
|
|
Callbacks must be coderefs, not function or method names. |
276
|
|
|
|
|
|
|
|
277
|
|
|
|
|
|
|
For example, the following callbacks may be used to provide an indication of |
278
|
|
|
|
|
|
|
the progress in processing it: |
279
|
|
|
|
|
|
|
|
280
|
|
|
|
|
|
|
$record_number = 0; |
281
|
|
|
|
|
|
|
%callbacks = ( |
282
|
|
|
|
|
|
|
'begin_report' => sub { |
283
|
|
|
|
|
|
|
print STDERR "Beginning report: "; |
284
|
|
|
|
|
|
|
}, |
285
|
|
|
|
|
|
|
'end_header' => sub { |
286
|
|
|
|
|
|
|
my ($report, $header) = @_; |
287
|
|
|
|
|
|
|
print STDERR $report->name, "\n"; |
288
|
|
|
|
|
|
|
} |
289
|
|
|
|
|
|
|
'end_record' => sub { |
290
|
|
|
|
|
|
|
my ($report, $record) = @_; |
291
|
|
|
|
|
|
|
++$record_number; |
292
|
|
|
|
|
|
|
print STDERR "$record_number " |
293
|
|
|
|
|
|
|
if $record_number % 20 == 0; |
294
|
|
|
|
|
|
|
print STDERR "\n" |
295
|
|
|
|
|
|
|
if $record_number % 200 == 0; |
296
|
|
|
|
|
|
|
}, |
297
|
|
|
|
|
|
|
'end_report' => sub { |
298
|
|
|
|
|
|
|
my ($report) = @_; |
299
|
|
|
|
|
|
|
if ($report->is_valid) { |
300
|
|
|
|
|
|
|
print STDERR "OK\n"; |
301
|
|
|
|
|
|
|
} |
302
|
|
|
|
|
|
|
else { |
303
|
|
|
|
|
|
|
print STDERR "INVALID\n"; |
304
|
|
|
|
|
|
|
} |
305
|
|
|
|
|
|
|
}, |
306
|
|
|
|
|
|
|
); |
307
|
|
|
|
|
|
|
|
308
|
|
|
|
|
|
|
By default, the only callback defined is for B |
309
|
|
|
|
|
|
|
line of input (corrected, if there were correctable problems) to |
310
|
|
|
|
|
|
|
standard output. (Spurious blank lines are not printed.) |
311
|
|
|
|
|
|
|
|
312
|
|
|
|
|
|
|
Events fall into four broad categories: B, B, |
313
|
|
|
|
|
|
|
B, and B. |
314
|
|
|
|
|
|
|
|
315
|
|
|
|
|
|
|
=head2 Structure |
316
|
|
|
|
|
|
|
|
317
|
|
|
|
|
|
|
Logically, a COUNTER report has the following structure: |
318
|
|
|
|
|
|
|
|
319
|
|
|
|
|
|
|
report |
320
|
|
|
|
|
|
|
header |
321
|
|
|
|
|
|
|
body |
322
|
|
|
|
|
|
|
record |
323
|
|
|
|
|
|
|
record |
324
|
|
|
|
|
|
|
... |
325
|
|
|
|
|
|
|
|
326
|
|
|
|
|
|
|
=over 4 |
327
|
|
|
|
|
|
|
|
328
|
|
|
|
|
|
|
=item B(I<$report>, I<$file>) |
329
|
|
|
|
|
|
|
|
330
|
|
|
|
|
|
|
Parsing of the given file is beginning. This is always the first event |
331
|
|
|
|
|
|
|
triggered. At the time this callback is invoked, the report has not yet been |
332
|
|
|
|
|
|
|
identified. |
333
|
|
|
|
|
|
|
|
334
|
|
|
|
|
|
|
=item B(I<$report>, I<$file>) |
335
|
|
|
|
|
|
|
|
336
|
|
|
|
|
|
|
Parsing of the given file has ended. This is always the last event |
337
|
|
|
|
|
|
|
triggered. |
338
|
|
|
|
|
|
|
|
339
|
|
|
|
|
|
|
=item B(I<$report>) |
340
|
|
|
|
|
|
|
|
341
|
|
|
|
|
|
|
Processing of the report is beginning. At the time this callback is invoked, |
342
|
|
|
|
|
|
|
the report has not yet been identified. |
343
|
|
|
|
|
|
|
|
344
|
|
|
|
|
|
|
=item B(I<$report>) |
345
|
|
|
|
|
|
|
|
346
|
|
|
|
|
|
|
Processing of the report has ended. This is always the last event |
347
|
|
|
|
|
|
|
triggered. |
348
|
|
|
|
|
|
|
|
349
|
|
|
|
|
|
|
=item B(I<$report>, I<$header>) |
350
|
|
|
|
|
|
|
|
351
|
|
|
|
|
|
|
Processing of the report's header is beginning. The header is everything |
352
|
|
|
|
|
|
|
before the first data row. |
353
|
|
|
|
|
|
|
|
354
|
|
|
|
|
|
|
I<$header> is a reference to an empty hash; the callback code may, if it wishes, |
355
|
|
|
|
|
|
|
put something into this hash. |
356
|
|
|
|
|
|
|
|
357
|
|
|
|
|
|
|
=item B(I<$report>, I<$header>) |
358
|
|
|
|
|
|
|
|
359
|
|
|
|
|
|
|
Processing of the report's header is complete. |
360
|
|
|
|
|
|
|
|
361
|
|
|
|
|
|
|
I<$header> is a reference to the same hash referenced in the B |
362
|
|
|
|
|
|
|
callback, but which now contains one or more of the elements listed below. |
363
|
|
|
|
|
|
|
(These elements are described under B above): |
364
|
|
|
|
|
|
|
|
365
|
|
|
|
|
|
|
=over 4 |
366
|
|
|
|
|
|
|
|
367
|
|
|
|
|
|
|
=item B |
368
|
|
|
|
|
|
|
|
369
|
|
|
|
|
|
|
The date on which the report was run, in the ISO8601 standard form |
370
|
|
|
|
|
|
|
C. |
371
|
|
|
|
|
|
|
|
372
|
|
|
|
|
|
|
=item B |
373
|
|
|
|
|
|
|
|
374
|
|
|
|
|
|
|
The report criteria. |
375
|
|
|
|
|
|
|
|
376
|
|
|
|
|
|
|
=item B |
377
|
|
|
|
|
|
|
|
378
|
|
|
|
|
|
|
The report's description (e.g., C). |
379
|
|
|
|
|
|
|
|
380
|
|
|
|
|
|
|
=item B |
381
|
|
|
|
|
|
|
|
382
|
|
|
|
|
|
|
The periods for which the report contains counts, in the ISO 8601 |
383
|
|
|
|
|
|
|
standard form C. |
384
|
|
|
|
|
|
|
|
385
|
|
|
|
|
|
|
=item B |
386
|
|
|
|
|
|
|
|
387
|
|
|
|
|
|
|
The publisher common to all of the resources in the report. |
388
|
|
|
|
|
|
|
|
389
|
|
|
|
|
|
|
=item B |
390
|
|
|
|
|
|
|
|
391
|
|
|
|
|
|
|
The platform common to all of the resources in the report. |
392
|
|
|
|
|
|
|
|
393
|
|
|
|
|
|
|
=back |
394
|
|
|
|
|
|
|
|
395
|
|
|
|
|
|
|
=item B(I<$report>) |
396
|
|
|
|
|
|
|
|
397
|
|
|
|
|
|
|
Processing of the report's body is beginning. The body is the part of the |
398
|
|
|
|
|
|
|
report that contains data rows. |
399
|
|
|
|
|
|
|
|
400
|
|
|
|
|
|
|
=item B(I<$report>) |
401
|
|
|
|
|
|
|
|
402
|
|
|
|
|
|
|
Processing of the report's body is complete. |
403
|
|
|
|
|
|
|
|
404
|
|
|
|
|
|
|
=item B(I<$report>, I<$record>) |
405
|
|
|
|
|
|
|
|
406
|
|
|
|
|
|
|
Processing of a new record is beginning. (In some COUNTER reports, a record |
407
|
|
|
|
|
|
|
occupies more than one row.) |
408
|
|
|
|
|
|
|
|
409
|
|
|
|
|
|
|
I<$record> is a reference to a hash, which is empty at the time the |
410
|
|
|
|
|
|
|
event is triggered. |
411
|
|
|
|
|
|
|
|
412
|
|
|
|
|
|
|
=item B(I<$report>, I<$record>) |
413
|
|
|
|
|
|
|
|
414
|
|
|
|
|
|
|
I<$record> is a reference to a hash that contains the data found in the |
415
|
|
|
|
|
|
|
record (title, publisher, counts, etc.). Fields that are invalid and |
416
|
|
|
|
|
|
|
uncorrectable will B be represented in the hash -- e.g., if a title is |
417
|
|
|
|
|
|
|
blank then there will be no B element in the hash. |
418
|
|
|
|
|
|
|
|
419
|
|
|
|
|
|
|
=back |
420
|
|
|
|
|
|
|
|
421
|
|
|
|
|
|
|
=head2 Validation |
422
|
|
|
|
|
|
|
|
423
|
|
|
|
|
|
|
Each of these events is triggered when a cell (or, in the case of |
424
|
|
|
|
|
|
|
B, a row) is validated. |
425
|
|
|
|
|
|
|
|
426
|
|
|
|
|
|
|
The cell's row and column (e.g., C) may be retrieved by calling |
427
|
|
|
|
|
|
|
C<< $report-Ecurrent_position >>. |
428
|
|
|
|
|
|
|
|
429
|
|
|
|
|
|
|
Note that a single cell may trigger more than one validation event -- |
430
|
|
|
|
|
|
|
e.g., a cell may be trimmed and then deleted -- and there is no guarantee |
431
|
|
|
|
|
|
|
that these events will occur in any particular order. |
432
|
|
|
|
|
|
|
|
433
|
|
|
|
|
|
|
=over 4 |
434
|
|
|
|
|
|
|
|
435
|
|
|
|
|
|
|
=item B(I<$report>, I<$field_name>, I<$value>) |
436
|
|
|
|
|
|
|
|
437
|
|
|
|
|
|
|
A cell's value is valid. |
438
|
|
|
|
|
|
|
|
439
|
|
|
|
|
|
|
=item B(I<$report>, I<$field_name>, I<$value>) |
440
|
|
|
|
|
|
|
|
441
|
|
|
|
|
|
|
Whitespace has been trimmed from the beginning and/or end of a cell. |
442
|
|
|
|
|
|
|
|
443
|
|
|
|
|
|
|
=item B(I<$report>, I<$field_name>, I<$old_value>, I<$new_value>) |
444
|
|
|
|
|
|
|
|
445
|
|
|
|
|
|
|
A cell's value was invalid but has been corrected. |
446
|
|
|
|
|
|
|
|
447
|
|
|
|
|
|
|
=item B(I<$report>, I<$field_name>, I<$value>, I<$expected>) |
448
|
|
|
|
|
|
|
|
449
|
|
|
|
|
|
|
A cell's value is invalid and cannot be corrected. The expected value may |
450
|
|
|
|
|
|
|
be an exact string (e.g., C) or merely a general hint (e.g., |
451
|
|
|
|
|
|
|
C<< EissnE >>). |
452
|
|
|
|
|
|
|
|
453
|
|
|
|
|
|
|
=item B(I<$report>, I<$value>) |
454
|
|
|
|
|
|
|
|
455
|
|
|
|
|
|
|
A spurious cell has been deleted. (A this time, this only occurs for |
456
|
|
|
|
|
|
|
blank cells at the end of a row.) |
457
|
|
|
|
|
|
|
|
458
|
|
|
|
|
|
|
=item B(I<$report>) |
459
|
|
|
|
|
|
|
|
460
|
|
|
|
|
|
|
A blank row that doesn't belong here has been skipped. |
461
|
|
|
|
|
|
|
|
462
|
|
|
|
|
|
|
=back |
463
|
|
|
|
|
|
|
|
464
|
|
|
|
|
|
|
=head2 Tracing |
465
|
|
|
|
|
|
|
|
466
|
|
|
|
|
|
|
=over 4 |
467
|
|
|
|
|
|
|
|
468
|
|
|
|
|
|
|
=item B(I<$line>) |
469
|
|
|
|
|
|
|
|
470
|
|
|
|
|
|
|
A line of input has been read. |
471
|
|
|
|
|
|
|
|
472
|
|
|
|
|
|
|
=item B(I<$line_number>) |
473
|
|
|
|
|
|
|
|
474
|
|
|
|
|
|
|
The report processor has moved to the next line of input. |
475
|
|
|
|
|
|
|
|
476
|
|
|
|
|
|
|
=item B |
477
|
|
|
|
|
|
|
|
478
|
|
|
|
|
|
|
A new line of output is ready. The default is to print the line to |
479
|
|
|
|
|
|
|
standard output. Both valid and invalid lines, including invalid lines |
480
|
|
|
|
|
|
|
that could not be corrected as well as those that could be corrected, |
481
|
|
|
|
|
|
|
trigger an output event. Blank lines that have been skipped do not. |
482
|
|
|
|
|
|
|
|
483
|
|
|
|
|
|
|
=back |
484
|
|
|
|
|
|
|
|
485
|
|
|
|
|
|
|
=head2 Data |
486
|
|
|
|
|
|
|
|
487
|
|
|
|
|
|
|
=over 4 |
488
|
|
|
|
|
|
|
|
489
|
|
|
|
|
|
|
=item B(I<$report>, I<$scope>, I<$metric>, I<$period>, I<$value>) |
490
|
|
|
|
|
|
|
|
491
|
|
|
|
|
|
|
A valid count has been identified within the report. |
492
|
|
|
|
|
|
|
|
493
|
|
|
|
|
|
|
I<$scope> is either C (for summary counts that appear at the |
494
|
|
|
|
|
|
|
top of the report) or C (for counts that occur within the body |
495
|
|
|
|
|
|
|
of the report). |
496
|
|
|
|
|
|
|
|
497
|
|
|
|
|
|
|
I<$metric> is the type of event being counted, and is always one of the following: |
498
|
|
|
|
|
|
|
|
499
|
|
|
|
|
|
|
=over 4 |
500
|
|
|
|
|
|
|
|
501
|
|
|
|
|
|
|
=item C |
502
|
|
|
|
|
|
|
|
503
|
|
|
|
|
|
|
=item C |
504
|
|
|
|
|
|
|
|
505
|
|
|
|
|
|
|
=item C |
506
|
|
|
|
|
|
|
|
507
|
|
|
|
|
|
|
=item C |
508
|
|
|
|
|
|
|
|
509
|
|
|
|
|
|
|
=back |
510
|
|
|
|
|
|
|
|
511
|
|
|
|
|
|
|
I<$period> is a year and month, in the ISO8601 form C. |
512
|
|
|
|
|
|
|
|
513
|
|
|
|
|
|
|
I<$value> is the number of requests (or searches, or whatever). |
514
|
|
|
|
|
|
|
|
515
|
|
|
|
|
|
|
B events are B triggered for blank counts unless the |
516
|
|
|
|
|
|
|
B option was set to a true value when the |
517
|
|
|
|
|
|
|
report was instantiated. |
518
|
|
|
|
|
|
|
|
519
|
|
|
|
|
|
|
=item B(I<$report>, I<$scope>, I<$metric>, I<$value>) |
520
|
|
|
|
|
|
|
=item B(I<$report>, I<$scope>, I<$metric>, I<$value>) |
521
|
|
|
|
|
|
|
=item B(I<$report>, I<$scope>, I<$metric>, I<$value>) |
522
|
|
|
|
|
|
|
|
523
|
|
|
|
|
|
|
A valid YTD count has been identified. |
524
|
|
|
|
|
|
|
|
525
|
|
|
|
|
|
|
I<$scope> is either C (for summary counts that appear at the |
526
|
|
|
|
|
|
|
top of the report) or C (for counts that occur within the body |
527
|
|
|
|
|
|
|
of the report). |
528
|
|
|
|
|
|
|
|
529
|
|
|
|
|
|
|
=back |
530
|
|
|
|
|
|
|
|
531
|
|
|
|
|
|
|
=head1 REPORTS SUPPORTED |
532
|
|
|
|
|
|
|
|
533
|
|
|
|
|
|
|
Biblio::COUNTER implements processing of text-format (comma- or tab-delimited) |
534
|
|
|
|
|
|
|
COUNTER reports only. XML formats are not supported at this time. |
535
|
|
|
|
|
|
|
|
536
|
|
|
|
|
|
|
The following is a list of COUNTER reports, with full name and description, |
537
|
|
|
|
|
|
|
that are supported by this version of L: |
538
|
|
|
|
|
|
|
|
539
|
|
|
|
|
|
|
=over 4 |
540
|
|
|
|
|
|
|
|
541
|
|
|
|
|
|
|
=item C |
542
|
|
|
|
|
|
|
|
543
|
|
|
|
|
|
|
Number of Successful Full-Text Article Requests by Month and Journal |
544
|
|
|
|
|
|
|
|
545
|
|
|
|
|
|
|
=item C |
546
|
|
|
|
|
|
|
|
547
|
|
|
|
|
|
|
Number of Successful Full-Text Article Requests from an Archive by Month and Journal |
548
|
|
|
|
|
|
|
|
549
|
|
|
|
|
|
|
=item C |
550
|
|
|
|
|
|
|
|
551
|
|
|
|
|
|
|
Turnaways by Month and Journal |
552
|
|
|
|
|
|
|
|
553
|
|
|
|
|
|
|
=item C |
554
|
|
|
|
|
|
|
|
555
|
|
|
|
|
|
|
Total Searches and Sessions by Month and Database |
556
|
|
|
|
|
|
|
|
557
|
|
|
|
|
|
|
=item C |
558
|
|
|
|
|
|
|
|
559
|
|
|
|
|
|
|
Turnaways by Month and Database |
560
|
|
|
|
|
|
|
|
561
|
|
|
|
|
|
|
=item C |
562
|
|
|
|
|
|
|
|
563
|
|
|
|
|
|
|
Total Searches and Sessions by Month and Service |
564
|
|
|
|
|
|
|
|
565
|
|
|
|
|
|
|
=back |
566
|
|
|
|
|
|
|
|
567
|
|
|
|
|
|
|
Other reports, including Release 3 reports, will be supported in the future. |
568
|
|
|
|
|
|
|
|
569
|
|
|
|
|
|
|
=head1 SEE ALSO |
570
|
|
|
|
|
|
|
|
571
|
|
|
|
|
|
|
L |
572
|
|
|
|
|
|
|
|
573
|
|
|
|
|
|
|
=head1 AUTHOR |
574
|
|
|
|
|
|
|
|
575
|
|
|
|
|
|
|
Paul Hoffman (nkuitse AT cpan DOT org). |
576
|
|
|
|
|
|
|
|
577
|
|
|
|
|
|
|
=head1 COPYRIGHT |
578
|
|
|
|
|
|
|
|
579
|
|
|
|
|
|
|
Copyright 2008 Paul M. Hoffman. |
580
|
|
|
|
|
|
|
|
581
|
|
|
|
|
|
|
This is free software, and is made available under the same terms as Perl |
582
|
|
|
|
|
|
|
itself. |
583
|
|
|
|
|
|
|
|
584
|
|
|
|
|
|
|
=cut |