Procession of visitors...
Worked specifically on grant writing section of website today.
Have learned how to input new content with links now redirected to new site.
Edited html; have implemented two different options for navigating on a page e.g.
linking to tabs below and also text further down same page. (Decisions regarding
which method we will use will be decided later.)
Created new pages within grant writing section.
In progress: working on "in-class workshops" section
The complete collection of 1208 page images for CO 305 Vol 17 (in three different sizes) have been added to the collection. These cover the 1861 Vancouver Island Despatches to London. These will now be linked into the transcription documents.
Completed the tasks set yesterday, as follows:
xquery version "1.0";
(: The purpose of this query is to find all examples where the same
owner surname has been associated with different ethnicities. :)
declare namespace saxon="http://saxon.sf.net/";
declare option saxon:output "method=text";
let $surnames := distinct-values(//own_surname),
(:return count($surnames):)
$names :=
for $name in $surnames
order by $name
return <name>
<surname>{$name}</surname>
<ids>
{let $ids := //owners[own_surname = $name]/own_owner_id
for $id in $ids return xs:string($id)
}
</ids>
<ethnicities>
{let $ids := //owners[own_surname = $name]/own_owner_id, $eths := //owners_to_ethnicities[ote_owner_id_fk = $ids]
for $eth in $eths
return <eth>{$eth/ote_ethnicity_id_fk/text()}</eth>
}
</ethnicities>
</name>
return
<names>
{for $n in $names
where count(distinct-values($n/ethnicities/eth)) gt 1
return
concat(string-join(($n/surname, ': ',
for $e in distinct-values($n//eth)
return //ethnicities[eth_ethnicity_id = $e]/eth_name/text()), ' '), '
')
}
return
</names>
xquery version "1.0";
(: The purpose of this query is to pull out instances of
owners who have the same surname and forename,
and who are associated with titles that have the same
property. :)
(:declare namespace map="http://www.w3.org/2005/xpath-functions/map";:)
declare namespace saxon="http://saxon.sf.net/";
declare option saxon:output "method=text";
let $owners := //owners,
$dupes := for $curr in $owners where $curr/following-sibling::owners[own_surname = $curr/own_surname and own_forenames = $curr/own_forenames and $curr/own_surname != '' and $curr/own_forenames != ''] return $curr,
$dupeIds := for $d in $dupes
let $owner_set := //owners[own_surname = $d/own_surname and own_forenames = $d/own_forenames]
return <group>
<surname>{$d/own_surname/text()}</surname>
<forenames>{$d/own_forenames/text()}</forenames>
{$owner_set//own_owner_id}
<properties>
{let $owner_ids := $owner_set//own_owner_id/text(),
$titles_for_group := (//owners_to_titles[ott_owner_id_fk = $owner_ids], //sellers_to_titles[stt_owner_id_fk = $owner_ids])
for $t in $titles_for_group
return
if ($t/ott_owner_id_fk) then
<title><title_id>{$t/ott_title_id_fk/text()}</title_id> <property_id>{//titles[ttl_title_id = $t/ott_title_id_fk/text()]/ttl_property_id_fk/text()}</property_id></title>
else
<title><title_id>{$t/stt_title_id_fk/text()}</title_id> <property_id>{//titles[ttl_title_id = $t/stt_title_id_fk/text()]/ttl_property_id_fk/text()}</property_id></title>
</properties>
</group>
return
<result>
{for $d in
$dupeIds
where count($d//property_id) gt count(distinct-values($d//property_id))
order by $d/surname, $d/forenames
return
('
',
$d/surname/text(),
', ',
$d/forenames/text(),
'
owner ids: ',
for $o in $d//own_owner_id
return ($o/text(), ' '),
for $t in $d//title return
(
'
	title: ', $t/title_id/text(),
'		property: ', $t/property_id/text()
),
'

'
)
}
</result>
| Sun | Mon | Tue | Wed | Thu | Fri | Sat |
|---|---|---|---|---|---|---|
| << < | Current | > >> | ||||
| 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 | ||