book: include sources

Signed-off-by: Matthias Rabe <[email protected]>

Author: Matthias Rabe

reports/book.inc.rb

@@ -143,19 +143,22 @@ def report_person_print_profile(ged, indi, own_fams)
 	$params[:ofile].print "\\vspace{0mm} \\centering \\incImage{width=10em}{#{conv_img4latex(mugshot)}}\n"
 	$params[:ofile].print "\\end{minipage} \\hfill\n"
 
-	def t1(a, b, c, d= nil, e= nil, f= nil, g= nil)
+	def t1(a, b, c, d= nil, e= nil, f= nil, g= nil, src_ids= [])
 		s= []
 		s += ["\\mbox{", b, h(c), "}"] if c.to_s != ""
 		s += ["\\mbox{", d, h(e), "}"] if e.to_s != ""
 		s += ["\\mbox{", f, h(g), "}"] if g.to_s != ""
-		return(s.size > 0 ? "\\mbox{#{a}}: & #{s.join(' ')} \\\\\n" : "")
+
+		sources= report_person_sources_to_footnote(src_ids)
+		return(s.size > 0 ? "\\mbox{#{a}}: & #{s.join(' ')} #{sources} \\\\\n" : "")
 	end
 
 	$params[:ofile].print "\\begin{minipage}[t]{\\textwidth-10em} \\vspace{0mm}\n"
 	$params[:ofile].print "\\begin{tabular}{p{4em} p{\\textwidth-15em}}\n"
-	$params[:ofile].print t1("Geboren", "am", indi.birth, "in", indi.birth_place)
-	$params[:ofile].print t1("Getauft", "am", indi.leaf, "in", indi.leaf_place)
-	$params[:ofile].print t1("Gestorben", "am", indi.died, "in", indi.died_place)
+	$params[:ofile].print t1("Kekule", "", "1")
+	$params[:ofile].print t1("Geboren",   "am", indi.birth, "in", indi.birth_place, nil, nil, indi.birth_sources(ged))
+	$params[:ofile].print t1("Getauft",   "am", indi.leaf,  "in", indi.leaf_place,  nil, nil, indi.leaf_sources(ged))
+	$params[:ofile].print t1("Gestorben", "am", indi.died,  "in", indi.died_place,  nil, nil, indi.died_sources(ged))
 	# TODO EVENT, GRAD, RELI, EVEN, GRAD, EDUC, RESI, CHAN(?), BLES ## USE FOR NOTES, too
 
 	own_fams.each {|own_fam|
@@ -305,8 +308,10 @@ def t2(f)
 
 def report_person_print_notes(ged, indi)
 	items= []
-	[["Geburtsnotiz", "BIRT_NOTE"], ["Taufnotiz", "CHR_NOTE"], ["Sterbenotiz", "DEAT_NOTE"],
-			["Andere", "NOTE"]].each {|x| key, val= x
+	[	["Geburtsnotiz",	"BIRT_NOTE",	"BIRT_SOUR"],
+		["Taufnotiz",		"CHR_NOTE",	"CHR_SOUR" ],
+		["Sterbenotiz", 	"DEAT_NOTE",	"DEAT_SOUR"],
+		["Andere",		"NOTE",		"?????????"]].each {|x| key, val, src= x
 		indi.get_details(val).each {|note_id| text= note_id= note_id[:value]
 			if note_id[0].chr == '@'
 				note= ged.find_by_node_gid(note_id)
@@ -319,7 +324,9 @@ def report_person_print_notes(ged, indi)
 				text= text.gsub("**********", "********** ") # hack to avaid LaTeX warning
 			end
 
-			items << "\\item[#{key}] #{replace_newline(h(text))}"
+			sources= report_person_sources_to_footnote(indi.get_sources(ged, src))
+
+			items << "\\item[#{key}] #{replace_newline(h(text))}" + sources
 		}
 	}
 
@@ -335,6 +342,15 @@ def report_person_print_notes(ged, indi)
 	return(true)
 end
 
+def report_person_sources_to_footnote(srcs)
+	sources= ""
+	srcs.each {|src| next if src.nil?
+		footnote = src.footnote
+		sources += " \\footnote{#{h(footnote)}}" if footnote != ""
+	}
+	return sources
+end
+
 def report_print_galerie(ged, section)
 	items= {};
 	section.objs.each {|o|