|
Lines 21137-21152
sub SetVersion {
Link Here
|
| 21137 |
|
21137 |
|
| 21138 |
sub NewVersion { |
21138 |
sub NewVersion { |
| 21139 |
my ( $DBversion, $bug_number, $descriptions ) = @_; |
21139 |
my ( $DBversion, $bug_number, $descriptions ) = @_; |
|
|
21140 |
|
| 21140 |
SetVersion($DBversion); |
21141 |
SetVersion($DBversion); |
|
|
21142 |
|
| 21141 |
unless ( ref($descriptions) ) { |
21143 |
unless ( ref($descriptions) ) { |
| 21142 |
$descriptions = [ $descriptions ]; |
21144 |
$descriptions = [ $descriptions ]; |
| 21143 |
} |
21145 |
} |
|
|
21146 |
my $first = 1; |
| 21144 |
for my $description ( @$descriptions ) { |
21147 |
for my $description ( @$descriptions ) { |
| 21145 |
unless ( $bug_number ) { |
21148 |
if ( @$descriptions > 1 ) { |
| 21146 |
say sprintf "Upgrade to %s done (%s)", $DBversion, $description; |
21149 |
if ( $first ) { |
|
|
21150 |
unless ( $bug_number ) { |
| 21151 |
say sprintf "Upgrade to %s done: %s", $DBversion, $description |
| 21152 |
} else { |
| 21153 |
say sprintf "Upgrade to %s done: Bug %s - %s", $DBversion, $bug_number, $description; |
| 21154 |
} |
| 21155 |
} |
| 21156 |
say sprintf "\t\t\t\t\t- %s", $description |
| 21147 |
} else { |
21157 |
} else { |
| 21148 |
say sprintf "Upgrade to %s done (Bug %s - %s)", $DBversion, $bug_number, $description; |
21158 |
unless ( $bug_number ) { |
|
|
21159 |
say sprintf "Upgrade to %s done: %s", $DBversion, $description; |
| 21160 |
} else { |
| 21161 |
say sprintf "Upgrade to %s done: Bug %s - %s", $DBversion, $bug_number, $description; |
| 21162 |
} |
| 21149 |
} |
21163 |
} |
|
|
21164 |
$first = 0; |
| 21150 |
} |
21165 |
} |
| 21151 |
} |
21166 |
} |
| 21152 |
|
21167 |
|
| 21153 |
- |
|
|