/*------------------------- RECORD BREAKDOWN CHARTS ------------------------------*/

///***** external services & links *****/
//// an instance of the collections app - used for name lookup services
//var collectionsUrl = "http://collections.ala.org.au";  // should be overridden from config by the calling page
//// an instance of the biocache web services app - used for facet and taxonomic breakdowns
//var biocacheServicesUrl = "http://biocache.ala.org.au/ws";  // should be overridden from config by the calling page
//// an instance of a web app - used to display search results
//var biocacheWebappUrl = "http://biocache.ala.org.au";  // should be overridden from config by the calling page

// defaults for taxa chart
var taxonomyPieChartOptions = {
    width: 700,
    height: 450,
    chartArea: {left:0, top:30, width:"100%", height: "70%"},
    is3D: false,
    titleTextStyle: {color: "#555", fontName: 'Arial', fontSize: 12},
    sliceVisibilityThreshold: 0,
    legend: {position: 'right', textStyle: {fontSize: 12}},
    backgroundColor: 'transparent'
};

// defaults for facet charts
var genericChartOptions = {
    width: 700,
    height: 450,
    chartArea: {left:0, top:30, width:"100%", height: "70%"},
    is3D: false,
    titleTextStyle: {color: "#555", fontName: 'Arial', fontSize: 12},
    sliceVisibilityThreshold: 0,
    legend: {position: 'right', textStyle: {fontSize: 12}},
    chartType: "pie",
    backgroundColor: 'transparent'
};

// defaults for individual facet charts
/*
var individualChartOptions = {
    state_conservation: {chartType: 'column', width: 700, chartArea: {left:60, height: "58%"},
        title: jQuery.i18n.prop('charts.js.stateconservation'), hAxis: {slantedText: true}},
    occurrence_year: {chartType: 'column', width: 700, chartArea: {left:60, height: "65%"},
        hAxis: {slantedText: true}},
    species_group: {title: jQuery.i18n.prop('charts.js.higherlevelgroup'), ignore: ['Animals'], chartType: 'column',
        width: 700, chartArea: {left:60, height:"58%"}, vAxis: {minValue: 0},
        colors: ['#108628']},
    state: {ignore: ['Unknown1']},
    type_status: {title: jQuery.i18n.prop('charts.js.typestatus'), ignore: ['notatype']},
    assertions: {chartType: 'bar', width: 900, height:700, chartArea: {left:350, height:"80%", width:"100%"}}
};
*/
///*
var individualChartOptions = {
    state_conservation: {chartType: 'column', width: 450, chartArea: {left:60, height: "58%"},
        title: 'By state conservation status', hAxis: {slantedText: true}},
    occurrence_year: {chartType: 'column', width: 450, chartArea: {left:60, height: "65%"},
        hAxis: {slantedText: true}},
    species_group: {title: 'By higher-level group', ignore: ['Animals'], chartType: 'column',
        width: 450, chartArea: {left:60, height:"58%"}, vAxis: {minValue: 0},
        colors: ['#108628']},
    state: {ignore: ['Unknown1']},
    type_status: {title: 'By type status (as % of all type specimens)', ignore: ['notatype']},
    assertions: {chartType: 'bar', chartArea: {left:170}}
};
//*/

/*----------------- FACET-BASED CHARTS USING DIRECT CALLS TO BIO-CACHE SERVICES ---------------------*/
// these override the facet names in chart titles
var chartLabels = {
    institution_uid: 'institution',
    data_resource_uid: 'data set',
    assertions: 'data assertion',
    biogeographic_region: 'biogeographic region',
    occurrence_year: 'decade'
};
// asynchronous transforms are applied after the chart is drawn, ie the chart is drawn with the original values
// then redrawn when the ajax call for transform data returns
var asyncTransforms = {
    collection_uid: {method: 'lookupEntityName', param: 'collection'},
    institution_uid: {method: 'lookupEntityName', param: 'institution'},
    data_resource_uid: {method: 'lookupEntityName', param: 'dataResource'}
};
// synchronous transforms are applied to the json data before the data table is built
var syncTransforms = {
    occurrence_year: {method: 'transformDecadeData'}/*,
    assertions: {method: 'expandCamelCase'}*/
};

