Remove old WebGUI::Utility isIn and replace with smart match.

perlDreamer · perlDreamer · commit 398c3afdfd76 · 2011-12-05T13:48:08.000-08:00
diff --git a/lib/WebGUI/Asset/Wobject/Dashboard.pm b/lib/WebGUI/Asset/Wobject/Dashboard.pm
@@ -370,7 +370,7 @@ sub view {
 					push(@found, $child->getId);
                     ##Filter based on visibility
                     next CHILD unless $child->canView;
-                    next CHILD if isIn($asset, @hidden);
+                    next CHILD if $asset ~~ @hidden;
                     ##Detect child types
                     my $is_shortcut = $child->isa('WebGUI::Asset::Shortcut');
                     my $is_dashlet  = $child->can('getOverrideFormDefinition');
diff --git a/share/upgrades/7.10.23-8.0.0/zzzz_convertToInnoDb.pl b/share/upgrades/7.10.23-8.0.0/zzzz_convertToInnoDb.pl
@@ -8,6 +8,7 @@
 TABLE: while ( my $table = $get_table->fetchrow_hashref() ) {
     next TABLE if $table->{TABLE_NAME} eq 'assetIndex';
     session->db->write("ALTER TABLE ". dbh->quote_identifier($table->{TABLE_NAME}). " ENGINE=InnoDB");
+    session->log->warn($table->{TABLE_NAME});
 }
 
 

Original file line number	Diff line number	Diff line change
`@@ -8,6 +8,7 @@`
`8`	`8`	`TABLE: while ( my $table = $get_table->fetchrow_hashref() ) {`
`9`	`9`	`next TABLE if $table->{TABLE_NAME} eq 'assetIndex';`
`10`	`10`	`session->db->write("ALTER TABLE ". dbh->quote_identifier($table->{TABLE_NAME}). " ENGINE=InnoDB");`
	`11`	`+ session->log->warn($table->{TABLE_NAME});`
`11`	`12`	`}`
`12`	`13`
`13`	`14`