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 |
- |
|
|