зеркало из https://github.com/mozilla/pjs.git
fixes
This commit is contained in:
Родитель
98d6fbe6f4
Коммит
7b80f2f6ec
|
@ -40,8 +40,8 @@
|
|||
# Contributor(s):
|
||||
|
||||
|
||||
# $Revision: 1.29 $
|
||||
# $Date: 2002-05-03 21:09:51 $
|
||||
# $Revision: 1.30 $
|
||||
# $Date: 2002-05-03 21:25:24 $
|
||||
# $Author: kestes%walrus.com $
|
||||
# $Source: /home/jrmuizel/cvs-mirror/mozilla/webtools/tinderbox2/src/lib/TinderDB/VC_Bonsai.pm,v $
|
||||
# $Name: $
|
||||
|
@ -101,7 +101,7 @@ use TreeData;
|
|||
use VCDisplay;
|
||||
|
||||
|
||||
$VERSION = ( qw $Revision: 1.29 $ )[1];
|
||||
$VERSION = ( qw $Revision: 1.30 $ )[1];
|
||||
|
||||
@ISA = qw(TinderDB::BasicTxtDB);
|
||||
|
||||
|
@ -112,25 +112,7 @@ $VC_NAME = $TinderConfig::VC_NAME || "CVS";
|
|||
$VC_BUGNUM_REGEXP = $TinderConfig::VC_BUGNUM_REGEXP ||
|
||||
"(\d\d\d+)";
|
||||
|
||||
$EMPTY_TABLE_CELL = $HTMLPopUp::EMPTY_TABLE_CELL ||
|
||||
|
||||
# remove all records from the database which are older then last_time.
|
||||
|
||||
sub trim_db_history {
|
||||
my ($self, $tree,) = (@_);
|
||||
|
||||
my ($last_time) = $main::TIME - $TinderDB::TRIM_SECONDS;
|
||||
|
||||
# sort numerically ascending
|
||||
my (@times) = sort {$a <=> $b} keys %{ $DATABASE{$tree} };
|
||||
foreach $time (@times) {
|
||||
($time >= $last_time) && last;
|
||||
|
||||
delete $DATABASE{$tree}{$time};
|
||||
}
|
||||
|
||||
return ;
|
||||
}
|
||||
$EMPTY_TABLE_CELL = $HTMLPopUp::EMPTY_TABLE_CELL;
|
||||
|
||||
|
||||
# Return the most recent times that we recieved treestate and checkin
|
||||
|
@ -411,15 +393,14 @@ sub status_table_row {
|
|||
$rowspan++ ;
|
||||
}
|
||||
|
||||
my ($cell_color) = BuildStatus::status2html_colors('not_running');
|
||||
my ($cell_options) = ("rowspan=$rowspan ".
|
||||
"bgcolor=$cell_color ");
|
||||
my ($lc_time) = localtime($current_rec->{'timenow'});
|
||||
my ($lc_time) = localtime($DB_TIMES[$NEXT_DB]);
|
||||
|
||||
push @outrow, ("\t<!-- not_running: Build:".
|
||||
push @outrow, ("\t<!-- not_running: VC_Bonsai ".
|
||||
"tree: $tree, ".
|
||||
"build: $buildname, ".
|
||||
"previous_end: $lc_time, ".
|
||||
"Next_End: $lc_time, ".
|
||||
"-->\n".
|
||||
|
||||
"\t\t<td align=center $cell_options>".
|
||||
|
|
Загрузка…
Ссылка в новой задаче