|
Lines 21159-21174
sub SetVersion {
Link Here
|
| 21159 |
|
21159 |
|
| 21160 |
sub NewVersion { |
21160 |
sub NewVersion { |
| 21161 |
my ( $DBversion, $bug_number, $descriptions ) = @_; |
21161 |
my ( $DBversion, $bug_number, $descriptions ) = @_; |
|
|
21162 |
|
| 21162 |
SetVersion($DBversion); |
21163 |
SetVersion($DBversion); |
|
|
21164 |
|
| 21163 |
unless ( ref($descriptions) ) { |
21165 |
unless ( ref($descriptions) ) { |
| 21164 |
$descriptions = [ $descriptions ]; |
21166 |
$descriptions = [ $descriptions ]; |
| 21165 |
} |
21167 |
} |
|
|
21168 |
my $first = 1; |
| 21166 |
for my $description ( @$descriptions ) { |
21169 |
for my $description ( @$descriptions ) { |
| 21167 |
unless ( $bug_number ) { |
21170 |
if ( @$descriptions > 1 ) { |
| 21168 |
say sprintf "Upgrade to %s done (%s)", $DBversion, $description; |
21171 |
if ( $first ) { |
|
|
21172 |
unless ( $bug_number ) { |
| 21173 |
say sprintf "Upgrade to %s done: %s", $DBversion, $description |
| 21174 |
} else { |
| 21175 |
say sprintf "Upgrade to %s done: Bug %s - %s", $DBversion, $bug_number, $description; |
| 21176 |
} |
| 21177 |
} |
| 21178 |
say sprintf "\t\t\t\t\t- %s", $description |
| 21169 |
} else { |
21179 |
} else { |
| 21170 |
say sprintf "Upgrade to %s done (Bug %s - %s)", $DBversion, $bug_number, $description; |
21180 |
unless ( $bug_number ) { |
|
|
21181 |
say sprintf "Upgrade to %s done: %s", $DBversion, $description; |
| 21182 |
} else { |
| 21183 |
say sprintf "Upgrade to %s done: Bug %s - %s", $DBversion, $bug_number, $description; |
| 21184 |
} |
| 21171 |
} |
21185 |
} |
|
|
21186 |
$first = 0; |
| 21172 |
} |
21187 |
} |
| 21173 |
} |
21188 |
} |
| 21174 |
|
21189 |
|
| 21175 |
- |
|
|