From 8afd5ac57bb4fb41f4d0f190dfb5d259464fa2a4 Mon Sep 17 00:00:00 2001
From: Andreas Romeyke <andreas.romeyke@slub-dresden.de>
Date: Thu, 3 Apr 2025 13:24:37 +0200
Subject: [PATCH] - minor fix in UI
---
perl/exit_strategy.pl | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/perl/exit_strategy.pl b/perl/exit_strategy.pl
index f8cce7f..c548bcc 100644
--- a/perl/exit_strategy.pl
+++ b/perl/exit_strategy.pl
@@ -737,6 +737,7 @@ sub searching_relevant_ie_files ($dir, $tmp_ies_unsorted_file, $first_two_levels
my $rx_dir = qr{^\Q$dir\E/?};
###
my $dircount = 0;
+
my $wanted_process_sip = sub {
if (-f && m/V(\d+)-IE\d+\.xml$/) {
my $version = $1;
@@ -873,7 +874,8 @@ my $cnt_unsorted_files = searching_ie_files(\@dirs, $tmp_ies_unsorted_file);
# /permanent_storage/2020/04/02/IE201080/V2-FL201091.xml
my $fh_unsorted_IEs = $tmp_ies_unsorted_file->openr();
my $count = 0;
-my $progressbar = Time::Progress->new(min => 0, max => $cnt_unsorted_files, smoothing => 1);
+
+my $progressbar = Time::Progress->new(min => 1, max => $cnt_unsorted_files);
my $dbh = DBI->connect("dbi:SQLite:dbname=$db_filename", "", "", {
RaiseError => 1,
sqlite_unicode => 1,
--
GitLab