Also find assets that are missing entries in their class hierarchy, as well as in asset and assetData.

This commit is contained in:
Colin Kuskie 2010-07-29 10:30:14 -07:00
parent 57a92dd9fe
commit 8246b7ec88

View file

@ -65,8 +65,8 @@ my $sth = $session->db->read($sql);
my $count = 1; my $count = 1;
my %classTables; # Cache definition lookups my %classTables; # Cache definition lookups
while ( my %row = $sth->hash ) { while ( my %row = $sth->hash ) {
eval { WebGUI::Asset->newPending( $session, $row{assetId} ) }; my $asset = eval { WebGUI::Asset->newPending( $session, $row{assetId} ) };
if ( $@ ) { if ( $@ || ! $asset ) {
# Replace the progress bar with a message # Replace the progress bar with a message
printf "\r%-68s", "-- Corrupt: $row{assetId}"; printf "\r%-68s", "-- Corrupt: $row{assetId}";