/********************************************************************************\
* Ajax request for charts based on the facets available in the biocache breakdown.
\********************************************************************************/
function loadFacetCharts(chartOptions) {
    if (chartOptions.collectionsUrl != undefined) { collectionsUrl = chartOptions.collectionsUrl; }
    if (chartOptions.biocacheServicesUrl != undefined) { biocacheServicesUrl = chartOptions.biocacheServicesUrl; }
    if (chartOptions.biocacheWebappUrl != undefined) { biocacheWebappUrl = chartOptions.biocacheWebappUrl; }

    var chartsDiv = $('#' + (chartOptions.targetDivId ? chartOptions.targetDivId : 'charts'));
    chartsDiv.append($("<span>Loading charts...</span>"));
    var query = chartOptions.query ? chartOptions.query : buildQueryString(chartOptions.instanceUid);
    $.ajax({
      url: urlConcat(biocacheServicesUrl, "/occurrences/search.json?flimit=-1pageSize=0&q=") + query,
      dataType: 'jsonp',
      error: function() {
        cleanUp();
      },
      success: function(data) {

          // clear loading message
          chartsDiv.find('span').remove();

          // draw all charts
          drawFacetCharts(data, chartOptions);

      }
    });
}
function cleanUp(chartOptions) {
    $('img.loading').remove();
    if (chartOptions != undefined && chartOptions.error) {
         window[chartOptions.error]();
    }
}
/*********************************************************************\
* Loads charts based on the facets declared in the config object.
* - does not require any markup other than div#charts element
\*********************************************************************/
function drawFacetCharts(data, chartOptions) {
    // check that we have results
    if (data.length == 0 || data.totalRecords == undefined || data.totalRecords == 0) {
        return;
    }

    // update total if requested
    if (chartOptions.totalRecordsSelector) {
      $(chartOptions.totalRecordsSelector).html(addCommas(data.totalRecords));
    }

    // transform facet results into map
    var facetMap = {};
    $.each(data.facetResults, function(idx, obj) {
      facetMap[obj.fieldName] = obj.fieldResult;
    });

    // draw the charts
    var chartsDiv = $('#' + (chartOptions.targetDivId ? chartOptions.targetDivId : 'charts'));
    var query = chartOptions.query ? chartOptions.query : buildQueryString(chartOptions.instanceUid);
    $.each(chartOptions.charts, function(index, name) {
        if (facetMap[name] != undefined) {
            buildGenericFacetChart(name, facetMap[name], query, chartsDiv, chartOptions);
        }
    });
}
/************************************************************\
* Create and show a generic facet chart
\************************************************************/
function buildGenericFacetChart(name, data, query, chartsDiv, chartOptions) {

    // resolve chart label
    var chartLabel = chartLabels[name] ? chartLabels[name] : name;

    // resolve the chart options
    var opts = $.extend({}, genericChartOptions);
    opts.title = "By " + chartLabel;  // default title
    var individualOptions = individualChartOptions[name] ? individualChartOptions[name] : {};
    // merge generic, individual and user options
    opts = $.extend(true, {}, opts, individualOptions, chartOptions[name]);
    //Dumper.alert(opts);

    // optionally transform the data
    var xformedData = data;
    if (syncTransforms[name]) {
        xformedData = window[syncTransforms[name].method](data);
    }

    // create the data table
    var dataTable = new google.visualization.DataTable();
    dataTable.addColumn('string', chartLabel);
    dataTable.addColumn('number','records');
    $.each(xformedData, function(i,obj) {
        // filter any crap
        if (opts == undefined || opts.ignore == undefined || $.inArray(obj.label, opts.ignore) == -1) {
            if (detectCamelCase(obj.label)) {
                dataTable.addRow([{v: obj.label, f: capitalise(expandCamelCase(obj.label))}, obj.count]);
            }
            else {
                dataTable.addRow([obj.label, obj.count]);
            }
        }
    });

    // reject the chart if there is only one facet value (after filtering)
    if (dataTable.getNumberOfRows() < 2) {
        return;
    }

    // create the container
    var $container = $('#' + name);
    if ($container.length == 0) {
        $container = $("<div id='" + name + "'></div>");
        chartsDiv.append($container);
    }

    // specify the type (for css tweaking)
    $container.addClass('chart-' + opts.chartType);
            
    // create the chart
    var chart;
    switch (opts.chartType) {
        case 'column': chart = new google.visualization.ColumnChart(document.getElementById(name)); break;
        case 'bar': chart = new google.visualization.BarChart(document.getElementById(name)); break;
        default: chart = new google.visualization.PieChart(document.getElementById(name)); break;
    }

    chart.draw(dataTable, opts);

    // kick off post-draw asynch actions
    if (asyncTransforms[name]) {
        window[asyncTransforms[name].method](chart, dataTable, opts, asyncTransforms[name].param);
    }

    // setup a click handler - if requested
    if (chartOptions.clickThru != false) {  // defaults to true
        google.visualization.events.addListener(chart, 'select', function() {

            // default facet value is the name selected
            var id = dataTable.getValue(chart.getSelection()[0].row,0);

            // build the facet query
            var facetQuery = name + ":" + id;

            // the facet query can be overridden for date ranges
            if (name == 'occurrence_year') {
                if (id.match("^before") == 'before') { // startWith
                    facetQuery = "occurrence_year:[*%20TO%20" + "1850" + "-01-01T00:00:00Z]";
                }
                else {
                    var decade = id.substr(0,4);
                    var dateTo = parseInt(decade) + 10;
                    facetQuery = "occurrence_year:[" + decade + "-01-01T00:00:00Z%20TO%20" + dateTo + "-01-01T00:00:00Z]";
                }
            }

            // show the records
            document.location = urlConcat(biocacheWebappUrl,"/occurrences/search?q=") + query +
                    "&fq=" + facetQuery;
        });
    }
}

