Proper naming for upgrade script (v2)

Forward port of generating a list of Rich Editors with correct version status.

lib/WebGUI/Operation/Settings.pm

@@ -117,7 +117,7 @@ sub www_editSettings {
 		-label=>$i18n->get("default rich editor"),
 		-hoverHelp=>$i18n->get("default rich editor description"),
 		-value=>[$session->setting->get("richEditor")],
-		-options=>$session->db->buildHashRef("select assetData.assetId,assetData.title from asset left join assetData on asset.assetId=assetData.assetId where asset.className='WebGUI::Asset::RichEdit' order by assetData.title"),
+		-options=>WebGUI::Asset::RichEdit->getList($session),
 		-defaultValue=>["PBrichedit000000000001"]
 		);
         $tabform->getTab("ui")->integer(