|
Lines 21262-21277
sub SetVersion {
Link Here
|
| 21262 |
|
21262 |
|
| 21263 |
sub NewVersion { |
21263 |
sub NewVersion { |
| 21264 |
my ( $DBversion, $bug_number, $descriptions ) = @_; |
21264 |
my ( $DBversion, $bug_number, $descriptions ) = @_; |
|
|
21265 |
|
| 21265 |
SetVersion($DBversion); |
21266 |
SetVersion($DBversion); |
|
|
21267 |
|
| 21266 |
unless ( ref($descriptions) ) { |
21268 |
unless ( ref($descriptions) ) { |
| 21267 |
$descriptions = [ $descriptions ]; |
21269 |
$descriptions = [ $descriptions ]; |
| 21268 |
} |
21270 |
} |
|
|
21271 |
my $first = 1; |
| 21269 |
for my $description ( @$descriptions ) { |
21272 |
for my $description ( @$descriptions ) { |
| 21270 |
unless ( $bug_number ) { |
21273 |
if ( @$descriptions > 1 ) { |
| 21271 |
say sprintf "Upgrade to %s done (%s)", $DBversion, $description; |
21274 |
if ( $first ) { |
|
|
21275 |
unless ( $bug_number ) { |
| 21276 |
say sprintf "Upgrade to %s done: %s", $DBversion, $description |
| 21277 |
} else { |
| 21278 |
say sprintf "Upgrade to %s done: Bug %s - %s", $DBversion, $bug_number, $description; |
| 21279 |
} |
| 21280 |
} |
| 21281 |
say sprintf "\t\t\t\t\t- %s", $description |
| 21272 |
} else { |
21282 |
} else { |
| 21273 |
say sprintf "Upgrade to %s done (Bug %s - %s)", $DBversion, $bug_number, $description; |
21283 |
unless ( $bug_number ) { |
|
|
21284 |
say sprintf "Upgrade to %s done: %s", $DBversion, $description; |
| 21285 |
} else { |
| 21286 |
say sprintf "Upgrade to %s done: Bug %s - %s", $DBversion, $bug_number, $description; |
| 21287 |
} |
| 21274 |
} |
21288 |
} |
|
|
21289 |
$first = 0; |
| 21275 |
} |
21290 |
} |
| 21276 |
} |
21291 |
} |
| 21277 |
|
21292 |
|
| 21278 |
- |
|
|