/*---------------------- DATA TRANSFORMATION METHODS ----------------------*/
function transformDecadeData(data) {
    var firstDecade;
    var transformedData = [];
    $.each(data, function(i,obj) {
        if (obj.label == 'before') {
            transformedData.splice(0,0,{label: "before " + firstDecade, count: obj.count});
        }
        else {
            var decade = obj.label.substr(0,4);
            if (i == 0) { firstDecade = decade; }
            transformedData.push({label: decade + "s", count: obj.count});
        }
    });
    return transformedData;
}
/*--------------------- LABEL TRANSFORMATION METHODS ----------------------*/
function detectCamelCase(name) {
    return /[a-z][A-Z]/.test(name);
}
function expandCamelCase(name) {
    return name.replace(/([a-z])([A-Z])/g, function(s, str1, str2){return str1 + " " + str2.toLowerCase();});
}
/* capitalises the first letter of the passed string */
function capitalise(item) {
    return item.replace(/^./, function(str){ return str.toUpperCase(); })
}
function lookupEntityName(chart, table, opts, entity) {
    var uidList = [];
    for (var i = 0; j = table.getNumberOfRows(), i < j; i++) {
        uidList.push(table.getValue(i,0));
    }
    $.jsonp({
      url: collectionsUrl + "/ws/resolveNames/" + uidList.join(',') + "?callback=?",
      cache: true,
      success: function(data) {
          for (var i = 0;j + table.getNumberOfRows(), i < j; i++) {
              var uid = table.getValue(i,0);
              table.setCell(i, 0, uid, data[uid]);
          }
          chart.draw(table, opts);
      },
      error: function(d,msg) {
          alert(msg);
      }
    });
}
/*----------- TAXONOMY BREAKDOWN CHARTS USING DIRECT CALLS TO BIO-CACHE SERVICES ------------*/
// works for uid-based queries or q/fq general queries

