Update campaign analytics level ordering

Reading campaign levels from database.  Assumes database order is
roughly progression order.

app/templates/editor/campaign/campaign-editor-view.jade

@@ -75,5 +75,7 @@ block outer_content
                         td= campaignDropOffs.levels[i].finished
                         td= campaignDropOffs.levels[i].finishDropped
                         td= campaignDropOffs.levels[i].finishDropRate
+      else
+        button.btn.btn-default.disabled#analytics-button Analytics Loading...
 
 block footer

app/views/editor/campaign/CampaignEditorView.coffee

@@ -262,7 +262,7 @@ module.exports = class CampaignEditorView extends RootView
     # TODO: Why do we need this url dash?
     request = @supermodel.addRequestResource 'campaign_drop_offs', {
       url: '/db/analytics_log_event/-/campaign_drop_offs'
-      data: {startDay: startDay, slugs: [@campaignHandle]}
+      data: {startDay: startDay, slug: @campaignHandle}
       method: 'POST'
       success: success
     }, 0

server/analytics/analytics_log_event_handler.coffee

@@ -1,4 +1,6 @@
 AnalyticsLogEvent = require './AnalyticsLogEvent'
+Campaign = require '../campaigns/Campaign'
+Level = require '../levels/Level'
 Handler = require '../commons/Handler'
 log = require 'winston'
 
@@ -103,16 +105,17 @@ class AnalyticsLogEventHandler extends Handler
     # startDay - Inclusive, optional, e.g. '2014-12-14'
     # endDay - Exclusive, optional, e.g. '2014-12-16'
 
-    # TODO: Read per-campaign level progression data from a legit source
+    # TODO: Must be a better way to organize this series of 3 database calls (campaigns, levels, analytics)
     # TODO: An uncached call can take over 30s locally
     # TODO: Returns all the campaigns
     # TODO: Calculate overall campaign stats
+    # TODO: Assumes db campaign levels are in progression order.  Should build this based on actual progression.
 
-    campaignSlugs = req.query.slugs or req.body.slugs
+    campaignSlug = req.query.slug or req.body.slug
     startDay = req.query.startDay or req.body.startDay
     endDay = req.query.endDay or req.body.endDay
 
-    return @sendSuccess res, [] unless campaignSlugs?
+    return @sendSuccess res, [] unless campaignSlug?
 
     # Cache results for 1 day
     @campaignDropOffsCache ?= {}
@@ -120,11 +123,16 @@ class AnalyticsLogEventHandler extends Handler
     if (new Date()) - @campaignDropOffsCachedSince > 86400 * 1000  # Dumb cache expiration
       @campaignDropOffsCache = {}
       @campaignDropOffsCachedSince = new Date()
-    cacheKey = campaignSlugs.join(',')
+    cacheKey = campaignSlug
     cacheKey += 's' + startDay if startDay?
     cacheKey += 'e' + endDay if endDay?
     return @sendSuccess res, campaignDropOffs if campaignDropOffs = @campaignDropOffsCache[cacheKey]
 
+    calculateDropOffs = (campaigns) =>
+      # Calculate campaign drop off rates
+      # Input:
+      # campaigns - per-campaign dictionary of ordered level slugs
+
       queryParams = {$and: [{$or: [ {"event" : 'Started Level'}, {"event" : 'Saw Victory'}]}]}
       queryParams["$and"].push created: {$gte: new Date(startDay + "T00:00:00.000Z")} if startDay?
       queryParams["$and"].push created: {$lt: new Date(endDay + "T00:00:00.000Z")} if endDay?
@@ -210,88 +218,56 @@ class AnalyticsLogEventHandler extends Handler
           @campaignDropOffsCache[cacheKey] = campaignRates
         @sendSuccess res, campaignRates
 
