Lines 20805-20820
sub SetVersion {
Link Here
|
20805 |
|
20805 |
|
20806 |
sub NewVersion { |
20806 |
sub NewVersion { |
20807 |
my ( $DBversion, $bug_number, $descriptions ) = @_; |
20807 |
my ( $DBversion, $bug_number, $descriptions ) = @_; |
|
|
20808 |
|
20808 |
SetVersion($DBversion); |
20809 |
SetVersion($DBversion); |
|
|
20810 |
|
20809 |
unless ( ref($descriptions) ) { |
20811 |
unless ( ref($descriptions) ) { |
20810 |
$descriptions = [ $descriptions ]; |
20812 |
$descriptions = [ $descriptions ]; |
20811 |
} |
20813 |
} |
|
|
20814 |
my $first = 1; |
20812 |
for my $description ( @$descriptions ) { |
20815 |
for my $description ( @$descriptions ) { |
20813 |
unless ( $bug_number ) { |
20816 |
if ( @$descriptions > 1 ) { |
20814 |
say sprintf "Upgrade to %s done (%s)", $DBversion, $description; |
20817 |
if ( $first ) { |
|
|
20818 |
unless ( $bug_number ) { |
20819 |
say sprintf "Upgrade to %s done: %s", $DBversion, $description |
20820 |
} else { |
20821 |
say sprintf "Upgrade to %s done: Bug %s - %s", $DBversion, $bug_number, $description; |
20822 |
} |
20823 |
} |
20824 |
say sprintf "\t\t\t\t\t- %s", $description |
20815 |
} else { |
20825 |
} else { |
20816 |
say sprintf "Upgrade to %s done (Bug %s - %s)", $DBversion, $bug_number, $description; |
20826 |
unless ( $bug_number ) { |
|
|
20827 |
say sprintf "Upgrade to %s done: %s", $DBversion, $description; |
20828 |
} else { |
20829 |
say sprintf "Upgrade to %s done: Bug %s - %s", $DBversion, $bug_number, $description; |
20830 |
} |
20817 |
} |
20831 |
} |
|
|
20832 |
$first = 0; |
20818 |
} |
20833 |
} |
20819 |
} |
20834 |
} |
20820 |
|
20835 |
|
20821 |
- |
|
|