Revision 9281a92a
Von Tamino Steinert vor 8 Monaten hinzugefügt
locale/de/all | ||
---|---|---|
467 | 467 |
'Automatically assigned with bank transaction' => 'Automatisch beim Kontoauszug verbuchen angelegt', |
468 | 468 |
'Automatically create new bins' => 'Automatisches Zuweisen der Lagerplätze', |
469 | 469 |
'Automatically created invoice for fee and interest for dunning %s' => 'Automatisch erzeugte Rechnung für Gebühren und Zinsen zu Mahnung %s', |
470 |
'Automatically delete entries for missing files. Ensure that these files are no longer required!' => 'Einträge für fehlende Dateien automatisch löschen. Stellen Sie sicher, dass diese Dateien nicht mehr benötigt werden!', |
|
470 | 471 |
'Available' => 'Verfügbar', |
471 | 472 |
'Available Prices' => 'Mögliche Preise', |
472 | 473 |
'Available Stock' => 'verfügbarer Bestand', |
... | ... | |
1562 | 1563 |
'Equity' => 'Passiva', |
1563 | 1564 |
'Erfolgsrechnung' => 'Erfolgsrechnung', |
1564 | 1565 |
'Error' => 'Fehler', |
1566 |
'Error Message' => 'Fehlermeldung', |
|
1565 | 1567 |
'Error getting QR-Bill type.' => 'Fehler in QR-Rechnung Varianten Auswahl.', |
1566 | 1568 |
'Error handling' => 'Fehlerbehandlung', |
1567 | 1569 |
'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s', |
... | ... | |
2389 | 2391 |
'Miscellaneous' => 'Verschiedenes', |
2390 | 2392 |
'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', |
2391 | 2393 |
'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', |
2394 |
'Missing Files' => 'Fehlende Dateien', |
|
2392 | 2395 |
'Missing Method!' => 'Fehlender Voranmeldungszeitraum', |
2393 | 2396 |
'Missing Tax Authoritys Preferences' => 'Fehlende Angaben zum Finanzamt!', |
2394 | 2397 |
'Missing amount' => 'Fehlbetrag', |
... | ... | |
2916 | 2919 |
'Please provide corresponding credentials.' => 'Bitte geben Sie entsprechende Logindaten an.', |
2917 | 2920 |
'Please re-run the analysis for broken general ledger entries by clicking this button:' => 'Bitte wiederholen Sie die Analyse der Hauptbucheinträge, indem Sie auf diesen Button klicken:', |
2918 | 2921 |
'Please read the file' => 'Bitte lesen Sie die Datei', |
2922 |
'Please resolve the errors by deleting the invalid database entries or by adding the corresponding files to the expected paths.' => 'Bitte beheben Sie die Fehler, indem Sie die ungültigen Datenbankeinträge löschen oder die entsprechenden Dateien zu den erwarteten Pfaden hinzufügen.', |
|
2919 | 2923 |
'Please select a customer from the list below.' => 'Bitte einen Endkunden aus der Liste auswählen', |
2920 | 2924 |
'Please select a customer.' => 'Bitte wählen Sie einen Kunden aus.', |
2921 | 2925 |
'Please select a deadline date.' => 'Bitte wählen Sie ein Datum für die Fristsetzung aus.', |
... | ... | |
3321 | 3325 |
'Requirement spec template actions' => 'Pflichtenheftvorlagen-Aktionen', |
3322 | 3326 |
'Requirement spec text block "#1"; content: "#2"' => 'Pflichtenheft-Textblock "1"; Inhalt: "#2"', |
3323 | 3327 |
'Requirement specs' => 'Pflichtenhefte', |
3328 |
'Rerun update' => 'Wiederhole Update', |
|
3324 | 3329 |
'Reset' => 'Zurücksetzen', |
3325 | 3330 |
'Reset Filter' => 'Filter zurücksetzen', |
3326 | 3331 |
'Result' => 'Ergebnis', |
locale/en/all | ||
---|---|---|
467 | 467 |
'Automatically assigned with bank transaction' => '', |
468 | 468 |
'Automatically create new bins' => '', |
469 | 469 |
'Automatically created invoice for fee and interest for dunning %s' => '', |
470 |
'Automatically delete entries for missing files. Ensure that these files are no longer required!' => '', |
|
470 | 471 |
'Available' => '', |
471 | 472 |
'Available Prices' => '', |
472 | 473 |
'Available Stock' => '', |
... | ... | |
1562 | 1563 |
'Equity' => '', |
1563 | 1564 |
'Erfolgsrechnung' => '', |
1564 | 1565 |
'Error' => '', |
1566 |
'Error Message' => '', |
|
1565 | 1567 |
'Error getting QR-Bill type.' => '', |
1566 | 1568 |
'Error handling' => '', |
1567 | 1569 |
'Error in database control file \'%s\': %s' => '', |
... | ... | |
2388 | 2390 |
'Miscellaneous' => '', |
2389 | 2391 |
'Missing \'description\' field.' => '', |
2390 | 2392 |
'Missing \'tag\' field.' => '', |
2393 |
'Missing Files' => '', |
|
2391 | 2394 |
'Missing Method!' => '', |
2392 | 2395 |
'Missing Tax Authoritys Preferences' => '', |
2393 | 2396 |
'Missing amount' => '', |
... | ... | |
2915 | 2918 |
'Please provide corresponding credentials.' => '', |
2916 | 2919 |
'Please re-run the analysis for broken general ledger entries by clicking this button:' => '', |
2917 | 2920 |
'Please read the file' => '', |
2921 |
'Please resolve the errors by deleting the invalid database entries or by adding the corresponding files to the expected paths.' => '', |
|
2918 | 2922 |
'Please select a customer from the list below.' => '', |
2919 | 2923 |
'Please select a customer.' => '', |
2920 | 2924 |
'Please select a deadline date.' => '', |
... | ... | |
3320 | 3324 |
'Requirement spec template actions' => '', |
3321 | 3325 |
'Requirement spec text block "#1"; content: "#2"' => '', |
3322 | 3326 |
'Requirement specs' => '', |
3327 |
'Rerun update' => '', |
|
3323 | 3328 |
'Reset' => '', |
3324 | 3329 |
'Reset Filter' => '', |
3325 | 3330 |
'Result' => '', |
sql/Pg-upgrade2/add_file_version.pl | ||
---|---|---|
9 | 9 |
use SL::DB::File; |
10 | 10 |
use SL::File::Backend::Webdav; |
11 | 11 |
|
12 |
use SL::Locale::String qw(t8); |
|
12 | 13 |
use SL::System::Process; |
13 | 14 |
|
14 | 15 |
use UUID::Tiny ':std'; |
... | ... | |
16 | 17 |
use parent qw(SL::DBUpgrade2::Base); |
17 | 18 |
|
18 | 19 |
sub get_all_versions { |
19 |
my ($fileobj) = @_;
|
|
20 |
my ($dbfile) = @_;
|
|
20 | 21 |
|
21 | 22 |
my @versionobjs; |
23 |
my $fileobj = SL::File::Object->new( |
|
24 |
db_file => $dbfile, |
|
25 |
id => $dbfile->id, |
|
26 |
loaded => 1, |
|
27 |
); |
|
22 | 28 |
|
23 |
my $maxversion = $fileobj->version_count;
|
|
29 |
my $maxversion = $fileobj->backend eq 'Filesystem' ? $fileobj->db_file->backend_data : 1;
|
|
24 | 30 |
$fileobj->version($maxversion); |
25 | 31 |
push @versionobjs, $fileobj; |
26 | 32 |
if ($maxversion > 1) { |
... | ... | |
31 | 37 |
push @versionobjs, $clone; |
32 | 38 |
} |
33 | 39 |
} |
40 |
|
|
41 |
return @versionobjs; |
|
42 |
} |
|
43 |
|
|
44 |
sub get_filepath { |
|
45 |
my ($file_obj) = @_; |
|
46 |
|
|
47 |
my $file_id = $file_obj->id; |
|
48 |
my $backend = $file_obj->backend |
|
49 |
or die "File with ID '$file_id' has no backend specified."; |
|
50 |
my $db_file = $file_obj->db_file; |
|
51 |
my $file_name = $file_obj->file_name; |
|
52 |
my $version = $file_obj->version; |
|
53 |
|
|
54 |
my $path; |
|
55 |
if ($backend eq 'Webdav') { |
|
56 |
($path) = $file_obj->backend_class->webdav_path($db_file); |
|
57 |
} elsif ($backend eq 'Filesystem') { |
|
58 |
# use filesystem with depth 3 |
|
59 |
my $iddir = sprintf("%04d", $db_file->id % 1000); |
|
60 |
my $base_path = File::Spec->catdir($::lx_office_conf{paths}->{document_path}, $::auth->client->{id}, $iddir, $db_file->id); |
|
61 |
$path = File::Spec->catdir($base_path, $db_file->id . '_' . $version); |
|
62 |
} else { |
|
63 |
die "Unknown backend '$backend' for file with ID '$file_id'."; |
|
64 |
} |
|
65 |
|
|
66 |
die "No file found at $path. Expected: $file_name, file.id: $file_id" if !-f $path; |
|
67 |
return $path; |
|
68 |
} |
|
69 |
|
|
70 |
sub test_all_files_exists { |
|
71 |
my @errors; |
|
72 |
|
|
73 |
my $all_dbfiles = SL::DB::Manager::File->get_all; |
|
74 |
|
|
75 |
foreach my $dbfile (@{$all_dbfiles}) { |
|
76 |
my @versions = get_all_versions($dbfile); |
|
77 |
foreach my $version (@versions) { |
|
78 |
eval { |
|
79 |
get_filepath($version); |
|
80 |
} or do { |
|
81 |
push @errors, $@; |
|
82 |
} |
|
83 |
} |
|
84 |
} |
|
85 |
|
|
86 |
return @errors; |
|
87 |
} |
|
88 |
|
|
89 |
sub print_errors { |
|
90 |
my ($self, $errors) = @_; |
|
91 |
|
|
92 |
print $::form->parse_html_template("dbupgrade/add_file_version_form", { |
|
93 |
ERRORS => $errors |
|
94 |
}); |
|
34 | 95 |
} |
35 | 96 |
|
36 | 97 |
sub run { |
37 | 98 |
my ($self) = @_; |
38 | 99 |
|
100 |
my $query = <<SQL; |
|
101 |
SELECT f.id |
|
102 |
FROM files f |
|
103 |
FULL OUTER JOIN file_versions fv ON (f.id = fv.file_id) |
|
104 |
GROUP BY f.id |
|
105 |
HAVING count(fv.file_id) = 0 |
|
106 |
SQL |
|
107 |
my @file_ids_without_version = map {$_->[0]} @{$self->dbh->selectall_arrayref($query)}; |
|
108 |
|
|
109 |
unless ($::form->{delete_file_entries_of_missing_files}) { |
|
110 |
my @errors = $self->test_all_files_exists(); |
|
111 |
if (scalar @errors) { |
|
112 |
$self->print_errors(\@errors); |
|
113 |
return 2; |
|
114 |
} |
|
115 |
} |
|
116 |
|
|
39 | 117 |
SL::DB->client->with_transaction(sub { |
40 | 118 |
my @errors; |
41 | 119 |
my $all_dbfiles = SL::DB::Manager::File->get_all; |
... | ... | |
57 | 135 |
foreach my $version (@versions) { |
58 | 136 |
my $tofile; |
59 | 137 |
eval { |
60 |
$tofile = $version->get_file();
|
|
138 |
$tofile = get_filepath($version);
|
|
61 | 139 |
} or do { |
62 |
my @values; |
|
63 |
push @values, $@; # error message |
|
64 |
push @values, $version->file_name; |
|
65 |
push @values, $version->id; |
|
66 |
push @errors, '<td>' . join('</td><td>', @values) . '</td>';; |
|
67 | 140 |
next; |
68 | 141 |
}; |
69 | 142 |
my $rel_file = $tofile; |
70 | 143 |
$rel_file =~ s/$doc_path//; |
71 | 144 |
|
72 | 145 |
my $fv = SL::DB::FileVersion->new( |
73 |
file_id => $dbfile->id,
|
|
74 |
version => $version->version || 1,
|
|
75 |
file_location => $rel_file,
|
|
76 |
doc_path => $doc_path,
|
|
77 |
backend => $dbfile->backend,
|
|
78 |
guid => create_uuid_as_string(UUID_V4),
|
|
79 |
)->save;
|
|
146 |
file_id => $dbfile->id, |
|
147 |
version => $version->version || 1, |
|
148 |
file_location => $rel_file, |
|
149 |
doc_path => $doc_path, |
|
150 |
backend => $dbfile->backend, |
|
151 |
guid => create_uuid_as_string(UUID_V4), |
|
152 |
)->save; |
|
80 | 153 |
} |
81 | 154 |
} |
82 |
if (scalar @errors) { |
|
83 |
my $error_message = <<MESSAGE; |
|
84 |
Please resolve the errors by deleting the invalid database entries or by adding the corresponding files to the expected paths. |
|
85 |
To delete the invalid database entries, run the 'RemoveInvalidFileEntries' background job. Before running the background job, ensure that these files are no longer required. |
|
86 |
<table class="tbl-list" border="1" style="border-collapse: collapse"> |
|
87 |
<thead><tr> |
|
88 |
<th>error message</th> |
|
89 |
<th>file_name</th> |
|
90 |
<th>file_id</th> |
|
91 |
</tr></thead> |
|
92 |
MESSAGE |
|
93 |
$error_message .= '<tr>' . join('</tr><tr>', @errors) . '</tr>'; |
|
94 |
$error_message .= '</table>'; |
|
95 |
die $error_message; |
|
155 |
|
|
156 |
my $query = <<SQL; |
|
157 |
SELECT f.id |
|
158 |
FROM files f |
|
159 |
FULL OUTER JOIN file_versions fv ON (f.id = fv.file_id) |
|
160 |
GROUP BY f.id |
|
161 |
HAVING count(fv.file_id) = 0 |
|
162 |
SQL |
|
163 |
my @file_ids_without_version = |
|
164 |
map {$_->[0]} |
|
165 |
@{SL::DB::->client->dbh->selectall_arrayref($query)}; |
|
166 |
if (scalar @file_ids_without_version) { |
|
167 |
if ($::form->{delete_file_entries_of_missing_files}) { |
|
168 |
SL::DB::Manager::File->delete_all(where => [id => \@file_ids_without_version]); |
|
169 |
} else { |
|
170 |
die "Files without versions: " . join(', ', @file_ids_without_version); |
|
171 |
} |
|
96 | 172 |
} |
173 |
|
|
97 | 174 |
1; |
98 | 175 |
}) or do { die SL::DB->client->error }; |
99 | 176 |
|
templates/design40_webpages/dbupgrade/add_file_version_form.html | ||
---|---|---|
1 |
[%- USE T8 %] |
|
2 |
[%- USE P %] |
|
3 |
[%- USE LxERP %] |
|
4 |
[%- USE HTML %] |
|
5 |
|
|
6 |
<div class="wrapper"> |
|
7 |
<h1>[% 'Missing Files' | $T8 %]</h1> |
|
8 |
<form name="Form" method="post" action="login.pl"> |
|
9 |
<input type="hidden" name="action" value="login"> |
|
10 |
|
|
11 |
[% 'Please resolve the errors by deleting the invalid database entries or by adding the corresponding files to the expected paths.' | $T8 %] |
|
12 |
<table class="tbl-list"> |
|
13 |
<thead><tr> |
|
14 |
<th>[% 'Error Message' | $T8 %]</th> |
|
15 |
</tr></thead> |
|
16 |
<tbody> |
|
17 |
[% FOREACH error = ERRORS %] |
|
18 |
<tr><td> |
|
19 |
[% error | html %] |
|
20 |
</td></tr> |
|
21 |
[% END %] |
|
22 |
</tbody> |
|
23 |
</table> |
|
24 |
[% P.checkbox_tag( |
|
25 |
"delete_file_entries_of_missing_files", value=1, |
|
26 |
label=LxERP.t8("Automatically delete entries for missing files. Ensure that these files are no longer required!") |
|
27 |
) %] |
|
28 |
<br> |
|
29 |
[% P.submit_tag("rerun_add_file_version", LxERP.t8("Rerun update")) %] |
|
30 |
</form> |
|
31 |
</div> |
templates/webpages/dbupgrade/add_file_version_form.html | ||
---|---|---|
1 |
[%- USE T8 %] |
|
2 |
[%- USE P %] |
|
3 |
[%- USE LxERP %] |
|
4 |
[%- USE HTML %] |
|
5 |
|
|
6 |
<h1>[% 'Missing Files' | $T8 %]</h1> |
|
7 |
<form name="Form" method="post" action="login.pl"> |
|
8 |
<input type="hidden" name="action" value="login"> |
|
9 |
|
|
10 |
[% 'Please resolve the errors by deleting the invalid database entries or by adding the corresponding files to the expected paths.' | $T8 %] |
|
11 |
<table border="1" style="border-collapse: collapse"> |
|
12 |
<thead><tr> |
|
13 |
<th>[% 'Error Message' | $T8 %]</th> |
|
14 |
</tr></thead> |
|
15 |
<tbody> |
|
16 |
[% FOREACH error = ERRORS %] |
|
17 |
<tr><td> |
|
18 |
[% error | html %] |
|
19 |
</td></tr> |
|
20 |
[% END %] |
|
21 |
</tbody> |
|
22 |
</table> |
|
23 |
[% P.checkbox_tag( |
|
24 |
"delete_file_entries_of_missing_files", value=1, |
|
25 |
label=LxERP.t8("Automatically delete entries for missing files. Ensure that these files are no longer required!") |
|
26 |
) %] |
|
27 |
<br> |
|
28 |
[% P.submit_tag("rerun_add_file_version", LxERP.t8("Rerun update")) %] |
|
29 |
</form> |
Auch abrufbar als: Unified diff
FileVersion: Migration: Interaktives Update