Revision a1486b4e
Von Moritz Bunkus vor fast 17 Jahren hinzugefügt
| sql/Pg-upgrade/Pg-upgrade-2.2.0.25-2.2.0.26.pl | ||
|---|---|---|
| 13 | 13 |
sub myshowerror {
|
| 14 | 14 |
my ($msg) = @_; |
| 15 | 15 |
|
| 16 |
print($main::form->parse_html_template("dbupgrade/units_error",
|
|
| 17 |
{ "message" => $msg }));
|
|
| 16 |
print($main::form->parse_html_template2("dbupgrade/units_error",
|
|
| 17 |
{ "message" => $msg }));
|
|
| 18 | 18 |
return 2; |
| 19 | 19 |
} |
| 20 | 20 |
|
| ... | ... | |
| 219 | 219 |
map({ push(@unknown_parts, { "name" => $_, "NEW_UNITS" => $ddbox }); }
|
| 220 | 220 |
sort({ lc($a) cmp lc($b) } keys(%unknown_dimension_units)));
|
| 221 | 221 |
|
| 222 |
print($form->parse_html_template("dbupgrade/units_parts",
|
|
| 223 |
{ "NEW_BASE_UNIT_DDBOX" => $ddbox,
|
|
| 224 |
"UNKNOWN_PART_UNITS" => \@unknown_parts, |
|
| 225 |
})); |
|
| 222 |
print($form->parse_html_template2("dbupgrade/units_parts",
|
|
| 223 |
{ "NEW_BASE_UNIT_DDBOX" => $ddbox,
|
|
| 224 |
"UNKNOWN_PART_UNITS" => \@unknown_parts,
|
|
| 225 |
}));
|
|
| 226 | 226 |
|
| 227 | 227 |
return 2; |
| 228 | 228 |
|
| 229 | 229 |
} else {
|
| 230 |
print($form->parse_html_template("dbupgrade/units_parts_done"));
|
|
| 230 |
print($form->parse_html_template2("dbupgrade/units_parts_done"));
|
|
| 231 | 231 |
} |
| 232 | 232 |
|
| 233 | 233 |
if (scalar(keys(%unknown_service_units)) != 0) {
|
| ... | ... | |
| 238 | 238 |
map({ push(@unknown_services, { "name" => $_, "NEW_UNITS" => $ddbox }); }
|
| 239 | 239 |
sort({ lc($a) cmp lc($b) } keys(%unknown_service_units)));
|
| 240 | 240 |
|
| 241 |
print($form->parse_html_template("dbupgrade/units_services",
|
|
| 242 |
{ "NEW_BASE_UNIT_DDBOX" => $ddbox,
|
|
| 243 |
"UNKNOWN_PART_UNITS" => \@unknown_services, |
|
| 244 |
})); |
|
| 241 |
print($form->parse_html_template2("dbupgrade/units_services",
|
|
| 242 |
{ "NEW_BASE_UNIT_DDBOX" => $ddbox,
|
|
| 243 |
"UNKNOWN_PART_UNITS" => \@unknown_services,
|
|
| 244 |
}));
|
|
| 245 | 245 |
|
| 246 | 246 |
return 2; |
| 247 | 247 |
|
| 248 | 248 |
} else {
|
| 249 |
print($form->parse_html_template("dbupgrade/units_services_done"));
|
|
| 249 |
print($form->parse_html_template2("dbupgrade/units_services_done"));
|
|
| 250 | 250 |
} |
| 251 | 251 |
|
| 252 | 252 |
return 0; |
| ... | ... | |
| 271 | 271 |
my $service_units = retrieve_units(\%dbup_myconfig, $form, "service"); |
| 272 | 272 |
my $service_ddbox = unit_select_data($service_units); |
| 273 | 273 |
|
| 274 |
print($form->parse_html_template("dbupgrade/units_set_default",
|
|
| 275 |
{ "DIMENSION_DDBOX" => $dimension_ddbox,
|
|
| 276 |
"SERVICE_DDBOX" => $service_ddbox })); |
|
| 274 |
print($form->parse_html_template2("dbupgrade/units_set_default",
|
|
| 275 |
{ "DIMENSION_DDBOX" => $dimension_ddbox,
|
|
| 276 |
"SERVICE_DDBOX" => $service_ddbox }));
|
|
| 277 | 277 |
return 2; |
| 278 | 278 |
|
| 279 | 279 |
} else {
|
| 280 |
print($form->parse_html_template("dbupgrade/units_set_default_done"));
|
|
| 280 |
print($form->parse_html_template2("dbupgrade/units_set_default_done"));
|
|
| 281 | 281 |
return 1; |
| 282 | 282 |
} |
| 283 | 283 |
} |
| ... | ... | |
| 330 | 330 |
|
| 331 | 331 |
my $res; |
| 332 | 332 |
|
| 333 |
print($form->parse_html_template("dbupgrade/units_header"));
|
|
| 333 |
print($form->parse_html_template2("dbupgrade/units_header"));
|
|
| 334 | 334 |
|
| 335 | 335 |
if ($form->{"action2"} eq "add_unit") {
|
| 336 | 336 |
$res = update_units_add_unit(); |
Auch abrufbar als: Unified diff
Umstellung der Vorlagen aus templates/webpages/dbupgrade von HTML::Template auf Template.