@@ -86,143 +86,143 @@ |
||
| 86 | 86 | ); |
| 87 | 87 | $new_xref = $WT_TREE->getNewXref($type); |
| 88 | 88 | switch ($type) { |
| 89 | - case 'INDI': |
|
| 90 | - Database::prepare( |
|
| 91 | - "UPDATE `##individuals` SET i_id = ?, i_gedcom = REPLACE(i_gedcom, ?, ?) WHERE i_id = ? AND i_file = ?" |
|
| 92 | - )->execute(array($new_xref, "0 @$old_xref@ INDI\n", "0 @$new_xref@ INDI\n", $old_xref, $WT_TREE->getTreeId())); |
|
| 93 | - Database::prepare( |
|
| 94 | - "UPDATE `##families` JOIN `##link` ON (l_file = f_file AND l_to = ? AND l_type = 'HUSB') SET f_gedcom = REPLACE(f_gedcom, ?, ?) WHERE f_file = ?" |
|
| 95 | - )->execute(array($old_xref, " HUSB @$old_xref@", " HUSB @$new_xref@", $WT_TREE->getTreeId())); |
|
| 96 | - Database::prepare( |
|
| 97 | - "UPDATE `##families` JOIN `##link` ON (l_file = f_file AND l_to = ? AND l_type = 'WIFE') SET f_gedcom = REPLACE(f_gedcom, ?, ?) WHERE f_file = ?" |
|
| 98 | - )->execute(array($old_xref, " WIFE @$old_xref@", " WIFE @$new_xref@", $WT_TREE->getTreeId())); |
|
| 99 | - Database::prepare( |
|
| 100 | - "UPDATE `##families` JOIN `##link` ON (l_file = f_file AND l_to = ? AND l_type = 'CHIL') SET f_gedcom = REPLACE(f_gedcom, ?, ?) WHERE f_file = ?" |
|
| 101 | - )->execute(array($old_xref, " CHIL @$old_xref@", " CHIL @$new_xref@", $WT_TREE->getTreeId())); |
|
| 102 | - Database::prepare( |
|
| 103 | - "UPDATE `##families` JOIN `##link` ON (l_file = f_file AND l_to = ? AND l_type = 'ASSO') SET f_gedcom = REPLACE(f_gedcom, ?, ?) WHERE f_file = ?" |
|
| 104 | - )->execute(array($old_xref, " ASSO @$old_xref@", " ASSO @$new_xref@", $WT_TREE->getTreeId())); |
|
| 105 | - Database::prepare( |
|
| 106 | - "UPDATE `##families` JOIN `##link` ON (l_file = f_file AND l_to = ? AND l_type = '_ASSO') SET f_gedcom = REPLACE(f_gedcom, ?, ?) WHERE f_file = ?" |
|
| 107 | - )->execute(array($old_xref, " _ASSO @$old_xref@", " _ASSO @$new_xref@", $WT_TREE->getTreeId())); |
|
| 108 | - Database::prepare( |
|
| 109 | - "UPDATE `##individuals` JOIN `##link` ON (l_file = i_file AND l_to = ? AND l_type = 'ASSO') SET i_gedcom = REPLACE(i_gedcom, ?, ?) WHERE i_file = ?" |
|
| 110 | - )->execute(array($old_xref, " ASSO @$old_xref@", " ASSO @$new_xref@", $WT_TREE->getTreeId())); |
|
| 111 | - Database::prepare( |
|
| 112 | - "UPDATE `##individuals` JOIN `##link` ON (l_file = i_file AND l_to = ? AND l_type = '_ASSO') SET i_gedcom = REPLACE(i_gedcom, ?, ?) WHERE i_file = ?" |
|
| 113 | - )->execute(array($old_xref, " _ASSO @$old_xref@", " _ASSO @$new_xref@", $WT_TREE->getTreeId())); |
|
| 114 | - Database::prepare( |
|
| 115 | - "UPDATE `##placelinks` SET pl_gid = ? WHERE pl_gid = ? AND pl_file = ?" |
|
| 116 | - )->execute(array($new_xref, $old_xref, $WT_TREE->getTreeId())); |
|
| 117 | - Database::prepare( |
|
| 118 | - "UPDATE `##dates` SET d_gid = ? WHERE d_gid = ? AND d_file = ?" |
|
| 119 | - )->execute(array($new_xref, $old_xref, $WT_TREE->getTreeId())); |
|
| 120 | - Database::prepare( |
|
| 121 | - "UPDATE `##user_gedcom_setting` SET setting_value = ? WHERE setting_value = ? AND gedcom_id = ? AND setting_name IN ('gedcomid', 'rootid')" |
|
| 122 | - )->execute(array($new_xref, $old_xref, $WT_TREE->getTreeId())); |
|
| 123 | - break; |
|
| 124 | - case 'FAM': |
|
| 125 | - Database::prepare( |
|
| 126 | - "UPDATE `##families` SET f_id = ?, f_gedcom = REPLACE(f_gedcom, ?, ?) WHERE f_id = ? AND f_file = ?" |
|
| 127 | - )->execute(array($new_xref, "0 @$old_xref@ FAM\n", "0 @$new_xref@ FAM\n", $old_xref, $WT_TREE->getTreeId())); |
|
| 128 | - Database::prepare( |
|
| 129 | - "UPDATE `##individuals` JOIN `##link` ON (l_file = i_file AND l_to = ? AND l_type = 'FAMC') SET i_gedcom = REPLACE(i_gedcom, ?, ?) WHERE i_file = ?" |
|
| 130 | - )->execute(array($old_xref, " FAMC @$old_xref@", " FAMC @$new_xref@", $WT_TREE->getTreeId())); |
|
| 131 | - Database::prepare( |
|
| 132 | - "UPDATE `##individuals` JOIN `##link` ON (l_file = i_file AND l_to = ? AND l_type = 'FAMS') SET i_gedcom = REPLACE(i_gedcom, ?, ?) WHERE i_file = ?" |
|
| 133 | - )->execute(array($old_xref, " FAMS @$old_xref@", " FAMS @$new_xref@", $WT_TREE->getTreeId())); |
|
| 134 | - Database::prepare( |
|
| 135 | - "UPDATE `##placelinks` SET pl_gid = ? WHERE pl_gid = ? AND pl_file = ?" |
|
| 136 | - )->execute(array($new_xref, $old_xref, $WT_TREE->getTreeId())); |
|
| 137 | - Database::prepare( |
|
| 138 | - "UPDATE `##dates` SET d_gid = ? WHERE d_gid = ? AND d_file = ?" |
|
| 139 | - )->execute(array($new_xref, $old_xref, $WT_TREE->getTreeId())); |
|
| 140 | - break; |
|
| 141 | - case 'SOUR': |
|
| 142 | - Database::prepare( |
|
| 143 | - "UPDATE `##sources` SET s_id = ?, s_gedcom = REPLACE(s_gedcom, ?, ?) WHERE s_id = ? AND s_file = ?" |
|
| 144 | - )->execute(array($new_xref, "0 @$old_xref@ SOUR\n", "0 @$new_xref@ SOUR\n", $old_xref, $WT_TREE->getTreeId())); |
|
| 145 | - Database::prepare( |
|
| 146 | - "UPDATE `##individuals` JOIN `##link` ON (l_file = i_file AND l_to = ? AND l_type = 'SOUR') SET i_gedcom = REPLACE(i_gedcom, ?, ?) WHERE i_file = ?" |
|
| 147 | - )->execute(array($old_xref, " SOUR @$old_xref@", " SOUR @$new_xref@", $WT_TREE->getTreeId())); |
|
| 148 | - Database::prepare( |
|
| 149 | - "UPDATE `##families` JOIN `##link` ON (l_file = f_file AND l_to = ? AND l_type = 'SOUR') SET f_gedcom = REPLACE(f_gedcom, ?, ?) WHERE f_file = ?" |
|
| 150 | - )->execute(array($old_xref, " SOUR @$old_xref@", " SOUR @$new_xref@", $WT_TREE->getTreeId())); |
|
| 151 | - Database::prepare( |
|
| 152 | - "UPDATE `##media` JOIN `##link` ON (l_file = m_file AND l_to = ? AND l_type = 'SOUR') SET m_gedcom = REPLACE(m_gedcom, ?, ?) WHERE m_file = ?" |
|
| 153 | - )->execute(array($old_xref, " SOUR @$old_xref@", " SOUR @$new_xref@", $WT_TREE->getTreeId())); |
|
| 154 | - Database::prepare( |
|
| 155 | - "UPDATE `##other` JOIN `##link` ON (l_file = o_file AND l_to = ? AND l_type = 'SOUR') SET o_gedcom = REPLACE(o_gedcom, ?, ?) WHERE o_file = ?" |
|
| 156 | - )->execute(array($old_xref, " SOUR @$old_xref@", " SOUR @$new_xref@", $WT_TREE->getTreeId())); |
|
| 157 | - break; |
|
| 158 | - case 'REPO': |
|
| 159 | - Database::prepare( |
|
| 160 | - "UPDATE `##other` SET o_id = ?, o_gedcom = REPLACE(o_gedcom, ?, ?) WHERE o_id = ? AND o_file = ?" |
|
| 161 | - )->execute(array($new_xref, "0 @$old_xref@ REPO\n", "0 @$new_xref@ REPO\n", $old_xref, $WT_TREE->getTreeId())); |
|
| 162 | - Database::prepare( |
|
| 163 | - "UPDATE `##sources` JOIN `##link` ON (l_file = s_file AND l_to = ? AND l_type = 'REPO') SET s_gedcom = REPLACE(s_gedcom, ?, ?) WHERE s_file = ?" |
|
| 164 | - )->execute(array($old_xref, " REPO @$old_xref@", " REPO @$new_xref@", $WT_TREE->getTreeId())); |
|
| 165 | - break; |
|
| 166 | - case 'NOTE': |
|
| 167 | - Database::prepare( |
|
| 168 | - "UPDATE `##other` SET o_id = ?, o_gedcom = REPLACE(REPLACE(o_gedcom, ?, ?), ?, ?) WHERE o_id = ? AND o_file = ?" |
|
| 169 | - )->execute(array($new_xref, "0 @$old_xref@ NOTE\n", "0 @$new_xref@ NOTE\n", "0 @$old_xref@ NOTE ", "0 @$new_xref@ NOTE ", $old_xref, $WT_TREE->getTreeId())); |
|
| 170 | - Database::prepare( |
|
| 171 | - "UPDATE `##individuals` JOIN `##link` ON (l_file = i_file AND l_to = ? AND l_type = 'NOTE') SET i_gedcom = REPLACE(i_gedcom, ?, ?) WHERE i_file = ?" |
|
| 172 | - )->execute(array($old_xref, " NOTE @$old_xref@", " NOTE @$new_xref@", $WT_TREE->getTreeId())); |
|
| 173 | - Database::prepare( |
|
| 174 | - "UPDATE `##families` JOIN `##link` ON (l_file = f_file AND l_to = ? AND l_type = 'NOTE') SET f_gedcom = REPLACE(f_gedcom, ?, ?) WHERE f_file = ?" |
|
| 175 | - )->execute(array($old_xref, " NOTE @$old_xref@", " NOTE @$new_xref@", $WT_TREE->getTreeId())); |
|
| 176 | - Database::prepare( |
|
| 177 | - "UPDATE `##media` JOIN `##link` ON (l_file = m_file AND l_to = ? AND l_type = 'NOTE') SET m_gedcom = REPLACE(m_gedcom, ?, ?) WHERE m_file = ?" |
|
| 178 | - )->execute(array($old_xref, " NOTE @$old_xref@", " NOTE @$new_xref@", $WT_TREE->getTreeId())); |
|
| 179 | - Database::prepare( |
|
| 180 | - "UPDATE `##sources` JOIN `##link` ON (l_file = s_file AND l_to = ? AND l_type = 'NOTE') SET s_gedcom = REPLACE(s_gedcom, ?, ?) WHERE s_file = ?" |
|
| 181 | - )->execute(array($old_xref, " NOTE @$old_xref@", " NOTE @$new_xref@", $WT_TREE->getTreeId())); |
|
| 182 | - Database::prepare( |
|
| 183 | - "UPDATE `##other` JOIN `##link` ON (l_file = o_file AND l_to = ? AND l_type = 'NOTE') SET o_gedcom = REPLACE(o_gedcom, ?, ?) WHERE o_file = ?" |
|
| 184 | - )->execute(array($old_xref, " NOTE @$old_xref@", " NOTE @$new_xref@", $WT_TREE->getTreeId())); |
|
| 185 | - break; |
|
| 186 | - case 'OBJE': |
|
| 187 | - Database::prepare( |
|
| 188 | - "UPDATE `##media` SET m_id = ?, m_gedcom = REPLACE(m_gedcom, ?, ?) WHERE m_id = ? AND m_file = ?" |
|
| 189 | - )->execute(array($new_xref, "0 @$old_xref@ OBJE\n", "0 @$new_xref@ OBJE\n", $old_xref, $WT_TREE->getTreeId())); |
|
| 190 | - Database::prepare( |
|
| 191 | - "UPDATE `##individuals` JOIN `##link` ON (l_file = i_file AND l_to = ? AND l_type = 'OBJE') SET i_gedcom = REPLACE(i_gedcom, ?, ?) WHERE i_file = ?" |
|
| 192 | - )->execute(array($old_xref, " OBJE @$old_xref@", " OBJE @$new_xref@", $WT_TREE->getTreeId())); |
|
| 193 | - Database::prepare( |
|
| 194 | - "UPDATE `##families` JOIN `##link` ON (l_file = f_file AND l_to = ? AND l_type = 'OBJE') SET f_gedcom = REPLACE(f_gedcom, ?, ?) WHERE f_file = ?" |
|
| 195 | - )->execute(array($old_xref, " OBJE @$old_xref@", " OBJE @$new_xref@", $WT_TREE->getTreeId())); |
|
| 196 | - Database::prepare( |
|
| 197 | - "UPDATE `##media` JOIN `##link` ON (l_file = m_file AND l_to = ? AND l_type = 'OBJE') SET m_gedcom = REPLACE(m_gedcom, ?, ?) WHERE m_file = ?" |
|
| 198 | - )->execute(array($old_xref, " OBJE @$old_xref@", " OBJE @$new_xref@", $WT_TREE->getTreeId())); |
|
| 199 | - Database::prepare( |
|
| 200 | - "UPDATE `##sources` JOIN `##link` ON (l_file = s_file AND l_to = ? AND l_type = 'OBJE') SET s_gedcom = REPLACE(s_gedcom, ?, ?) WHERE s_file = ?" |
|
| 201 | - )->execute(array($old_xref, " OBJE @$old_xref@", " OBJE @$new_xref@", $WT_TREE->getTreeId())); |
|
| 202 | - Database::prepare( |
|
| 203 | - "UPDATE `##other` JOIN `##link` ON (l_file = o_file AND l_to = ? AND l_type = 'OBJE') SET o_gedcom = REPLACE(o_gedcom, ?, ?) WHERE o_file = ?" |
|
| 204 | - )->execute(array($old_xref, " OBJE @$old_xref@", " OBJE @$new_xref@", $WT_TREE->getTreeId())); |
|
| 205 | - break; |
|
| 206 | - default: |
|
| 207 | - Database::prepare( |
|
| 208 | - "UPDATE `##other` SET o_id = ?, o_gedcom = REPLACE(o_gedcom, ?, ?) WHERE o_id = ? AND o_file = ?" |
|
| 209 | - )->execute(array($new_xref, "0 @$old_xref@ $type\n", "0 @$new_xref@ $type\n", $old_xref, $WT_TREE->getTreeId())); |
|
| 210 | - Database::prepare( |
|
| 211 | - "UPDATE `##individuals` JOIN `##link` ON (l_file = i_file AND l_to = ?) SET i_gedcom = REPLACE(i_gedcom, ?, ?) WHERE i_file = ?" |
|
| 212 | - )->execute(array($old_xref, " @$old_xref@", " @$new_xref@", $WT_TREE->getTreeId())); |
|
| 213 | - Database::prepare( |
|
| 214 | - "UPDATE `##families` JOIN `##link` ON (l_file = f_file AND l_to = ?) SET f_gedcom = REPLACE(f_gedcom, ?, ?) WHERE f_file = ?" |
|
| 215 | - )->execute(array($old_xref, " @$old_xref@", " @$new_xref@", $WT_TREE->getTreeId())); |
|
| 216 | - Database::prepare( |
|
| 217 | - "UPDATE `##media` JOIN `##link` ON (l_file = m_file AND l_to = ?) SET m_gedcom = REPLACE(m_gedcom, ?, ?) WHERE m_file = ?" |
|
| 218 | - )->execute(array($old_xref, " @$old_xref@", " @$new_xref@", $WT_TREE->getTreeId())); |
|
| 219 | - Database::prepare( |
|
| 220 | - "UPDATE `##sources` JOIN `##link` ON (l_file = s_file AND l_to = ?) SET s_gedcom = REPLACE(s_gedcom, ?, ?) WHERE s_file = ?" |
|
| 221 | - )->execute(array($old_xref, " @$old_xref@", " @$new_xref@", $WT_TREE->getTreeId())); |
|
| 222 | - Database::prepare( |
|
| 223 | - "UPDATE `##other` JOIN `##link` ON (l_file = o_file AND l_to = ?) SET o_gedcom = REPLACE(o_gedcom, ?, ?) WHERE o_file = ?" |
|
| 224 | - )->execute(array($old_xref, " @$old_xref@", " @$new_xref@", $WT_TREE->getTreeId())); |
|
| 225 | - break; |
|
| 89 | + case 'INDI': |
|
| 90 | + Database::prepare( |
|
| 91 | + "UPDATE `##individuals` SET i_id = ?, i_gedcom = REPLACE(i_gedcom, ?, ?) WHERE i_id = ? AND i_file = ?" |
|
| 92 | + )->execute(array($new_xref, "0 @$old_xref@ INDI\n", "0 @$new_xref@ INDI\n", $old_xref, $WT_TREE->getTreeId())); |
|
| 93 | + Database::prepare( |
|
| 94 | + "UPDATE `##families` JOIN `##link` ON (l_file = f_file AND l_to = ? AND l_type = 'HUSB') SET f_gedcom = REPLACE(f_gedcom, ?, ?) WHERE f_file = ?" |
|
| 95 | + )->execute(array($old_xref, " HUSB @$old_xref@", " HUSB @$new_xref@", $WT_TREE->getTreeId())); |
|
| 96 | + Database::prepare( |
|
| 97 | + "UPDATE `##families` JOIN `##link` ON (l_file = f_file AND l_to = ? AND l_type = 'WIFE') SET f_gedcom = REPLACE(f_gedcom, ?, ?) WHERE f_file = ?" |
|
| 98 | + )->execute(array($old_xref, " WIFE @$old_xref@", " WIFE @$new_xref@", $WT_TREE->getTreeId())); |
|
| 99 | + Database::prepare( |
|
| 100 | + "UPDATE `##families` JOIN `##link` ON (l_file = f_file AND l_to = ? AND l_type = 'CHIL') SET f_gedcom = REPLACE(f_gedcom, ?, ?) WHERE f_file = ?" |
|
| 101 | + )->execute(array($old_xref, " CHIL @$old_xref@", " CHIL @$new_xref@", $WT_TREE->getTreeId())); |
|
| 102 | + Database::prepare( |
|
| 103 | + "UPDATE `##families` JOIN `##link` ON (l_file = f_file AND l_to = ? AND l_type = 'ASSO') SET f_gedcom = REPLACE(f_gedcom, ?, ?) WHERE f_file = ?" |
|
| 104 | + )->execute(array($old_xref, " ASSO @$old_xref@", " ASSO @$new_xref@", $WT_TREE->getTreeId())); |
|
| 105 | + Database::prepare( |
|
| 106 | + "UPDATE `##families` JOIN `##link` ON (l_file = f_file AND l_to = ? AND l_type = '_ASSO') SET f_gedcom = REPLACE(f_gedcom, ?, ?) WHERE f_file = ?" |
|
| 107 | + )->execute(array($old_xref, " _ASSO @$old_xref@", " _ASSO @$new_xref@", $WT_TREE->getTreeId())); |
|
| 108 | + Database::prepare( |
|
| 109 | + "UPDATE `##individuals` JOIN `##link` ON (l_file = i_file AND l_to = ? AND l_type = 'ASSO') SET i_gedcom = REPLACE(i_gedcom, ?, ?) WHERE i_file = ?" |
|
| 110 | + )->execute(array($old_xref, " ASSO @$old_xref@", " ASSO @$new_xref@", $WT_TREE->getTreeId())); |
|
| 111 | + Database::prepare( |
|
| 112 | + "UPDATE `##individuals` JOIN `##link` ON (l_file = i_file AND l_to = ? AND l_type = '_ASSO') SET i_gedcom = REPLACE(i_gedcom, ?, ?) WHERE i_file = ?" |
|
| 113 | + )->execute(array($old_xref, " _ASSO @$old_xref@", " _ASSO @$new_xref@", $WT_TREE->getTreeId())); |
|
| 114 | + Database::prepare( |
|
| 115 | + "UPDATE `##placelinks` SET pl_gid = ? WHERE pl_gid = ? AND pl_file = ?" |
|
| 116 | + )->execute(array($new_xref, $old_xref, $WT_TREE->getTreeId())); |
|
| 117 | + Database::prepare( |
|
| 118 | + "UPDATE `##dates` SET d_gid = ? WHERE d_gid = ? AND d_file = ?" |
|
| 119 | + )->execute(array($new_xref, $old_xref, $WT_TREE->getTreeId())); |
|
| 120 | + Database::prepare( |
|
| 121 | + "UPDATE `##user_gedcom_setting` SET setting_value = ? WHERE setting_value = ? AND gedcom_id = ? AND setting_name IN ('gedcomid', 'rootid')" |
|
| 122 | + )->execute(array($new_xref, $old_xref, $WT_TREE->getTreeId())); |
|
| 123 | + break; |
|
| 124 | + case 'FAM': |
|
| 125 | + Database::prepare( |
|
| 126 | + "UPDATE `##families` SET f_id = ?, f_gedcom = REPLACE(f_gedcom, ?, ?) WHERE f_id = ? AND f_file = ?" |
|
| 127 | + )->execute(array($new_xref, "0 @$old_xref@ FAM\n", "0 @$new_xref@ FAM\n", $old_xref, $WT_TREE->getTreeId())); |
|
| 128 | + Database::prepare( |
|
| 129 | + "UPDATE `##individuals` JOIN `##link` ON (l_file = i_file AND l_to = ? AND l_type = 'FAMC') SET i_gedcom = REPLACE(i_gedcom, ?, ?) WHERE i_file = ?" |
|
| 130 | + )->execute(array($old_xref, " FAMC @$old_xref@", " FAMC @$new_xref@", $WT_TREE->getTreeId())); |
|
| 131 | + Database::prepare( |
|
| 132 | + "UPDATE `##individuals` JOIN `##link` ON (l_file = i_file AND l_to = ? AND l_type = 'FAMS') SET i_gedcom = REPLACE(i_gedcom, ?, ?) WHERE i_file = ?" |
|
| 133 | + )->execute(array($old_xref, " FAMS @$old_xref@", " FAMS @$new_xref@", $WT_TREE->getTreeId())); |
|
| 134 | + Database::prepare( |
|
| 135 | + "UPDATE `##placelinks` SET pl_gid = ? WHERE pl_gid = ? AND pl_file = ?" |
|
| 136 | + )->execute(array($new_xref, $old_xref, $WT_TREE->getTreeId())); |
|
| 137 | + Database::prepare( |
|
| 138 | + "UPDATE `##dates` SET d_gid = ? WHERE d_gid = ? AND d_file = ?" |
|
| 139 | + )->execute(array($new_xref, $old_xref, $WT_TREE->getTreeId())); |
|
| 140 | + break; |
|
| 141 | + case 'SOUR': |
|
| 142 | + Database::prepare( |
|
| 143 | + "UPDATE `##sources` SET s_id = ?, s_gedcom = REPLACE(s_gedcom, ?, ?) WHERE s_id = ? AND s_file = ?" |
|
| 144 | + )->execute(array($new_xref, "0 @$old_xref@ SOUR\n", "0 @$new_xref@ SOUR\n", $old_xref, $WT_TREE->getTreeId())); |
|
| 145 | + Database::prepare( |
|
| 146 | + "UPDATE `##individuals` JOIN `##link` ON (l_file = i_file AND l_to = ? AND l_type = 'SOUR') SET i_gedcom = REPLACE(i_gedcom, ?, ?) WHERE i_file = ?" |
|
| 147 | + )->execute(array($old_xref, " SOUR @$old_xref@", " SOUR @$new_xref@", $WT_TREE->getTreeId())); |
|
| 148 | + Database::prepare( |
|
| 149 | + "UPDATE `##families` JOIN `##link` ON (l_file = f_file AND l_to = ? AND l_type = 'SOUR') SET f_gedcom = REPLACE(f_gedcom, ?, ?) WHERE f_file = ?" |
|
| 150 | + )->execute(array($old_xref, " SOUR @$old_xref@", " SOUR @$new_xref@", $WT_TREE->getTreeId())); |
|
| 151 | + Database::prepare( |
|
| 152 | + "UPDATE `##media` JOIN `##link` ON (l_file = m_file AND l_to = ? AND l_type = 'SOUR') SET m_gedcom = REPLACE(m_gedcom, ?, ?) WHERE m_file = ?" |
|
| 153 | + )->execute(array($old_xref, " SOUR @$old_xref@", " SOUR @$new_xref@", $WT_TREE->getTreeId())); |
|
| 154 | + Database::prepare( |
|
| 155 | + "UPDATE `##other` JOIN `##link` ON (l_file = o_file AND l_to = ? AND l_type = 'SOUR') SET o_gedcom = REPLACE(o_gedcom, ?, ?) WHERE o_file = ?" |
|
| 156 | + )->execute(array($old_xref, " SOUR @$old_xref@", " SOUR @$new_xref@", $WT_TREE->getTreeId())); |
|
| 157 | + break; |
|
| 158 | + case 'REPO': |
|
| 159 | + Database::prepare( |
|
| 160 | + "UPDATE `##other` SET o_id = ?, o_gedcom = REPLACE(o_gedcom, ?, ?) WHERE o_id = ? AND o_file = ?" |
|
| 161 | + )->execute(array($new_xref, "0 @$old_xref@ REPO\n", "0 @$new_xref@ REPO\n", $old_xref, $WT_TREE->getTreeId())); |
|
| 162 | + Database::prepare( |
|
| 163 | + "UPDATE `##sources` JOIN `##link` ON (l_file = s_file AND l_to = ? AND l_type = 'REPO') SET s_gedcom = REPLACE(s_gedcom, ?, ?) WHERE s_file = ?" |
|
| 164 | + )->execute(array($old_xref, " REPO @$old_xref@", " REPO @$new_xref@", $WT_TREE->getTreeId())); |
|
| 165 | + break; |
|
| 166 | + case 'NOTE': |
|
| 167 | + Database::prepare( |
|
| 168 | + "UPDATE `##other` SET o_id = ?, o_gedcom = REPLACE(REPLACE(o_gedcom, ?, ?), ?, ?) WHERE o_id = ? AND o_file = ?" |
|
| 169 | + )->execute(array($new_xref, "0 @$old_xref@ NOTE\n", "0 @$new_xref@ NOTE\n", "0 @$old_xref@ NOTE ", "0 @$new_xref@ NOTE ", $old_xref, $WT_TREE->getTreeId())); |
|
| 170 | + Database::prepare( |
|
| 171 | + "UPDATE `##individuals` JOIN `##link` ON (l_file = i_file AND l_to = ? AND l_type = 'NOTE') SET i_gedcom = REPLACE(i_gedcom, ?, ?) WHERE i_file = ?" |
|
| 172 | + )->execute(array($old_xref, " NOTE @$old_xref@", " NOTE @$new_xref@", $WT_TREE->getTreeId())); |
|
| 173 | + Database::prepare( |
|
| 174 | + "UPDATE `##families` JOIN `##link` ON (l_file = f_file AND l_to = ? AND l_type = 'NOTE') SET f_gedcom = REPLACE(f_gedcom, ?, ?) WHERE f_file = ?" |
|
| 175 | + )->execute(array($old_xref, " NOTE @$old_xref@", " NOTE @$new_xref@", $WT_TREE->getTreeId())); |
|
| 176 | + Database::prepare( |
|
| 177 | + "UPDATE `##media` JOIN `##link` ON (l_file = m_file AND l_to = ? AND l_type = 'NOTE') SET m_gedcom = REPLACE(m_gedcom, ?, ?) WHERE m_file = ?" |
|
| 178 | + )->execute(array($old_xref, " NOTE @$old_xref@", " NOTE @$new_xref@", $WT_TREE->getTreeId())); |
|
| 179 | + Database::prepare( |
|
| 180 | + "UPDATE `##sources` JOIN `##link` ON (l_file = s_file AND l_to = ? AND l_type = 'NOTE') SET s_gedcom = REPLACE(s_gedcom, ?, ?) WHERE s_file = ?" |
|
| 181 | + )->execute(array($old_xref, " NOTE @$old_xref@", " NOTE @$new_xref@", $WT_TREE->getTreeId())); |
|
| 182 | + Database::prepare( |
|
| 183 | + "UPDATE `##other` JOIN `##link` ON (l_file = o_file AND l_to = ? AND l_type = 'NOTE') SET o_gedcom = REPLACE(o_gedcom, ?, ?) WHERE o_file = ?" |
|
| 184 | + )->execute(array($old_xref, " NOTE @$old_xref@", " NOTE @$new_xref@", $WT_TREE->getTreeId())); |
|
| 185 | + break; |
|
| 186 | + case 'OBJE': |
|
| 187 | + Database::prepare( |
|
| 188 | + "UPDATE `##media` SET m_id = ?, m_gedcom = REPLACE(m_gedcom, ?, ?) WHERE m_id = ? AND m_file = ?" |
|
| 189 | + )->execute(array($new_xref, "0 @$old_xref@ OBJE\n", "0 @$new_xref@ OBJE\n", $old_xref, $WT_TREE->getTreeId())); |
|
| 190 | + Database::prepare( |
|
| 191 | + "UPDATE `##individuals` JOIN `##link` ON (l_file = i_file AND l_to = ? AND l_type = 'OBJE') SET i_gedcom = REPLACE(i_gedcom, ?, ?) WHERE i_file = ?" |
|
| 192 | + )->execute(array($old_xref, " OBJE @$old_xref@", " OBJE @$new_xref@", $WT_TREE->getTreeId())); |
|
| 193 | + Database::prepare( |
|
| 194 | + "UPDATE `##families` JOIN `##link` ON (l_file = f_file AND l_to = ? AND l_type = 'OBJE') SET f_gedcom = REPLACE(f_gedcom, ?, ?) WHERE f_file = ?" |
|
| 195 | + )->execute(array($old_xref, " OBJE @$old_xref@", " OBJE @$new_xref@", $WT_TREE->getTreeId())); |
|
| 196 | + Database::prepare( |
|
| 197 | + "UPDATE `##media` JOIN `##link` ON (l_file = m_file AND l_to = ? AND l_type = 'OBJE') SET m_gedcom = REPLACE(m_gedcom, ?, ?) WHERE m_file = ?" |
|
| 198 | + )->execute(array($old_xref, " OBJE @$old_xref@", " OBJE @$new_xref@", $WT_TREE->getTreeId())); |
|
| 199 | + Database::prepare( |
|
| 200 | + "UPDATE `##sources` JOIN `##link` ON (l_file = s_file AND l_to = ? AND l_type = 'OBJE') SET s_gedcom = REPLACE(s_gedcom, ?, ?) WHERE s_file = ?" |
|
| 201 | + )->execute(array($old_xref, " OBJE @$old_xref@", " OBJE @$new_xref@", $WT_TREE->getTreeId())); |
|
| 202 | + Database::prepare( |
|
| 203 | + "UPDATE `##other` JOIN `##link` ON (l_file = o_file AND l_to = ? AND l_type = 'OBJE') SET o_gedcom = REPLACE(o_gedcom, ?, ?) WHERE o_file = ?" |
|
| 204 | + )->execute(array($old_xref, " OBJE @$old_xref@", " OBJE @$new_xref@", $WT_TREE->getTreeId())); |
|
| 205 | + break; |
|
| 206 | + default: |
|
| 207 | + Database::prepare( |
|
| 208 | + "UPDATE `##other` SET o_id = ?, o_gedcom = REPLACE(o_gedcom, ?, ?) WHERE o_id = ? AND o_file = ?" |
|
| 209 | + )->execute(array($new_xref, "0 @$old_xref@ $type\n", "0 @$new_xref@ $type\n", $old_xref, $WT_TREE->getTreeId())); |
|
| 210 | + Database::prepare( |
|
| 211 | + "UPDATE `##individuals` JOIN `##link` ON (l_file = i_file AND l_to = ?) SET i_gedcom = REPLACE(i_gedcom, ?, ?) WHERE i_file = ?" |
|
| 212 | + )->execute(array($old_xref, " @$old_xref@", " @$new_xref@", $WT_TREE->getTreeId())); |
|
| 213 | + Database::prepare( |
|
| 214 | + "UPDATE `##families` JOIN `##link` ON (l_file = f_file AND l_to = ?) SET f_gedcom = REPLACE(f_gedcom, ?, ?) WHERE f_file = ?" |
|
| 215 | + )->execute(array($old_xref, " @$old_xref@", " @$new_xref@", $WT_TREE->getTreeId())); |
|
| 216 | + Database::prepare( |
|
| 217 | + "UPDATE `##media` JOIN `##link` ON (l_file = m_file AND l_to = ?) SET m_gedcom = REPLACE(m_gedcom, ?, ?) WHERE m_file = ?" |
|
| 218 | + )->execute(array($old_xref, " @$old_xref@", " @$new_xref@", $WT_TREE->getTreeId())); |
|
| 219 | + Database::prepare( |
|
| 220 | + "UPDATE `##sources` JOIN `##link` ON (l_file = s_file AND l_to = ?) SET s_gedcom = REPLACE(s_gedcom, ?, ?) WHERE s_file = ?" |
|
| 221 | + )->execute(array($old_xref, " @$old_xref@", " @$new_xref@", $WT_TREE->getTreeId())); |
|
| 222 | + Database::prepare( |
|
| 223 | + "UPDATE `##other` JOIN `##link` ON (l_file = o_file AND l_to = ?) SET o_gedcom = REPLACE(o_gedcom, ?, ?) WHERE o_file = ?" |
|
| 224 | + )->execute(array($old_xref, " @$old_xref@", " @$new_xref@", $WT_TREE->getTreeId())); |
|
| 225 | + break; |
|
| 226 | 226 | } |
| 227 | 227 | Database::prepare( |
| 228 | 228 | "UPDATE `##name` SET n_id = ? WHERE n_id = ? AND n_file = ?" |
@@ -74,8 +74,11 @@ |
||
| 74 | 74 | <td class="col-xs-2"> |
| 75 | 75 | <?php if ($module instanceof ModuleConfigInterface): ?> |
| 76 | 76 | <a href="<?php echo $module->getConfigLink(); ?>"><?php echo $module->getTitle(); ?> <i class="fa fa-cogs"></i></a> |
| 77 | - <?php else: ?> |
|
| 78 | - <?php echo $module->getTitle(); ?> |
|
| 77 | + <?php else { |
|
| 78 | + : ?> |
|
| 79 | + <?php echo $module->getTitle(); |
|
| 80 | +} |
|
| 81 | +?> |
|
| 79 | 82 | <?php endif; ?> |
| 80 | 83 | </td> |
| 81 | 84 | <td class="col-xs-5"><?php echo $module->getDescription(); ?></td> |
@@ -44,44 +44,44 @@ |
||
| 44 | 44 | $text = Filter::post('text'); |
| 45 | 45 | |
| 46 | 46 | switch ($action) { |
| 47 | -case 'compose': |
|
| 48 | - if (Module::getModuleByName('ckeditor')) { |
|
| 49 | - CkeditorModule::enableEditor($controller); |
|
| 50 | - } |
|
| 47 | + case 'compose': |
|
| 48 | + if (Module::getModuleByName('ckeditor')) { |
|
| 49 | + CkeditorModule::enableEditor($controller); |
|
| 50 | + } |
|
| 51 | 51 | |
| 52 | - echo '<h3>' . I18N::translate('Add/edit a journal/news entry') . '</h3>'; |
|
| 53 | - echo '<form style="overflow: hidden;" name="messageform" method="post" action="editnews.php?action=save&news_id=' . $news_id . '">'; |
|
| 54 | - if ($news_id) { |
|
| 55 | - $news = Database::prepare("SELECT news_id AS id, user_id, gedcom_id, UNIX_TIMESTAMP(updated) AS date, subject, body FROM `##news` WHERE news_id=?")->execute(array($news_id))->fetchOneRow(PDO::FETCH_ASSOC); |
|
| 56 | - } else { |
|
| 57 | - $news = array(); |
|
| 58 | - $news['user_id'] = $user_id; |
|
| 59 | - $news['gedcom_id'] = $gedcom_id; |
|
| 60 | - $news['date'] = WT_TIMESTAMP; |
|
| 61 | - $news['subject'] = ''; |
|
| 62 | - $news['body'] = ''; |
|
| 63 | - } |
|
| 64 | - echo '<input type="hidden" name="user_id" value="' . $news['user_id'] . '">'; |
|
| 65 | - echo '<input type="hidden" name="gedcom_id" value="' . $news['gedcom_id'] . '">'; |
|
| 66 | - echo '<input type="hidden" name="date" value="' . $news['date'] . '">'; |
|
| 67 | - echo '<table>'; |
|
| 68 | - echo '<tr><th style="text-align:start;">' . I18N::translate('Title') . '</th><tr>'; |
|
| 69 | - echo '<tr><td><input type="text" name="title" size="50" dir="auto" autofocus value="' . $news['subject'] . '"></td></tr>'; |
|
| 70 | - echo '<tr><th style="text-align:start;">' . I18N::translate('Content') . '</th></tr>'; |
|
| 71 | - echo '<tr><td>'; |
|
| 72 | - echo '<textarea name="text" class="html-edit" cols="80" rows="10" dir="auto">' . Filter::escapeHtml($news['body']) . '</textarea>'; |
|
| 73 | - echo '</td></tr>'; |
|
| 74 | - echo '<tr><td><input type="submit" value="' . I18N::translate('save') . '"></td></tr>'; |
|
| 75 | - echo '</table>'; |
|
| 76 | - echo '</form>'; |
|
| 77 | - break; |
|
| 78 | -case 'save': |
|
| 79 | - if ($news_id) { |
|
| 80 | - Database::prepare("UPDATE `##news` SET subject=?, body=?, updated=FROM_UNIXTIME(?) WHERE news_id=?")->execute(array($title, $text, $date, $news_id)); |
|
| 81 | - } else { |
|
| 82 | - Database::prepare("INSERT INTO `##news` (user_id, gedcom_id, subject, body, updated) VALUES (NULLIF(?, ''), NULLIF(?, '') ,? ,?, CURRENT_TIMESTAMP)")->execute(array($user_id, $gedcom_id, $title, $text)); |
|
| 83 | - } |
|
| 52 | + echo '<h3>' . I18N::translate('Add/edit a journal/news entry') . '</h3>'; |
|
| 53 | + echo '<form style="overflow: hidden;" name="messageform" method="post" action="editnews.php?action=save&news_id=' . $news_id . '">'; |
|
| 54 | + if ($news_id) { |
|
| 55 | + $news = Database::prepare("SELECT news_id AS id, user_id, gedcom_id, UNIX_TIMESTAMP(updated) AS date, subject, body FROM `##news` WHERE news_id=?")->execute(array($news_id))->fetchOneRow(PDO::FETCH_ASSOC); |
|
| 56 | + } else { |
|
| 57 | + $news = array(); |
|
| 58 | + $news['user_id'] = $user_id; |
|
| 59 | + $news['gedcom_id'] = $gedcom_id; |
|
| 60 | + $news['date'] = WT_TIMESTAMP; |
|
| 61 | + $news['subject'] = ''; |
|
| 62 | + $news['body'] = ''; |
|
| 63 | + } |
|
| 64 | + echo '<input type="hidden" name="user_id" value="' . $news['user_id'] . '">'; |
|
| 65 | + echo '<input type="hidden" name="gedcom_id" value="' . $news['gedcom_id'] . '">'; |
|
| 66 | + echo '<input type="hidden" name="date" value="' . $news['date'] . '">'; |
|
| 67 | + echo '<table>'; |
|
| 68 | + echo '<tr><th style="text-align:start;">' . I18N::translate('Title') . '</th><tr>'; |
|
| 69 | + echo '<tr><td><input type="text" name="title" size="50" dir="auto" autofocus value="' . $news['subject'] . '"></td></tr>'; |
|
| 70 | + echo '<tr><th style="text-align:start;">' . I18N::translate('Content') . '</th></tr>'; |
|
| 71 | + echo '<tr><td>'; |
|
| 72 | + echo '<textarea name="text" class="html-edit" cols="80" rows="10" dir="auto">' . Filter::escapeHtml($news['body']) . '</textarea>'; |
|
| 73 | + echo '</td></tr>'; |
|
| 74 | + echo '<tr><td><input type="submit" value="' . I18N::translate('save') . '"></td></tr>'; |
|
| 75 | + echo '</table>'; |
|
| 76 | + echo '</form>'; |
|
| 77 | + break; |
|
| 78 | + case 'save': |
|
| 79 | + if ($news_id) { |
|
| 80 | + Database::prepare("UPDATE `##news` SET subject=?, body=?, updated=FROM_UNIXTIME(?) WHERE news_id=?")->execute(array($title, $text, $date, $news_id)); |
|
| 81 | + } else { |
|
| 82 | + Database::prepare("INSERT INTO `##news` (user_id, gedcom_id, subject, body, updated) VALUES (NULLIF(?, ''), NULLIF(?, '') ,? ,?, CURRENT_TIMESTAMP)")->execute(array($user_id, $gedcom_id, $title, $text)); |
|
| 83 | + } |
|
| 84 | 84 | |
| 85 | - $controller->addInlineJavascript('window.opener.location.reload();window.close();'); |
|
| 86 | - break; |
|
| 85 | + $controller->addInlineJavascript('window.opener.location.reload();window.close();'); |
|
| 86 | + break; |
|
| 87 | 87 | } |
@@ -31,14 +31,16 @@ discard block |
||
| 31 | 31 | * Only the first two functions are required: themeId() and themeName(). |
| 32 | 32 | * The rest are just examples, and should be removed in actual themes. |
| 33 | 33 | */ |
| 34 | -class MyTheme extends WebtreesTheme { |
|
| 34 | +class MyTheme extends WebtreesTheme |
|
| 35 | +{ |
|
| 35 | 36 | /** |
| 36 | 37 | * Give your theme a unique identifier. Themes beginning with an underscore |
| 37 | 38 | * are reserved for internal use. |
| 38 | 39 | * |
| 39 | 40 | * {@inheritdoc} |
| 40 | 41 | */ |
| 41 | - public function themeId() { |
|
| 42 | + public function themeId() |
|
| 43 | + { |
|
| 42 | 44 | return '_custom'; |
| 43 | 45 | } |
| 44 | 46 | |
@@ -51,7 +53,8 @@ discard block |
||
| 51 | 53 | * |
| 52 | 54 | * {@inheritdoc} |
| 53 | 55 | */ |
| 54 | - public function themeName() { |
|
| 56 | + public function themeName() |
|
| 57 | + { |
|
| 55 | 58 | return 'Custom theme'; |
| 56 | 59 | } |
| 57 | 60 | |
@@ -60,7 +63,8 @@ discard block |
||
| 60 | 63 | * |
| 61 | 64 | * {@inheritdoc} |
| 62 | 65 | */ |
| 63 | - public function stylesheets() { |
|
| 66 | + public function stylesheets() |
|
| 67 | + { |
|
| 64 | 68 | $css_files = parent::stylesheets(); |
| 65 | 69 | // Put a version number in the URL, to prevent browsers from caching old versions. |
| 66 | 70 | $css_files[] = WT_BASE_URL . 'themes/_custom/custom-v1.0.css'; |
@@ -75,7 +79,8 @@ discard block |
||
| 75 | 79 | * |
| 76 | 80 | * {@inheritdoc} |
| 77 | 81 | */ |
| 78 | - public function menuLists($surname) { |
|
| 82 | + public function menuLists($surname) |
|
| 83 | + { |
|
| 79 | 84 | // Start with the default "Lists" menu. |
| 80 | 85 | $menu = parent::menuLists($surname); |
| 81 | 86 | // Remove the "notes" sub-menu. |
@@ -200,29 +200,29 @@ discard block |
||
| 200 | 200 | $frame += array('args' => array(), 'file' => 'unknown', 'line' => 'unknown'); |
| 201 | 201 | array_walk($frame['args'], function (&$arg) { |
| 202 | 202 | switch (gettype($arg)) { |
| 203 | - case 'boolean': |
|
| 204 | - case 'integer': |
|
| 205 | - case 'double': |
|
| 206 | - case 'null': |
|
| 207 | - $arg = var_export($arg, true); |
|
| 208 | - break; |
|
| 209 | - case 'string': |
|
| 210 | - if (mb_strlen($arg) > 30) { |
|
| 211 | - $arg = substr($arg, 0, 30) . '…'; |
|
| 212 | - } |
|
| 213 | - $arg = var_export($arg, true); |
|
| 214 | - break; |
|
| 215 | - case 'object': |
|
| 216 | - $reflection = new \ReflectionClass($arg); |
|
| 217 | - if (is_object($arg) && method_exists($arg, '__toString')) { |
|
| 218 | - $arg = '[' . $reflection->getShortName() . ' ' . (string) $arg . ']'; |
|
| 219 | - } else { |
|
| 220 | - $arg = '[' . $reflection->getShortName() . ']'; |
|
| 221 | - } |
|
| 222 | - break; |
|
| 223 | - default: |
|
| 224 | - $arg = '[' . gettype($arg) . ']'; |
|
| 225 | - break; |
|
| 203 | + case 'boolean': |
|
| 204 | + case 'integer': |
|
| 205 | + case 'double': |
|
| 206 | + case 'null': |
|
| 207 | + $arg = var_export($arg, true); |
|
| 208 | + break; |
|
| 209 | + case 'string': |
|
| 210 | + if (mb_strlen($arg) > 30) { |
|
| 211 | + $arg = substr($arg, 0, 30) . '…'; |
|
| 212 | + } |
|
| 213 | + $arg = var_export($arg, true); |
|
| 214 | + break; |
|
| 215 | + case 'object': |
|
| 216 | + $reflection = new \ReflectionClass($arg); |
|
| 217 | + if (is_object($arg) && method_exists($arg, '__toString')) { |
|
| 218 | + $arg = '[' . $reflection->getShortName() . ' ' . (string) $arg . ']'; |
|
| 219 | + } else { |
|
| 220 | + $arg = '[' . $reflection->getShortName() . ']'; |
|
| 221 | + } |
|
| 222 | + break; |
|
| 223 | + default: |
|
| 224 | + $arg = '[' . gettype($arg) . ']'; |
|
| 225 | + break; |
|
| 226 | 226 | } |
| 227 | 227 | }); |
| 228 | 228 | $frame['file'] = str_replace(dirname(__DIR__), '', $frame['file']); |
@@ -319,25 +319,25 @@ discard block |
||
| 319 | 319 | )->execute(array(WT_CLIENT_IP, Filter::server('HTTP_USER_AGENT', null, '')))->fetchOne(); |
| 320 | 320 | |
| 321 | 321 | switch ($rule) { |
| 322 | -case 'allow': |
|
| 323 | - $SEARCH_SPIDER = false; |
|
| 324 | - break; |
|
| 325 | -case 'deny': |
|
| 326 | - http_response_code(403); |
|
| 327 | - exit; |
|
| 328 | -case 'robot': |
|
| 329 | -case 'unknown': |
|
| 330 | - // Search engines don’t send cookies, and so create a new session with every visit. |
|
| 331 | - // Make sure they always use the same one |
|
| 332 | - Session::setId('search-engine-' . str_replace('.', '-', WT_CLIENT_IP)); |
|
| 333 | - $SEARCH_SPIDER = true; |
|
| 334 | - break; |
|
| 335 | -case '': |
|
| 336 | - Database::prepare( |
|
| 337 | - "INSERT INTO `##site_access_rule` (ip_address_start, ip_address_end, user_agent_pattern, comment) VALUES (IFNULL(INET_ATON(?), 0), IFNULL(INET_ATON(?), 4294967295), ?, '')" |
|
| 338 | - )->execute(array(WT_CLIENT_IP, WT_CLIENT_IP, Filter::server('HTTP_USER_AGENT', null, ''))); |
|
| 339 | - $SEARCH_SPIDER = true; |
|
| 340 | - break; |
|
| 322 | + case 'allow': |
|
| 323 | + $SEARCH_SPIDER = false; |
|
| 324 | + break; |
|
| 325 | + case 'deny': |
|
| 326 | + http_response_code(403); |
|
| 327 | + exit; |
|
| 328 | + case 'robot': |
|
| 329 | + case 'unknown': |
|
| 330 | + // Search engines don’t send cookies, and so create a new session with every visit. |
|
| 331 | + // Make sure they always use the same one |
|
| 332 | + Session::setId('search-engine-' . str_replace('.', '-', WT_CLIENT_IP)); |
|
| 333 | + $SEARCH_SPIDER = true; |
|
| 334 | + break; |
|
| 335 | + case '': |
|
| 336 | + Database::prepare( |
|
| 337 | + "INSERT INTO `##site_access_rule` (ip_address_start, ip_address_end, user_agent_pattern, comment) VALUES (IFNULL(INET_ATON(?), 0), IFNULL(INET_ATON(?), 4294967295), ?, '')" |
|
| 338 | + )->execute(array(WT_CLIENT_IP, WT_CLIENT_IP, Filter::server('HTTP_USER_AGENT', null, ''))); |
|
| 339 | + $SEARCH_SPIDER = true; |
|
| 340 | + break; |
|
| 341 | 341 | } |
| 342 | 342 | |
| 343 | 343 | // Store our session data in the database. |
@@ -47,60 +47,60 @@ |
||
| 47 | 47 | $embed = substr($choose, 0, 1) === '1'; |
| 48 | 48 | |
| 49 | 49 | switch ($type) { |
| 50 | -case 'indi': |
|
| 51 | - $controller->setPageTitle(I18N::translate('Find an individual')); |
|
| 52 | - break; |
|
| 53 | -case 'fam': |
|
| 54 | - $controller->setPageTitle(I18N::translate('Find a family')); |
|
| 55 | - break; |
|
| 56 | -case 'media': |
|
| 57 | - $controller->setPageTitle(I18N::translate('Find a media object')); |
|
| 58 | - break; |
|
| 59 | -case 'place': |
|
| 60 | - $controller->setPageTitle(I18N::translate('Find a place')); |
|
| 61 | - break; |
|
| 62 | -case 'repo': |
|
| 63 | - $controller->setPageTitle(I18N::translate('Find a repository')); |
|
| 64 | - break; |
|
| 65 | -case 'note': |
|
| 66 | - $controller->setPageTitle(I18N::translate('Find a shared note')); |
|
| 67 | - break; |
|
| 68 | -case 'source': |
|
| 69 | - $controller->setPageTitle(I18N::translate('Find a source')); |
|
| 70 | - break; |
|
| 71 | -case 'specialchar': |
|
| 72 | - $controller->setPageTitle(I18N::translate('Find a special character')); |
|
| 73 | - break; |
|
| 74 | -case 'factINDI': |
|
| 75 | - $controller |
|
| 76 | - ->setPageTitle(I18N::translate('Find a fact or event')) |
|
| 77 | - ->addInlineJavascript('initPickFact("INDI");'); |
|
| 78 | - break; |
|
| 79 | -case 'factFAM': |
|
| 80 | - $controller |
|
| 81 | - ->setPageTitle(I18N::translate('Find a fact or event')) |
|
| 82 | - ->addInlineJavascript('initPickFact("FAM");'); |
|
| 83 | - break; |
|
| 84 | -case 'factSOUR': |
|
| 85 | - $controller |
|
| 86 | - ->setPageTitle(I18N::translate('Find a fact or event')) |
|
| 87 | - ->addInlineJavascript('initPickFact("SOUR");'); |
|
| 88 | - break; |
|
| 89 | -case 'factREPO': |
|
| 90 | - $controller |
|
| 91 | - ->setPageTitle(I18N::translate('Find a fact or event')) |
|
| 92 | - ->addInlineJavascript('initPickFact("REPO");'); |
|
| 93 | - break; |
|
| 94 | -case 'factNAME': |
|
| 95 | - $controller |
|
| 96 | - ->setPageTitle(I18N::translate('Find a fact or event')) |
|
| 97 | - ->addInlineJavascript('initPickFact("NAME");'); |
|
| 98 | - break; |
|
| 99 | -case 'factPLAC': |
|
| 100 | - $controller |
|
| 101 | - ->setPageTitle(I18N::translate('Find a fact or event')) |
|
| 102 | - ->addInlineJavascript('initPickFact("PLAC");'); |
|
| 103 | - break; |
|
| 50 | + case 'indi': |
|
| 51 | + $controller->setPageTitle(I18N::translate('Find an individual')); |
|
| 52 | + break; |
|
| 53 | + case 'fam': |
|
| 54 | + $controller->setPageTitle(I18N::translate('Find a family')); |
|
| 55 | + break; |
|
| 56 | + case 'media': |
|
| 57 | + $controller->setPageTitle(I18N::translate('Find a media object')); |
|
| 58 | + break; |
|
| 59 | + case 'place': |
|
| 60 | + $controller->setPageTitle(I18N::translate('Find a place')); |
|
| 61 | + break; |
|
| 62 | + case 'repo': |
|
| 63 | + $controller->setPageTitle(I18N::translate('Find a repository')); |
|
| 64 | + break; |
|
| 65 | + case 'note': |
|
| 66 | + $controller->setPageTitle(I18N::translate('Find a shared note')); |
|
| 67 | + break; |
|
| 68 | + case 'source': |
|
| 69 | + $controller->setPageTitle(I18N::translate('Find a source')); |
|
| 70 | + break; |
|
| 71 | + case 'specialchar': |
|
| 72 | + $controller->setPageTitle(I18N::translate('Find a special character')); |
|
| 73 | + break; |
|
| 74 | + case 'factINDI': |
|
| 75 | + $controller |
|
| 76 | + ->setPageTitle(I18N::translate('Find a fact or event')) |
|
| 77 | + ->addInlineJavascript('initPickFact("INDI");'); |
|
| 78 | + break; |
|
| 79 | + case 'factFAM': |
|
| 80 | + $controller |
|
| 81 | + ->setPageTitle(I18N::translate('Find a fact or event')) |
|
| 82 | + ->addInlineJavascript('initPickFact("FAM");'); |
|
| 83 | + break; |
|
| 84 | + case 'factSOUR': |
|
| 85 | + $controller |
|
| 86 | + ->setPageTitle(I18N::translate('Find a fact or event')) |
|
| 87 | + ->addInlineJavascript('initPickFact("SOUR");'); |
|
| 88 | + break; |
|
| 89 | + case 'factREPO': |
|
| 90 | + $controller |
|
| 91 | + ->setPageTitle(I18N::translate('Find a fact or event')) |
|
| 92 | + ->addInlineJavascript('initPickFact("REPO");'); |
|
| 93 | + break; |
|
| 94 | + case 'factNAME': |
|
| 95 | + $controller |
|
| 96 | + ->setPageTitle(I18N::translate('Find a fact or event')) |
|
| 97 | + ->addInlineJavascript('initPickFact("NAME");'); |
|
| 98 | + break; |
|
| 99 | + case 'factPLAC': |
|
| 100 | + $controller |
|
| 101 | + ->setPageTitle(I18N::translate('Find a fact or event')) |
|
| 102 | + ->addInlineJavascript('initPickFact("PLAC");'); |
|
| 103 | + break; |
|
| 104 | 104 | } |
| 105 | 105 | $controller->pageHeader(); |
| 106 | 106 | |
@@ -66,14 +66,14 @@ |
||
| 66 | 66 | foreach ($record->getFacts() as $fact) { |
| 67 | 67 | if ($fact->getFactId() == $fact_id) { |
| 68 | 68 | switch ($fact->getTag()) { |
| 69 | - case 'NOTE': |
|
| 70 | - case 'SOUR': |
|
| 71 | - case 'OBJE': |
|
| 72 | - $type = 'all'; // paste this anywhere |
|
| 73 | - break; |
|
| 74 | - default: |
|
| 75 | - $type = $record::RECORD_TYPE; // paste only to the same record type |
|
| 76 | - break; |
|
| 69 | + case 'NOTE': |
|
| 70 | + case 'SOUR': |
|
| 71 | + case 'OBJE': |
|
| 72 | + $type = 'all'; // paste this anywhere |
|
| 73 | + break; |
|
| 74 | + default: |
|
| 75 | + $type = $record::RECORD_TYPE; // paste only to the same record type |
|
| 76 | + break; |
|
| 77 | 77 | } |
| 78 | 78 | $clipboard = Session::get('clipboard'); |
| 79 | 79 | if (!is_array($clipboard)) { |
@@ -852,528 +852,528 @@ |
||
| 852 | 852 | echo '<div class="statistics_chart" title="', I18N::translate('Statistics chart'), '">'; |
| 853 | 853 | |
| 854 | 854 | switch ($x_axis) { |
| 855 | -case '1': |
|
| 856 | - echo $stats->chartDistribution(array(Filter::get('chart_shows'), Filter::get('chart_type'), Filter::get('SURN'))); |
|
| 857 | - break; |
|
| 858 | -case '2': |
|
| 859 | - echo $stats->chartDistribution(array(Filter::get('chart_shows'), 'birth_distribution_chart')); |
|
| 860 | - break; |
|
| 861 | -case '3': |
|
| 862 | - echo $stats->chartDistribution(array(Filter::get('chart_shows'), 'death_distribution_chart')); |
|
| 863 | - break; |
|
| 864 | -case '4': |
|
| 865 | - echo $stats->chartDistribution(array(Filter::get('chart_shows'), 'marriage_distribution_chart')); |
|
| 866 | - break; |
|
| 867 | -case '11': |
|
| 868 | - $monthdata = array(); |
|
| 869 | - for ($i = 0; $i < 12; ++$i) { |
|
| 870 | - $monthdata[$i] = GregorianDate::monthNameNominativeCase($i + 1, false); |
|
| 871 | - } |
|
| 872 | - $xgiven = true; |
|
| 873 | - $zgiven = false; |
|
| 874 | - $title = I18N::translate('Month of birth'); |
|
| 875 | - $xtitle = I18N::translate('month'); |
|
| 876 | - $ytitle = I18N::translate('numbers'); |
|
| 877 | - $boundaries_z_axis = Filter::get('z-axis-boundaries-periods', null, '0'); |
|
| 878 | - $xdata = $monthdata; |
|
| 879 | - $xmax = 12; |
|
| 880 | - if ($z_axis !== 300 && $z_axis !== 301) { |
|
| 881 | - calculate_legend($boundaries_z_axis); |
|
| 882 | - } |
|
| 883 | - $percentage = false; |
|
| 884 | - if ($y_axis === 201) { |
|
| 885 | - $percentage = false; |
|
| 886 | - $ytitle = I18N::translate('Individuals'); |
|
| 887 | - } elseif ($y_axis === 202) { |
|
| 888 | - $percentage = true; |
|
| 889 | - $ytitle = I18N::translate('percentage'); |
|
| 890 | - } |
|
| 891 | - $male_female = false; |
|
| 892 | - if ($z_axis === 300) { |
|
| 893 | - $zgiven = false; |
|
| 894 | - $legend[0] = 'all'; |
|
| 895 | - $zmax = 1; |
|
| 896 | - $z_boundaries[0] = 100000; |
|
| 897 | - } elseif ($z_axis === 301) { |
|
| 898 | - $male_female = true; |
|
| 899 | - $zgiven = true; |
|
| 900 | - $legend[0] = I18N::translate('Male'); |
|
| 901 | - $legend[1] = I18N::translate('Female'); |
|
| 902 | - $zmax = 2; |
|
| 903 | - $xtitle = $xtitle . I18N::translate(' per gender'); |
|
| 904 | - } elseif ($z_axis === 302) { |
|
| 905 | - $xtitle = $xtitle . I18N::translate(' per time period'); |
|
| 906 | - } |
|
| 907 | - //-- reset the data array |
|
| 908 | - for ($i = 0; $i < $zmax; $i++) { |
|
| 909 | - for ($j = 0; $j < $xmax; $j++) { |
|
| 910 | - $ydata[$i][$j] = 0; |
|
| 911 | - } |
|
| 912 | - } |
|
| 913 | - $total = month_of_birth($z_axis, $z_boundaries, $stats); |
|
| 914 | - $hstr = $title . '|' . I18N::translate('Counts ') . ' ' . I18N::number($total) . ' ' . I18N::translate('of') . ' ' . $stats->totalIndividuals(); |
|
| 915 | - my_plot($hstr, $xdata, $xtitle, $ydata, $ytitle, $legend); |
|
| 916 | - break; |
|
| 917 | -case '12': |
|
| 918 | - $monthdata = array(); |
|
| 919 | - for ($i = 0; $i < 12; ++$i) { |
|
| 920 | - $monthdata[$i] = GregorianDate::monthNameNominativeCase($i + 1, false); |
|
| 921 | - } |
|
| 922 | - $xgiven = true; |
|
| 923 | - $zgiven = false; |
|
| 924 | - $title = I18N::translate('Month of death'); |
|
| 925 | - $xtitle = I18N::translate('month'); |
|
| 926 | - $ytitle = I18N::translate('numbers'); |
|
| 927 | - $boundaries_z_axis = Filter::get('z-axis-boundaries-periods', null, '0'); |
|
| 928 | - $xdata = $monthdata; |
|
| 929 | - $xmax = 12; |
|
| 930 | - if ($z_axis !== 300 && $z_axis !== 301) { |
|
| 931 | - calculate_legend($boundaries_z_axis); |
|
| 932 | - } |
|
| 933 | - $percentage = false; |
|
| 934 | - if ($y_axis === 201) { |
|
| 935 | - $percentage = false; |
|
| 936 | - $ytitle = I18N::translate('Individuals'); |
|
| 937 | - } elseif ($y_axis === 202) { |
|
| 938 | - $percentage = true; |
|
| 939 | - $ytitle = I18N::translate('percentage'); |
|
| 940 | - } |
|
| 941 | - $male_female = false; |
|
| 942 | - if ($z_axis === 300) { |
|
| 943 | - $zgiven = false; |
|
| 944 | - $legend[0] = 'all'; |
|
| 945 | - $zmax = 1; |
|
| 946 | - $z_boundaries[0] = 100000; |
|
| 947 | - } elseif ($z_axis === 301) { |
|
| 948 | - $male_female = true; |
|
| 949 | - $zgiven = true; |
|
| 950 | - $legend[0] = I18N::translate('Male'); |
|
| 951 | - $legend[1] = I18N::translate('Female'); |
|
| 952 | - $zmax = 2; |
|
| 953 | - $xtitle = $xtitle . I18N::translate(' per gender'); |
|
| 954 | - } elseif ($z_axis === 302) { |
|
| 955 | - $xtitle = $xtitle . I18N::translate(' per time period'); |
|
| 956 | - } |
|
| 957 | - //-- reset the data array |
|
| 958 | - for ($i = 0; $i < $zmax; $i++) { |
|
| 959 | - for ($j = 0; $j < $xmax; $j++) { |
|
| 960 | - $ydata[$i][$j] = 0; |
|
| 961 | - } |
|
| 962 | - } |
|
| 963 | - $total = month_of_death($z_axis, $z_boundaries, $stats); |
|
| 964 | - $hstr = $title . '|' . I18N::translate('Counts ') . ' ' . I18N::number($total) . ' ' . I18N::translate('of') . ' ' . $stats->totalIndividuals(); |
|
| 965 | - my_plot($hstr, $xdata, $xtitle, $ydata, $ytitle, $legend); |
|
| 966 | - break; |
|
| 967 | -case '13': |
|
| 968 | - $monthdata = array(); |
|
| 969 | - for ($i = 0; $i < 12; ++$i) { |
|
| 970 | - $monthdata[$i] = GregorianDate::monthNameNominativeCase($i + 1, false); |
|
| 971 | - } |
|
| 855 | + case '1': |
|
| 856 | + echo $stats->chartDistribution(array(Filter::get('chart_shows'), Filter::get('chart_type'), Filter::get('SURN'))); |
|
| 857 | + break; |
|
| 858 | + case '2': |
|
| 859 | + echo $stats->chartDistribution(array(Filter::get('chart_shows'), 'birth_distribution_chart')); |
|
| 860 | + break; |
|
| 861 | + case '3': |
|
| 862 | + echo $stats->chartDistribution(array(Filter::get('chart_shows'), 'death_distribution_chart')); |
|
| 863 | + break; |
|
| 864 | + case '4': |
|
| 865 | + echo $stats->chartDistribution(array(Filter::get('chart_shows'), 'marriage_distribution_chart')); |
|
| 866 | + break; |
|
| 867 | + case '11': |
|
| 868 | + $monthdata = array(); |
|
| 869 | + for ($i = 0; $i < 12; ++$i) { |
|
| 870 | + $monthdata[$i] = GregorianDate::monthNameNominativeCase($i + 1, false); |
|
| 871 | + } |
|
| 872 | + $xgiven = true; |
|
| 873 | + $zgiven = false; |
|
| 874 | + $title = I18N::translate('Month of birth'); |
|
| 875 | + $xtitle = I18N::translate('month'); |
|
| 876 | + $ytitle = I18N::translate('numbers'); |
|
| 877 | + $boundaries_z_axis = Filter::get('z-axis-boundaries-periods', null, '0'); |
|
| 878 | + $xdata = $monthdata; |
|
| 879 | + $xmax = 12; |
|
| 880 | + if ($z_axis !== 300 && $z_axis !== 301) { |
|
| 881 | + calculate_legend($boundaries_z_axis); |
|
| 882 | + } |
|
| 883 | + $percentage = false; |
|
| 884 | + if ($y_axis === 201) { |
|
| 885 | + $percentage = false; |
|
| 886 | + $ytitle = I18N::translate('Individuals'); |
|
| 887 | + } elseif ($y_axis === 202) { |
|
| 888 | + $percentage = true; |
|
| 889 | + $ytitle = I18N::translate('percentage'); |
|
| 890 | + } |
|
| 891 | + $male_female = false; |
|
| 892 | + if ($z_axis === 300) { |
|
| 893 | + $zgiven = false; |
|
| 894 | + $legend[0] = 'all'; |
|
| 895 | + $zmax = 1; |
|
| 896 | + $z_boundaries[0] = 100000; |
|
| 897 | + } elseif ($z_axis === 301) { |
|
| 898 | + $male_female = true; |
|
| 899 | + $zgiven = true; |
|
| 900 | + $legend[0] = I18N::translate('Male'); |
|
| 901 | + $legend[1] = I18N::translate('Female'); |
|
| 902 | + $zmax = 2; |
|
| 903 | + $xtitle = $xtitle . I18N::translate(' per gender'); |
|
| 904 | + } elseif ($z_axis === 302) { |
|
| 905 | + $xtitle = $xtitle . I18N::translate(' per time period'); |
|
| 906 | + } |
|
| 907 | + //-- reset the data array |
|
| 908 | + for ($i = 0; $i < $zmax; $i++) { |
|
| 909 | + for ($j = 0; $j < $xmax; $j++) { |
|
| 910 | + $ydata[$i][$j] = 0; |
|
| 911 | + } |
|
| 912 | + } |
|
| 913 | + $total = month_of_birth($z_axis, $z_boundaries, $stats); |
|
| 914 | + $hstr = $title . '|' . I18N::translate('Counts ') . ' ' . I18N::number($total) . ' ' . I18N::translate('of') . ' ' . $stats->totalIndividuals(); |
|
| 915 | + my_plot($hstr, $xdata, $xtitle, $ydata, $ytitle, $legend); |
|
| 916 | + break; |
|
| 917 | + case '12': |
|
| 918 | + $monthdata = array(); |
|
| 919 | + for ($i = 0; $i < 12; ++$i) { |
|
| 920 | + $monthdata[$i] = GregorianDate::monthNameNominativeCase($i + 1, false); |
|
| 921 | + } |
|
| 922 | + $xgiven = true; |
|
| 923 | + $zgiven = false; |
|
| 924 | + $title = I18N::translate('Month of death'); |
|
| 925 | + $xtitle = I18N::translate('month'); |
|
| 926 | + $ytitle = I18N::translate('numbers'); |
|
| 927 | + $boundaries_z_axis = Filter::get('z-axis-boundaries-periods', null, '0'); |
|
| 928 | + $xdata = $monthdata; |
|
| 929 | + $xmax = 12; |
|
| 930 | + if ($z_axis !== 300 && $z_axis !== 301) { |
|
| 931 | + calculate_legend($boundaries_z_axis); |
|
| 932 | + } |
|
| 933 | + $percentage = false; |
|
| 934 | + if ($y_axis === 201) { |
|
| 935 | + $percentage = false; |
|
| 936 | + $ytitle = I18N::translate('Individuals'); |
|
| 937 | + } elseif ($y_axis === 202) { |
|
| 938 | + $percentage = true; |
|
| 939 | + $ytitle = I18N::translate('percentage'); |
|
| 940 | + } |
|
| 941 | + $male_female = false; |
|
| 942 | + if ($z_axis === 300) { |
|
| 943 | + $zgiven = false; |
|
| 944 | + $legend[0] = 'all'; |
|
| 945 | + $zmax = 1; |
|
| 946 | + $z_boundaries[0] = 100000; |
|
| 947 | + } elseif ($z_axis === 301) { |
|
| 948 | + $male_female = true; |
|
| 949 | + $zgiven = true; |
|
| 950 | + $legend[0] = I18N::translate('Male'); |
|
| 951 | + $legend[1] = I18N::translate('Female'); |
|
| 952 | + $zmax = 2; |
|
| 953 | + $xtitle = $xtitle . I18N::translate(' per gender'); |
|
| 954 | + } elseif ($z_axis === 302) { |
|
| 955 | + $xtitle = $xtitle . I18N::translate(' per time period'); |
|
| 956 | + } |
|
| 957 | + //-- reset the data array |
|
| 958 | + for ($i = 0; $i < $zmax; $i++) { |
|
| 959 | + for ($j = 0; $j < $xmax; $j++) { |
|
| 960 | + $ydata[$i][$j] = 0; |
|
| 961 | + } |
|
| 962 | + } |
|
| 963 | + $total = month_of_death($z_axis, $z_boundaries, $stats); |
|
| 964 | + $hstr = $title . '|' . I18N::translate('Counts ') . ' ' . I18N::number($total) . ' ' . I18N::translate('of') . ' ' . $stats->totalIndividuals(); |
|
| 965 | + my_plot($hstr, $xdata, $xtitle, $ydata, $ytitle, $legend); |
|
| 966 | + break; |
|
| 967 | + case '13': |
|
| 968 | + $monthdata = array(); |
|
| 969 | + for ($i = 0; $i < 12; ++$i) { |
|
| 970 | + $monthdata[$i] = GregorianDate::monthNameNominativeCase($i + 1, false); |
|
| 971 | + } |
|
| 972 | 972 | |
| 973 | - if ($z_axis === 301) { |
|
| 974 | - $z_axis = 300; |
|
| 975 | - } |
|
| 976 | - $xgiven = true; |
|
| 977 | - $zgiven = false; |
|
| 978 | - $title = I18N::translate('Month of marriage'); |
|
| 979 | - $xtitle = I18N::translate('month'); |
|
| 980 | - $ytitle = I18N::translate('numbers'); |
|
| 981 | - $boundaries_z_axis = Filter::get('z-axis-boundaries-periods', null, '0'); |
|
| 982 | - $xdata = $monthdata; |
|
| 983 | - $xmax = 12; |
|
| 984 | - if ($z_axis !== 300 && $z_axis !== 301) { |
|
| 985 | - calculate_legend($boundaries_z_axis); |
|
| 986 | - } |
|
| 987 | - $percentage = false; |
|
| 988 | - if ($y_axis === 201) { |
|
| 989 | - $percentage = false; |
|
| 990 | - $ytitle = I18N::translate('Families'); |
|
| 991 | - } elseif ($y_axis === 202) { |
|
| 992 | - $percentage = true; |
|
| 993 | - $ytitle = I18N::translate('percentage'); |
|
| 994 | - } |
|
| 995 | - $male_female = false; |
|
| 996 | - if ($z_axis === 300) { |
|
| 997 | - $zgiven = false; |
|
| 998 | - $legend[0] = 'all'; |
|
| 999 | - $zmax = 1; |
|
| 1000 | - $z_boundaries[0] = 100000; |
|
| 1001 | - } elseif ($z_axis === 301) { |
|
| 1002 | - $male_female = true; |
|
| 1003 | - $zgiven = true; |
|
| 1004 | - $legend[0] = I18N::translate('Male'); |
|
| 1005 | - $legend[1] = I18N::translate('Female'); |
|
| 1006 | - $zmax = 2; |
|
| 1007 | - $xtitle = $xtitle . I18N::translate(' per gender'); |
|
| 1008 | - } elseif ($z_axis === 302) { |
|
| 1009 | - $xtitle = $xtitle . I18N::translate(' per time period'); |
|
| 1010 | - } |
|
| 1011 | - //-- reset the data array |
|
| 1012 | - for ($i = 0; $i < $zmax; $i++) { |
|
| 1013 | - for ($j = 0; $j < $xmax; $j++) { |
|
| 1014 | - $ydata[$i][$j] = 0; |
|
| 1015 | - } |
|
| 1016 | - } |
|
| 1017 | - $total = month_of_marriage($z_axis, $z_boundaries, $stats); |
|
| 1018 | - $hstr = $title . '|' . I18N::translate('Counts ') . ' ' . I18N::number($total) . ' ' . I18N::translate('of') . ' ' . $stats->totalFamilies(); |
|
| 1019 | - my_plot($hstr, $xdata, $xtitle, $ydata, $ytitle, $legend); |
|
| 1020 | - break; |
|
| 1021 | -case '14': |
|
| 1022 | - $monthdata = array(); |
|
| 1023 | - for ($i = 0; $i < 12; ++$i) { |
|
| 1024 | - $monthdata[$i] = GregorianDate::monthNameNominativeCase($i + 1, false); |
|
| 1025 | - } |
|
| 1026 | - $xgiven = true; |
|
| 1027 | - $zgiven = false; |
|
| 1028 | - $title = I18N::translate('Month of birth of first child in a relation'); |
|
| 1029 | - $xtitle = I18N::translate('month'); |
|
| 1030 | - $ytitle = I18N::translate('numbers'); |
|
| 1031 | - $boundaries_z_axis = Filter::get('z-axis-boundaries-periods', null, '0'); |
|
| 1032 | - $xdata = $monthdata; |
|
| 1033 | - $xmax = 12; |
|
| 1034 | - if ($z_axis !== 300 && $z_axis !== 301) { |
|
| 1035 | - calculate_legend($boundaries_z_axis); |
|
| 1036 | - } |
|
| 1037 | - $percentage = false; |
|
| 1038 | - if ($y_axis === 201) { |
|
| 1039 | - $percentage = false; |
|
| 1040 | - $ytitle = I18N::translate('Children'); |
|
| 1041 | - } elseif ($y_axis === 202) { |
|
| 1042 | - $percentage = true; |
|
| 1043 | - $ytitle = I18N::translate('percentage'); |
|
| 1044 | - } |
|
| 1045 | - $male_female = false; |
|
| 1046 | - if ($z_axis === 300) { |
|
| 1047 | - $zgiven = false; |
|
| 1048 | - $legend[0] = 'all'; |
|
| 1049 | - $zmax = 1; |
|
| 1050 | - $z_boundaries[0] = 100000; |
|
| 1051 | - } elseif ($z_axis === 301) { |
|
| 1052 | - $male_female = true; |
|
| 1053 | - $zgiven = true; |
|
| 1054 | - $legend[0] = I18N::translate('Male'); |
|
| 1055 | - $legend[1] = I18N::translate('Female'); |
|
| 1056 | - $zmax = 2; |
|
| 1057 | - $xtitle = $xtitle . I18N::translate(' per gender'); |
|
| 1058 | - } elseif ($z_axis === 302) { |
|
| 1059 | - $xtitle = $xtitle . I18N::translate(' per time period'); |
|
| 1060 | - } |
|
| 1061 | - //-- reset the data array |
|
| 1062 | - for ($i = 0; $i < $zmax; $i++) { |
|
| 1063 | - for ($j = 0; $j < $xmax; $j++) { |
|
| 1064 | - $ydata[$i][$j] = 0; |
|
| 1065 | - } |
|
| 1066 | - } |
|
| 1067 | - $total = month_of_birth_of_first_child($z_axis, $z_boundaries, $stats); |
|
| 1068 | - $hstr = $title . '|' . I18N::translate('Counts ') . ' ' . I18N::number($total) . ' ' . I18N::translate('of') . ' ' . $stats->totalFamilies(); |
|
| 1069 | - my_plot($hstr, $xdata, $xtitle, $ydata, $ytitle, $legend); |
|
| 1070 | - break; |
|
| 1071 | -case '15': |
|
| 1072 | - $monthdata = array(); |
|
| 1073 | - for ($i = 0; $i < 12; ++$i) { |
|
| 1074 | - $monthdata[$i] = GregorianDate::monthNameNominativeCase($i + 1, false); |
|
| 1075 | - } |
|
| 973 | + if ($z_axis === 301) { |
|
| 974 | + $z_axis = 300; |
|
| 975 | + } |
|
| 976 | + $xgiven = true; |
|
| 977 | + $zgiven = false; |
|
| 978 | + $title = I18N::translate('Month of marriage'); |
|
| 979 | + $xtitle = I18N::translate('month'); |
|
| 980 | + $ytitle = I18N::translate('numbers'); |
|
| 981 | + $boundaries_z_axis = Filter::get('z-axis-boundaries-periods', null, '0'); |
|
| 982 | + $xdata = $monthdata; |
|
| 983 | + $xmax = 12; |
|
| 984 | + if ($z_axis !== 300 && $z_axis !== 301) { |
|
| 985 | + calculate_legend($boundaries_z_axis); |
|
| 986 | + } |
|
| 987 | + $percentage = false; |
|
| 988 | + if ($y_axis === 201) { |
|
| 989 | + $percentage = false; |
|
| 990 | + $ytitle = I18N::translate('Families'); |
|
| 991 | + } elseif ($y_axis === 202) { |
|
| 992 | + $percentage = true; |
|
| 993 | + $ytitle = I18N::translate('percentage'); |
|
| 994 | + } |
|
| 995 | + $male_female = false; |
|
| 996 | + if ($z_axis === 300) { |
|
| 997 | + $zgiven = false; |
|
| 998 | + $legend[0] = 'all'; |
|
| 999 | + $zmax = 1; |
|
| 1000 | + $z_boundaries[0] = 100000; |
|
| 1001 | + } elseif ($z_axis === 301) { |
|
| 1002 | + $male_female = true; |
|
| 1003 | + $zgiven = true; |
|
| 1004 | + $legend[0] = I18N::translate('Male'); |
|
| 1005 | + $legend[1] = I18N::translate('Female'); |
|
| 1006 | + $zmax = 2; |
|
| 1007 | + $xtitle = $xtitle . I18N::translate(' per gender'); |
|
| 1008 | + } elseif ($z_axis === 302) { |
|
| 1009 | + $xtitle = $xtitle . I18N::translate(' per time period'); |
|
| 1010 | + } |
|
| 1011 | + //-- reset the data array |
|
| 1012 | + for ($i = 0; $i < $zmax; $i++) { |
|
| 1013 | + for ($j = 0; $j < $xmax; $j++) { |
|
| 1014 | + $ydata[$i][$j] = 0; |
|
| 1015 | + } |
|
| 1016 | + } |
|
| 1017 | + $total = month_of_marriage($z_axis, $z_boundaries, $stats); |
|
| 1018 | + $hstr = $title . '|' . I18N::translate('Counts ') . ' ' . I18N::number($total) . ' ' . I18N::translate('of') . ' ' . $stats->totalFamilies(); |
|
| 1019 | + my_plot($hstr, $xdata, $xtitle, $ydata, $ytitle, $legend); |
|
| 1020 | + break; |
|
| 1021 | + case '14': |
|
| 1022 | + $monthdata = array(); |
|
| 1023 | + for ($i = 0; $i < 12; ++$i) { |
|
| 1024 | + $monthdata[$i] = GregorianDate::monthNameNominativeCase($i + 1, false); |
|
| 1025 | + } |
|
| 1026 | + $xgiven = true; |
|
| 1027 | + $zgiven = false; |
|
| 1028 | + $title = I18N::translate('Month of birth of first child in a relation'); |
|
| 1029 | + $xtitle = I18N::translate('month'); |
|
| 1030 | + $ytitle = I18N::translate('numbers'); |
|
| 1031 | + $boundaries_z_axis = Filter::get('z-axis-boundaries-periods', null, '0'); |
|
| 1032 | + $xdata = $monthdata; |
|
| 1033 | + $xmax = 12; |
|
| 1034 | + if ($z_axis !== 300 && $z_axis !== 301) { |
|
| 1035 | + calculate_legend($boundaries_z_axis); |
|
| 1036 | + } |
|
| 1037 | + $percentage = false; |
|
| 1038 | + if ($y_axis === 201) { |
|
| 1039 | + $percentage = false; |
|
| 1040 | + $ytitle = I18N::translate('Children'); |
|
| 1041 | + } elseif ($y_axis === 202) { |
|
| 1042 | + $percentage = true; |
|
| 1043 | + $ytitle = I18N::translate('percentage'); |
|
| 1044 | + } |
|
| 1045 | + $male_female = false; |
|
| 1046 | + if ($z_axis === 300) { |
|
| 1047 | + $zgiven = false; |
|
| 1048 | + $legend[0] = 'all'; |
|
| 1049 | + $zmax = 1; |
|
| 1050 | + $z_boundaries[0] = 100000; |
|
| 1051 | + } elseif ($z_axis === 301) { |
|
| 1052 | + $male_female = true; |
|
| 1053 | + $zgiven = true; |
|
| 1054 | + $legend[0] = I18N::translate('Male'); |
|
| 1055 | + $legend[1] = I18N::translate('Female'); |
|
| 1056 | + $zmax = 2; |
|
| 1057 | + $xtitle = $xtitle . I18N::translate(' per gender'); |
|
| 1058 | + } elseif ($z_axis === 302) { |
|
| 1059 | + $xtitle = $xtitle . I18N::translate(' per time period'); |
|
| 1060 | + } |
|
| 1061 | + //-- reset the data array |
|
| 1062 | + for ($i = 0; $i < $zmax; $i++) { |
|
| 1063 | + for ($j = 0; $j < $xmax; $j++) { |
|
| 1064 | + $ydata[$i][$j] = 0; |
|
| 1065 | + } |
|
| 1066 | + } |
|
| 1067 | + $total = month_of_birth_of_first_child($z_axis, $z_boundaries, $stats); |
|
| 1068 | + $hstr = $title . '|' . I18N::translate('Counts ') . ' ' . I18N::number($total) . ' ' . I18N::translate('of') . ' ' . $stats->totalFamilies(); |
|
| 1069 | + my_plot($hstr, $xdata, $xtitle, $ydata, $ytitle, $legend); |
|
| 1070 | + break; |
|
| 1071 | + case '15': |
|
| 1072 | + $monthdata = array(); |
|
| 1073 | + for ($i = 0; $i < 12; ++$i) { |
|
| 1074 | + $monthdata[$i] = GregorianDate::monthNameNominativeCase($i + 1, false); |
|
| 1075 | + } |
|
| 1076 | 1076 | |
| 1077 | - if ($z_axis === 301) { |
|
| 1078 | - $z_axis = 300; |
|
| 1079 | - } |
|
| 1080 | - $xgiven = true; |
|
| 1081 | - $zgiven = false; |
|
| 1082 | - $title = I18N::translate('Month of first marriage'); |
|
| 1083 | - $xtitle = I18N::translate('month'); |
|
| 1084 | - $ytitle = I18N::translate('numbers'); |
|
| 1085 | - $boundaries_z_axis = Filter::get('z-axis-boundaries-periods', null, '0'); |
|
| 1086 | - $xdata = $monthdata; |
|
| 1087 | - $xmax = 12; |
|
| 1088 | - if ($z_axis !== 300 && $z_axis !== 301) { |
|
| 1089 | - calculate_legend($boundaries_z_axis); |
|
| 1090 | - } |
|
| 1091 | - $percentage = false; |
|
| 1092 | - if ($y_axis === 201) { |
|
| 1093 | - $percentage = false; |
|
| 1094 | - $ytitle = I18N::translate('Families'); |
|
| 1095 | - } elseif ($y_axis === 202) { |
|
| 1096 | - $percentage = true; |
|
| 1097 | - $ytitle = I18N::translate('percentage'); |
|
| 1098 | - } |
|
| 1099 | - $male_female = false; |
|
| 1100 | - if ($z_axis === 300) { |
|
| 1101 | - $zgiven = false; |
|
| 1102 | - $legend[0] = 'all'; |
|
| 1103 | - $zmax = 1; |
|
| 1104 | - $z_boundaries[0] = 100000; |
|
| 1105 | - } elseif ($z_axis === 301) { |
|
| 1106 | - $male_female = true; |
|
| 1107 | - $zgiven = true; |
|
| 1108 | - $legend[0] = I18N::translate('Male'); |
|
| 1109 | - $legend[1] = I18N::translate('Female'); |
|
| 1110 | - $zmax = 2; |
|
| 1111 | - $xtitle = $xtitle . I18N::translate(' per gender'); |
|
| 1112 | - } elseif ($z_axis === 302) { |
|
| 1113 | - $xtitle = $xtitle . I18N::translate(' per time period'); |
|
| 1114 | - } |
|
| 1115 | - //-- reset the data array |
|
| 1116 | - for ($i = 0; $i < $zmax; $i++) { |
|
| 1117 | - for ($j = 0; $j < $xmax; $j++) { |
|
| 1118 | - $ydata[$i][$j] = 0; |
|
| 1119 | - } |
|
| 1120 | - } |
|
| 1121 | - $total = month_of_first_marriage($z_axis, $z_boundaries, $stats); |
|
| 1122 | - $hstr = $title . '|' . I18N::translate('Counts ') . ' ' . I18N::number($total) . ' ' . I18N::translate('of') . ' ' . $stats->totalFamilies(); |
|
| 1123 | - my_plot($hstr, $xdata, $xtitle, $ydata, $ytitle, $legend); |
|
| 1124 | - break; |
|
| 1125 | -case '17': |
|
| 1126 | - $monthdata = array(); |
|
| 1127 | - for ($i = 0; $i < 12; ++$i) { |
|
| 1128 | - $monthdata[$i] = GregorianDate::monthNameNominativeCase($i + 1, false); |
|
| 1129 | - } |
|
| 1130 | - $xgiven = false; |
|
| 1131 | - $zgiven = false; |
|
| 1132 | - $title = I18N::translate('Age related to birth year'); |
|
| 1133 | - $xtitle = I18N::translate('age'); |
|
| 1134 | - $ytitle = I18N::translate('numbers'); |
|
| 1135 | - $boundaries_x_axis = Filter::get('x-axis-boundaries-ages'); |
|
| 1136 | - $boundaries_z_axis = Filter::get('z-axis-boundaries-periods', null, '0'); |
|
| 1137 | - calculate_axis($boundaries_x_axis); |
|
| 1138 | - if ($z_axis !== 300 && $z_axis !== 301) { |
|
| 1139 | - calculate_legend($boundaries_z_axis); |
|
| 1140 | - } |
|
| 1141 | - $percentage = false; |
|
| 1142 | - if ($y_axis === 201) { |
|
| 1143 | - $percentage = false; |
|
| 1144 | - $ytitle = I18N::translate('Individuals'); |
|
| 1145 | - } elseif ($y_axis === 202) { |
|
| 1146 | - $percentage = true; |
|
| 1147 | - $ytitle = I18N::translate('percentage'); |
|
| 1148 | - } |
|
| 1149 | - $male_female = false; |
|
| 1150 | - if ($z_axis === 300) { |
|
| 1151 | - $zgiven = false; |
|
| 1152 | - $legend[0] = 'all'; |
|
| 1153 | - $zmax = 1; |
|
| 1154 | - $z_boundaries[0] = 100000; |
|
| 1155 | - } elseif ($z_axis === 301) { |
|
| 1156 | - $male_female = true; |
|
| 1157 | - $zgiven = true; |
|
| 1158 | - $legend[0] = I18N::translate('Male'); |
|
| 1159 | - $legend[1] = I18N::translate('Female'); |
|
| 1160 | - $zmax = 2; |
|
| 1161 | - $xtitle = $xtitle . I18N::translate(' per gender'); |
|
| 1162 | - } elseif ($z_axis === 302) { |
|
| 1163 | - $xtitle = $xtitle . I18N::translate(' per time period'); |
|
| 1164 | - } |
|
| 1165 | - //-- reset the data array |
|
| 1166 | - for ($i = 0; $i < $zmax; $i++) { |
|
| 1167 | - for ($j = 0; $j < $xmax; $j++) { |
|
| 1168 | - $ydata[$i][$j] = 0; |
|
| 1169 | - } |
|
| 1170 | - } |
|
| 1171 | - $total = lifespan_by_birth_year($z_axis, $z_boundaries, $stats); |
|
| 1172 | - $hstr = $title . '|' . I18N::translate('Counts ') . ' ' . I18N::number($total) . ' ' . I18N::translate('of') . ' ' . $stats->totalIndividuals(); |
|
| 1173 | - my_plot($hstr, $xdata, $xtitle, $ydata, $ytitle, $legend); |
|
| 1174 | - break; |
|
| 1175 | -case '18': |
|
| 1176 | - $monthdata = array(); |
|
| 1177 | - for ($i = 0; $i < 12; ++$i) { |
|
| 1178 | - $monthdata[$i] = GregorianDate::monthNameNominativeCase($i + 1, false); |
|
| 1179 | - } |
|
| 1180 | - $xgiven = false; |
|
| 1181 | - $zgiven = false; |
|
| 1182 | - $title = I18N::translate('Age related to death year'); |
|
| 1183 | - $xtitle = I18N::translate('age'); |
|
| 1184 | - $ytitle = I18N::translate('numbers'); |
|
| 1185 | - $boundaries_x_axis = Filter::get('x-axis-boundaries-ages'); |
|
| 1186 | - $boundaries_z_axis = Filter::get('z-axis-boundaries-periods', null, '0'); |
|
| 1187 | - calculate_axis($boundaries_x_axis); |
|
| 1188 | - if ($z_axis !== 300 && $z_axis !== 301) { |
|
| 1189 | - calculate_legend($boundaries_z_axis); |
|
| 1190 | - } |
|
| 1191 | - $percentage = false; |
|
| 1192 | - if ($y_axis === 201) { |
|
| 1193 | - $percentage = false; |
|
| 1194 | - $ytitle = I18N::translate('Individuals'); |
|
| 1195 | - } elseif ($y_axis === 202) { |
|
| 1196 | - $percentage = true; |
|
| 1197 | - $ytitle = I18N::translate('percentage'); |
|
| 1198 | - } |
|
| 1199 | - $male_female = false; |
|
| 1200 | - if ($z_axis === 300) { |
|
| 1201 | - $zgiven = false; |
|
| 1202 | - $legend[0] = 'all'; |
|
| 1203 | - $zmax = 1; |
|
| 1204 | - $z_boundaries[0] = 100000; |
|
| 1205 | - } elseif ($z_axis === 301) { |
|
| 1206 | - $male_female = true; |
|
| 1207 | - $zgiven = true; |
|
| 1208 | - $legend[0] = I18N::translate('Male'); |
|
| 1209 | - $legend[1] = I18N::translate('Female'); |
|
| 1210 | - $zmax = 2; |
|
| 1211 | - $xtitle = $xtitle . I18N::translate(' per gender'); |
|
| 1212 | - } elseif ($z_axis === 302) { |
|
| 1213 | - $xtitle = $xtitle . I18N::translate(' per time period'); |
|
| 1214 | - } |
|
| 1215 | - //-- reset the data array |
|
| 1216 | - for ($i = 0; $i < $zmax; $i++) { |
|
| 1217 | - for ($j = 0; $j < $xmax; $j++) { |
|
| 1218 | - $ydata[$i][$j] = 0; |
|
| 1219 | - } |
|
| 1220 | - } |
|
| 1221 | - $total = lifespan_by_death_year($z_axis, $z_boundaries, $stats); |
|
| 1222 | - $hstr = $title . '|' . I18N::translate('Counts ') . ' ' . I18N::number($total) . ' ' . I18N::translate('of') . ' ' . $stats->totalIndividuals(); |
|
| 1223 | - my_plot($hstr, $xdata, $xtitle, $ydata, $ytitle, $legend); |
|
| 1224 | - break; |
|
| 1225 | -case '19': |
|
| 1226 | - $monthdata = array(); |
|
| 1227 | - for ($i = 0; $i < 12; ++$i) { |
|
| 1228 | - $monthdata[$i] = GregorianDate::monthNameNominativeCase($i + 1, false); |
|
| 1229 | - } |
|
| 1230 | - $xgiven = false; |
|
| 1231 | - $zgiven = false; |
|
| 1232 | - $title = I18N::translate('Age in year of marriage'); |
|
| 1233 | - $xtitle = I18N::translate('age'); |
|
| 1234 | - $ytitle = I18N::translate('numbers'); |
|
| 1235 | - $boundaries_x_axis = Filter::get('x-axis-boundaries-ages_m'); |
|
| 1236 | - $boundaries_z_axis = Filter::get('z-axis-boundaries-periods', null, '0'); |
|
| 1237 | - calculate_axis($boundaries_x_axis); |
|
| 1238 | - if ($z_axis !== 300 && $z_axis !== 301) { |
|
| 1239 | - calculate_legend($boundaries_z_axis); |
|
| 1240 | - } |
|
| 1241 | - $percentage = false; |
|
| 1242 | - if ($y_axis === 201) { |
|
| 1243 | - $percentage = false; |
|
| 1244 | - $ytitle = I18N::translate('Individuals'); |
|
| 1245 | - } elseif ($y_axis === 202) { |
|
| 1246 | - $percentage = true; |
|
| 1247 | - $ytitle = I18N::translate('percentage'); |
|
| 1248 | - } |
|
| 1249 | - $male_female = false; |
|
| 1250 | - $z_boundaries[0] = 100000; |
|
| 1251 | - if ($z_axis === 300) { |
|
| 1252 | - $zgiven = false; |
|
| 1253 | - $legend[0] = 'all'; |
|
| 1254 | - $zmax = 1; |
|
| 1255 | - } elseif ($z_axis === 301) { |
|
| 1256 | - $male_female = true; |
|
| 1257 | - $zgiven = true; |
|
| 1258 | - $legend[0] = I18N::translate('Male'); |
|
| 1259 | - $legend[1] = I18N::translate('Female'); |
|
| 1260 | - $zmax = 2; |
|
| 1261 | - $xtitle = $xtitle . I18N::translate(' per gender'); |
|
| 1262 | - } elseif ($z_axis === 302) { |
|
| 1263 | - $xtitle = $xtitle . I18N::translate(' per time period'); |
|
| 1264 | - } |
|
| 1265 | - //-- reset the data array |
|
| 1266 | - for ($i = 0; $i < $zmax; $i++) { |
|
| 1267 | - for ($j = 0; $j < $xmax; $j++) { |
|
| 1268 | - $ydata[$i][$j] = 0; |
|
| 1269 | - } |
|
| 1270 | - } |
|
| 1271 | - $total = age_at_marriage($z_axis, $z_boundaries, $stats); |
|
| 1272 | - $hstr = $title . '|' . I18N::translate('Counts ') . ' ' . I18N::number($total) . ' ' . I18N::translate('of') . ' ' . $stats->totalIndividuals(); |
|
| 1273 | - my_plot($hstr, $xdata, $xtitle, $ydata, $ytitle, $legend); |
|
| 1274 | - break; |
|
| 1275 | -case '20': |
|
| 1276 | - $monthdata = array(); |
|
| 1277 | - for ($i = 0; $i < 12; ++$i) { |
|
| 1278 | - $monthdata[$i] = GregorianDate::monthNameNominativeCase($i + 1, false); |
|
| 1279 | - } |
|
| 1280 | - $xgiven = false; |
|
| 1281 | - $zgiven = false; |
|
| 1282 | - $title = I18N::translate('Age in year of first marriage'); |
|
| 1283 | - $xtitle = I18N::translate('age'); |
|
| 1284 | - $ytitle = I18N::translate('numbers'); |
|
| 1285 | - $boundaries_x_axis = Filter::get('x-axis-boundaries-ages_m'); |
|
| 1286 | - $boundaries_z_axis = Filter::get('z-axis-boundaries-periods', null, '0'); |
|
| 1287 | - calculate_axis($boundaries_x_axis); |
|
| 1288 | - if ($z_axis !== 300 && $z_axis !== 301) { |
|
| 1289 | - calculate_legend($boundaries_z_axis); |
|
| 1290 | - } |
|
| 1291 | - $percentage = false; |
|
| 1292 | - if ($y_axis === 201) { |
|
| 1293 | - $percentage = false; |
|
| 1294 | - $ytitle = I18N::translate('Individuals'); |
|
| 1295 | - } elseif ($y_axis === 202) { |
|
| 1296 | - $percentage = true; |
|
| 1297 | - $ytitle = I18N::translate('percentage'); |
|
| 1298 | - } |
|
| 1299 | - $male_female = false; |
|
| 1300 | - if ($z_axis === 300) { |
|
| 1301 | - $zgiven = false; |
|
| 1302 | - $legend[0] = 'all'; |
|
| 1303 | - $zmax = 1; |
|
| 1304 | - $z_boundaries[0] = 100000; |
|
| 1305 | - } elseif ($z_axis === 301) { |
|
| 1306 | - $male_female = true; |
|
| 1307 | - $zgiven = true; |
|
| 1308 | - $legend[0] = I18N::translate('Male'); |
|
| 1309 | - $legend[1] = I18N::translate('Female'); |
|
| 1310 | - $zmax = 2; |
|
| 1311 | - $xtitle = $xtitle . I18N::translate(' per gender'); |
|
| 1312 | - } elseif ($z_axis === 302) { |
|
| 1313 | - $xtitle = $xtitle . I18N::translate(' per time period'); |
|
| 1314 | - } |
|
| 1315 | - //-- reset the data array |
|
| 1316 | - for ($i = 0; $i < $zmax; $i++) { |
|
| 1317 | - for ($j = 0; $j < $xmax; $j++) { |
|
| 1318 | - $ydata[$i][$j] = 0; |
|
| 1319 | - } |
|
| 1320 | - } |
|
| 1321 | - $total = age_at_first_marriage($z_axis, $z_boundaries, $stats); |
|
| 1322 | - $hstr = $title . '|' . I18N::translate('Counts ') . ' ' . I18N::number($total) . ' ' . I18N::translate('of') . ' ' . $stats->totalIndividuals(); |
|
| 1323 | - my_plot($hstr, $xdata, $xtitle, $ydata, $ytitle, $legend); |
|
| 1324 | - break; |
|
| 1325 | -case '21': |
|
| 1326 | - $monthdata = array(); |
|
| 1327 | - for ($i = 0; $i < 12; ++$i) { |
|
| 1328 | - $monthdata[$i] = GregorianDate::monthNameNominativeCase($i + 1, false); |
|
| 1329 | - } |
|
| 1330 | - $xgiven = false; |
|
| 1331 | - $zgiven = false; |
|
| 1332 | - $title = I18N::translate('Number of children'); |
|
| 1333 | - $xtitle = I18N::translate('children'); |
|
| 1334 | - $ytitle = I18N::translate('numbers'); |
|
| 1335 | - $boundaries_x_axis = Filter::get('x-axis-boundaries-numbers'); |
|
| 1336 | - $boundaries_z_axis = Filter::get('z-axis-boundaries-periods', null, '0'); |
|
| 1337 | - calculate_axis($boundaries_x_axis); |
|
| 1338 | - if ($z_axis !== 300 && $z_axis !== 301) { |
|
| 1339 | - calculate_legend($boundaries_z_axis); |
|
| 1340 | - } |
|
| 1341 | - $percentage = false; |
|
| 1342 | - if ($y_axis === 201) { |
|
| 1343 | - $percentage = false; |
|
| 1344 | - $ytitle = I18N::translate('Families'); |
|
| 1345 | - } elseif ($y_axis === 202) { |
|
| 1346 | - $percentage = true; |
|
| 1347 | - $ytitle = I18N::translate('percentage'); |
|
| 1348 | - } |
|
| 1349 | - $male_female = false; |
|
| 1350 | - if ($z_axis === 300) { |
|
| 1351 | - $zgiven = false; |
|
| 1352 | - $legend[0] = 'all'; |
|
| 1353 | - $zmax = 1; |
|
| 1354 | - $z_boundaries[0] = 100000; |
|
| 1355 | - } elseif ($z_axis === 301) { |
|
| 1356 | - $male_female = true; |
|
| 1357 | - $zgiven = true; |
|
| 1358 | - $legend[0] = I18N::translate('Male'); |
|
| 1359 | - $legend[1] = I18N::translate('Female'); |
|
| 1360 | - $zmax = 2; |
|
| 1361 | - $xtitle = $xtitle . I18N::translate(' per gender'); |
|
| 1362 | - } elseif ($z_axis === 302) { |
|
| 1363 | - $xtitle = $xtitle . I18N::translate(' per time period'); |
|
| 1364 | - } |
|
| 1365 | - //-- reset the data array |
|
| 1366 | - for ($i = 0; $i < $zmax; $i++) { |
|
| 1367 | - for ($j = 0; $j < $xmax; $j++) { |
|
| 1368 | - $ydata[$i][$j] = 0; |
|
| 1369 | - } |
|
| 1370 | - } |
|
| 1371 | - $total = number_of_children($z_axis, $z_boundaries, $stats); |
|
| 1372 | - $hstr = $title . '|' . I18N::translate('Counts ') . ' ' . I18N::number($total) . ' ' . I18N::translate('of') . ' ' . $stats->totalChildren(); |
|
| 1373 | - my_plot($hstr, $xdata, $xtitle, $ydata, $ytitle, $legend); |
|
| 1374 | - break; |
|
| 1375 | -default: |
|
| 1376 | - echo '<i class="icon-loading-large"></i>'; |
|
| 1377 | - break; |
|
| 1077 | + if ($z_axis === 301) { |
|
| 1078 | + $z_axis = 300; |
|
| 1079 | + } |
|
| 1080 | + $xgiven = true; |
|
| 1081 | + $zgiven = false; |
|
| 1082 | + $title = I18N::translate('Month of first marriage'); |
|
| 1083 | + $xtitle = I18N::translate('month'); |
|
| 1084 | + $ytitle = I18N::translate('numbers'); |
|
| 1085 | + $boundaries_z_axis = Filter::get('z-axis-boundaries-periods', null, '0'); |
|
| 1086 | + $xdata = $monthdata; |
|
| 1087 | + $xmax = 12; |
|
| 1088 | + if ($z_axis !== 300 && $z_axis !== 301) { |
|
| 1089 | + calculate_legend($boundaries_z_axis); |
|
| 1090 | + } |
|
| 1091 | + $percentage = false; |
|
| 1092 | + if ($y_axis === 201) { |
|
| 1093 | + $percentage = false; |
|
| 1094 | + $ytitle = I18N::translate('Families'); |
|
| 1095 | + } elseif ($y_axis === 202) { |
|
| 1096 | + $percentage = true; |
|
| 1097 | + $ytitle = I18N::translate('percentage'); |
|
| 1098 | + } |
|
| 1099 | + $male_female = false; |
|
| 1100 | + if ($z_axis === 300) { |
|
| 1101 | + $zgiven = false; |
|
| 1102 | + $legend[0] = 'all'; |
|
| 1103 | + $zmax = 1; |
|
| 1104 | + $z_boundaries[0] = 100000; |
|
| 1105 | + } elseif ($z_axis === 301) { |
|
| 1106 | + $male_female = true; |
|
| 1107 | + $zgiven = true; |
|
| 1108 | + $legend[0] = I18N::translate('Male'); |
|
| 1109 | + $legend[1] = I18N::translate('Female'); |
|
| 1110 | + $zmax = 2; |
|
| 1111 | + $xtitle = $xtitle . I18N::translate(' per gender'); |
|
| 1112 | + } elseif ($z_axis === 302) { |
|
| 1113 | + $xtitle = $xtitle . I18N::translate(' per time period'); |
|
| 1114 | + } |
|
| 1115 | + //-- reset the data array |
|
| 1116 | + for ($i = 0; $i < $zmax; $i++) { |
|
| 1117 | + for ($j = 0; $j < $xmax; $j++) { |
|
| 1118 | + $ydata[$i][$j] = 0; |
|
| 1119 | + } |
|
| 1120 | + } |
|
| 1121 | + $total = month_of_first_marriage($z_axis, $z_boundaries, $stats); |
|
| 1122 | + $hstr = $title . '|' . I18N::translate('Counts ') . ' ' . I18N::number($total) . ' ' . I18N::translate('of') . ' ' . $stats->totalFamilies(); |
|
| 1123 | + my_plot($hstr, $xdata, $xtitle, $ydata, $ytitle, $legend); |
|
| 1124 | + break; |
|
| 1125 | + case '17': |
|
| 1126 | + $monthdata = array(); |
|
| 1127 | + for ($i = 0; $i < 12; ++$i) { |
|
| 1128 | + $monthdata[$i] = GregorianDate::monthNameNominativeCase($i + 1, false); |
|
| 1129 | + } |
|
| 1130 | + $xgiven = false; |
|
| 1131 | + $zgiven = false; |
|
| 1132 | + $title = I18N::translate('Age related to birth year'); |
|
| 1133 | + $xtitle = I18N::translate('age'); |
|
| 1134 | + $ytitle = I18N::translate('numbers'); |
|
| 1135 | + $boundaries_x_axis = Filter::get('x-axis-boundaries-ages'); |
|
| 1136 | + $boundaries_z_axis = Filter::get('z-axis-boundaries-periods', null, '0'); |
|
| 1137 | + calculate_axis($boundaries_x_axis); |
|
| 1138 | + if ($z_axis !== 300 && $z_axis !== 301) { |
|
| 1139 | + calculate_legend($boundaries_z_axis); |
|
| 1140 | + } |
|
| 1141 | + $percentage = false; |
|
| 1142 | + if ($y_axis === 201) { |
|
| 1143 | + $percentage = false; |
|
| 1144 | + $ytitle = I18N::translate('Individuals'); |
|
| 1145 | + } elseif ($y_axis === 202) { |
|
| 1146 | + $percentage = true; |
|
| 1147 | + $ytitle = I18N::translate('percentage'); |
|
| 1148 | + } |
|
| 1149 | + $male_female = false; |
|
| 1150 | + if ($z_axis === 300) { |
|
| 1151 | + $zgiven = false; |
|
| 1152 | + $legend[0] = 'all'; |
|
| 1153 | + $zmax = 1; |
|
| 1154 | + $z_boundaries[0] = 100000; |
|
| 1155 | + } elseif ($z_axis === 301) { |
|
| 1156 | + $male_female = true; |
|
| 1157 | + $zgiven = true; |
|
| 1158 | + $legend[0] = I18N::translate('Male'); |
|
| 1159 | + $legend[1] = I18N::translate('Female'); |
|
| 1160 | + $zmax = 2; |
|
| 1161 | + $xtitle = $xtitle . I18N::translate(' per gender'); |
|
| 1162 | + } elseif ($z_axis === 302) { |
|
| 1163 | + $xtitle = $xtitle . I18N::translate(' per time period'); |
|
| 1164 | + } |
|
| 1165 | + //-- reset the data array |
|
| 1166 | + for ($i = 0; $i < $zmax; $i++) { |
|
| 1167 | + for ($j = 0; $j < $xmax; $j++) { |
|
| 1168 | + $ydata[$i][$j] = 0; |
|
| 1169 | + } |
|
| 1170 | + } |
|
| 1171 | + $total = lifespan_by_birth_year($z_axis, $z_boundaries, $stats); |
|
| 1172 | + $hstr = $title . '|' . I18N::translate('Counts ') . ' ' . I18N::number($total) . ' ' . I18N::translate('of') . ' ' . $stats->totalIndividuals(); |
|
| 1173 | + my_plot($hstr, $xdata, $xtitle, $ydata, $ytitle, $legend); |
|
| 1174 | + break; |
|
| 1175 | + case '18': |
|
| 1176 | + $monthdata = array(); |
|
| 1177 | + for ($i = 0; $i < 12; ++$i) { |
|
| 1178 | + $monthdata[$i] = GregorianDate::monthNameNominativeCase($i + 1, false); |
|
| 1179 | + } |
|
| 1180 | + $xgiven = false; |
|
| 1181 | + $zgiven = false; |
|
| 1182 | + $title = I18N::translate('Age related to death year'); |
|
| 1183 | + $xtitle = I18N::translate('age'); |
|
| 1184 | + $ytitle = I18N::translate('numbers'); |
|
| 1185 | + $boundaries_x_axis = Filter::get('x-axis-boundaries-ages'); |
|
| 1186 | + $boundaries_z_axis = Filter::get('z-axis-boundaries-periods', null, '0'); |
|
| 1187 | + calculate_axis($boundaries_x_axis); |
|
| 1188 | + if ($z_axis !== 300 && $z_axis !== 301) { |
|
| 1189 | + calculate_legend($boundaries_z_axis); |
|
| 1190 | + } |
|
| 1191 | + $percentage = false; |
|
| 1192 | + if ($y_axis === 201) { |
|
| 1193 | + $percentage = false; |
|
| 1194 | + $ytitle = I18N::translate('Individuals'); |
|
| 1195 | + } elseif ($y_axis === 202) { |
|
| 1196 | + $percentage = true; |
|
| 1197 | + $ytitle = I18N::translate('percentage'); |
|
| 1198 | + } |
|
| 1199 | + $male_female = false; |
|
| 1200 | + if ($z_axis === 300) { |
|
| 1201 | + $zgiven = false; |
|
| 1202 | + $legend[0] = 'all'; |
|
| 1203 | + $zmax = 1; |
|
| 1204 | + $z_boundaries[0] = 100000; |
|
| 1205 | + } elseif ($z_axis === 301) { |
|
| 1206 | + $male_female = true; |
|
| 1207 | + $zgiven = true; |
|
| 1208 | + $legend[0] = I18N::translate('Male'); |
|
| 1209 | + $legend[1] = I18N::translate('Female'); |
|
| 1210 | + $zmax = 2; |
|
| 1211 | + $xtitle = $xtitle . I18N::translate(' per gender'); |
|
| 1212 | + } elseif ($z_axis === 302) { |
|
| 1213 | + $xtitle = $xtitle . I18N::translate(' per time period'); |
|
| 1214 | + } |
|
| 1215 | + //-- reset the data array |
|
| 1216 | + for ($i = 0; $i < $zmax; $i++) { |
|
| 1217 | + for ($j = 0; $j < $xmax; $j++) { |
|
| 1218 | + $ydata[$i][$j] = 0; |
|
| 1219 | + } |
|
| 1220 | + } |
|
| 1221 | + $total = lifespan_by_death_year($z_axis, $z_boundaries, $stats); |
|
| 1222 | + $hstr = $title . '|' . I18N::translate('Counts ') . ' ' . I18N::number($total) . ' ' . I18N::translate('of') . ' ' . $stats->totalIndividuals(); |
|
| 1223 | + my_plot($hstr, $xdata, $xtitle, $ydata, $ytitle, $legend); |
|
| 1224 | + break; |
|
| 1225 | + case '19': |
|
| 1226 | + $monthdata = array(); |
|
| 1227 | + for ($i = 0; $i < 12; ++$i) { |
|
| 1228 | + $monthdata[$i] = GregorianDate::monthNameNominativeCase($i + 1, false); |
|
| 1229 | + } |
|
| 1230 | + $xgiven = false; |
|
| 1231 | + $zgiven = false; |
|
| 1232 | + $title = I18N::translate('Age in year of marriage'); |
|
| 1233 | + $xtitle = I18N::translate('age'); |
|
| 1234 | + $ytitle = I18N::translate('numbers'); |
|
| 1235 | + $boundaries_x_axis = Filter::get('x-axis-boundaries-ages_m'); |
|
| 1236 | + $boundaries_z_axis = Filter::get('z-axis-boundaries-periods', null, '0'); |
|
| 1237 | + calculate_axis($boundaries_x_axis); |
|
| 1238 | + if ($z_axis !== 300 && $z_axis !== 301) { |
|
| 1239 | + calculate_legend($boundaries_z_axis); |
|
| 1240 | + } |
|
| 1241 | + $percentage = false; |
|
| 1242 | + if ($y_axis === 201) { |
|
| 1243 | + $percentage = false; |
|
| 1244 | + $ytitle = I18N::translate('Individuals'); |
|
| 1245 | + } elseif ($y_axis === 202) { |
|
| 1246 | + $percentage = true; |
|
| 1247 | + $ytitle = I18N::translate('percentage'); |
|
| 1248 | + } |
|
| 1249 | + $male_female = false; |
|
| 1250 | + $z_boundaries[0] = 100000; |
|
| 1251 | + if ($z_axis === 300) { |
|
| 1252 | + $zgiven = false; |
|
| 1253 | + $legend[0] = 'all'; |
|
| 1254 | + $zmax = 1; |
|
| 1255 | + } elseif ($z_axis === 301) { |
|
| 1256 | + $male_female = true; |
|
| 1257 | + $zgiven = true; |
|
| 1258 | + $legend[0] = I18N::translate('Male'); |
|
| 1259 | + $legend[1] = I18N::translate('Female'); |
|
| 1260 | + $zmax = 2; |
|
| 1261 | + $xtitle = $xtitle . I18N::translate(' per gender'); |
|
| 1262 | + } elseif ($z_axis === 302) { |
|
| 1263 | + $xtitle = $xtitle . I18N::translate(' per time period'); |
|
| 1264 | + } |
|
| 1265 | + //-- reset the data array |
|
| 1266 | + for ($i = 0; $i < $zmax; $i++) { |
|
| 1267 | + for ($j = 0; $j < $xmax; $j++) { |
|
| 1268 | + $ydata[$i][$j] = 0; |
|
| 1269 | + } |
|
| 1270 | + } |
|
| 1271 | + $total = age_at_marriage($z_axis, $z_boundaries, $stats); |
|
| 1272 | + $hstr = $title . '|' . I18N::translate('Counts ') . ' ' . I18N::number($total) . ' ' . I18N::translate('of') . ' ' . $stats->totalIndividuals(); |
|
| 1273 | + my_plot($hstr, $xdata, $xtitle, $ydata, $ytitle, $legend); |
|
| 1274 | + break; |
|
| 1275 | + case '20': |
|
| 1276 | + $monthdata = array(); |
|
| 1277 | + for ($i = 0; $i < 12; ++$i) { |
|
| 1278 | + $monthdata[$i] = GregorianDate::monthNameNominativeCase($i + 1, false); |
|
| 1279 | + } |
|
| 1280 | + $xgiven = false; |
|
| 1281 | + $zgiven = false; |
|
| 1282 | + $title = I18N::translate('Age in year of first marriage'); |
|
| 1283 | + $xtitle = I18N::translate('age'); |
|
| 1284 | + $ytitle = I18N::translate('numbers'); |
|
| 1285 | + $boundaries_x_axis = Filter::get('x-axis-boundaries-ages_m'); |
|
| 1286 | + $boundaries_z_axis = Filter::get('z-axis-boundaries-periods', null, '0'); |
|
| 1287 | + calculate_axis($boundaries_x_axis); |
|
| 1288 | + if ($z_axis !== 300 && $z_axis !== 301) { |
|
| 1289 | + calculate_legend($boundaries_z_axis); |
|
| 1290 | + } |
|
| 1291 | + $percentage = false; |
|
| 1292 | + if ($y_axis === 201) { |
|
| 1293 | + $percentage = false; |
|
| 1294 | + $ytitle = I18N::translate('Individuals'); |
|
| 1295 | + } elseif ($y_axis === 202) { |
|
| 1296 | + $percentage = true; |
|
| 1297 | + $ytitle = I18N::translate('percentage'); |
|
| 1298 | + } |
|
| 1299 | + $male_female = false; |
|
| 1300 | + if ($z_axis === 300) { |
|
| 1301 | + $zgiven = false; |
|
| 1302 | + $legend[0] = 'all'; |
|
| 1303 | + $zmax = 1; |
|
| 1304 | + $z_boundaries[0] = 100000; |
|
| 1305 | + } elseif ($z_axis === 301) { |
|
| 1306 | + $male_female = true; |
|
| 1307 | + $zgiven = true; |
|
| 1308 | + $legend[0] = I18N::translate('Male'); |
|
| 1309 | + $legend[1] = I18N::translate('Female'); |
|
| 1310 | + $zmax = 2; |
|
| 1311 | + $xtitle = $xtitle . I18N::translate(' per gender'); |
|
| 1312 | + } elseif ($z_axis === 302) { |
|
| 1313 | + $xtitle = $xtitle . I18N::translate(' per time period'); |
|
| 1314 | + } |
|
| 1315 | + //-- reset the data array |
|
| 1316 | + for ($i = 0; $i < $zmax; $i++) { |
|
| 1317 | + for ($j = 0; $j < $xmax; $j++) { |
|
| 1318 | + $ydata[$i][$j] = 0; |
|
| 1319 | + } |
|
| 1320 | + } |
|
| 1321 | + $total = age_at_first_marriage($z_axis, $z_boundaries, $stats); |
|
| 1322 | + $hstr = $title . '|' . I18N::translate('Counts ') . ' ' . I18N::number($total) . ' ' . I18N::translate('of') . ' ' . $stats->totalIndividuals(); |
|
| 1323 | + my_plot($hstr, $xdata, $xtitle, $ydata, $ytitle, $legend); |
|
| 1324 | + break; |
|
| 1325 | + case '21': |
|
| 1326 | + $monthdata = array(); |
|
| 1327 | + for ($i = 0; $i < 12; ++$i) { |
|
| 1328 | + $monthdata[$i] = GregorianDate::monthNameNominativeCase($i + 1, false); |
|
| 1329 | + } |
|
| 1330 | + $xgiven = false; |
|
| 1331 | + $zgiven = false; |
|
| 1332 | + $title = I18N::translate('Number of children'); |
|
| 1333 | + $xtitle = I18N::translate('children'); |
|
| 1334 | + $ytitle = I18N::translate('numbers'); |
|
| 1335 | + $boundaries_x_axis = Filter::get('x-axis-boundaries-numbers'); |
|
| 1336 | + $boundaries_z_axis = Filter::get('z-axis-boundaries-periods', null, '0'); |
|
| 1337 | + calculate_axis($boundaries_x_axis); |
|
| 1338 | + if ($z_axis !== 300 && $z_axis !== 301) { |
|
| 1339 | + calculate_legend($boundaries_z_axis); |
|
| 1340 | + } |
|
| 1341 | + $percentage = false; |
|
| 1342 | + if ($y_axis === 201) { |
|
| 1343 | + $percentage = false; |
|
| 1344 | + $ytitle = I18N::translate('Families'); |
|
| 1345 | + } elseif ($y_axis === 202) { |
|
| 1346 | + $percentage = true; |
|
| 1347 | + $ytitle = I18N::translate('percentage'); |
|
| 1348 | + } |
|
| 1349 | + $male_female = false; |
|
| 1350 | + if ($z_axis === 300) { |
|
| 1351 | + $zgiven = false; |
|
| 1352 | + $legend[0] = 'all'; |
|
| 1353 | + $zmax = 1; |
|
| 1354 | + $z_boundaries[0] = 100000; |
|
| 1355 | + } elseif ($z_axis === 301) { |
|
| 1356 | + $male_female = true; |
|
| 1357 | + $zgiven = true; |
|
| 1358 | + $legend[0] = I18N::translate('Male'); |
|
| 1359 | + $legend[1] = I18N::translate('Female'); |
|
| 1360 | + $zmax = 2; |
|
| 1361 | + $xtitle = $xtitle . I18N::translate(' per gender'); |
|
| 1362 | + } elseif ($z_axis === 302) { |
|
| 1363 | + $xtitle = $xtitle . I18N::translate(' per time period'); |
|
| 1364 | + } |
|
| 1365 | + //-- reset the data array |
|
| 1366 | + for ($i = 0; $i < $zmax; $i++) { |
|
| 1367 | + for ($j = 0; $j < $xmax; $j++) { |
|
| 1368 | + $ydata[$i][$j] = 0; |
|
| 1369 | + } |
|
| 1370 | + } |
|
| 1371 | + $total = number_of_children($z_axis, $z_boundaries, $stats); |
|
| 1372 | + $hstr = $title . '|' . I18N::translate('Counts ') . ' ' . I18N::number($total) . ' ' . I18N::translate('of') . ' ' . $stats->totalChildren(); |
|
| 1373 | + my_plot($hstr, $xdata, $xtitle, $ydata, $ytitle, $legend); |
|
| 1374 | + break; |
|
| 1375 | + default: |
|
| 1376 | + echo '<i class="icon-loading-large"></i>'; |
|
| 1377 | + break; |
|
| 1378 | 1378 | } |
| 1379 | 1379 | echo '</div>'; |
@@ -36,7 +36,8 @@ discard block |
||
| 36 | 36 | * |
| 37 | 37 | * @return int |
| 38 | 38 | */ |
| 39 | -function month_of_birth($z_axis, array $z_boundaries, Stats $stats) { |
|
| 39 | +function month_of_birth($z_axis, array $z_boundaries, Stats $stats) |
|
| 40 | +{ |
|
| 40 | 41 | $total = 0; |
| 41 | 42 | |
| 42 | 43 | if ($z_axis === 300) { |
@@ -92,7 +93,8 @@ discard block |
||
| 92 | 93 | * |
| 93 | 94 | * @return int |
| 94 | 95 | */ |
| 95 | -function month_of_birth_of_first_child($z_axis, array $z_boundaries, Stats $stats) { |
|
| 96 | +function month_of_birth_of_first_child($z_axis, array $z_boundaries, Stats $stats) |
|
| 97 | +{ |
|
| 96 | 98 | $total = 0; |
| 97 | 99 | |
| 98 | 100 | if ($z_axis === 300) { |
@@ -148,7 +150,8 @@ discard block |
||
| 148 | 150 | * |
| 149 | 151 | * @return int |
| 150 | 152 | */ |
| 151 | -function month_of_death($z_axis, array $z_boundaries, Stats $stats) { |
|
| 153 | +function month_of_death($z_axis, array $z_boundaries, Stats $stats) |
|
| 154 | +{ |
|
| 152 | 155 | $total = 0; |
| 153 | 156 | |
| 154 | 157 | if ($z_axis === 300) { |
@@ -204,7 +207,8 @@ discard block |
||
| 204 | 207 | * |
| 205 | 208 | * @return int |
| 206 | 209 | */ |
| 207 | -function month_of_marriage($z_axis, array $z_boundaries, Stats $stats) { |
|
| 210 | +function month_of_marriage($z_axis, array $z_boundaries, Stats $stats) |
|
| 211 | +{ |
|
| 208 | 212 | $total = 0; |
| 209 | 213 | |
| 210 | 214 | if ($z_axis === 300) { |
@@ -245,7 +249,8 @@ discard block |
||
| 245 | 249 | * |
| 246 | 250 | * @return int |
| 247 | 251 | */ |
| 248 | -function month_of_first_marriage($z_axis, array $z_boundaries, Stats $stats) { |
|
| 252 | +function month_of_first_marriage($z_axis, array $z_boundaries, Stats $stats) |
|
| 253 | +{ |
|
| 249 | 254 | $total = 0; |
| 250 | 255 | |
| 251 | 256 | if ($z_axis === 300) { |
@@ -298,7 +303,8 @@ discard block |
||
| 298 | 303 | * |
| 299 | 304 | * @return int |
| 300 | 305 | */ |
| 301 | -function lifespan_by_birth_year($z_axis, array $z_boundaries, Stats $stats) { |
|
| 306 | +function lifespan_by_birth_year($z_axis, array $z_boundaries, Stats $stats) |
|
| 307 | +{ |
|
| 302 | 308 | $total = 0; |
| 303 | 309 | |
| 304 | 310 | if ($z_axis === 300) { |
@@ -350,7 +356,8 @@ discard block |
||
| 350 | 356 | * |
| 351 | 357 | * @return int |
| 352 | 358 | */ |
| 353 | -function lifespan_by_death_year($z_axis, array $z_boundaries, Stats $stats) { |
|
| 359 | +function lifespan_by_death_year($z_axis, array $z_boundaries, Stats $stats) |
|
| 360 | +{ |
|
| 354 | 361 | $total = 0; |
| 355 | 362 | |
| 356 | 363 | if ($z_axis === 300) { |
@@ -402,7 +409,8 @@ discard block |
||
| 402 | 409 | * |
| 403 | 410 | * @return int |
| 404 | 411 | */ |
| 405 | -function age_at_marriage($z_axis, array $z_boundaries, Stats $stats) { |
|
| 412 | +function age_at_marriage($z_axis, array $z_boundaries, Stats $stats) |
|
| 413 | +{ |
|
| 406 | 414 | $total = 0; |
| 407 | 415 | |
| 408 | 416 | if ($z_axis === 300) { |
@@ -456,7 +464,8 @@ discard block |
||
| 456 | 464 | * |
| 457 | 465 | * @return int |
| 458 | 466 | */ |
| 459 | -function age_at_first_marriage($z_axis, array $z_boundaries, Stats $stats) { |
|
| 467 | +function age_at_first_marriage($z_axis, array $z_boundaries, Stats $stats) |
|
| 468 | +{ |
|
| 460 | 469 | $total = 0; |
| 461 | 470 | |
| 462 | 471 | if ($z_axis === 300) { |
@@ -533,7 +542,8 @@ discard block |
||
| 533 | 542 | * |
| 534 | 543 | * @return int |
| 535 | 544 | */ |
| 536 | -function number_of_children($z_axis, array $z_boundaries, Stats $stats) { |
|
| 545 | +function number_of_children($z_axis, array $z_boundaries, Stats $stats) |
|
| 546 | +{ |
|
| 537 | 547 | $total = 0; |
| 538 | 548 | |
| 539 | 549 | if ($z_axis === 300) { |
@@ -575,7 +585,8 @@ discard block |
||
| 575 | 585 | * @param int $x |
| 576 | 586 | * @param int $val |
| 577 | 587 | */ |
| 578 | -function fill_y_data($z, $x, $val) { |
|
| 588 | +function fill_y_data($z, $x, $val) |
|
| 589 | +{ |
|
| 579 | 590 | global $ydata, $xmax, $x_boundaries, $zmax, $z_boundaries, $xgiven, $zgiven; |
| 580 | 591 | //-- calculate index $i out of given z value |
| 581 | 592 | //-- calculate index $j out of given x value |
@@ -612,7 +623,8 @@ discard block |
||
| 612 | 623 | * @param string $ytitle |
| 613 | 624 | * @param string[] $legend |
| 614 | 625 | */ |
| 615 | -function my_plot($mytitle, $xdata, $xtitle, $ydata, $ytitle, $legend) { |
|
| 626 | +function my_plot($mytitle, $xdata, $xtitle, $ydata, $ytitle, $legend) |
|
| 627 | +{ |
|
| 616 | 628 | global $percentage, $male_female, $ymax, $scalefactor, $datastring, $imgurl; |
| 617 | 629 | |
| 618 | 630 | // Google Chart API only allows text encoding for numbers less than 100 |
@@ -752,7 +764,8 @@ discard block |
||
| 752 | 764 | * |
| 753 | 765 | * @param string $x_axis_boundaries |
| 754 | 766 | */ |
| 755 | -function calculate_axis($x_axis_boundaries) { |
|
| 767 | +function calculate_axis($x_axis_boundaries) |
|
| 768 | +{ |
|
| 756 | 769 | global $x_axis, $xdata, $xmax, $x_boundaries; |
| 757 | 770 | |
| 758 | 771 | // Calculate xdata and zdata elements out of chart values |
@@ -801,7 +814,8 @@ discard block |
||
| 801 | 814 | * |
| 802 | 815 | * @return string |
| 803 | 816 | */ |
| 804 | -function format_range_of_numbers($x, $y) { |
|
| 817 | +function format_range_of_numbers($x, $y) |
|
| 818 | +{ |
|
| 805 | 819 | return /* I18N: A range of numbers */ I18N::translate( |
| 806 | 820 | '%1$s–%2$s', |
| 807 | 821 | I18N::number($x), |
@@ -814,7 +828,8 @@ discard block |
||
| 814 | 828 | * |
| 815 | 829 | * @param string $boundaries_z_axis |
| 816 | 830 | */ |
| 817 | -function calculate_legend($boundaries_z_axis) { |
|
| 831 | +function calculate_legend($boundaries_z_axis) |
|
| 832 | +{ |
|
| 818 | 833 | global $legend, $zmax, $z_boundaries; |
| 819 | 834 | |
| 820 | 835 | // calculate the legend values |
@@ -223,7 +223,8 @@ discard block |
||
| 223 | 223 | * |
| 224 | 224 | * @return string |
| 225 | 225 | */ |
| 226 | -function link_message($type1, $xref1, $type2, $xref2) { |
|
| 226 | +function link_message($type1, $xref1, $type2, $xref2) |
|
| 227 | +{ |
|
| 227 | 228 | return /* I18N: The placeholders are GEDCOM XREFs and tags. e.g. “INDI I123 contains a FAMC link to F234.” */ I18N::translate( |
| 228 | 229 | '%1$s %2$s has a %3$s link to %4$s.', |
| 229 | 230 | format_type($type1), |
@@ -240,7 +241,8 @@ discard block |
||
| 240 | 241 | * |
| 241 | 242 | * @return string |
| 242 | 243 | */ |
| 243 | -function format_link($xref) { |
|
| 244 | +function format_link($xref) |
|
| 245 | +{ |
|
| 244 | 246 | return '<b><a href="gedrecord.php?pid=' . $xref . '">' . $xref . '</a></b>'; |
| 245 | 247 | } |
| 246 | 248 | |
@@ -251,7 +253,8 @@ discard block |
||
| 251 | 253 | * |
| 252 | 254 | * @return string |
| 253 | 255 | */ |
| 254 | -function format_type($type) { |
|
| 256 | +function format_type($type) |
|
| 257 | +{ |
|
| 255 | 258 | return '<b title="' . strip_tags(GedcomTag::getLabel($type)) . '">' . $type . '</b>'; |
| 256 | 259 | } |
| 257 | 260 | |
@@ -262,7 +265,8 @@ discard block |
||
| 262 | 265 | * |
| 263 | 266 | * @return string |
| 264 | 267 | */ |
| 265 | -function error($message) { |
|
| 268 | +function error($message) |
|
| 269 | +{ |
|
| 266 | 270 | global $errors; |
| 267 | 271 | $errors = true; |
| 268 | 272 | |
@@ -276,7 +280,8 @@ discard block |
||
| 276 | 280 | * |
| 277 | 281 | * @return string |
| 278 | 282 | */ |
| 279 | -function warning($message) { |
|
| 283 | +function warning($message) |
|
| 284 | +{ |
|
| 280 | 285 | global $errors; |
| 281 | 286 | $errors = true; |
| 282 | 287 | |