Lines 21620-21649
sub NewVersion {
Link Here
|
21620 |
my ( $DBversion, $bug_number, $descriptions ) = @_; |
21620 |
my ( $DBversion, $bug_number, $descriptions ) = @_; |
21621 |
|
21621 |
|
21622 |
SetVersion($DBversion); |
21622 |
SetVersion($DBversion); |
21623 |
|
|
|
21624 |
unless ( ref($descriptions) ) { |
21623 |
unless ( ref($descriptions) ) { |
21625 |
$descriptions = [ $descriptions ]; |
21624 |
$descriptions = [ $descriptions ]; |
21626 |
} |
21625 |
} |
21627 |
my $first = 1; |
|
|
21628 |
my $time = POSIX::strftime("%H:%M:%S",localtime); |
21626 |
my $time = POSIX::strftime("%H:%M:%S",localtime); |
21629 |
for my $description ( @$descriptions ) { |
21627 |
my $bug = $bug_number ? sprintf("%5s", $bug_number) : "XXX"; |
21630 |
if ( @$descriptions > 1 ) { |
21628 |
say sprintf "%s Upgrade to %s done (Bug %s)", $time, $DBversion, $bug; |
21631 |
if ( $first ) { |
21629 |
foreach my $description ( @$descriptions ) { |
21632 |
unless ( $bug_number ) { |
21630 |
say sprintf "\t- %s", $description; |
21633 |
say sprintf "Upgrade to %s done [%s]: %s", $DBversion, $time, $description; |
|
|
21634 |
} else { |
21635 |
say sprintf "Upgrade to %s done [%s]: Bug %5s - %s", $DBversion, $time, $bug_number, $description; |
21636 |
} |
21637 |
} |
21638 |
say sprintf "\t\t\t\t\t\t - %s", $description; |
21639 |
} else { |
21640 |
unless ( $bug_number ) { |
21641 |
say sprintf "Upgrade to %s done [%s]: %s", $DBversion, $time, $description; |
21642 |
} else { |
21643 |
say sprintf "Upgrade to %s done [%s]: Bug %5s - %s", $DBversion, $time, $bug_number, $description; |
21644 |
} |
21645 |
} |
21646 |
$first = 0; |
21647 |
} |
21631 |
} |
21648 |
} |
21632 |
} |
21649 |
|
21633 |
|
21650 |
- |
|
|