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