|
Lines 862-874
sub NewVersion {
Link Here
|
| 862 |
|
862 |
|
| 863 |
SetVersion($DBversion); |
863 |
SetVersion($DBversion); |
| 864 |
|
864 |
|
| 865 |
unless ( ref($descriptions) ) { |
865 |
my ( $description, $report ); |
| 866 |
$descriptions = [ $descriptions ]; |
866 |
if ( ref($descriptions) ) { |
|
|
867 |
$description = shift @$descriptions; |
| 868 |
$report = join( "\n", @{$descriptions} ); |
| 869 |
} |
| 870 |
else { |
| 871 |
$description = $descriptions; |
| 867 |
} |
872 |
} |
| 868 |
|
873 |
|
| 869 |
my $output = output_version( { |
874 |
my $output = output_version( { |
| 870 |
bug_number => $bug_number, |
875 |
bug_number => $bug_number, |
| 871 |
description => $descriptions, |
876 |
description => $description, |
|
|
877 |
report => $report, |
| 872 |
version => $DBversion, |
878 |
version => $DBversion, |
| 873 |
time => POSIX::strftime( "%H:%M:%S", localtime ), |
879 |
time => POSIX::strftime( "%H:%M:%S", localtime ), |
| 874 |
}); |
880 |
}); |
| 875 |
- |
|
|