-
Notifications
You must be signed in to change notification settings - Fork 3
Expand file tree
/
Copy pathvaranidae.rb
More file actions
91 lines (85 loc) · 2.47 KB
/
varanidae.rb
File metadata and controls
91 lines (85 loc) · 2.47 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
shared_context 'Varanidae' do
before(:all) do
@order = create_cites_eu_order(
taxon_name: create(:taxon_name, scientific_name: 'Sauria'),
parent: cites_eu_reptilia
)
@family = create_cites_eu_family(
taxon_name: create(:taxon_name, scientific_name: 'Varanidae'),
parent: @order
)
@genus = create_cites_eu_genus(
taxon_name: create(:taxon_name, scientific_name: 'Varanus'),
parent: @family
)
@species1 = create_cites_eu_species(
taxon_name: create(:taxon_name, scientific_name: 'Bengalensis'),
parent: @genus
)
@species2 = create_cites_eu_species(
taxon_name: create(:taxon_name, scientific_name: 'Bushi'),
parent: @genus
)
create_cites_II_addition(
taxon_concept: @genus,
effective_at: '1975-07-01',
is_current: true
)
create_cites_I_addition(
taxon_concept: @species1,
effective_at: '1975-07-01',
is_current: true
)
create_eu_B_addition(
taxon_concept: @genus,
effective_at: '2013-10-08',
event: reg2013,
is_current: true
)
create_eu_A_addition(
taxon_concept: @species1,
effective_at: '2013-10-08',
event: reg2013,
is_current: true
)
@ref1 = create(
:reference,
author: 'Böhme, W.',
title: 'Checklist of the living monitor lizards of the world (family Varanidae)',
year: 2003
)
@ref2 = create(
:reference,
author: 'Aplin, K. P., Fitch, A. J. & King, D. J.',
title: 'A new species of Varanus Merrem (Squamata: Varanidae) from the Pilbara
region of Western Australia, with observations on sexual dimorphism in
closely related species.',
year: 2006
)
create(
:taxon_concept_reference,
taxon_concept: @family,
reference: @ref1,
is_standard: true,
is_cascaded: true
)
create(
:taxon_concept_reference,
taxon_concept: @species2,
reference: @ref2,
is_standard: true,
is_cascaded: true
)
SapiModule::StoredProcedures.rebuild_cites_taxonomy_and_listings
self.instance_variables.each do |t|
# Skip old sapi context let statements,
# which are now instance variables starting with _
next if t.to_s.include?('@_')
var = self.instance_variable_get(t)
if var.kind_of? TaxonConcept
self.instance_variable_set(t, MTaxonConcept.find(var.id))
self.instance_variable_get(t).reload
end
end
end
end