3 die("This script cannot be run from the command line.") unless ($main::form);
9 die($dbup_locale->text("Database update error:") .
10 "<br>$msg<br>" . $DBI::errstr);
16 print($main::form->parse_html_template("dbupgrade/units_error",
17 { "message" => $msg }));
21 sub update_units_add_unit {
22 my $form = $main::form;
24 return 0 unless ($form->{"new_name"});
26 return myshowerror($dbup_locale->text("The name is missing."))
27 if ($form->{"new_name"} eq "");
28 my $units = AM->retrieve_units(\%dbup_myconfig, $form);
29 return myshowerror($dbup_locale->text("A unit with this name does already exist."))
30 if ($units->{$form->{"new_name"}});
31 $units = AM->retrieve_units(\%dbup_myconfig, $form, $form->{"unit_type"});
33 my ($base_unit, $factor);
34 if ($form->{"new_base_unit"}) {
35 return myshowerror($dbup_locale->text("The base unit does not exist."))
36 unless (defined($units->{$form->{"new_base_unit"}}));
38 return myshowerror($dbup_locale->text("The factor is missing."))
39 if ($form->{"new_factor"} eq "");
40 $factor = $form->parse_amount(\%dbup_myconfig, $form->{"new_factor"});
41 return myshowerror($dbup_locale->text("The factor is missing."))
43 $base_unit = $form->{"new_base_unit"};
46 my $query = "INSERT INTO units " .
47 "(name, base_unit, factor, type) " .
48 "VALUES (?, ?, ?, ?)";
49 $dbh->do($query, undef, $form->{"new_name"}, $base_unit, $factor,
50 $form->{"unit_type"}) ||
52 " ($form->{new_name}, $base_unit, $factor, $form->{unit_type})");
56 $form->{"saved_message"} = $dbup_locale->text("The unit has been saved.");
61 sub update_units_assign_units {
62 my ($query, $sth, @values);
64 my $form = $main::form;
66 foreach my $table (qw(parts invoice orderitems rmaitems)) {
67 $query = "UPDATE $table SET unit = ? WHERE lower(unit) = ?";
68 $sth = $dbh->prepare($query);
70 for (my $i = 1; $i <= $form->{"rowcount"}; $i++) {
71 next unless ($form->{"new_unit_$i"} && $form->{"old_unit_$i"});
72 @values = ($form->{"new_unit_$i"}, lc($form->{"old_unit_$i"}));
73 $sth->execute(@values) ||
74 mydberror($query . " (" . join(", ", @values) . ")");
83 sub update_units_assign_known {
84 my $form = $main::form;
86 my %unit_name_mapping = (
96 foreach my $k (keys(%unit_name_mapping)) {
97 $form->{"old_unit_$i"} = $k;
98 $form->{"new_unit_$i"} = $unit_name_mapping{$k};
101 $form->{"rowcount"} = scalar(keys(%unit_name_mapping));
103 update_units_assign_units();
106 sub update_units_steps_1_2 {
107 my (%unknown_dimension_units, %unknown_service_units);
109 my $form = $main::form;
111 foreach my $table (qw(parts invoice orderitems rmaitems)) {
112 my ($query, $sth, $ref);
114 if ($table eq "parts") {
115 $query = "SELECT unit, inventory_accno_id FROM parts " .
116 "WHERE NOT ((unit = '') OR unit ISNULL OR " .
117 " unit IN (SELECT name FROM units))";
120 $query = "SELECT t.unit, p.inventory_accno_id " .
122 "LEFT JOIN parts p ON p.id = t.parts_id " .
123 "WHERE NOT ((t.unit = '') OR t.unit ISNULL OR " .
124 " t.unit IN (SELECT name FROM units))";
126 $sth = $dbh->prepare($query);
127 $sth->execute() || mydberror($query);
129 while ($ref = $sth->fetchrow_hashref()) {
130 if ($ref->{"inventory_accno_id"}) {
131 $unknown_dimension_units{$ref->{"unit"}} = 1;
134 $unknown_service_units{$ref->{"unit"}} = 1;
141 if (scalar(keys(%unknown_dimension_units)) != 0) {
142 my $units = AM->retrieve_units(\%dbup_myconfig, $form, "dimension");
143 my $ddbox = AM->unit_select_data($units, undef, 1);
146 map({ push(@unknown_parts, { "name" => $_, "NEW_UNITS" => $ddbox }); }
147 sort({ lc($a) cmp lc($b) } keys(%unknown_dimension_units)));
149 print($form->parse_html_template("dbupgrade/units_parts",
150 { "NEW_BASE_UNIT_DDBOX" => $ddbox,
151 "UNKNOWN_PART_UNITS" => \@unknown_parts,
157 print($form->parse_html_template("dbupgrade/units_parts_done"));
160 if (scalar(keys(%unknown_service_units)) != 0) {
161 my $units = AM->retrieve_units(\%dbup_myconfig, $form, "service");
162 my $ddbox = AM->unit_select_data($units, undef, 1);
164 my @unknown_services;
165 map({ push(@unknown_services, { "name" => $_, "NEW_UNITS" => $ddbox }); }
166 sort({ lc($a) cmp lc($b) } keys(%unknown_service_units)));
168 print($form->parse_html_template("dbupgrade/units_services",
169 { "NEW_BASE_UNIT_DDBOX" => $ddbox,
170 "UNKNOWN_PART_UNITS" => \@unknown_services,
176 print($form->parse_html_template("dbupgrade/units_services_done"));
182 sub update_units_step_3 {
183 my $form = $main::form;
185 my $query = "SELECT ";
186 foreach my $table (qw(parts invoice orderitems rmaitems)) {
187 $query .= "(SELECT COUNT(*) FROM $table " .
188 "WHERE (unit ISNULL) OR (unit = '')) +";
190 substr($query, -1, 1) = "AS has_unassigned";
191 my ($has_unassigned) = $dbh->selectrow_array($query);
193 if ($has_unassigned) {
194 my $dimension_units = AM->retrieve_units(\%dbup_myconfig, $form,
196 my $dimension_ddbox = AM->unit_select_data($dimension_units);
198 my $service_units = AM->retrieve_units(\%dbup_myconfig, $form, "service");
199 my $service_ddbox = AM->unit_select_data($service_units);
201 print($form->parse_html_template("dbupgrade/units_set_default",
202 { "DIMENSION_DDBOX" => $dimension_ddbox,
203 "SERVICE_DDBOX" => $service_ddbox }));
207 print($form->parse_html_template("dbupgrade/units_set_default_done"));
212 sub update_units_set_default {
213 my $form = $main::form;
215 foreach my $table (qw(parts invoice orderitems rmaitems)) {
216 my $base_query = "UPDATE $table SET unit = " .
217 $dbh->quote($form->{"default_service_unit"}) . " " .
218 "WHERE ((unit ISNULL) OR (unit = '')) AND ";
221 if ($table eq "parts") {
222 $query = "UPDATE $table SET unit = " .
223 $dbh->quote($form->{"default_dimension_unit"}) . " " .
224 "WHERE ((unit ISNULL) OR (unit = '')) AND (inventory_accno_id > 0)";
226 $query = "UPDATE $table SET unit = " .
227 $dbh->quote($form->{"default_dimension_unit"}) . " " .
228 "WHERE ((unit ISNULL) OR (unit = '')) AND " .
229 "parts_id IN (SELECT id FROM parts WHERE (inventory_accno_id > 0))";
232 $dbh->do($query) || mydberror($query);
234 if ($table eq "parts") {
235 $query = "UPDATE $table SET unit = " .
236 $dbh->quote($form->{"default_service_unit"}) . " " .
237 "WHERE ((unit ISNULL) OR (unit = '')) AND " .
238 "(inventory_accno_id ISNULL) OR (inventory_accno_id = 0)";
240 $query = "UPDATE $table SET unit = " .
241 $dbh->quote($form->{"default_service_unit"}) . " " .
242 "WHERE ((unit ISNULL) OR (unit = '')) AND " .
243 "parts_id IN (SELECT id FROM parts " .
244 "WHERE (inventory_accno_id ISNULL) OR (inventory_accno_id = 0))";
247 $dbh->do($query) || mydberror($query);
252 my $form = $main::form;
256 print($form->parse_html_template("dbupgrade/units_header"));
258 if ($form->{"action2"} eq "add_unit") {
259 $res = update_units_add_unit();
260 return $res if ($res);
262 } elsif ($form->{"action2"} eq "assign_units") {
263 update_units_assign_units();
265 } elsif ($form->{"action2"} eq "set_default") {
266 update_units_set_default();
270 update_units_assign_known();
272 $res = update_units_steps_1_2();
273 return $res if ($res);
275 return update_units_step_3();