-# Copied from WorldMapView
-dungeonLevels = [
-  'dungeons-of-kithgard',
-  'gems-in-the-deep',
-  'shadow-guard',
-  'kounter-kithwise',
-  'crawlways-of-kithgard',
-  'forgetful-gemsmith',
-  'true-names',
-  'favorable-odds',
-  'the-raised-sword',
-  'haunted-kithmaze',
-  'riddling-kithmaze',
-  'descending-further',
-  'the-second-kithmaze',
-  'dread-door',
-  'known-enemy',
-  'master-of-names',
-  'lowly-kithmen',
-  'closing-the-distance',
-  'tactical-strike',
-  'the-final-kithmaze',
-  'the-gauntlet',
-  'kithgard-gates',
-  'cavern-survival'
-];
+    getLevelData = (campaigns, campaignLevelIDs) =>
+      # Get level data and replace levelIDs with level slugs in campaigns
+      # Input:
+      # campaigns - per-campaign dictionary of ordered levelIDs
+      # campaignLevelIDs - dictionary of all campaign levelIDs
+      # Output:
+      # campaigns - per-campaign dictionary of ordered level slugs
 
-forestLevels = [
-  'defense-of-plainswood',
-  'winding-trail',
-  'patrol-buster',
-  'endangered-burl',
-  'village-guard',
-  'thornbush-farm',
-  'back-to-back',
-  'ogre-encampment',
-  'woodland-cleaver',
-  'shield-rush',
-  'peasant-protection',
-  'munchkin-swarm',
-  'munchkin-harvest',
-  'swift-dagger',
-  'shrapnel',
-  'arcane-ally',
-  'touch-of-death',
-  'bonemender',
-  'coinucopia',
-  'copper-meadows',
-  'drop-the-flag',
-  'deadly-pursuit',
-  'rich-forager',
-  'siege-of-stonehold',
-  'multiplayer-treasure-grove',
-  'dueling-grounds'
-];
+      Level.find({original: {$in: campaignLevelIDs}, "version.isLatestMajor": true, "version.isLatestMinor": true}).exec (err, documents) =>
+        if err? then return @sendDatabaseError res, err
 
-desertLevels = [
-  'the-dunes',
-  'the-mighty-sand-yak',
-  'oasis',
-  'sarven-road',
-  'sarven-gaps',
-  'thunderhooves',
-  'medical-attention',
-  'minesweeper',
-  'sarven-sentry',
-  'keeping-time',
-  'hoarding-gold',
-  'decoy-drill',
-  'yakstraction',
-  'sarven-brawl',
-  'desert-combat',
-  'dust',
-  'mirage-maker',
-  'sarven-savior',
-  'odd-sandstorm'
-];
+        levelSlugMap = {}
+        for doc in documents
+          levelID = doc.get('original')
+          levelSlug = doc.get('name').toLowerCase().replace new RegExp(' ', 'g'), '-'
+          levelSlugMap[levelID] = levelSlug
 
-campaigns = {
-  'dungeon': dungeonLevels,
-  'forest': forestLevels,
-  'desert': desertLevels
-}
+        # Replace levelIDs with level slugs
+        for campaign of campaigns
+          mapFn = (item) -> levelSlugMap[item]
+          campaigns[campaign] = _.map campaigns[campaign], mapFn, @
+          # Forest campaign levels are reversed for some reason
+          campaigns[campaign].reverse() if campaign is 'forest'
+
+        calculateDropOffs campaigns
+
+    getCampaignData = () =>
+      # Get campaign data 
+      # Output:
+      # campaigns - per-campaign dictionary of ordered levelIDs
+      # campaignLevelIDs - dictionary of all campaign levelIDs
+
+      Campaign.find().exec (err, documents) =>
+        if err? then return @sendDatabaseError res, err
+
+        campaigns = {}
+        levelCampaignMap = {}
+        campaignLevelIDs = []
+        for doc in documents
+          campaignSlug = doc.get('slug')
+          levels = doc.get('levels')
+          campaigns[campaignSlug] = []
+          levelCampaignMap[campaignSlug] = {}
+          for levelID of levels
+            campaigns[campaignSlug].push levelID
+            campaignLevelIDs.push levelID
+            levelCampaignMap[levelID] = campaignSlug
+
+        getLevelData campaigns, campaignLevelIDs
+
+    getCampaignData()
 
 module.exports = new AnalyticsLogEventHandler()