[%- USE money = format(l('$%.2f'));
    USE date;
    USE CGI = CGI_utf8;
    USE EGI18N;
    USE POSIX;
    SET DATE_FORMAT = l('%m/%d/%Y');

    # Don't wrap in l() here; do that where this format string is actually used.
    SET HUMAN_NAME_FORMAT = '[_1] [_2] [_3] [_4] [_5]';

    # x and y are artifacts of using <input type="image" /> tags instead of
    # true submit buttons, and their values are never used. page is used, but
    # currently none of the use cases for rendering the query_string back
    # into page output call for propagating the value of the page variable.

    query_string = CGI.query_string |
        replace(';x=\d+','') | replace(';y=\d+','') | replace(';page=\d*', '') |
        replace(';', '&');

    propagator = '?' _ query_string;

    is_advanced = CGI.param("_adv").size;

    formats = [  # XXX KCLS-specific
        {'code' => 'a', 'name' => 'Book', 'image' => 'media_book.png'},
        {'code' => 'i', 'name' => 'Book on cassette', 'image' => 'media_bookoncassette.png'},
        {'code' => 'n', 'name' => 'Book on CD', 'image' => 'media_bookoncd.png'},
        {'code' => 'x', 'name' => 'Download music', 'image' => 'media_downloadmusic.jpg'},
        {'code' => 'y', 'name' => 'Download video', 'image' => 'media_downloadvideo.jpg'},
        {'code' => 'h', 'name' => 'DVD', 'image' => 'media_dvd.jpg'},
        {'code' => 'w', 'name' => 'eBook - Audio', 'image' => 'media_eaudio.png'},
        {'code' => 'v', 'name' => 'eBook - Text', 'image' => 'media_ebooktext.png'},
        {'code' => 'e', 'name' => 'Equipment', 'image' => 'media_equipment.png'},
        {'code' => 'f', 'name' => 'Films', 'image' => 'media_films.png'},
        {'code' => 'o', 'name' => 'Kit', 'image' => 'media_kit.jpg'},
        {'code' => 'q', 'name' => 'Large print', 'image' => 'media_largeprint.jpg'},
        {'code' => 'b', 'name' => 'Magazine', 'image' => 'media_magazines.png'},
        {'code' => 'd', 'name' => 'Microform', 'image' => 'media_microform.jpg'},
        {'code' => 'k', 'name' => 'Music cassette', 'image' => 'media_musiccassette.jpg'},
        {'code' => 'j', 'name' => 'Music CD', 'image' => 'media_musiccd.png'},
        {'code' => 'l', 'name' => 'Music LP', 'image' => 'media_musicrecord.png'},
        {'code' => 'p', 'name' => 'Newspaper', 'image' => 'media_newspaper.jpg'},
        {'code' => 't', 'name' => 'Online', 'image' => 'media_online.jpg'},
        {'code' => 'u', 'name' => 'Player', 'image' => 'media_eaudio.jpg'},
        {'code' => 'c', 'name' => 'Printed music / scores', 'image' => 'media_printedmusic.jpg'},
        {'code' => '2', 'name' => 'Read along with cassette', 'image' => 'media_cassettewithbook.png'},
        {'code' => '5', 'name' => 'Read along with CD', 'image' => 'media_cdwithbook.png'},
        {'code' => 'm', 'name' => 'Software', 'image' => 'media_software.jpg'},
        {'code' => 'g', 'name' => 'Video', 'image' => 'media_films.png'},
        {'code' => 'r', 'name' => '3-D Object', 'image' => 'media_3dobject.jpg'},
        {'code' => 'z', 'name' => 'Map', 'image' => 'media_map.jpg'},
        {'code' => 's', 'name' => 'Slide set', 'image' => 'media_slide.jpg'}
    ];

    icon_by_format = {};
    FOR o IN formats;
        code = o.code;
        icon_by_format.$code = o.image;
    END;

-%]