|
Lines 21105-21120
sub SetVersion {
Link Here
|
| 21105 |
|
21105 |
|
| 21106 |
sub NewVersion { |
21106 |
sub NewVersion { |
| 21107 |
my ( $DBversion, $bug_number, $descriptions ) = @_; |
21107 |
my ( $DBversion, $bug_number, $descriptions ) = @_; |
|
|
21108 |
|
| 21108 |
SetVersion($DBversion); |
21109 |
SetVersion($DBversion); |
|
|
21110 |
|
| 21109 |
unless ( ref($descriptions) ) { |
21111 |
unless ( ref($descriptions) ) { |
| 21110 |
$descriptions = [ $descriptions ]; |
21112 |
$descriptions = [ $descriptions ]; |
| 21111 |
} |
21113 |
} |
|
|
21114 |
my $first = 1; |
| 21112 |
for my $description ( @$descriptions ) { |
21115 |
for my $description ( @$descriptions ) { |
| 21113 |
unless ( $bug_number ) { |
21116 |
if ( @$descriptions > 1 ) { |
| 21114 |
say sprintf "Upgrade to %s done (%s)", $DBversion, $description; |
21117 |
if ( $first ) { |
|
|
21118 |
unless ( $bug_number ) { |
| 21119 |
say sprintf "Upgrade to %s done: %s", $DBversion, $description |
| 21120 |
} else { |
| 21121 |
say sprintf "Upgrade to %s done: Bug %s - %s", $DBversion, $bug_number, $description; |
| 21122 |
} |
| 21123 |
} |
| 21124 |
say sprintf "\t\t\t\t\t- %s", $description |
| 21115 |
} else { |
21125 |
} else { |
| 21116 |
say sprintf "Upgrade to %s done (Bug %s - %s)", $DBversion, $bug_number, $description; |
21126 |
unless ( $bug_number ) { |
|
|
21127 |
say sprintf "Upgrade to %s done: %s", $DBversion, $description; |
| 21128 |
} else { |
| 21129 |
say sprintf "Upgrade to %s done: Bug %s - %s", $DBversion, $bug_number, $description; |
| 21130 |
} |
| 21117 |
} |
21131 |
} |
|
|
21132 |
$first = 0; |
| 21118 |
} |
21133 |
} |
| 21119 |
} |
21134 |
} |
| 21120 |
|
21135 |
|
| 21121 |
- |
|
|