fix compile warnings

This commit is contained in:
Graham Knop 2009-04-30 20:55:06 +00:00
parent 54063ae9f6
commit 501fbdba81

View file

@ -235,7 +235,7 @@ sub addTemplatePacking {
$session->db->write("ALTER TABLE assetData ADD usePackedHeadTags INT(1)");
print "\n\t\tPre-packing all head tags, this may take a while..." unless $quiet;
my $sth = $session->db->read( "SELECT assetId FROM asset" );
$sth = $session->db->read( "SELECT assetId FROM asset" );
while ( my ($assetId) = $sth->array ) {
my $asset = WebGUI::Asset->newByDynamicClass( $session, $assetId );
next unless $asset;
@ -250,7 +250,7 @@ sub addTemplatePacking {
$session->db->write("ALTER TABLE snippet ADD usePacked INT(1)");
print "\n\t\tPre-packing all snippets, this may take a while..." unless $quiet;
my $sth = $session->db->read( "SELECT DISTINCT(assetId) FROM snippet" );
$sth = $session->db->read( "SELECT DISTINCT(assetId) FROM snippet" );
while ( my ($assetId) = $sth->array ) {
my $asset = WebGUI::Asset->newByDynamicClass( $session, $assetId );
next unless $asset;