The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
/*
 * chart_behaviour.js
 *
 * Helper to make charts more designer friendly.
 */

Behaviour.register({
    'img.chart': function(e) {
        var dim = Element.getDimensions(e);
        var url = e.src;

        var path  = url;
        var query = new Hash();

        if (url.indexOf('?') >= 0) {
            var path_and_query = url.split('?');
            path = path_and_query[0];

            var query_params = path_and_query[1].split('&');
            for (var query_param in query_params) {
                var key_and_value = query_param.split('=');
                query.set(key_and_value[0], key_and_value[1]);
            }
        }

        query.set('width', dim.width + 'px');
        query.set('height', dim.height + 'px');

        url = path + '?' + query.toQueryString();

        e.src = url;
    }
});