Lines 21015-21030
sub SetVersion {
Link Here
|
21015 |
|
21015 |
|
21016 |
sub NewVersion { |
21016 |
sub NewVersion { |
21017 |
my ( $DBversion, $bug_number, $descriptions ) = @_; |
21017 |
my ( $DBversion, $bug_number, $descriptions ) = @_; |
|
|
21018 |
|
21018 |
SetVersion($DBversion); |
21019 |
SetVersion($DBversion); |
|
|
21020 |
|
21019 |
unless ( ref($descriptions) ) { |
21021 |
unless ( ref($descriptions) ) { |
21020 |
$descriptions = [ $descriptions ]; |
21022 |
$descriptions = [ $descriptions ]; |
21021 |
} |
21023 |
} |
|
|
21024 |
my $first = 1; |
21022 |
for my $description ( @$descriptions ) { |
21025 |
for my $description ( @$descriptions ) { |
21023 |
unless ( $bug_number ) { |
21026 |
if ( @$descriptions > 1 ) { |
21024 |
say sprintf "Upgrade to %s done (%s)", $DBversion, $description; |
21027 |
if ( $first ) { |
|
|
21028 |
unless ( $bug_number ) { |
21029 |
say sprintf "Upgrade to %s done: %s", $DBversion, $description |
21030 |
} else { |
21031 |
say sprintf "Upgrade to %s done: Bug %s - %s", $DBversion, $bug_number, $description; |
21032 |
} |
21033 |
} |
21034 |
say sprintf "\t\t\t\t\t- %s", $description |
21025 |
} else { |
21035 |
} else { |
21026 |
say sprintf "Upgrade to %s done (Bug %s - %s)", $DBversion, $bug_number, $description; |
21036 |
unless ( $bug_number ) { |
|
|
21037 |
say sprintf "Upgrade to %s done: %s", $DBversion, $description; |
21038 |
} else { |
21039 |
say sprintf "Upgrade to %s done: Bug %s - %s", $DBversion, $bug_number, $description; |
21040 |
} |
21027 |
} |
21041 |
} |
|
|
21042 |
$first = 0; |
21028 |
} |
21043 |
} |
21029 |
} |
21044 |
} |
21030 |
|
21045 |
|
21031 |
- |
|
|