Revision 4b7b42f2
Von Jan Büren vor etwa 1 Jahr hinzugefügt
| sql/Pg-upgrade2/add_file_version.pl | ||
|---|---|---|
|
# @tag: add_file_version
|
||
|
# @description: Versionen für files in extra Tabelle erzeugen
|
||
|
# @depends: release_3_6_0 file_version
|
||
|
package SL::DBUpgrade2::add_file_version;
|
||
|
|
||
|
use strict;
|
||
|
use utf8;
|
||
|
|
||
|
use SL::DB::File;
|
||
|
|
||
|
use UUID::Tiny ':std';
|
||
|
|
||
|
use parent qw(SL::DBUpgrade2::Base);
|
||
|
|
||
|
sub run {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
my $doc_path = $::lx_office_conf{paths}->{document_path};
|
||
|
|
||
|
my $all_dbfiles = SL::DB::Manager::File->get_all;
|
||
|
my $dbfile;
|
||
|
foreach $dbfile (@$all_dbfiles) {
|
||
|
my @versions = SL::File->get_all_versions(dbfile => $dbfile);
|
||
|
|
||
|
foreach my $version (@versions) {
|
||
|
my $tofile = $version->get_file();
|
||
|
my $rel_file = $tofile;
|
||
|
$rel_file =~ s/$doc_path//;
|
||
|
|
||
|
my $fv = SL::DB::FileVersion->new(
|
||
|
file_id => $dbfile->id,
|
||
|
version => $version->version,
|
||
|
file_location => $rel_file,
|
||
|
doc_path => $doc_path,
|
||
|
backend => $dbfile->backend,
|
||
|
guid => create_uuid_as_string(UUID_V4),
|
||
|
)->save;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
return 1;
|
||
|
}
|
||
|
|
||
|
1;
|
||
Auch abrufbar als: Unified diff
FileVersion: Migration der bestehende DMS Dokumente in Hilfstabelle