var numberOfLinks = 3; // value pressと@pressの記事数
var lim_desc = 31; // リンクの文字数制限

var ltid = "press_links1";
var xotree =  new XML.ObjTree();


var dom = 'http://press.accia.net/';
var url_this = dom + 'press_programs/';
var url_rdf_v = 'http://www.accia.net/press_programs/insertLinkToPress.cgi?p=v';
var url_rdf_at = 'http://www.accia.net/press_programs/insertLinkToPress.cgi?p=a';


var tree_v = xotree.parseHTTP(url_rdf_v);
var tree_at = xotree.parseHTTP(url_rdf_at);
var ptn = new RegExp('^(.{' + lim_desc + '})');
var arr_description_contents_v = new Array();
tree_v['rdf:RDF']['item'].each(function(item) {
    var title;
    if(ptn.test(item['title'])) {
        title = RegExp.$1 + '…';
    }
    else {
        title = item['title'];
    }
    arr_description_contents_v[arr_description_contents_v.length] = title;
});

var arr_description_contents_at = new Array();
tree_at['rdf:RDF']['item'].each(function(item) {
    var title;
    if(ptn.test(item['title'])) {
        title = RegExp.$1 + '…';
    }
    else {
        title = item['title'];
    }
    arr_description_contents_at[arr_description_contents_at.length] = title;
});

var arr_href_v = tree_v['rdf:RDF']['item'].collect(function(item) {
    /article_id=(\d+)/.test(item['-rdf:about']);
    var articleId = RegExp.$1;
    /^\d{2}(\d{2})-(\d{2})-(\d{2})/.test(item['dc:date']);
    var year  = RegExp.$1;
    var month = RegExp.$2;
    var date  = RegExp.$3;
    return  dom + year + month + '/' + date + '/' + articleId + '.html';
});

var arr_href_at = tree_at['rdf:RDF']['item'].collect(function(item) {
    /view\/(\d+)/.test(item['-rdf:about']);
    var articleId = RegExp.$1;
    /^\d{2}(\d{2})-(\d{2})-(\d{2})/.test(item['dc:date']);
    var year  = RegExp.$1;
    var month = RegExp.$2;
    var date  = RegExp.$3;
    return  dom + year + month + '/' + date + '/at' + articleId + '.html';
});

function makeHTML_LinkLists(id, arr_txt, arr_href, num) {
    if(num == 'all') num = arr_txt.length;
    var html = "<ul id=\"" + id + "\">\n";
    for(var i = 0; i < num; i++) {
        html += "    <li>"
        html += '<a href="' + arr_href[i] + '">';
        html += arr_txt[i] + "</a></li>\n";
    }
    html += "</ul>\n";
    return html;
}

this.html =  makeHTML_LinkLists('pl_v', arr_description_contents_v, arr_href_v, numberOfLinks);
this.html += makeHTML_LinkLists('pl_at', arr_description_contents_at, arr_href_at, numberOfLinks);

$(ltid).innerHTML = html;