/********************************************************************************\
* Ajax request for initial taxonomic breakdown.
\********************************************************************************/
function loadTaxonomyChart(chartOptions) {
    if (chartOptions.collectionsUrl != undefined) { collectionsUrl = chartOptions.collectionsUrl; }
    if (chartOptions.biocacheServicesUrl != undefined) { biocacheServicesUrl = chartOptions.biocacheServicesUrl; }
    if (chartOptions.biocacheWebappUrl != undefined) { biocacheWebappUrl = chartOptions.biocacheWebappUrl; }

    var query = chartOptions.query ? chartOptions.query : buildQueryString(chartOptions.instanceUid);

    var url = urlConcat(biocacheServicesUrl, "/breakdown.json?q=") + query;

    // add url params to set state
    if (chartOptions.rank) {
        url += "&rank=" + chartOptions.rank + (chartOptions.name ? "&name=" + chartOptions.name: "");
    }
    else {
        url += "&max=" + (chartOptions.threshold ? chartOptions.threshold : '55');
    }

    $.ajax({
      url: url,
      dataType: 'jsonp',
      timeout: 30000,
      complete: function(jqXHR, textStatus) {
          if (textStatus != 'success') {
              cleanUp(chartOptions);
          }
      },
      success: function(data) {
          // check for errors
          if (data == undefined || data.length == 0) {
              cleanUp(chartOptions);
          }
          else {
              // draw the chart
              drawTaxonomyChart(data, chartOptions, query);
          }
      }
    });
}

/************************************************************\
* Create and show the taxonomy chart.
\************************************************************/
function drawTaxonomyChart(data, chartOptions, query) {

    // create the data table
    var dataTable = new google.visualization.DataTable();
    dataTable.addColumn('string', chartLabels[name] ? chartLabels[name] : name);
    dataTable.addColumn('number','records');
    $.each(data.taxa, function(i,obj) {
        dataTable.addRow([obj.label, obj.count]);
    });

    // resolve the chart options
    var opts = $.extend({}, taxonomyPieChartOptions);
    opts = $.extend(true, opts, chartOptions);
    opts.title = opts.name ? opts.name + " " + jQuery.i18n.prop('charts.js.recordsby') + " " + data.rank : "By " + data.rank;

    // create the outer div that will contain the chart and the additional links
    var $outerContainer = $('#taxa');
    if ($outerContainer.length == 0) {
        $outerContainer = $('<div id="taxa"></div>'); // create it
        $outerContainer.css('margin-bottom','-50px');
        var chartsDiv = $('div#' + (chartOptions.targetDivId ? chartOptions.targetDivId : 'charts'));
        // append it
        chartsDiv.prepend($outerContainer);
    }

    // create the chart container if not already there
    var $container = $('#taxaChart');
    if ($container.length == 0) {
        $container = $("<div id='taxaChart' class='chart-pie'></div>");
        $outerContainer.append($container);
    }

    // create the chart
    var chart = new google.visualization.PieChart(document.getElementById('taxaChart'));

    // draw the chart
    chart.draw(dataTable, opts);

    // draw the back button / instructions
    var $backLink = $('#backLink');
    if ($backLink.length == 0) {
        $backLink = $('<div class="link" id="backLink">&laquo; Previous rank</div>').appendTo($outerContainer);  // create it
        $backLink.css('position','relative').css('top','-75px');
        $backLink.click(function() {
            // only act if link was real
            if (!$backLink.hasClass('link')) return;

            // show spinner while loading
            $container.append($('<img class="loading" style="position:absolute;left:130px;top:220px;z-index:2000" ' +
                    'alt="loading..." src="' + collectionsUrl + '/images/ala/ajax-loader.gif"/>'));

            // get state from history
            var previous = popHistory(chartOptions);

            // set new chart state
            chartOptions.rank = previous.rank;
            chartOptions.name = previous.name;

            // redraw chart
            loadTaxonomyChart(chartOptions);
        });
    }
    if (chartOptions.history) {
        // show the prev link
        $backLink.html("&laquo; Previous rank").addClass('link');
    }
    else {
        // show the instruction
        $backLink.html(jQuery.i18n.prop('charts.js.slicetodrill')).removeClass('link');
    }

    // draw records link
    var $recordsLink = $('#recordsLink');
    if ($recordsLink.length == 0) {
        $recordsLink = $('<div class="link under" id="recordsLink">' + jQuery.i18n.prop('charts.js.viewrecords') + '</div>').appendTo($outerContainer);  // create it
        $recordsLink.css('position','relative').css('top','-75px');
        $recordsLink.click(function() {
            // show occurrence records
            var fq = "";
            if (chartOptions.rank != undefined && chartOptions.name != undefined) {
                fq = "&fq=" + chartOptions.rank + ":" + chartOptions.name;
            }
            document.location = urlConcat(biocacheWebappUrl, "/occurrences/search?q=") + query + fq;
        });
    }
    // set link text
    if (chartOptions.history) {
        $recordsLink.html(jQuery.i18n.prop('charts.js.viewrecordsfor') + ' ' + chartOptions.rank + ' ' + chartOptions.name);
    }
    else {
        $recordsLink.html(jQuery.i18n.prop('charts.js.viewallrecords'));
    }

    // setup a click handler - if requested
    var clickThru = chartOptions.clickThru == undefined ? true : chartOptions.clickThru;  // default to true
    var drillDown = chartOptions.drillDown == undefined ? true : chartOptions.drillDown;  // default to true
    if (clickThru || drillDown) {
        google.visualization.events.addListener(chart, 'select', function() {

            // find out what they clicked
            var name = dataTable.getValue(chart.getSelection()[0].row,0);
            /* DRILL DOWN */
            if (drillDown && data.rank != "species") {
                // show spinner while loading
                $container.append($('<img class="loading" style="position:absolute;left:130px;top:220px;z-index:2000" ' +
                        'alt="loading..." src="' + collectionsUrl + '/images/ala/ajax-loader.gif"/>'));

                // save current state as history - for back-tracking
                pushHistory(chartOptions);

                // set new chart state
                chartOptions.rank = data.rank;
                chartOptions.name = name;

                // redraw chart
                loadTaxonomyChart(chartOptions);
            }

            /* SHOW RECORDS */
            else {
                // show occurrence records
                document.location = urlConcat(biocacheWebappUrl, "/occurrences/search?q=") + query +
                    "&fq=" + data.rank + ":" + name;
            }
        });
    }
}
/************************************************************\
* Add current chart state to its history.
\************************************************************/
function pushHistory(options) {
    if (options.history == undefined) {
        options.history = [];
    }
    options.history.push({rank:options.rank, name:options.name});
}
/************************************************************\
* Pop the previous current chart state from its history.
\************************************************************/
function popHistory(options) {
    if (options.history == undefined) {
        return {};
    }
    var state = options.history.pop();
    if (options.history.length == 0) {
        options.history = null;
    }
    return state;
}

