|
Lines 20974-20989
sub SetVersion {
Link Here
|
| 20974 |
|
20974 |
|
| 20975 |
sub NewVersion { |
20975 |
sub NewVersion { |
| 20976 |
my ( $DBversion, $bug_number, $descriptions ) = @_; |
20976 |
my ( $DBversion, $bug_number, $descriptions ) = @_; |
|
|
20977 |
|
| 20977 |
SetVersion($DBversion); |
20978 |
SetVersion($DBversion); |
|
|
20979 |
|
| 20978 |
unless ( ref($descriptions) ) { |
20980 |
unless ( ref($descriptions) ) { |
| 20979 |
$descriptions = [ $descriptions ]; |
20981 |
$descriptions = [ $descriptions ]; |
| 20980 |
} |
20982 |
} |
|
|
20983 |
my $first = 1; |
| 20981 |
for my $description ( @$descriptions ) { |
20984 |
for my $description ( @$descriptions ) { |
| 20982 |
unless ( $bug_number ) { |
20985 |
if ( @$descriptions > 1 ) { |
| 20983 |
say sprintf "Upgrade to %s done (%s)", $DBversion, $description; |
20986 |
if ( $first ) { |
|
|
20987 |
unless ( $bug_number ) { |
| 20988 |
say sprintf "Upgrade to %s done: %s", $DBversion, $description |
| 20989 |
} else { |
| 20990 |
say sprintf "Upgrade to %s done: Bug %s - %s", $DBversion, $bug_number, $description; |
| 20991 |
} |
| 20992 |
} |
| 20993 |
say sprintf "\t\t\t\t\t- %s", $description |
| 20984 |
} else { |
20994 |
} else { |
| 20985 |
say sprintf "Upgrade to %s done (Bug %s - %s)", $DBversion, $bug_number, $description; |
20995 |
unless ( $bug_number ) { |
|
|
20996 |
say sprintf "Upgrade to %s done: %s", $DBversion, $description; |
| 20997 |
} else { |
| 20998 |
say sprintf "Upgrade to %s done: Bug %s - %s", $DBversion, $bug_number, $description; |
| 20999 |
} |
| 20986 |
} |
21000 |
} |
|
|
21001 |
$first = 0; |
| 20987 |
} |
21002 |
} |
| 20988 |
} |
21003 |
} |
| 20989 |
|
21004 |
|
| 20990 |
- |
|
|