+sub print_notes {
+ foreach (@notes) {
+ my ( $title, $note ) = @$_;
+
+ print '<div style="margin:.2em;border: solid thin black; background-color: #bdf">';
+ if ($note) {
+ print "<h2 class=\"pred\">$title</h2>";
+ } else {
+ $note = $title;
+ }
+ print "<p>$note</p></div>";
+ }
+}