/*------------------------- TAXON TREE -----------------------------*/
function initTaxonTree(treeOptions) {
    var query = treeOptions.query ? treeOptions.query : buildQueryString(treeOptions.instanceUid);

    var targetDivId = treeOptions.targetDivId ? treeOptions.targetDivId : 'tree';
    var $container = $('#' + targetDivId);
    $container.append($('<h4>Explore records by taxonomy</h4>'));
    var $treeContainer = $('<div id="treeContainer"></div>').appendTo($container);
    $treeContainer.resizable({
        maxHeight: 900,
        minHeight: 100,
        maxWidth: 900,
        minWidth: 500
    });
    var $tree = $('<div id="taxaTree"></div>').appendTo($treeContainer);
    $tree
    .bind("after_open.jstree", function(event, data) {
        var children = $.jstree._reference(data.rslt.obj)._get_children(data.rslt.obj);
        // automatically open if only one child node
        if (children.length == 1) {
            $tree.jstree("open_node",children[0]);
        }
        // adjust container size
        var fullHeight = $tree[0].scrollHeight;
        if (fullHeight > $tree.height()) {
            fullHeight = Math.min(fullHeight, 700);
            $treeContainer.animate({height:fullHeight});
        }
    })
    .bind("select_node.jstree", function (event, data) {
        // click will show the context menu
        $tree.jstree("show_contextmenu", data.rslt.obj);
    })
    .bind("loaded.jstree", function (event, data) {
         // get rid of the anchor click handler because it hides the context menu (which we are 'binding' to click)
         //$tree.undelegate("a", "click.jstree");
         $tree.jstree("open_node","#top");
    })
    .jstree({
      json_data: {
        data: {"data":"Kingdoms", "state":"closed", "attr":{"rank":"kingdoms", "id":"top"}},
        ajax: {
          url: function(node) {
              var rank = $(node).attr("rank");
              var u = urlConcat(biocacheServicesUrl, "/breakdown.json?q=") + query + "&rank=";
              if (rank == 'kingdoms') {
                  u += 'kingdom';  // starting node
              }
              else {
                  u += rank + "&name=" + $(node).attr('id');
              }
              return u;
          },
          dataType: 'jsonp',
          success: function(data) {
              var nodes = [];
              var rank = data.rank;
              $.each(data.taxa, function(i, obj) {
                  var label = obj.label + " - " + obj.count;
                  if (rank == 'species') {
                      nodes.push({"data":label, "attr":{"rank":rank, "id":obj.label}});
                  }
                  else {
                      nodes.push({"data":label, "state":"closed", "attr":{"rank":rank, "id":obj.label}});
                  }
              });
              return nodes;
          },
          error: function(xhr, text_status) {
              //alert(text_status);
          }
        }
      },
      core: { animation: 200, open_parents: true },
      themes:{
        theme: 'classic',
        icons: false
      },
      checkbox: {override_ui:true},
      contextmenu: {select_node: false, show_at_node: false, items: {
          records: {label: jQuery.i18n.prop('charts.js.showrecords'), action: function(obj) {showRecords(obj, query);}},
          bie: {label: jQuery.i18n.prop('charts.js.showinformation'), action: function(obj) {showBie(obj);}},
          create: false,
          rename: false,
          remove: false,
          ccp: false }
      },
      plugins: ['json_data','themes','ui','contextmenu']
    });
}
/************************************************************\
* Go to occurrence records for selected node
\************************************************************/
function showRecords(node, query) {
  var rank = node.attr('rank');
  if (rank == 'kingdoms') return;
  var name = node.attr('id');
  // url for records list
  var recordsUrl = urlConcat(biocacheWebappUrl, "/occurrences/search?q=") + query +
    "&fq=" + rank + ":" + name;
  document.location.href = recordsUrl;
}
/************************************************************\
* Go to 'species' page for selected node
\************************************************************/
function showBie(node) {
    var rank = node.attr('rank');
    if (rank == 'kingdoms') return;
    var name = node.attr('id');
    var sppUrl = "http://bie.ala.org.au/species/" + name;
    if (rank != 'species') { sppUrl += "_(" + rank + ")"; }
    document.location.href = sppUrl;
}

