/usr/share/lifelines/hasnotes1.ll is in lifelines-reports 3.0.61-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | /*
* @progname hasnotes1.ll
* @version 1.1
* @author Wetmore, Manis
* @category
* @output Text
* @description
*
* It will produce a report of all the numbers and names (INDI's)
* in the database which have a "NOTE" line at level 1 in the record.
* It is designed for 10 or 12 pitch, HP laserjet III, or any
* other printer (ASCII output).
* hasnotes1
*
* Code by Tom Wetmore, ttw@cbnewsl.att.com
* Modifications by Cliff Manis
*
* This report works only with the LifeLines Genealogy program
*
* version one of this report was written by Tom Wetmore, in Sep 1992,
*
*/
proc main ()
{
"PERSONS IN THE DATABASE WITH NOTES" nl() nl()
forindi (i, n) {
set(r, inode(i))
set(notfound, 1)
fornodes (r, n) {
if (and(notfound, eq(0, strcmp("NOTE", tag(n))))) {
set(notfound, 0)
key(i) col(8) name(i) nl()
}
}
}
}
/* Sample output of report.
PERSONS IN THE DATABASE WITH NOTES
I1 Alda Clifford MANIS
I2 Fuller Ruben MANES
I3 Edith Alberta MANIS
I4 William Bowers MANES
I5 Cordelia "Corda" F. CANTER
I6 William Loyd MANIS
(all these INDI's did have a NOTE line)
*/
/* End of Report */
|