line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Biblio::COUNTER::Report::Release2::JournalReport2; |
2
|
|
|
|
|
|
|
|
3
|
1
|
|
|
1
|
|
2604
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
38
|
|
4
|
1
|
|
|
1
|
|
6
|
use warnings; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
37
|
|
5
|
|
|
|
|
|
|
|
6
|
1
|
|
|
1
|
|
5
|
use Biblio::COUNTER::Report qw(TURNAWAYS MAY_BE_BLANK NOT_BLANK); |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
2561
|
|
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
@Biblio::COUNTER::Report::Release2::JournalReport2::ISA = qw(Biblio::COUNTER::Report); |
9
|
|
|
|
|
|
|
|
10
|
0
|
|
|
0
|
0
|
|
sub canonical_report_name { 'Journal Report 2 (R2)' } |
11
|
0
|
|
|
0
|
0
|
|
sub canonical_report_description { 'Turnaways by Month and Journal' }; |
12
|
0
|
|
|
0
|
0
|
|
sub canonical_report_code { 'JR2' } |
13
|
0
|
|
|
0
|
0
|
|
sub release_number { 2 } |
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
sub process_header_rows { |
16
|
0
|
|
|
0
|
0
|
|
my ($self) = @_; |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
# Report name and title |
19
|
0
|
|
|
|
|
|
$self->begin_row |
20
|
|
|
|
|
|
|
->check_report_name |
21
|
|
|
|
|
|
|
->check_report_description |
22
|
|
|
|
|
|
|
->end_row; |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
# Report criteria |
25
|
0
|
|
|
|
|
|
$self->begin_row |
26
|
|
|
|
|
|
|
->check_report_criteria |
27
|
|
|
|
|
|
|
->end_row; |
28
|
|
|
|
|
|
|
|
29
|
|
|
|
|
|
|
# Date run label |
30
|
0
|
|
|
|
|
|
$self->begin_row |
31
|
|
|
|
|
|
|
->check_label('Date run:') |
32
|
|
|
|
|
|
|
->end_row; |
33
|
|
|
|
|
|
|
|
34
|
|
|
|
|
|
|
# Date run |
35
|
0
|
|
|
|
|
|
$self->begin_row |
36
|
|
|
|
|
|
|
->check_date_run |
37
|
|
|
|
|
|
|
->end_row; |
38
|
|
|
|
|
|
|
|
39
|
|
|
|
|
|
|
# Data column labels |
40
|
0
|
|
|
|
|
|
$self->begin_row |
41
|
|
|
|
|
|
|
->check_blank |
42
|
|
|
|
|
|
|
->check_label('Publisher', qr/^(?i)pub/) |
43
|
|
|
|
|
|
|
->check_label('Platform', qr/^(?i)plat/) |
44
|
|
|
|
|
|
|
->check_label('Print ISSN', qr/^(?i)print issn/) |
45
|
|
|
|
|
|
|
->check_label('Online ISSN', qr/^(?i)online issn/) |
46
|
|
|
|
|
|
|
->check_label('Page type', qr/^(?i)page\s+type/) |
47
|
|
|
|
|
|
|
->check_period_labels |
48
|
|
|
|
|
|
|
->check_label('YTD Total') |
49
|
|
|
|
|
|
|
->end_row; |
50
|
|
|
|
|
|
|
|
51
|
|
|
|
|
|
|
# Data summary |
52
|
0
|
|
|
|
|
|
$self->begin_row |
53
|
|
|
|
|
|
|
->check_label('Total for all journals') |
54
|
|
|
|
|
|
|
->check_publisher(MAY_BE_BLANK) |
55
|
|
|
|
|
|
|
->check_platform(MAY_BE_BLANK) |
56
|
|
|
|
|
|
|
->check_blank |
57
|
|
|
|
|
|
|
->check_blank |
58
|
|
|
|
|
|
|
->check_blank |
59
|
|
|
|
|
|
|
->check_count_by_periods(Biblio::COUNTER::Report::REQUESTS) |
60
|
|
|
|
|
|
|
->check_ytd_total(Biblio::COUNTER::Report::REQUESTS) |
61
|
|
|
|
|
|
|
->end_row; |
62
|
|
|
|
|
|
|
} |
63
|
|
|
|
|
|
|
|
64
|
|
|
|
|
|
|
sub process_record { |
65
|
0
|
|
|
0
|
0
|
|
my ($self) = @_; |
66
|
0
|
|
|
|
|
|
$self->begin_row |
67
|
|
|
|
|
|
|
->check_title(NOT_BLANK) |
68
|
|
|
|
|
|
|
->check_publisher(NOT_BLANK) |
69
|
|
|
|
|
|
|
->check_platform(NOT_BLANK) |
70
|
|
|
|
|
|
|
->check_print_issn |
71
|
|
|
|
|
|
|
->check_online_issn |
72
|
|
|
|
|
|
|
->check_label('Full-text Turnaways', qr/^(?i)turnaways/) |
73
|
|
|
|
|
|
|
->check_count_by_periods(Biblio::COUNTER::Report::REQUESTS) |
74
|
|
|
|
|
|
|
->check_ytd_total |
75
|
|
|
|
|
|
|
->end_row; |
76
|
|
|
|
|
|
|
} |
77
|
|
|
|
|
|
|
|
78
|
|
|
|
|
|
|
1; |
79
|
|
|
|
|
|
|
|
80
|
|
|
|
|
|
|
=pod |
81
|
|
|
|
|
|
|
|
82
|
|
|
|
|
|
|
=head1 NAME |
83
|
|
|
|
|
|
|
|
84
|
|
|
|
|
|
|
Biblio::COUNTER::Report::Release2::JournalReport2 - a JR2 (R2) COUNTER report |
85
|
|
|
|
|
|
|
|
86
|
|
|
|
|
|
|
=head1 SYNOPSIS |
87
|
|
|
|
|
|
|
|
88
|
|
|
|
|
|
|
$report = Biblio::COUNTER::Report::Release2::JournalReport2->new( |
89
|
|
|
|
|
|
|
'file' => $file, |
90
|
|
|
|
|
|
|
); |
91
|
|
|
|
|
|
|
$report->process; |
92
|
|
|
|
|
|
|
|
93
|
|
|
|
|
|
|
=cut |