/*------------------------- UTILITIES ------------------------------*/
/************************************************************\
* build records query handling multiple uids
* uidSet can be a comma-separated string or an array
\************************************************************/
function buildQueryString(uidSet) {
    var uids = (typeof uidSet == "string") ? uidSet.split(',') : uidSet;
    var str = "";
    $.each(uids, function(index, value) {
        str += solrFieldNameForUid(value) + ":" + value + " OR ";
    });
    return str.substring(0, str.length - 4);
}
/************************************************************\
* returns the appropriate facet name for the uid - to build
* biocache occurrence searches
\************************************************************/
function solrFieldNameForUid(uid) {
    switch(uid.substring(0,2)) {
        case 'co': return "collection_uid";
        case 'in': return "institution_uid";
        case 'dp': return "data_provider_uid";
        case 'dr': return "data_resource_uid";
        case 'dh': return "data_hub_uid";
        default: return "";
    }
}
/************************************************************\
* returns the appropriate context for the uid - to build
* biocache webservice urls
\************************************************************/
function wsEntityForBreakdown(uid) {
    switch (uid.substr(0,2)) {
        case 'co': return 'collections';
        case 'in': return 'institutions';
        case 'dr': return 'dataResources';
        case 'dp': return 'dataProviders';
        case 'dh': return 'dataHubs';
        default: return "";
    }
}
/************************************************************\
* Concatenate url fragments handling stray slashes
\************************************************************/
function urlConcat(base, context) {
    // remove any trailing slash from base
    base = base.replace(/\/$/, '');
    // remove any leading slash from context
    context = context.replace(/^\//, '');
    // join
    return base + "/" + context;
}

/************************************************************\
* Add commas to number strings
\************************************************************/
function addCommas(nStr)
{
    nStr += '';
    x = nStr.split('.');
    x1 = x[0];
    x2 = x.length > 1 ? '.' + x[1] : '';
    var rgx = /(\d+)(\d{3})/;
    while (rgx.test(x1)) {
        x1 = x1.replace(rgx, '$1' + ',' + '$2');
    }
    return x1 + x2;
}

