Annotation of rat/client/ratcode.js, revision 1.13.10.2

1.1       raeburn     1: <!--
                      2: The LearningOnline Network
                      3: Resource Assembly Tool
1.13.10.2! raeburn     4: // $Id: ratcode.js,v 1.13.10.1 2012/05/01 23:10:41 raeburn Exp $
1.1       raeburn     5: //
                      6: // Copyright Michigan State University Board of Trustees
                      7: //
                      8: // This file is part of the LearningOnline Network with CAPA (LON-CAPA).
                      9: //
                     10: // LON-CAPA is free software; you can redistribute it and/or modify
                     11: // it under the terms of the GNU General Public License as published by
                     12: // the Free Software Foundation; either version 2 of the License, or
                     13: // (at your option) any later version.
                     14: //
                     15: // LON-CAPA is distributed in the hope that it will be useful,
                     16: // but WITHOUT ANY WARRANTY; without even the implied warranty of
                     17: // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
                     18: // GNU General Public License for more details.
                     19: //
                     20: // You should have received a copy of the GNU General Public License
                     21: // along with LON-CAPA; if not, write to the Free Software
                     22: // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
                     23: //
                     24: // /home/httpd/html/adm/gpl.txt
                     25: //
                     26: // http://www.lon-capa.org/
                     27: //
                     28: YEAR 2000
                     29: 7/23,7/24,7/26,
                     30: 8/11,8/14,8/18,8/19,8/20,8/21,8/22,8/25,8/26,8/28,8/30,8/31,
                     31: 9/1,9/2,9/4,9/5,9/6,
                     32: 1/7,1/8,1/10,1/14,1/15,1/16,1/21,1/22,1/29,1/30,1/31,
                     33: 2/2,2/3,2/10,2/12,2/13,2/14,2/15,2/17,2/18,2/19,2/20,2/21,2/22,
                     34: 5/2,5/3,5/4,5/5,5/6,5/8,5/9,5/13,5/18,5/20,5/22,5/24,5/25,
                     35: 6/7,6/8,6/9,6/10,6/12,6/15,7/4,7/26,7/28,7/31,8/5,8/19,8/24,
                     36: YEAR 2001
                     37: 01/17/01,03/03,03/05 Gerd Kortemeyer
                     38: 04/20 Gerd Kortemeyer
                     39: 06/11,06/25,06/27,06/28,06/29,07/04 Gerd Kortemeyer
                     40: 03/01/02 Matthew Hall
                     41: -->
                     42: 
                     43: 
1.9       bisitz     44: <script type="text/javascript" language="JavaScript">
1.1       raeburn    45: 
                     46: var row=new Array();
                     47: var maxrow=-1;
                     48: var col=new Array();
                     49: var maxcol=-1;
                     50: 
                     51: var colmap=new Array();
                     52: var colmap2=new Array();
                     53: var colmap3=new Array();
                     54: var colmap4=new Array();
                     55: var colmap5=new Array();
                     56: var colmap6=new Array();
                     57: var obj=new Array();
                     58: var objcont=new Array();
                     59: var objparms=new Array();
                     60: var objlinks=new Array();
                     61: var rowcont=new Array();
                     62: var rowtype=new Array();
                     63: var coltype=new Array();
                     64: var rcol=new Array();
                     65: var rrow=new Array();
                     66: var cw=new Array();
                     67: var rh=new Array();
                     68: 
                     69: var undostack=new Array();
                     70: var undopointer=0;
                     71: var stored=0;
                     72: var editmode=0;
                     73: var notclear=0;
                     74: var linkmode=0;
                     75: var lastinfo='';
                     76: var graphdef='no';
                     77: var mode='';
                     78: var mainrun=0;
                     79: var tablemode=0;
                     80: var mostrecent=0;
                     81: var zscale=3;
                     82: 
                     83: var disrows=0;
                     84: var discols=0;
                     85: 
                     86: var finishdone=0;
                     87: var tim=0;
                     88: var funny='|';
                     89: var reqaction='';
                     90: var canceltim;
                     91: 
                     92: var expense=0;
                     93: 
                     94: var data1=new Array(1024);
                     95: var data2=new Array(1024);
                     96: var data3=new Array(1024);
                     97: var data4=new Array(1024);
                     98: var data5=new Array(1024);
1.3       www        99: var data6=new Array(1024);
1.1       raeburn   100: 
                    101: var inf;
                    102: var srch;
                    103: var srchflag=-1; // 1 means currently open
                    104:                  // 0 means closed (but has been open)
                    105:                  // -1 means never yet opened/defined
                    106: var srchmode='';
                    107: 
                    108: var idx;
                    109: var idxflag=-1; // 1 means currently open
                    110:                  // 0 means closed (but has been open)
                    111:                  // -1 means never yet opened/defined
                    112: var idxmode='';
                    113: 
                    114: var copydx;
                    115: var copydxflag=-1; // 1 means currently open
                    116:                  // 0 means closed (but has been open)
                    117:                  // -1 means never yet opened/defined
                    118: var copydxmode='';
                    119: 
                    120: var parm;
                    121: var parmflag=-1; // 1 means currently open
                    122:                  // 0 means closed (but has been open)
                    123:                  // -1 means never yet opened/defined
                    124:                  
                    125: var iconpath='/adm/lonIcons/';
                    126: var raticons='/adm/rat/';
                    127: 
                    128: function testfunction() {
                    129:    inf.document.forms.resinfo.elements.t.value="ABC";
                    130: }
                    131: 
                    132: // ------------------------------------------------ Insert a row into the table
                    133: function insertrow(j,ex1,ex2) {
                    134:    var kj;
                    135:    stored=0;
                    136:    expense++; expense++;
                    137:    objects1='';
                    138:    objects2='';
                    139:    for (kj=0;kj<=maxrow;kj++) {
                    140:       if ( row[kj]==j )   { objects1=rowcont[kj]; }
                    141:       if ( row[kj]==j+1 ) { objects2=rowcont[kj]; } 
                    142:       if ( row[kj]>j ) { row[kj]++; } 
                    143:    }
                    144:    maxrow++;
                    145:    row[maxrow]=j+1;
                    146:    rowcont[maxrow]=':';
                    147:    colcover=':'+ex1+':'+ex2+':';
                    148:    objects=objects1+':'+objects2;
                    149:    data1=objects.split(':');
                    150:    for (kj=0;kj<data1.length;kj++) {
                    151:      if ((data1[kj]!='') && (typeof(data1[kj])!="undefined")) {
                    152:        thisisobj=obj[data1[kj]];
                    153:        thisobjtype=thisisobj.split('&')[0];
                    154:        if (thisobjtype=='v') {
                    155:           if (rowcont[maxrow].indexOf(':'+data1[kj]+':',0)==-1) {
                    156:              thisobjcol=thisisobj.split('&')[1];
                    157:              if (colcover.indexOf(':'+thisobjcol+':',0)==-1) {
                    158:                 colcover+=thisobjcol+':';  
                    159:                 rowcont[maxrow]+=data1[kj]+':';
                    160:              }
                    161:           }
                    162:        }
                    163:        if (thisobjtype=='h') {
                    164:              updown=thisisobj.split('&')[4];
                    165:              leftupdown=updown.split(':')[0];
                    166:              rightupdown=updown.split(':')[1];          
                    167:              thisobjdest=thisisobj.split('&')[3];
                    168:              thisobjtofrom=thisisobj.split('&')[2];
                    169:              thisobjfrom=thisobjtofrom.split(':')[0];
                    170:              thisobjto=thisobjtofrom.split(':')[1];
                    171:              thisobjdir=col[thisobjto]-col[thisobjfrom];
                    172:              thisobjrow=row[thisisobj.split('&')[1]];
                    173:              topbottom=thisobjrow-j-1;
                    174:              newobj='';
                    175:              if (leftupdown==-1) {
                    176:                 if (topbottom<0) {
                    177:                    if (thisobjdir<0) {
                    178:                       newobj='v&'+thisobjto+'&'+thisobjdest+'&-1';
                    179:                    } else {
                    180:                       newobj='v&'+thisobjfrom+'&'+thisobjdest+'&1';
                    181:                    }
                    182:                 }
                    183:              } else {
                    184:                 if (topbottom>0) {
                    185:                    if (thisobjdir<0) {
                    186:                       newobj='v&'+thisobjto+'&'+thisobjdest+'&1';
                    187:                    } else {
                    188:                       newobj='v&'+thisobjfrom+'&'+thisobjdest+'&-1';
                    189:                    }
                    190:                 }
                    191:              }
                    192:              if ((newobj!='') && (typeof(newobj)!="undefined")) {
                    193:                 thisobjcol=newobj.split('&')[1];
                    194:                 if (colcover.indexOf(':'+thisobjcol+':',0)==-1) {
                    195:                    colcover+=thisobjcol+':';  
                    196:                    rowcont[maxrow]+=obj.length+':';
                    197:                    obj[obj.length]=newobj;
                    198:                 }
                    199:              }
                    200:              newobj=''; 
                    201:              if (rightupdown==-1) {
                    202:                 if (topbottom<0) {
                    203:                    if (thisobjdir<0) {
                    204:                       newobj='v&'+thisobjfrom+'&'+thisobjdest+'&1';
                    205:                    } else {
                    206:                       newobj='v&'+thisobjto+'&'+thisobjdest+'&-1';
                    207:                    }
                    208:                 }
                    209:              } else {
                    210:                 if (topbottom>0) {
                    211:                    if (thisobjdir<0) {
                    212:                       newobj='v&'+thisobjfrom+'&'+thisobjdest+'&-1';
                    213:                    } else {
                    214:                       newobj='v&'+thisobjto+'&'+thisobjdest+'&1';
                    215:                    }
                    216:                 }
                    217:              }
                    218:              if ((newobj!='') && (typeof(newobj)!="undefined")) {
                    219:                 thisobjcol=newobj.split('&')[1];
                    220:                 if (colcover.indexOf(':'+thisobjcol+':',0)==-1) {
                    221:                    colcover+=thisobjcol+':';  
                    222:                    rowcont[maxrow]+=obj.length+':';
                    223:                    obj[obj.length]=newobj;
                    224:                 }
                    225:              } 
                    226:        }
                    227:      }
                    228:    }
                    229:    if (rowcont[maxrow]!=':') {
                    230:       rowcont[maxrow]=rowcont[maxrow].substring(1,rowcont[maxrow].length-1);
                    231:    } else {
                    232:       rowcont[maxrow]='';
                    233:    }
                    234: }
                    235: 
                    236: // --------------------------------------------- Creates a new condition object
                    237: function newcondition(content,type) {
                    238:    var ko;
                    239:    stored=0;
                    240:    ko=obj.length;
                    241:    obj[ko]='c';
                    242:    objcont[ko]=content+':'+type+':cond';
                    243:    return ko;
                    244: }
                    245: 
                    246: // ---------------------------------------------- Creates a new resource object
1.7       albertel  247: function newresource(rid,cid,text,url,ext,type,oldidx) {
1.1       raeburn   248:    stored=0;
1.7       albertel  249:    var newidx=addobj(rid,'b&'+rid+'&'+cid+':0:0:0',url,oldidx);
                    250: 
1.3       www       251:    objcont[newidx]=
1.1       raeburn   252:     text+':'+url+':'+ext+':'+type+':res';
1.3       www       253:    return newidx;
1.1       raeburn   254: }
                    255: 
                    256: 
                    257: // -------------------------------- Insert a condition into a port of an object
                    258: function insertcond(obj1,portnr,cond) {
                    259:    var k;
                    260:    stored=0;
                    261:    data1=obj[obj1].split('&');
                    262:    for (k=2;k<data1.length;k++) {
                    263:        data2=data1[k].split(':');
                    264:        if (data2[0]==portnr) {
                    265:           data2[3]=cond;
                    266:           data1[k]=data2.join(':');
                    267:        }
                    268:    }
                    269:    obj[obj1]=data1.join('&');
                    270: }
                    271:  
                    272: // --------------------------------------------- Insert a column into the table
                    273: // Inserts a new table column after table column j
                    274: function insertcol(j) {
                    275:    var kj;
                    276:    stored=0;
                    277:    for (kj=0;kj<=maxcol;kj++) {
                    278:       if ( col[kj]>j ) { col[kj]++; } 
                    279:    }
                    280:    maxcol++;
                    281:    expense++; expense++;
                    282:    col[maxcol]=j+1;
                    283: }
                    284:      
                    285: // --------------------------------------------------------------- Find the row
                    286: function findrow(jid) {
                    287:    var j;
                    288:    for (j=0;j<=maxrow;j++) { if (row[j]==jid) { return j; } }
                    289:    return -1;
                    290: }
                    291: 
                    292: // --------------------------------------------------------------- Find the col
                    293: function findcol(jid) {
                    294:    var j;
                    295:    for (j=0;j<=maxcol;j++) { if (col[j]==jid) { return j; } }
                    296:    return -1;
                    297: }
                    298: 
                    299: // -------------------------------------------------------------- Map out a row
                    300: //
                    301: // b&rowID&colID:inObj:outObj:outCond&...
                    302: // h&rowID&incolID:outcolID&inObj:outObj&inupdown:outupdown
                    303: // v&colID&inObj:outObj&updown
                    304: //
                    305: // returns middle (col number of middle of obj1)
                    306: // sets colmap (map of cols with object numbers)
                    307: function maprow (jid,obj1,ign) {
                    308:  var j; var k; var left; var right; var middle;
                    309:  middle=-1;
                    310:  for (j=0;j<=maxcol;j++) { colmap[j]=0; }
                    311:  if ((rowcont[jid]!='') && (typeof(rowcont[jid])!="undefined")) {
                    312:    data2=rowcont[jid].split(':');
                    313:    for (j=0;j<data2.length;j++) {
                    314:       data3=obj[data2[j]].split('&');
                    315:       if (data3[0]=='b') {
                    316:          left=maxcol;
                    317:          right=0;
                    318:          for (k=2;k<data3.length;k++) {
                    319:             thiscol=col[data3[k].split(':')[0]];
                    320:             if (thiscol<left)  { left=thiscol;  }
                    321:             if (thiscol>right) { right=thiscol; }
                    322:          }
                    323:       }
                    324:       if (data3[0]=='h') {
                    325:          data4=data3[2].split(':');
                    326:          if (col[data4[1]]>col[data4[0]]) {
                    327:             left=col[data4[0]];
                    328:             right=col[data4[1]];
                    329:          } else {
                    330:             right=col[data4[0]];
                    331:             left=col[data4[1]];
                    332:          }
                    333:       }
                    334:       if (data3[0]=='v') { left=col[data3[1]]; right=left; }
                    335:       if (data2[j]==obj1) { middle=Math.round((left+right)/2); }
                    336:       if ((data3[0]!='h') || (ign!=1)) {
                    337:          for (k=left;k<=right;k++) { colmap[k]=data2[j]; }
                    338:       } else {
                    339:          colmap[left]=data2[j];
                    340:          colmap[right]=data2[j];
                    341:       }
                    342:    }
                    343:  }
                    344:  return middle;
                    345: }
                    346: 
                    347: // --------------------------------------------------------- Find hole in a row
                    348: // jid: rowID
                    349: // kid: colID, find point close to this
                    350: // dkid: destination colID
                    351: // returns colID
                    352: function comingthru (jid,kid,dkid) {
                    353:    var k;
                    354:    maprow(jid,-1,1);
                    355:    knum=col[kid];
                    356:    if (colmap[knum]==0) { return kid; }
                    357:    right=-1;
                    358:    for (k=knum+1;(k<colmap.length) && (right==-1);k++) {
                    359:       if ((right==-1) && (colmap[k]!=colmap[knum])) { right=k; }
                    360:    }
                    361:    left=-1;
                    362:    for (k=knum-1;(k>=0) && (left==-1);k--) {
                    363:       if ((left==-1) && (colmap[k]!=colmap[knum])) { left=k; }
                    364:    }
                    365:    kup=-1;
                    366: 
                    367:    if ((left==-1) && (right==-1)) { right=colmap.length; }
                    368: 
                    369:    dknum=col[dkid];
                    370:    dleft=left-dknum;
                    371:    dright=right-dknum;
                    372: 
                    373:    if (dleft<0) { dleft=-dleft; }
                    374:    if (dright<0) { dright=-dright; }
                    375:    if ((dright<=dleft) && (right!=-1)) { kup=right; }
                    376:    if ((dright>=dleft) && (left!=-1)) { kup=left; }
                    377:    if (colmap[kup]==0) { return findcol(kup); }
                    378: 
                    379:    if (kup==right) { kup--; }
                    380: 
                    381:    if (kup<0) { 
                    382:       insertcol(-1);
                    383:       insertcol(0);
                    384:    } else {
                    385:       insertcol(kup);
                    386:    }
                    387:    return maxcol;
                    388: }
                    389: 
                    390: // ----------------------------------------------------- Insert port into block
                    391: // obj1: object number
                    392: // d: direction from middle (>0: right, <0 left)
                    393: // inout: in or out port (1: in, 2: out)
                    394: // linkobj: object that the link goes to/comes from
                    395: // sets inrow or outrow
                    396: // return column
                    397: function insertport (obj1,d,inout,linkobj) {
                    398:    var k; var port; var revport;
                    399:    stored=0;
                    400:    data1=obj[obj1].split('&');
                    401:    middle=maprow(data1[1],obj1,0);
                    402:    if (inout==1) {
                    403:       inrow=data1[1];
                    404:    } else {
                    405:       outrow=data1[1];
                    406:    }
                    407:    if (d>0) {
                    408:       for (k=middle;(colmap[k]==obj1) && (k<colmap.length);k++) { data3[k]=0; }
                    409:    } else {
                    410:       for (k=middle;(colmap[k]==obj1) && (k>=0);k--) { data3[k]=0; }
                    411:    }
                    412:    for (k=2;k<data1.length;k++) { 
                    413:       data2=data1[k].split(':');
                    414:       data3[col[data2[0]]]=data2[inout];
                    415:    }
                    416:    port=-1;
                    417:    if (d>0) {
                    418:       for (k=middle;(colmap[k]==obj1) && (k<colmap.length);k++) {
                    419:          if ((data3[k]==0) && (colmap[k]==obj1) && (port==-1)) { port=k; }
                    420:       }
                    421:    } else {
                    422:       for (k=middle;(colmap[k]==obj1) && (k>=0);k--) {
                    423:          if ((data3[k]==0) && (colmap[k]==obj1) && (port==-1)) { port=k; } 
                    424:       }
                    425:    }
                    426:    if (port==-1) {
                    427:       if (colmap[k]==0) {
                    428:          revport=findcol(k);
                    429:          if (inout==1) {
                    430:             data1[data1.length]=revport+":"+linkobj+":0:0";
                    431:          } else {
                    432:             data1[data1.length]=revport+":0:"+linkobj+":0";
                    433:          }
                    434:       } else {
                    435:          if (d>0) {
                    436:             insertcol(k-1);
                    437:          } else {
                    438:             insertcol(k);
                    439:          }
                    440:          revport=maxcol;
                    441:          if (inout==1) {
                    442:             data1[data1.length]=revport+":"+linkobj+":0:0";
                    443:          } else {
                    444:             data1[data1.length]=revport+":0:"+linkobj+":0";
                    445:          }
                    446:       }
                    447:    } else {
                    448:       portfound=-1;
                    449:       for (k=2;k<data1.length;k++) { 
                    450:          data2=data1[k].split(':');
                    451:          if (col[data2[0]]==port) {
                    452:             data2[inout]=linkobj;
                    453:             data1[k]=data2.join(':');
                    454:             portfound=1;
                    455:          }
                    456:       }
                    457:       revport=findcol(port);
                    458:       if (portfound==-1) {
                    459:          if (inout==1) {
                    460:             data1[data1.length]=revport+":"+linkobj+":0:0";
                    461:          } else {
                    462:             data1[data1.length]=revport+":0:"+linkobj+":0";
                    463:          }
                    464:       }
                    465:    }
                    466:    obj[obj1]=data1.join('&');
                    467:    return revport;
                    468: }
                    469: 
                    470: // ---------------------------- Make a new object and add it to the row content
                    471: // returns object number of generated object
1.7       albertel  472: function addobj(kjid,objs,url,oldindex) {
1.1       raeburn   473:    stored=0;
                    474:    expense++;
                    475:    if ((rowcont[kjid]!='') && (typeof(rowcont[kjid])!="undefined")) { 
                    476:       rowcont[kjid]+=':'; 
                    477:    }
1.3       www       478:    var newindex=obj.length;
                    479:    if ((url!='') && (typeof(url)!="undefined")) {
1.7       albertel  480: // see if we have a zombie with that url and possibly oldindex
1.3       www       481:       for (oidx=0;oidx<objcont.length;oidx++) {
                    482:           if (typeof(objcont[oidx])!="undefined") {
                    483:              data6=objcont[oidx].split(':');	
                    484:              if (data6[4]=='zombie') {
                    485:                 if (data6[1]==url) {
1.7       albertel  486: 		   if (typeof(oldindex) == "undefined") {
                    487:                      newindex=oidx;
                    488:                    } else {
                    489:                      if (oidx == oldindex) {
                    490:                        newindex=oidx;
                    491:                      }
                    492:                    }
1.3       www       493:                 }
                    494:              }
                    495:          }
                    496:       }
                    497:    }
                    498:    rowcont[kjid]+=newindex;
                    499:    obj[newindex]=objs;
                    500:    return newindex;
1.1       raeburn   501: } 
                    502: 
                    503: // ---------------------------------------- Make horizontal connection for hrid
                    504: // hoffs=-1: this line goes on top of hrid
                    505: function horizontal(hrid,hoffs,hfcol,htcol,hdest,hends) {
                    506:    hcrid=-1;
                    507:    if (hoffs==-1) {
                    508:       hbrid=findrow(row[hrid]-1);
                    509:    } else {
                    510:       hbrid=findrow(row[hrid]+1);
                    511:    }
                    512:    if (hbrid!=-1) {
                    513:       maprow(hbrid,-1,0);
                    514:       hcrid=hbrid;
                    515:       if (col[hfcol]>col[htcol]) { left=col[htcol]; right=col[hfcol]; }
                    516:                             else { right=col[htcol]; left=col[hfcol]; }
                    517:       if (colmap[left]!=0) {
                    518:          hcrid=-1;
                    519:       } else {
                    520:          if (colmap[right]!=0) {
                    521:             hcrid=-1;
                    522:          } else {
                    523:             for (kh=left+1;kh<right;kh++) {
                    524:                if (colmap[kh]!=0) { 
                    525:                   if (obj[colmap[kh]].split('&')[0]!='v') { hcrid=-1; }
                    526:                }
                    527:             }
                    528:          }
                    529:       }
                    530:    }
                    531:    if (hcrid==-1) {
                    532:       insertrow(row[hrid]+hoffs,hfcol,htcol);
                    533:       addobj(maxrow,'h&'+maxrow+'&'+hfcol+':'+htcol+'&'+hdest+'&'+hends);
                    534:    } else {
                    535:       addobj(hcrid,'h&'+hcrid+'&'+hfcol+':'+htcol+'&'+hdest+'&'+hends);
                    536:    }   
                    537: }
                    538: 
                    539: // --------------------------------------- Deletes all references to object obj
                    540: function delobj(obj1) {
                    541:    var k;
                    542:    stored=0;
                    543:    for (k=0;k<rowcont.length;k++) {
                    544:       data4=rowcont[k].split(':');
                    545:       rowcont[k]='';
                    546:       for (k2=0;k2<data4.length;k2++) {
                    547:          if (data4[k2]!=obj1) {
                    548:             if ((rowcont[k]!='') && (typeof(rowcont[k])!="undefined")) { 
                    549:                rowcont[k]+=':'; 
                    550:             } 
                    551:             rowcont[k]+=data4[k2]; 
                    552:          }
                    553:       }
                    554:    }
                    555:    obj[obj1]='';
                    556: }
                    557: 
                    558: // --------------------------------------------------------- Garbage collection
                    559: function cleanup () {
                    560:    message("Garbage Collection");
                    561:    var j,kj,i;
                    562:    disrows=0;
                    563:    discols=0;
                    564:    var emptyspots=0;
                    565: 
                    566:    for (kj=0;kj<=maxcol;kj++) { data1[kj]=0; }
                    567:    for (kj=0;kj<=maxrow;kj++) {
                    568:      rowtype[kj]=0;
                    569:      if ((rowcont[kj]!='') && (typeof(rowcont[kj])!="undefined")) {
                    570:        data2=rowcont[kj].split(':');
                    571:        for (j=0;j<data2.length;j++) {
                    572:          if (obj[data2[j]].substring(0,2)=='e&') {
                    573:             rowtype[kj]=2;
                    574:             data1[(obj[data2[j]].split('&'))[1]]=2;
                    575:          }
                    576:        }
                    577:        maprow(kj,-1,1);
                    578:        for (j=0;j<=maxcol;j++) {
                    579:            if (colmap[j]!=0) {
                    580:               if (data1[j]==0) { data1[j]=1; }
                    581:               if (rowtype[kj]==0) {
                    582:                  if (obj[colmap[j]].substring(0,2)!='v&') { 
                    583:                     rowtype[kj]=1; 
                    584:                  }
                    585:               }
                    586:               if (obj[colmap[j]].substring(0,2)=='b&') { 
                    587:                  data1[j]=2;
                    588:                  if (colmap[maxcol]==0) { emptyspots++; }
                    589:                  rowtype[kj]=2;
                    590:               }  
                    591:            }
                    592:        }
                    593:      }
                    594:    }
                    595:    for (j=0;j<=maxcol;j++) { 
                    596:       coltype[j]=data1[col[j]];
                    597:       if (coltype[j]!=0) { discols+=1; } 
                    598:    }
                    599:    for (j=0;j<=maxrow;j++) {
                    600:        if (rowtype[j]==2) { disrows+=3; }
                    601:        if (rowtype[j]==1) { disrows+=1; }
                    602:    }
                    603:    if (emptyspots==0) {
                    604:       insertrow(maxrow);
                    605:       insertcol(maxcol);
                    606:       addobj(maxrow,'e&'+maxcol);
                    607:       discols++;
                    608:       disrows++;
                    609:       rowtype[maxrow]=2;
                    610:       coltype[maxcol]=2;
                    611:    }
                    612: }
                    613: 
                    614: // -------------------------------------------- Delete a condition from a block
                    615: function delcond(obj1,colid) {
                    616:    var k;
                    617:    stored=0;
                    618:    data3=obj[obj1].split('&');
                    619:    obj[obj1]=data3[0]+'&'+data3[1];
                    620:    for (k=2;k<data3.length;k++) {
                    621:       data4=data3[k].split(':');
                    622:       if (data4[0]==colid) { 
                    623:          data4[3]=0; 
                    624:          objlinks[data4[2]]=(objlinks[data4[2]].split(':'))[0]+':'+
                    625:                             (objlinks[data4[2]].split(':'))[1]+':0';
                    626:       }
                    627:       if ((data4[1]!=0) || (data4[2]!=0) || (data3.length==3)) {
                    628:          obj[obj1]+='&'+data4[0]+':'+data4[1]+':'+data4[2]+':'+data4[3];
                    629:       }
                    630:    }
                    631: }
                    632:     
                    633: // ----------------------------------------- Creates a new condition in a block
                    634: function crecond(obj1,colid,condtext,condtype) {
                    635:    var k;
                    636:    data3=obj[obj1].split('&');
                    637:    obj[obj1]=data3[0]+'&'+data3[1];
                    638:    for (k=2;k<data3.length;k++) {
                    639:       data4=data3[k].split(':');
                    640:       if (data4[0]==colid) { 
                    641:          data4[3]=newcondition(condtext,condtype);
                    642:          data2=objlinks[data4[2]].split(':');
                    643:          objlinks[data4[2]]=data2[0]+':'+data2[1]+':'+data4[3];
                    644:       }
                    645:       if ((data4[1]!=0) || (data4[2]!=0) || (data3.length==3)) {
                    646:          obj[obj1]+='&'+data4[0]+':'+data4[1]+':'+data4[2]+':'+data4[3];
                    647:       }
                    648:    }
                    649: }
                    650: 
                    651: // ---------------------------------------- Delete the path between two objects
                    652: // deletes the link linknr
                    653: // h&rowID&incolID:outcolID&inObj:outObj&inupdown:outupdown
                    654: // v&colID&inObj:outObj&updown
                    655: function dellink (linknr) {
                    656:   var k; var obj1; var obj2;
                    657:   stored=0;
                    658:   if ((objlinks[linknr]!='') && (typeof(objlinks[linknr])!="undefined")) {
                    659:    data3=objlinks[linknr].split(':');
                    660:    obj1=data3[0];
                    661:    obj2=data3[1];
                    662:    data3=obj[obj1].split('&');
                    663:    obj[obj1]=data3[0]+'&'+data3[1];
                    664:    for (k=2;k<data3.length;k++) {
                    665:       data4=data3[k].split(':');
                    666:       if (data4[2]==linknr) { data4[2]=0; data4[3]==0; }
                    667:       if ((data4[1]!=0) || (data4[2]!=0) || (data3.length==3)) {
                    668:          obj[obj1]+='&'+data4[0]+':'+data4[1]+':'+data4[2]+':'+data4[3];
                    669:       }
                    670:    }
                    671:    data3=obj[obj2].split('&');
                    672:    obj[obj2]=data3[0]+'&'+data3[1];
                    673:    for (k=2;k<data3.length;k++) {
                    674:       data4=data3[k].split(':');
                    675:       if (data4[1]==linknr) { data4[1]=0; }
                    676:       if ((data4[1]!=0) || (data4[2]!=0) || (data3.length==3)) {
                    677:          obj[obj2]+='&'+data4[0]+':'+data4[1]+':'+data4[2]+':'+data4[3];
                    678:       }
                    679:    }
                    680:    for (k=0;k<obj.length;k++) {
                    681:      if ((obj[k]!='') && (typeof(obj[k])!="undefined")) {
                    682:        data3=obj[k].split('&');
                    683:        if (((data3[0]=='v') || (data3[0]=='h')) && 
                    684:            (data3[data3.length-2]==linknr)) {
                    685:              delobj(k);
                    686:        }
                    687:      }
                    688:    }
                    689:    objlinks[linknr]='';
                    690:   }     
                    691: }
                    692: 
                    693: // ----------------------------------------------------------- Join two objects
                    694: // Links obj1 with obj2, creates new objlink, marks all elements with number
                    695: function joinres (obj1,obj2,cond) {
                    696:    stored=0;
                    697:    var minexpense;
                    698:    var best;
                    699: 
                    700:    expense=0;
                    701:    tryjoin(obj1,obj2,cond,1,1);
                    702:    minexpense=expense;
                    703:    best=0;
                    704:    finishload();
                    705: 
                    706:    expense=0;
                    707:    tryjoin(obj1,obj2,cond,1,-1);
                    708:    if (expense<minexpense) {
                    709:       best=1;
                    710:       minexpense=expense;
                    711:    }
                    712:    finishload();
                    713: 
                    714:    expense=0;
                    715:    tryjoin(obj1,obj2,cond,-1,1);
                    716:    if (expense<minexpense) {
                    717:       best=2;
                    718:       minexpense=expense;
                    719:    }
                    720:    finishload();
                    721: 
                    722:    expense=0;
                    723:    tryjoin(obj1,obj2,cond,-1,-1);
                    724:    if (expense<minexpense) {
                    725:       best=3;
                    726:       minexpense=expense;
                    727:    }
                    728: 
                    729:    if (best==0) {
                    730:       finishload();
                    731:       tryjoin(obj1,obj2,cond,1,1);
                    732:    }
                    733:    if (best==1) {
                    734:       finishload();
                    735:       tryjoin(obj1,obj2,cond,1,-1);
                    736:    }
                    737:    if (best==2) {
                    738:       finishload();
                    739:       tryjoin(obj1,obj2,cond,-1,1);
                    740:    }
                    741: }
                    742: 
                    743: function tryjoin(obj1,obj2,cond,d1,d2) {
                    744:    var k; var kr; var outcol; var incol; var d; var dest;
                    745: 
                    746:    dest=objlinks.length;
                    747:    objlinks[dest]=obj1+':'+obj2+':'+cond;
                    748: 
                    749:    outcol=insertport(obj1,d1,2,dest);
                    750:    insertcond(obj1,outcol,cond);
                    751:    incol=insertport(obj2,d2,1,dest);
                    752:    if (row[inrow]==(row[outrow]+1)) {
                    753:       insertrow(row[outrow],-1,-1);
                    754:    }
                    755:    if (row[inrow]<row[outrow]) {
                    756:       updown=1;
                    757:       tcol=comingthru(inrow,incol,outcol);
                    758:       horizontal(inrow,-1,tcol,incol,dest,'-1:-1');
                    759:       addobj(inrow,'v&'+tcol+'&'+dest+'&1');
                    760:       incol=tcol;
                    761:       tcol=comingthru(outrow,outcol,incol);
                    762:       horizontal(outrow,0,outcol,tcol,dest,'1:1');
                    763:       addobj(outrow,'v&'+tcol+'&'+dest+'&1');
                    764:       outcol=tcol;
                    765:    } else {
                    766:      updown=-1;
                    767:    }
                    768: 
                    769:    if (inrow==outrow) {
                    770:       tcol=comingthru(inrow,incol,outcol);
                    771:       horizontal(inrow,-1,tcol,incol,dest,'-1:-1');
                    772:       addobj(inrow,'v&'+tcol+'&'+dest+'&1');
                    773:       horizontal(outrow,0,outcol,tcol,dest,'1:1');
                    774:    } else {
                    775: 
                    776:       if (updown==-1) {
                    777:          for (kr=row[outrow]+1;kr<row[inrow];kr++) {
                    778:             rid=findrow(kr);
                    779:             ncol=comingthru(rid,outcol,incol);
                    780: 
                    781:             if (ncol!=outcol) {
                    782:                insertrow(kr-1,outcol,ncol);
                    783:                kr++;
                    784:                if (col[outcol]>col[ncol]) {
                    785:                   addobj(maxrow,
                    786:                             'h&'+maxrow+'&'+outcol+':'+ncol+'&'+dest+'&-1:1');
                    787:                } else {
                    788:                   addobj(maxrow,
                    789:                             'h&'+maxrow+'&'+outcol+':'+ncol+'&'+dest+'&1:-1');
                    790:                }
                    791:             }
                    792:             addobj(rid,'v&'+ncol+'&'+dest+'&-1');
                    793:             outcol=ncol;
                    794:          }
                    795: 
                    796:          if (incol!=outcol) {
                    797:             insertrow(row[inrow]-1,outcol,incol);
                    798:             if (col[outcol]>col[incol]) {
                    799:                addobj(maxrow,
                    800:                          'h&'+maxrow+'&'+outcol+':'+incol+'&'+dest+'&-1:1');
                    801:             } else {
                    802:                addobj(maxrow,
                    803:                          'h&'+maxrow+'&'+outcol+':'+incol+'&'+dest+'&1:-1');
                    804:             }
                    805:          }
                    806: 
                    807:       } else {
                    808:          for (kr=row[outrow]-1;kr>row[inrow];kr--) {
                    809:             rid=findrow(kr);
                    810:             ncol=comingthru(rid,outcol,incol);
                    811:             if (ncol!=outcol) {
                    812:                insertrow(kr,outcol,ncol);
                    813:                if (col[outcol]>col[ncol]) {
                    814:                   addobj(maxrow,
                    815:                             'h&'+maxrow+'&'+outcol+':'+ncol+'&'+dest+'&1:-1');
                    816:                } else {
                    817:                   addobj(maxrow,
                    818:                             'h&'+maxrow+'&'+outcol+':'+ncol+'&'+dest+'&-1:1');
                    819:                }
                    820:             }
                    821:             addobj(rid,'v&'+ncol+'&'+dest+'&1');
                    822:             outcol=ncol;
                    823:          }
                    824:          if (incol!=outcol) {
                    825:             insertrow(row[inrow],outcol,incol);
                    826:             if (col[outcol]>col[incol]) {
                    827:                addobj(maxrow,
                    828:                          'h&'+maxrow+'&'+outcol+':'+incol+'&'+dest+'&1:-1');
                    829:             } else {
                    830:                addobj(maxrow,
                    831:                          'h&'+maxrow+'&'+outcol+':'+incol+'&'+dest+'&-1:1');
                    832:             }
                    833:          }
                    834:       }
                    835:    }  
                    836: }
                    837: 
                    838: // ---------------------------------------------------------- Delete a resource
                    839: // Deletes resource obj1
                    840: // Reconnects resources going thru this one if recon=1
                    841: function delres (obj1,recon) {
                    842:    var infromobj=new Array();
                    843:    var inwithcon=new Array();
                    844:    var inwithlink=new Array();
                    845:    var outtoobj=new Array();
                    846:    var outwithcon=new Array();
                    847:    var outwithlink=new Array();
                    848:    var inobjs=new Array();
                    849:    var inobjscond=new Array();
                    850:    var outobjs=new Array();
                    851:    var outobjscond=new Array();
                    852: 
                    853:    var k; var k1; var k2; var found;
                    854: 
                    855:    stored=0;
                    856: 
                    857:    data1=obj[obj1].split('&');
                    858:    for (k=2;k<data1.length;k++) {
                    859:       data2=data1[k].split(':');
                    860:       if (data2[1]!=0) {
                    861:          k2=inwithlink.length;
                    862:          inwithlink[k2]=data2[1];
                    863:          data3=objlinks[data2[1]].split(':');
                    864:          infromobj[k2]=data3[0];
                    865:          inwithcon[k2]=data3[2];
                    866:       }
                    867:       if (data2[2]!=0) {
                    868:          k2=outwithlink.length;
                    869:          outwithlink[k2]=data2[2];
                    870:          data3=objlinks[data2[2]].split(':');
                    871:          outtoobj[k2]=data3[1];
                    872:          outwithcon[k2]=data3[2];
                    873:       }
                    874:    }
                    875:    for (k=0;k<inwithlink.length;k++)  { dellink(inwithlink[k]); }
                    876:    for (k=0;k<outwithlink.length;k++) { dellink(outwithlink[k]); }
                    877:    delobj(obj1);
1.2       www       878: // turn into a zombie
                    879:    data2=objcont[obj1].split(':');
                    880:    data2[3]='zombie';
                    881:    data2[4]='zombie';
                    882:    objcont[obj1]=data2.join(':');
                    883: // reconnect
1.1       raeburn   884:    if (recon==1) {
                    885:      message("Reconnecting");
                    886:       for (k=0;k<inwithlink.length;k++) {
                    887:          if (infromobj[k]!=obj1) {
                    888:             found=0;
                    889:             for (k2=0;k2<inobjs.length;k2++) {
                    890:                if (inobjs[k2]==infromobj[k]) {
                    891:                   if (inwithcon[k]!=0) {
                    892:                      if ((inobjscond[k2]!='') &&
                    893:                          (typeof(inobjscond[k2])!="undefined")) { 
                    894:                          inobjscond[k2]+='||'; 
                    895:                      }
                    896:                      inobjscond[k2]+=
                    897:                       '('+(objcont[inwithcon[k]].split(':'))[0]+')';
                    898:                    }
                    899:                   found=1;
                    900:                }
                    901:             }
                    902:             if (found==0) {
                    903:                k2=inobjs.length;
                    904:                inobjs[k2]=infromobj[k];
                    905:                if (inwithcon[k]==0) {
                    906:                   inobjscond[k2]='';
                    907:                } else {
                    908:                   inobjscond[k2]=
                    909:                    '('+(objcont[inwithcon[k]].split(':'))[0]+')';
                    910:                }
                    911:             }
                    912:          }
                    913:       }  
                    914: 
                    915:       for (k=0;k<outwithlink.length;k++) {
                    916:          if (outtoobj[k]!=obj1) {
                    917:             found=0;
                    918:             for (k2=0;k2<outobjs.length;k2++) {
                    919:                if (outobjs[k2]==outtoobj[k]) {
                    920:                  if (outwithcon[k]!=0) {
                    921:                      if ((outobjscond[k2]!='') &&
                    922:                          (typeof(outobjscond[k2])!="undefined")) { 
                    923:                          outobjscond[k2]+='||'; 
                    924:                      }
                    925:                      outobjscond[k2]+=
                    926:                       '('+(objcont[outwithcon[k]].split(':'))[0]+')';
                    927:                   }
                    928:                   found=1;
                    929:                }
                    930:             }
                    931:             if (found==0) {
                    932:                k2=outobjs.length;
                    933:                outobjs[k2]=outtoobj[k];
                    934:                if (outwithcon[k]==0) {
                    935:                   outobjscond[k2]='';
                    936:                } else {
                    937:                   outobjscond[k2]=
                    938:                    '('+(objcont[outwithcon[k]].split(':'))[0]+')';
                    939:                }
                    940:             }
                    941:          }
                    942:       }
                    943: 
                    944:       for (k=0;k<inobjs.length;k++) {
                    945:           cond='';
                    946:           if ((inobjscond[k]!='') && (typeof(inobjscond[k])!="undefined")) { 
                    947:              cond='('+inobjscond[k]+')'; 
                    948:           }
                    949:           for (k2=0;k2<outobjs.length;k2++) {
                    950:               thiscond=cond;
                    951:               if ((outobjscond[k2]!='') && (typeof(outobjscond[k2])!="undefined")) {
                    952:                  if ((thiscond!='') && (typeof(thiscond)!="undefined")) { 
                    953:                     thiscond+='&&'; 
                    954:                  }
                    955:                  thiscond+='('+outobjscond[k2]+')';
                    956:               }
                    957:               condnr=0;
                    958:               if ((thiscond!='') && (typeof(thiscond)!="undefined")) { 
                    959:                  condnr=newcondition(thiscond,'normal'); 
                    960:               }
                    961:               save(); 
                    962:               joinres(inobjs[k],outobjs[k2],condnr);
                    963:           }
                    964:       }
                    965:    }
                    966: }
                    967: 
                    968: // -------------------------------------------------------------- Draw an entry
                    969: function drawcell (rtype,ctype,what,cm,obj1,ej,ek,ne) {
                    970:  var bgcolor;
                    971:  var url='';
                    972:  var urlparts=new Array;
                    973:  var mime;
                    974:  var ext;
                    975:  var objref;
                    976:  var objnum;
                    977: 
                    978:  if ((what=='') && (ne==0)) { cm="#DDDDDD"; }
                    979:  if (ctype!=0) {
                    980:    parent.mapout.document.write('<td bgcolor='+cm+' width='+cw[ctype]+'>');
                    981:    if ((what!='') && (typeof(what)!="undefined")) {
                    982:      if ((obj1!='') && (typeof(obj1)!="undefined")) {
                    983:        objref="'"+obj1+"'";
                    984:        parent.mapout.document.write
                    985:         ('<a href="javascript:parent.code.handler('+objref
                    986:          +');" onMouseOver="parent.code.info('+objref+');">');
                    987:      } 
                    988:      if (what=='r:') {
                    989:         mime='';
                    990:         objnum=(obj1.split('&'))[1];
                    991:         if (typeof(objcont[objnum])!="undefined") {
                    992:             urlparts=objcont[objnum].split(':');
                    993:             url=urlparts[1];
                    994:             ext=urlparts[2];
                    995:             urlparts=url.split('.');
                    996:             mime=urlparts[urlparts.length-1];
                    997:             if (typeof(mime)=="undefined") { mime=''; }
                    998:             mime=mime.toLowerCase();
                    999:         }
                   1000:         parent.mapout.document.write
1.10      bisitz   1001:          ('<img border="0" width="'+cw[ctype]+'" height="'+rh[1]
                   1002:           +'" src="'+raticons+'resource.gif" />');
1.1       raeburn  1003:        if (zscale==3) {
                   1004:         if ((mime!='') && (ext!='true')) {
                   1005:            parent.mapout.document.write
1.10      bisitz   1006:            ('<br /><img border="0" src="'+raticons+'left.gif" /></a><a target="preview" href="'+
                   1007:            url+'.meta"><img border="0" width="20" src="'+iconpath+
                   1008:            'meta.gif" /><a target="preview" href="'+url+
                   1009:            '"><img border="0" width="20" src="'+iconpath+mime+'.gif" />'+
                   1010:            '<img border="0" src="'+raticons+'right.gif" />');
1.1       raeburn  1011:         } else {
                   1012:            parent.mapout.document.write
1.10      bisitz   1013:            ('<br /><img border="0" src="'+raticons+'middle.gif" />');
1.1       raeburn  1014:         }
                   1015:         parent.mapout.document.write
1.10      bisitz   1016:            ('<br /><img border="0" src="'+raticons+'bottom.gif" />');
1.1       raeburn  1017:        } else {
                   1018:         parent.mapout.document.write
1.10      bisitz   1019:            ('<br /><img border="0" width="'+cw[ctype]+'" height="'+rh[1]
                   1020:           +'" src="'+raticons+'bottom.gif" />');
1.1       raeburn  1021:        }
                   1022:      } else {
                   1023:         if (what=='c:') {
                   1024:            parent.mapout.document.write
1.10      bisitz   1025:             ('<img border="0" width="'+cw[ctype]+'" height="'+rh[rtype]
                   1026:              +'" src="'+raticons+'condition.gif" />');
1.1       raeburn  1027:         } else {
                   1028:            if (what=='rs:') {
                   1029:         mime='';
                   1030:         objnum=(obj1.split('&'))[1];
                   1031:         if (typeof(objcont[objnum])!="undefined") {
                   1032:             urlparts=objcont[objnum].split(':');
                   1033:             url=urlparts[1];
                   1034:             ext=urlparts[2];
                   1035:             urlparts=url.split('.');
                   1036:             mime=urlparts[urlparts.length-1];
                   1037:             if (typeof(mime)=="undefined") { mime=''; }
                   1038:             mime=mime.toLowerCase();
                   1039:         }
                   1040:               parent.mapout.document.write
1.10      bisitz   1041:                ('<img border="0" width="'+cw[ctype]+'" height="'+rh[1]
                   1042:                +'" src="'+raticons+'start.gif" />');
1.1       raeburn  1043:        if (zscale==3) {
                   1044:         if ((mime!='') && (ext!='true')) {
                   1045:            parent.mapout.document.write
1.10      bisitz   1046:            ('<br /><img border="0" src="'+raticons+'left.gif" /></a><a target="preview" href="'+
                   1047:            url+'.meta"><img border="0" width="20" src="'+iconpath+
                   1048:            'meta.gif" /><a target="preview" href="'+url+
                   1049:            '"><img border="0" width="20" src="'+iconpath+mime+'.gif" />'+
                   1050:            '<img border="0" src="'+raticons+'right.gif" />');
1.1       raeburn  1051:         } else {
                   1052:            parent.mapout.document.write
1.10      bisitz   1053:            ('<br /><img border="0" src="'+raticons+'middle.gif" />');
1.1       raeburn  1054:         }
                   1055:         parent.mapout.document.write
1.10      bisitz   1056:            ('<br /><img border="0" src="'+raticons+'bottom.gif" />');
1.1       raeburn  1057:        } else {
                   1058:         parent.mapout.document.write
1.10      bisitz   1059:            ('<br /><img border="0"  width="'+cw[ctype]+'" height="'+rh[1]
                   1060:           +'" src="'+raticons+'bottom.gif" />');
1.1       raeburn  1061:        }
                   1062: 
                   1063:            } else {
                   1064:              if (what=='rf:') {
                   1065:         mime='';
                   1066:         objnum=(obj1.split('&'))[1];
                   1067:         if (typeof(objcont[objnum])!="undefined") {
                   1068:             urlparts=objcont[objnum].split(':');
                   1069:             url=urlparts[1];
                   1070:             ext=urlparts[2];
                   1071:             urlparts=url.split('.');
                   1072:             mime=urlparts[urlparts.length-1];
                   1073:             if (typeof(mime)=="undefined") { mime=''; }
                   1074:             mime=mime.toLowerCase();
                   1075:         }
                   1076:                 parent.mapout.document.write
1.10      bisitz   1077:                 ('<img border="0" width="'+cw[ctype]+'" height="'+rh[1]
                   1078:                 +'" src="'+raticons+'finish.gif" />');
1.1       raeburn  1079:        if (zscale==3) {
                   1080:         if ((mime!='') && (ext!='true')) {
                   1081:            parent.mapout.document.write
1.10      bisitz   1082:            ('<br /><img border="0" src="'+raticons+'left.gif" /></a><a target="preview" href="'+
                   1083:            url+'.meta"><img border="0" width="20" src="'+iconpath+
                   1084:            'meta.gif" /><a target="preview" href="'+url+
                   1085:            '"><img border="0" width="20" src="'+iconpath+mime+'.gif" />'+
                   1086:            '<img border="0" src="'+raticons+'right.gif" />');
1.1       raeburn  1087:         } else {
                   1088:            parent.mapout.document.write
1.10      bisitz   1089:            ('<br /><img border="0" src="'+raticons+'middle.gif" />');
1.1       raeburn  1090:         }
                   1091:         parent.mapout.document.write
1.10      bisitz   1092:            ('<br /><img border="0" src="'+raticons+'bottom.gif" />');
1.1       raeburn  1093:        } else {
                   1094:         parent.mapout.document.write
1.10      bisitz   1095:            ('<br /><img border="0"  width="'+cw[ctype]+'" height="'+rh[1]
                   1096:           +'" src="'+raticons+'bottom.gif" />');
1.1       raeburn  1097:        }
                   1098: 
                   1099:              } else {
                   1100:                 parent.mapout.document.write
1.10      bisitz   1101:                 ('<img border="0" width="'+cw[ctype]+'" height="'+rh[rtype]
                   1102:                 +'" src="'+raticons+rtype+'.'+ctype+'.'+what+'.gif" />');
1.1       raeburn  1103:              }
                   1104:            }
                   1105:         }
                   1106:      }
                   1107:      if ((obj1!='') && (typeof(obj1)!="undefined")) {
                   1108:        parent.mapout.document.write('</a>');
                   1109:      }
                   1110:    } else {
                   1111:       if (ne!=1) {
                   1112:          parent.mapout.document.write
                   1113:             ('<a href="javascript:parent.code.empty('+ej+','+ek+');" ');
                   1114:       } else {
                   1115:          parent.mapout.document.write
                   1116:             ('<a href="javascript:parent.code.infoclear();" ');
                   1117:       }
                   1118:       parent.mapout.document.write
                   1119:          ('onMouseOver="parent.code.infoclear();">');
                   1120:       parent.mapout.document.write
                   1121:          (
1.10      bisitz   1122:          '<img border="0" width="'+cw[ctype]+'" height="'+rh[rtype]
                   1123:         +'" src="'+raticons+rtype+'.'+ctype+'.empty.gif" /></a>');
1.1       raeburn  1124:    }
                   1125:    parent.mapout.document.write('</td>');
                   1126:  }
                   1127: }
                   1128: 
                   1129: // --------------------------------------------------------- Color of resources
                   1130: function rescolor (ext,typ) {
                   1131:    var rc; var gc; var bc;
                   1132:    if (ext=='true') { bc='55'; } else { bc='99'; }
                   1133:    if (typ=='mandatory') { rc='FF'; } else { rc='BB'; }
                   1134:    if (typ=='optional') { gc='BB'; } else { gc='FF'; }
                   1135:    if ((typ=='start') || (typ=='finish')) { rc='AA'; gc='AA'; bc='FF'; }
                   1136:    return '#'+rc+gc+bc;
                   1137: }
                   1138: 
                   1139: // -------------------------------------------------------- Color of conditions
                   1140: function condcolor(typ) {
                   1141:    if (typ=='stop')  { return '#EEAAAA'; }
                   1142:    if (typ=='force') { return '#AAAAEE'; }
                   1143:    return '#EEEEAA';
                   1144: }
                   1145: 
                   1146: // ----------------------------------------------------------------- Draw a row
                   1147: function drawrow (jid) {
                   1148: var j; var jk; var k;  var ck; var rtype;
                   1149: var objd1=new Array();
                   1150: var objd2=new Array();
                   1151: var notempty=new Array();
                   1152: var condtype;
                   1153: if (rowtype[jid]!=0) {
                   1154:  for (j=0;j<=maxcol;j++) { 
                   1155:     colmap[j]=''; colmap2[j]=''; colmap3[j]=''; colmap4[j]=''; 
                   1156:     colmap5[j]='#CCCCCC'; colmap6[j]='#CCCCCC';
                   1157:     objd1[j]=''; objd2[j]=''; notempty[j]=0;
                   1158:  }
                   1159: 
                   1160:  parent.mapout.document.writeln('<tr height='+rh[rowtype[jid]]+'>');
                   1161:  if ((rowcont[jid]!='') && (typeof(rowcont[jid])!="undefined")) {
                   1162:    data2=rowcont[jid].split(':');
                   1163:    for (jk=0;jk<data2.length;jk++) {
                   1164:       data3=obj[data2[jk]].split('&');
                   1165:       if (data3[0]=='b') {
                   1166:          data1=objcont[data2[jk]].split(':');
                   1167:          rtype=data1[3];
                   1168:          ck=rescolor(data1[2],data1[3]);
                   1169:          left=maxcol;
                   1170:          leftin=maxcol;
                   1171:          leftout=maxcol;
                   1172:          right=0;
                   1173:          rightin=0;
                   1174:          rightout=0;
                   1175:          anyout=0;
                   1176:          for (k=2;k<data3.length;k++) {
                   1177:             data1=data3[k].split(':');
                   1178:             thiscol=col[data1[0]];
                   1179:             if (thiscol<left)  { left=thiscol;  }
                   1180:             if (thiscol>right) { right=thiscol; }
                   1181:             if (data1[1]!=0) {
                   1182:                if (thiscol<leftin)  { leftin=thiscol;  }
                   1183:                if (thiscol>rightin) { rightin=thiscol; }
                   1184:                colmap4[thiscol]=data1[1];
                   1185:             }
                   1186:             if (data1[2]!=0) {
                   1187:                if (thiscol<leftout)  { anyout=1; leftout=thiscol;  }
                   1188:                if (thiscol>rightout) { anyout=1; rightout=thiscol; }
                   1189:                if (data1[3]!=0) {
                   1190:                   colmap3[thiscol]='c:';
                   1191:                   condtype=(objcont[data1[3]].split(':'))[1];
                   1192:                   colmap6[thiscol]=condcolor(condtype);
                   1193:                   objd2[thiscol]='c&'
                   1194:                        +data1[0]+'&'+data2[jk]+'&'+data1[2]+'&'+data1[3];
                   1195:                } else {
                   1196:                   colmap3[thiscol]='ctd';
                   1197:                   colmap6[thiscol]=ck;
                   1198:                   objd2[thiscol]='c&'
                   1199:                        +data1[0]+'&'+data2[jk]+'&'+data1[2]+'&-';
                   1200:                }       
                   1201:             }
                   1202:          }
                   1203:          for (k=left;k<=right;k++) { notempty[k]=1; colmap5[k]=ck; }
                   1204:          middle=Math.round((left+right)/2);
                   1205:          if (rtype=='start') {
                   1206:             colmap[middle]='rs:';
                   1207:          } else {
                   1208:             if (rtype=='finish') {
                   1209:                colmap[middle]='rf:';
                   1210:             } else {
                   1211:                colmap[middle]='r:';
                   1212:             }
                   1213:          }
                   1214:          objd1[middle]+='r&'+data2[jk];
                   1215: 
                   1216:          if (rightin>middle) {
                   1217:             for (k=middle+1;k<rightin;k++) { 
                   1218:                if ((colmap4[k]!='') && (typeof(colmap4[k])!="undefined")) {
                   1219:                   colmap[k]='rlt'; 
                   1220:                } else {
                   1221:                   colmap[k]='rl';
                   1222:                }
                   1223:             }
                   1224:             colmap[rightin]='tl'; 
                   1225:          }
                   1226:          if (leftin<middle) {
                   1227:             for (k=middle-1;k>leftin;k--) { 
                   1228:                if ((colmap4[k]!='') && (typeof(colmap4[k])!="undefined")) {
                   1229:                   colmap[k]='lrt'; 
                   1230:                } else {
                   1231:                   colmap[k]='lr';
                   1232:                }
                   1233:             }
                   1234:             colmap[leftin]='tr'; 
                   1235:          }
                   1236: 
                   1237:          if ((leftout>middle) && (anyout)) {
                   1238:             colmap2[middle]='tr'; 
                   1239:          }
                   1240:          if (leftout==middle) {
                   1241:             if (rightout==middle) { colmap2[middle]='td'; }
                   1242:             if (rightout>middle)  { colmap2[middle]='rtd'; }
                   1243:          }
                   1244:          if (leftout<middle) {
                   1245:             if (rightout<middle)  { colmap2[middle]='tl'; }
                   1246:             if (rightout==middle) { colmap2[middle]='tdl'; }
                   1247:             if (rightout>middle)  { 
                   1248:               if ((colmap3[middle]!='') && (typeof(colmap3[middle])!="undefined")) {
                   1249:                  colmap2[middle]='rtdl'; 
                   1250:               } else {
                   1251:                  colmap2[middle]='rtl';
                   1252:               }
                   1253:             }
                   1254:          }
                   1255:          if (leftout<middle) {
                   1256:             for (k=middle-1;k>leftout;k--) { 
                   1257:                if ((colmap3[k]!='') && (typeof(colmap3[k])!="undefined")) {
                   1258:                   colmap2[k]='rld'; 
                   1259:                } else {
                   1260:                   colmap2[k]='rl';
                   1261:                }
                   1262:             }
                   1263:             colmap2[leftout]='rd'; 
                   1264:          }
                   1265:          if (rightout>middle) {
                   1266:             for (k=middle+1;k<rightout;k++) { 
                   1267:                if ((colmap3[k]!='') && (typeof(colmap3[k])!="undefined")) {
                   1268:                   colmap2[k]='lrd'; 
                   1269:                } else {
                   1270:                   colmap2[k]='lr';
                   1271:                }
                   1272:             }
                   1273:             colmap2[rightout]='ld'; 
                   1274:          }        
                   1275:       }
                   1276:       if (data3[0]=='h') {
                   1277:          data4=data3[2].split(':');
                   1278:          if (col[data4[1]]>col[data4[0]]) {
                   1279:             left=col[data4[0]];
                   1280:             right=col[data4[1]];
                   1281:             thisarrow='lr';
                   1282:          } else {
                   1283:             right=col[data4[0]];
                   1284:             left=col[data4[1]];
                   1285:             thisarrow='rl';
                   1286:          }
                   1287:          if (data3[4].split(':')[0]==1) {
                   1288:             colmap[left]='tr';
                   1289:          } else {
                   1290:             colmap[left]='rd'; colmap2[left]='utd'; colmap3[left]='utd';   
                   1291:          }
                   1292:          notempty[left]=1;
                   1293:          notempty[right]=1;
                   1294:          for (k=left+1;k<right;k++) { 
                   1295:             notempty[k]=1;
                   1296:             if (colmap[k]=='') {
                   1297:                colmap[k]=thisarrow; 
                   1298:                objd1[k]=data2[jk];
                   1299:             } else {
                   1300:                colmap[k]='tdrl';
                   1301:                objd1[k]='';
                   1302:             }
                   1303:          }
                   1304:          if (data3[4].split(':')[1]==1) {
                   1305:             colmap[right]='tl';
                   1306:          } else {
                   1307:             colmap[right]='ld'; colmap2[right]='utd'; colmap3[right]='utd';   
                   1308:          }
                   1309:          objd1[left]=data2[jk];
                   1310:          objd1[right]=data2[jk];
                   1311:       }
                   1312:       if (data3[0]=='v') { 
                   1313:          left=col[data3[1]];
                   1314:          if (colmap[left]=='') {
                   1315:             if (data3[3]==1) { colmap[left]='dt'; } else { colmap[left]='td'; }
                   1316:             objd1[left]=data2[jk]+'&'+jid;
                   1317:             objd2[left]=objd1[left];
                   1318:          } else {
                   1319:             colmap[left]='tdrl';
                   1320:             objd1[left]='';
                   1321:          }
                   1322:          colmap2[left]='utd'; colmap3[left]='utd';
                   1323:       }
                   1324:    }
                   1325:    rtype=rowtype[jid];
                   1326:    for (k=0;k<=maxcol;k++) {
                   1327:     drawcell(rtype,coltype[rcol[k]],colmap[k],colmap5[k],objd1[k],jid,k,
                   1328:              notempty[k]);
                   1329:    }
                   1330:    if (rowtype[jid]==2) {
                   1331:       parent.mapout.document.writeln('</tr>');
                   1332:       parent.mapout.document.writeln('<tr height='+rh[1]+'>');
                   1333:       for (k=0;k<=maxcol;k++) {
                   1334:        drawcell(1,coltype[rcol[k]],colmap2[k],colmap5[k],objd2[k],jid,k,
                   1335:                 notempty[k]);
                   1336:       }
                   1337:       parent.mapout.document.writeln('</tr>');
                   1338:       parent.mapout.document.writeln('<tr height='+rh[1]+'>');
                   1339:       for (k=0;k<=maxcol;k++) {
                   1340:        drawcell(1,coltype[rcol[k]],colmap3[k],colmap6[k],objd2[k],jid,k,
                   1341:                 notempty[k]);
                   1342:       }
                   1343:    }     
                   1344:  }
                   1345:  parent.mapout.document.writeln('</tr>');
                   1346: }
                   1347: }
                   1348: 
                   1349: // -------------------------------------------------------------- Print message
                   1350: function message(txt) {
                   1351:    parent.window.status=txt;
                   1352: }
                   1353: 
                   1354: // ------------------------------------------------------------- Draw the table
                   1355: function draw () {
                   1356:    var k; var kr;
                   1357: 
                   1358:    cleanup();
                   1359:    save();
                   1360: 
                   1361:    rh[0]=0;
                   1362:    rh[1]=zscale*10;
                   1363:    rh[2]=zscale*20;
                   1364:    cw[0]=0;
                   1365:    cw[1]=zscale*10;
                   1366:    cw[2]=zscale*20;
                   1367: 
                   1368:    parent.mapout.document.open('text/html','replace');
                   1369:    parent.mapout.document.writeln('<html><body bgcolor="#FFFFFF">');
                   1370:    
                   1371:    if (tablemode==0) {
                   1372:       if (graphdef=='no') { graphopt(); cleanup(); }
                   1373:       for (k=0;k<=maxrow;k++) { rrow[row[k]]=k; }
                   1374:       for (k=0;k<=maxcol;k++) { rcol[col[k]]=k; }
                   1375:       parent.mapout.document.writeln(
1.10      bisitz   1376:        '<table cellpadding="0" cellspacing="0" border="0" rows="'
                   1377:        +disrows+'" cols="'+discols+'">');
1.1       raeburn  1378:       for (kr=0;kr<=maxrow;kr++) {
                   1379:         message("Generating Output Row "+kr); 
                   1380:         drawrow(rrow[kr]); 
                   1381:       }
                   1382:    } else {
                   1383:       message("Generating Table Output");
                   1384:       for (k=0;k<=maxrow;k++) { rrow[row[k]]=k; }
                   1385:       for (k=0;k<=maxcol;k++) { rcol[col[k]]=k; }
                   1386: 
                   1387:       parent.mapout.document.writeln( '<table>');
                   1388:       if (tablemode==1) {
                   1389:          tabledraw();
                   1390:       } else {
                   1391:          simpletabledraw();
                   1392:       }
                   1393:    } 
                   1394: 
                   1395:    parent.mapout.document.writeln('</table>');
                   1396:    parent.mapout.document.writeln('</body></html>');
                   1397:    parent.mapout.document.close();
                   1398:    parent.focus();
                   1399:    parent.mapout.focus();
                   1400: }
                   1401: 
                   1402: // --------------------------------------------------------- Clears info window
                   1403: function infoclear() {
                   1404:  if (notclear!=1) {
                   1405:   infcheck();
1.13      raeburn  1406:   inf.document.open();
1.1       raeburn  1407:   inf.document.writeln
                   1408:    ('<html><body bgcolor="#FFFFFF"><table><tr><td>'+
1.10      bisitz   1409:     '<img src="/adm/lonIcons/lonlogos.gif" /></td>');
1.1       raeburn  1410:   if (linkmode!=0) {
                   1411:    if (tablemode==0) {
                   1412:      inf.document.writeln(
1.10      bisitz   1413:       '<td><b>Link Mode</b><hr />Click on a resource to link it with<br /><b>'+
1.1       raeburn  1414:       (objcont[linkmode].split(':'))[0]+
1.10      bisitz   1415:       '</b><br />click anywhere else to cancel.</td>');
1.1       raeburn  1416:    } else {
                   1417:      inf.document.writeln(
1.10      bisitz   1418: '<td><b>Link Mode</b><hr />Click on a resource number to link it with<br /><b>'+
                   1419:      (objcont[linkmode].split(':'))[0]+'</b><br />'+
1.1       raeburn  1420: '<a href="javascript:opener.linkmode=0;opener.notclear=0;opener.infoclear();">'
                   1421:    +'Cancel</a></td>');
                   1422:    }
                   1423:   } else {
                   1424:    if (tablemode==0) {
                   1425:       inf.document.writeln(
1.10      bisitz   1426:         '<td><b>Click to Edit</b><hr />Click in a light gray area<br />'
1.1       raeburn  1427:        +'to insert resources, columns and rows</td>'
                   1428:       );
                   1429:    }
                   1430:   }
                   1431:   inf.document.writeln('</tr></table></body></html>');
                   1432:   inf.document.close();
                   1433:   if (srchflag==1) {
                   1434:     srchclose();
                   1435:   }
                   1436:   if (idxflag==1) {
                   1437:     idxclose();
                   1438:   }
                   1439:   if (parmflag==1) {
                   1440:     parmclose();
                   1441:   }
                   1442:   parent.top.focus();
                   1443:   parent.mapout.focus();
                   1444:   notclear=1;
                   1445:   lastinfo='';
                   1446:  }
                   1447: }
                   1448: 
                   1449: // ------------------------------------------------------------ Open inf window
                   1450: function infopen() {
                   1451:    var options="scrollbars=1,resizable=1,menubar=0,width=400,height=300";
                   1452:    inf=open("","infout",options);
                   1453: }
                   1454: 
                   1455: // -------------------------------------------------------- Do inf status check
                   1456: function infcheck() {
                   1457:    if (inf.closed) {
                   1458:       infopen();
                   1459:    }
                   1460: }
                   1461: 
                   1462: // --------------------------------------------------- Prints out resource info
                   1463: function info(infostr) {
                   1464:  var mime='';
                   1465:  var ext;
                   1466:  var urlparts=new Array;
                   1467:  var url='';
                   1468:  if ((editmode!=1) && (infostr!=lastinfo)) {
                   1469:   notclear=1;
                   1470:   infcheck();
1.13      raeburn  1471:   inf.document.open();
1.1       raeburn  1472:   inf.document.writeln(
                   1473:    '<html><body bgcolor="#FFFFFF">'+
1.10      bisitz   1474:    '<table><tr><td width="32"><img src="'+raticons+'info.gif" /></td><td bgcolor="#AAFFAA">');
1.1       raeburn  1475:   data1=infostr.split('&');
                   1476:   if (data1[0]=='c') {
                   1477:      inf.document.write('<b>Condition (');
                   1478:      data3=objlinks[data1[3]].split(':');
                   1479:      if (data1[4]=='-') {
                   1480:         inf.document.write('not set');
                   1481:      } else {
                   1482:         data2=objcont[data1[4]].split(':');
                   1483:         if (data2[1]=='force') {
                   1484:            inf.document.write('Blocking Other Links');
                   1485:         } else {
                   1486:            if (data2[1]=='stop') {
                   1487:               inf.document.write('Blocking This Link');
                   1488:            } else {
                   1489:               inf.document.write('Recommendation');
                   1490:            }
                   1491:        }
                   1492:      }   
1.10      bisitz   1493:      inf.document.writeln(')</b><hr />From <b>'+objcont[data3[0]].split(':')[0]+
                   1494:                  '</b><br />to <b>'+objcont[data3[1]].split(':')[0]+'</b>');
1.1       raeburn  1495:   } else {
                   1496:      if (data1[0]=='r') {
                   1497:         data2=objcont[data1[1]].split(':');
                   1498:         url=data2[1];
                   1499:         ext=data2[2];
                   1500:         urlparts=url.split('.');
                   1501:         mime=urlparts[urlparts.length-1];
                   1502:         if (typeof(mime)=="undefined") { mime=''; }
                   1503:         if (ext=='true') { mime=''; }
                   1504:         if (mime!='') {
                   1505:            inf.document.write
1.10      bisitz   1506:            ('<br /><a target="preview" align="right" href="'+url+
                   1507:            '"><img border="0" width="20" src="'+iconpath+mime+'.gif" /></a>&nbsp;&nbsp;');
1.1       raeburn  1508:         }
                   1509:        inf.document.write('<b>');
                   1510:         if (data2[2]=='true') { inf.document.write('External '); }
                   1511:         if (data2[3]=='start') {
                   1512:            inf.document.writeln('<b>Start</b>');
                   1513:         } else {
                   1514:            if (data2[3]=='finish') {
                   1515:               inf.document.writeln('<b>Finish</b>');
                   1516:            } else {
                   1517:               inf.document.writeln('<b>Resource</b>');
                   1518:            }
                   1519:         }
                   1520:         if (data2[3]=='mandatory') {
                   1521:            inf.document.write(' (Mandatory)');
                   1522:         }
                   1523:         if (data2[3]=='optional') {
                   1524:            inf.document.write(' (Optional)');
                   1525:         }
1.10      bisitz   1526:         inf.document.writeln('</b><hr /><b>'+data2[0]+'</b><br />');
1.1       raeburn  1527:         inf.document.writeln((data2[1].split('/')).join(' / '));
                   1528:      } else {
1.10      bisitz   1529:         inf.document.writeln('<b>Link</b><hr />');
1.1       raeburn  1530:         data2=obj[data1[0]].split('&');
                   1531:         data3=objlinks[data2[data2.length-2]].split(':');
                   1532:         inf.document.writeln('From <b>'+objcont[data3[0]].split(':')[0]+
1.10      bisitz   1533:                  '</b><br />to <b>'+objcont[data3[1]].split(':')[0]+'</b>');
1.1       raeburn  1534:      }
                   1535:   }
                   1536:   if (linkmode==0) {
                   1537:      inf.document.writeln('<p>(click to edit)');
                   1538:   } else {
                   1539:      if (data1[0]=='r') {
                   1540:         inf.document.writeln('<p>(click to link)');
                   1541:      } else {
                   1542:         inf.document.writeln('<p>(click to cancel linking and edit)');
                   1543:      }
                   1544:   }
                   1545:   inf.document.writeln('</td></tr></table></body></html>');
                   1546:   inf.document.close();
                   1547:   parent.top.focus();
                   1548:   parent.mapout.focus();
                   1549:   notclear=0;
                   1550:   lastinfo=infostr;
                   1551:  }
                   1552: }
                   1553: 
                   1554: // ------------------------------------------------ "Escapes" out special chars
                   1555: function escape(instring) {
                   1556:    var outstring='';
                   1557:    var thischar;
                   1558:    var k;
                   1559:    for (k=0;k<instring.length;k++) {
                   1560:       thischar=instring.charAt(k);
                   1561:       if (thischar==':') { thischar='&#58;'; }
                   1562:       if (thischar=='"') { thischar='&#34;'; }// "
                   1563:       if (thischar=="'") { thischar='&#39;'; }
                   1564:       if (thischar==',') { thischar='&#44;'; }
                   1565:       outstring+=thischar;
                   1566:    }
                   1567:    return outstring;
                   1568: }
                   1569: 
                   1570: // -------------------------------------------------- Insert resource into link
                   1571: function insertreslink(infostr) {
                   1572:    var lnr;
                   1573:    var fobj;
                   1574:    var tobj;
                   1575:    var nobj;
                   1576:    var cobj;
                   1577:    var cid;
                   1578:    var rid;
                   1579:    data1=infostr.split('&');
                   1580:    data2=obj[data1[0]].split('&');
                   1581:    lnr=data2[data2.length-2];
                   1582:    data3=objlinks[lnr].split(':');
                   1583:    fobj=data3[0];
                   1584:    tobj=data3[1];
                   1585:    cobj=data3[2];
                   1586:    if (data2[0]=='v') {
                   1587:       rid=data1[1];
                   1588:       cid=data2[1];
                   1589:    } else {
                   1590:       rid=data2[1];
                   1591:       cid=(data2[2].split(':'))[0];
                   1592:    }
                   1593:    dellink(lnr);
                   1594:    newresource(rid,cid,'','','false','normal');
                   1595:    nobj=obj.length-1;
                   1596:    save();
                   1597:    joinres(fobj,nobj,cobj);
                   1598:    save();
                   1599:    joinres(nobj,tobj,0);
                   1600: }
                   1601: 
                   1602: // -------------------------------------------- Insert resource after condition
                   1603: function insertcondlink(cid,lnr) {
                   1604:    var fobj;
                   1605:    var tobj;
                   1606:    var nobj;
                   1607:    var cobj;
                   1608:    data3=objlinks[lnr].split(':');
                   1609:    fobj=data3[0];
                   1610:    tobj=data3[1];
                   1611:    cobj=data3[2];
                   1612:    rid=(obj[fobj].split('&'))[1];
                   1613:    insertrow(row[rid]);
                   1614:    dellink(lnr);
                   1615:    newresource(maxrow,cid,'','','false','normal');
                   1616:    nobj=obj.length-1;
                   1617:    save();
                   1618:    joinres(fobj,nobj,cobj);
                   1619:    save();
                   1620:    joinres(nobj,tobj,0);
                   1621: }
                   1622: 
                   1623: // ------------------------------------------------------ Clears indexer window
                   1624: function idxclear() {
1.13      raeburn  1625:   idx.document.open();
                   1626:   idx.document.close();
1.1       raeburn  1627: }
                   1628: 
                   1629: // --------------------------------------------------------- Clears copy window
                   1630: function copydxclear() {
1.13      raeburn  1631:   copydx.document.open();
                   1632:   copydx.document.close();
1.1       raeburn  1633: }
                   1634: // ------------------------------------------------------- Clears search window
                   1635: function srchclear() {
1.13      raeburn  1636:   srch.document.open();
                   1637:   srch.document.close();
1.1       raeburn  1638: }
                   1639: 
                   1640: // --------------------------------------------------------- Clears parm window
                   1641: function parmclear() {
1.13      raeburn  1642:   parm.document.open();
                   1643:   parm.document.close();
1.1       raeburn  1644: }
                   1645: 
                   1646: // ------------------------------------------------------ Closes indexer window
                   1647: function idxclose() {
                   1648:   if (idx && !idx.closed) {
                   1649:     idxflag=0;
                   1650:     idx.close();
                   1651:   }
                   1652: }
                   1653: 
                   1654: // --------------------------------------------------------- Closes copy window
                   1655: function copydxclose() {
                   1656:   if (copydx && !copydx.closed) {
                   1657:     copydxflag=0;
                   1658:     copydx.close();
                   1659:   }
                   1660: }
                   1661: 
                   1662: // ------------------------------------------------------- Closes search window
                   1663: function srchclose() {
                   1664:   if (srch && !srch.closed) {
                   1665:     srchflag=0;
                   1666:     srch.close();
                   1667:   }
                   1668: }
                   1669: 
                   1670: // ------------------------------------------------------- Closes search window
                   1671: function parmclose() {
                   1672:   if (parm && !parm.closed) {
                   1673:     parmflag=0;
                   1674:     parm.close();
                   1675:   }
                   1676: }
                   1677: 
                   1678: // -------------------------------------------------------- Open indexer window
                   1679: function idxopen(mode) {
                   1680:    var options="scrollbars=1,resizable=1,menubar=0";
                   1681:    idxmode=mode;
                   1682:    idxflag=1;
                   1683:    idx=open("/res/?launch=1&mode=rat&catalogmode="+mode,"idxout",options);
                   1684:    idx.focus();
                   1685: }
1.4       www      1686: // -------------------------------------------------------- Open zombie window
                   1687: function groupopen(url) {
                   1688:    var options="scrollbars=1,resizable=1,menubar=0";
                   1689:    idxmode=mode;
                   1690:    idxflag=1;
1.11      bisitz   1691:    idx=open("/adm/groupsort?inhibitmenu=yes&mode=rat&recover=1&readfile="+url,"idxout",options);
1.4       www      1692:    idx.focus();
                   1693: }
1.1       raeburn  1694: // ------------------------------------------------- Open browser to select map
                   1695:     var editbrowser;
                   1696:     function openbrowser(formname,elementname,only,omit) {
                   1697:         var url = '/res/?';
                   1698:         if (editbrowser == null) {
                   1699:             url += 'launch=1&';
                   1700:         }
                   1701:         url += 'catalogmode=interactive&';
                   1702:         url += 'mode=edit&';
                   1703:         url += 'form=' + formname + '&';
                   1704:         if (only != null) {
                   1705:             url += 'only=' + only + '&';
                   1706:         } 
                   1707:         if (omit != null) {
                   1708:             url += 'omit=' + omit + '&';
                   1709:         }
                   1710:         url += 'element=' + elementname + '';
                   1711:         var title = 'Browser';
                   1712:         var options = 'scrollbars=1,resizable=1,menubar=0';
                   1713:         options += ',width=700,height=600';
                   1714:         editbrowser = copydx.open(url,title,options,'1');
                   1715:         editbrowser.focus();
                   1716:     }
                   1717: // ----------------------------------------------------------- Open copy window
                   1718: function copydxopen(mode) {
                   1719:    var options="scrollbars=1,resizable=1,menubar=0";
                   1720:    copydxmode=mode;
                   1721:    copydxflag=1;
                   1722:    copydx=open("",'copydxout',options);
1.13      raeburn  1723:    copydx.document.open('');
1.1       raeburn  1724:    copydx.document.writeln(
                   1725:  '<html><body bgcolor="#FFFFFF"><h1>Copy from Map</h1>'+
1.10      bisitz   1726:  '<form name="mapload"><input type="text" size="40" name="importmap">'+
                   1727:  '<input type="button" onClick="javascript:opener.openbrowser'+
1.1       raeburn  1728:  "('mapload','importmap','sequence,page','')"+
1.10      bisitz   1729:  '" value="Browse"><input type="button" value="Load Map" '+
1.1       raeburn  1730:  'onClick="window.location=document.mapload.importmap.value+'+
                   1731:  "'?launch=1&forceselect=1'"+'"></form>');
                   1732: 
                   1733:    copydx.document.writeln('</body></html>');
                   1734:    copydx.focus();
                   1735: }
                   1736: 
                   1737: // --------------------------------------------------------- Open search window
                   1738: function srchopen(mode) {
                   1739:    var options="scrollbars=1,resizable=1,menubar=0";
                   1740:    srchmode=mode;
                   1741:    srchflag=1;
                   1742:    srch=open("/adm/searchcat?launch=1&mode=rat&catalogmode="+mode,"srchout",options);
                   1743:    srch.focus();
                   1744: }
                   1745: 
                   1746: // -------------------------------------------- Interface function to searching
                   1747: function search() {
                   1748:    alert("Searching not yet implemented");
                   1749: }
                   1750: 
                   1751: // ------------------------------------------------------- Do srch status check
                   1752: function srchcheck(mode) {
                   1753:    if (!srch || srch.closed || srchmode!=mode) {
                   1754:       srchopen(mode);
                   1755:    }
                   1756:    srch.focus();
                   1757: }
                   1758: 
                   1759: // -------------------------------------------------------- Do idx status check
                   1760: function idxcheck(mode) {
                   1761:    if (!idx || idx.closed || idxmode!=mode) {
                   1762:       idxopen(mode);
                   1763:    }
                   1764:    idx.focus();
                   1765: }
                   1766: 
                   1767: // -------------------------------------------------------- Do idx status check
                   1768: function copydxcheck(mode) {
                   1769:    if (!copydx || copydx.closed || copydxmode!=mode) {
                   1770:       copydxopen(mode);
                   1771:    }
                   1772:    copydx.focus();
                   1773: }
                   1774: 
                   1775: // ---------------------------------------------------- Handles "click to edit"
                   1776: function handler(infostr) {
                   1777:   var k;
                   1778:   editmode=1;
                   1779:   notclear=1;
                   1780:   infcheck();
1.13      raeburn  1781:   inf.document.open();
1.1       raeburn  1782:   inf.document.writeln(
                   1783:    '<html><body bgcolor="#FFFFFF">'+
1.10      bisitz   1784:    '<table><tr><td width="32"><img src="'+raticons+'edit.gif" /></td><td bgcolor="#AAFFAA">');
1.1       raeburn  1785:   data1=infostr.split('&');
                   1786:   if (data1[0]=='c') {
1.10      bisitz   1787:      inf.document.writeln('<b>Condition</b><hr />');
1.1       raeburn  1788:      linkmode=0;
                   1789:      if (data1[4]=='-') {
                   1790:         data2[0]=''; data2[1]='normal';
                   1791:      } else {
                   1792:         data2=objcont[data1[4]].split(':');
                   1793:      }
                   1794:      inf.document.writeln(
1.10      bisitz   1795:          '<form name="condinfo"><textarea name="c" cols="30" rows="3">'
                   1796:          +data2[0]+'</textarea><br /><input type="radio" name="s" value="normal" '+
1.1       raeburn  1797:     'onClick="self.document.forms.condinfo.elements.h.value='+"'normal'"+'"');
                   1798:      if (data2[1]=='normal') { inf.document.write(' checked'); }
                   1799:      inf.document.write(
1.10      bisitz   1800:       '> Recommendation if true<br /><input type="radio" name="s" value="stop" '+
1.1       raeburn  1801:       'onClick="self.document.forms.condinfo.elements.h.value='+"'stop'"+'"');
                   1802:      if (data2[1]=='stop') { inf.document.write(' checked'); }
                   1803:      inf.document.write(
1.10      bisitz   1804:       '> Blocking this link if false<br /><input type="radio" name="s" value="force" '+
1.1       raeburn  1805:       'onClick="self.document.forms.condinfo.elements.h.value='+"'force'"+'"');
                   1806:      if (data2[1]=='force') { inf.document.write(' checked'); }
                   1807:      inf.document.write(
1.10      bisitz   1808:    '> Blocking other links if true<br /><a href="javascript:opener.editmode=0;'
1.1       raeburn  1809:       +'opener.notclear=0;');
                   1810:      if (data1[4]=='-') {
                   1811:         inf.document.write('opener.crecond('+data1[2]+','+data1[1]+','
                   1812:       +'opener.escape(self.document.forms.condinfo.elements.c.value),'
                   1813:       +'self.document.forms.condinfo.elements.h.value);');
                   1814:      } else {
                   1815:         inf.document.write('opener.objcont['+data1[4]+']='
                   1816:       +'opener.escape(self.document.forms.condinfo.elements.c.value)+'+"':'"
                   1817:       +'+self.document.forms.condinfo.elements.h.value+'+"':cond';");
                   1818:      }
                   1819:      inf.document.writeln(
                   1820:       'opener.infoclear();opener.editmode=0;opener.draw('
                   1821:       +');"><b>Save Changes</b></a>&nbsp;&nbsp;'
1.10      bisitz   1822:     +' <a href="javascript:self.document.forms.condinfo.reset()">Reset</a><br />'
                   1823:       +'<input type="hidden" name="h" value="'+data2[1]+'">');
1.1       raeburn  1824: 
                   1825:         inf.document.writeln(
                   1826:            '<a href="javascript:opener.notclear=0;opener.infoclear();'
                   1827:    +'opener.delcond('+data1[2]+','+data1[1]+');opener.editmode=0;opener.draw('
1.10      bisitz   1828:          +');">Delete Condition</a><br />');
1.1       raeburn  1829:           inf.document.writeln(
                   1830:            '<a href="javascript:opener.notclear=0;opener.infoclear();'
                   1831:    +'opener.dellink('+data1[3]+');opener.editmode=0;opener.draw('
                   1832:          +');">Delete Link</a>');
                   1833: 
1.10      bisitz   1834:         inf.document.writeln('<br /><a href="javascript:'+
1.1       raeburn  1835:          'opener.insertcondlink('+data1[1]+','+data1[3]+');'+
                   1836:          'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
                   1837:                               +');">Insert Resource Into Link</a>');
                   1838: } else {
                   1839:      if (data1[0]=='r') {
                   1840:        if (linkmode!=0) {
                   1841:         joinres(linkmode,data1[1],0);
                   1842:         editmode=0;
                   1843:         notclear=0;
                   1844:         linkmode=0;
                   1845:         inf.document.writeln('<b>Linked Resources</b>');
                   1846:         draw();
                   1847:        } else {
                   1848:         data2=objcont[data1[1]].split(':');
                   1849:         if (data2[3]=='start') {
                   1850:            inf.document.writeln('<b>Start</b>');
                   1851:         } else {
                   1852:            if (data2[3]=='finish') {
                   1853:               inf.document.writeln('<b>Finish</b>');
                   1854:            } else {
                   1855:               inf.document.writeln('<b>Resource</b>');
                   1856:            }
                   1857:         }
                   1858:         inf.document.write(
1.10      bisitz   1859:          '<form name="resinfo"><table><tr><td>Title:</td><td colspan="2">'
                   1860:         +'<input type="text" name="t" size="30" value="'
                   1861: +escape(data2[0])+'"><input type="hidden" name="h" value='+data2[3]+'></td></tr>');
                   1862:            inf.document.write('<tr><td>URL:</td><td colspan="2">'
                   1863:         +'<input type="text" name="u" size="30" value="'+data2[1]+'"></td></tr>'
                   1864:         +'<tr><td>External:</td><td><input type="checkbox" name="e"');
                   1865:         if (data2[2]=='true') { inf.document.write(' checked="checked"'); }
                   1866:         inf.document.write('></td><td align="right">'
1.1       raeburn  1867:         +'<a href="javascript:opener.idxcheck(\'interactive\')">Browse</a> '
                   1868:         +'<a href="javascript:opener'
                   1869: 	+'.srchcheck(\'interactive\')">Search</a></td></tr>');
                   1870:     if ((data2[3]!='start') && (data2[3]!='finish')) {
1.10      bisitz   1871:         inf.document.write('<tr><td colspan="3">'
                   1872:         +'<input type="radio" name="y" value="normal" '+
1.1       raeburn  1873:  'onClick="self.document.forms.resinfo.elements.h.value='+"'normal'"+'"');
1.10      bisitz   1874:      if (data2[3]=='normal') { inf.document.write(' checked="checked"'); }
1.1       raeburn  1875:      inf.document.write(
1.10      bisitz   1876:       '> Regular&nbsp;&nbsp;<input type="radio" name="y" value="mandatory" '+
1.1       raeburn  1877:  'onClick="self.document.forms.resinfo.elements.h.value='+"'mandatory'"+'"');
1.10      bisitz   1878:      if (data2[3]=='mandatory') { inf.document.write(' checked="checked"'); }
1.1       raeburn  1879:      inf.document.write(
1.10      bisitz   1880:       '> Mandatory&nbsp;&nbsp;<input type="radio" name="y" value="optional" '+
1.1       raeburn  1881:  'onClick="self.document.forms.resinfo.elements.h.value='+"'optional'"+'"');
1.10      bisitz   1882:      if (data2[3]=='optional') { inf.document.write(' checked="checked"'); }
1.1       raeburn  1883:      inf.document.write('> Optional</td></tr>');
                   1884:     } 
                   1885:         inf.document.writeln(
1.10      bisitz   1886:          '<tr><td colspan="3"><a href="javascript:opener.editmode=0;'
1.1       raeburn  1887:         +'opener.notclear=0;opener.objcont['+data1[1]
                   1888:         +']=opener.escape(self.document.forms.resinfo.elements.t.value)+'+"':'"
                   1889:         +'+opener.escape(self.document.forms.resinfo.elements.u.value)+'+"':'"
                   1890:         +'+self.document.forms.resinfo.elements.e.checked+'+"':'"
                   1891:         +'+self.document.forms.resinfo.elements.h.value+'+"':res'"
                   1892:         +';opener.infoclear();opener.editmode=0;opener.draw();">'
                   1893:         +'<b>Save Changes</b></a>&nbsp;&nbsp;'
                   1894:         +' <a href="javascript:self.document.forms.resinfo.reset()">Reset</a>'
                   1895:         +'</td></tr></table>');
                   1896:     if ((data2[3]!='start') && (data2[3]!='finish')) {
                   1897:         inf.document.writeln(
                   1898:            '<a href="javascript:opener.notclear=0;opener.infoclear();'
                   1899:          +'opener.delres('+data1[1]+',0);opener.editmode=0;opener.draw('
                   1900:          +');">Delete Resource (cutting links)</a>');
                   1901:         inf.document.writeln(
1.10      bisitz   1902:           '<br /><a href="javascript:opener.notclear=0;opener.infoclear();'
1.1       raeburn  1903:          +'opener.delres('+data1[1]+',1);opener.editmode=0;opener.draw('
                   1904:          +');">Delete Resource (preserving links)</a>');
                   1905:     }
                   1906:     if (data2[3]!='finish') {
                   1907:         inf.document.writeln(
1.10      bisitz   1908:           '<br /><a href="javascript:opener.editmode=0;opener.notclear=0;'
1.1       raeburn  1909:          +'opener.linkmode='+data1[1]+';'
                   1910:          +'opener.infoclear();">Link Resource</a>');
                   1911:     }
                   1912:         inf.document.writeln(
1.10      bisitz   1913:           '<br /><a href="javascript:'
1.1       raeburn  1914:          +'opener.setparms('+data1[1]+');'
                   1915:          +'opener.infoclear();">Set Parameters</a>');
                   1916:     
                   1917:       }
                   1918:      } else {
                   1919:         linkmode=0;
1.10      bisitz   1920:         inf.document.writeln('<b>Link</b><hr /><form>');
1.1       raeburn  1921:         data2=obj[data1[0]].split('&');
                   1922:         k=data2[data2.length-2];
                   1923:         data3=objlinks[k].split(':');
                   1924:         inf.document.writeln('From <b>'+objcont[data3[0]].split(':')[0]+
1.10      bisitz   1925:               '</b><br />to <b>'+objcont[data3[1]].split(':')[0]+'</b>');
                   1926:         inf.document.writeln('<br /><a href="javascript:opener.dellink('+
1.1       raeburn  1927:      k+');opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
                   1928:                               +');">Delete Link</a>');
1.10      bisitz   1929:         inf.document.writeln('<br /><a href="javascript:'+
1.1       raeburn  1930:          "opener.insertreslink('"+infostr+"');"+
                   1931:          'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
                   1932:                               +');">Insert Resource Into Link</a>');
                   1933:      }
                   1934:   }
                   1935:   inf.document.writeln(
1.10      bisitz   1936:      '<br /><a href="javascript:opener.editmode=0;opener.notclear=0;'
1.1       raeburn  1937:      +'opener.infoclear();">Cancel</a>');
                   1938:   inf.document.writeln('</form></td></tr></table></body></html>');
                   1939:   inf.document.close();
                   1940:   inf.focus();
                   1941: }
                   1942: 
                   1943: // ----------------------------------------------------- Clicks on empty fields
                   1944: function empty(rid,k) {
                   1945:   var cid=findcol(k);
                   1946:   var lcol=k-1;
                   1947:   trow=row[rid];
                   1948:   lrow=trow-1;
                   1949:   editmode=1;
                   1950:   notclear=1;
                   1951:   linkmode=0;
                   1952:   infcheck();
1.13      raeburn  1953:   inf.document.open();
1.1       raeburn  1954:   inf.document.writeln(
                   1955:    '<html><body bgcolor="#FFFFFF">'+
1.10      bisitz   1956:    '<table><tr><td width="32"><img src="'+raticons+'edit.gif" /></td><td bgcolor="#AAFFAA">'+
                   1957:    '<b>Empty Field</b><hr />');
1.1       raeburn  1958: 
1.10      bisitz   1959:         inf.document.writeln('<br /><a href="javascript:opener.newresource('+
1.1       raeburn  1960:           rid+','+cid+",'','','false','normal');"+
                   1961:          'opener.mostrecent=opener.obj.length-1;'+
                   1962:          'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
                   1963:           +');">Insert resource</a>');
                   1964: 
                   1965:   if ((mostrecent!=0) && (objcont[mostrecent]!='') && 
                   1966:                          (typeof(objcont[mostrecent])!="undefined")) {
                   1967: 
1.10      bisitz   1968:         inf.document.writeln('<br /><a href="javascript:opener.newresource('+
1.1       raeburn  1969:           rid+','+cid+",'','','false','normal');"+
                   1970:          'opener.mostrecent=opener.obj.length-1;'+
                   1971:         'opener.joinres('+mostrecent+',opener.obj.length-1,0);'+
                   1972:   'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
                   1973:           +');">Insert resource linked to from most recent one</a>');
                   1974: 
1.10      bisitz   1975:         inf.document.writeln('<br /><a href="javascript:opener.newresource('+
1.1       raeburn  1976:           rid+','+cid+",'','','false','normal');"+
                   1977:          'opener.mostrecent=opener.obj.length-1;'+
                   1978:         'opener.joinres(opener.obj.length-1,'+mostrecent+',0);'+
                   1979:   'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
                   1980:           +');">Insert resource linking to most recent one</a>');
                   1981:   }
                   1982: 
                   1983: 
1.10      bisitz   1984:   inf.document.writeln('<hr />Insert column:');
1.1       raeburn  1985:         inf.document.writeln('<a href="javascript:opener.insertcol('+
                   1986:         lcol+');opener.addobj('+rid+",'e&'+opener.maxcol);"
                   1987:        +'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
                   1988:                               +');">left</a>');
                   1989:         inf.document.writeln('<a href="javascript:opener.insertcol('+
                   1990:         k+');opener.addobj('+rid+",'e&'+opener.maxcol);"
                   1991:        +'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
                   1992:                               +');">right</a> ');
1.10      bisitz   1993:    inf.document.writeln('<br />Insert row:');
1.1       raeburn  1994:         inf.document.writeln('<a href="javascript:opener.insertrow('+
                   1995:         trow+');opener.addobj(opener.maxrow'+",'e&"+cid+"');"
                   1996:        +'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
                   1997:                               +');">below</a>');
                   1998:         inf.document.writeln('<a href="javascript:opener.insertrow('+
                   1999:         lrow+');opener.addobj(opener.maxrow'+",'e&"+cid+"');"
                   2000:        +'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
                   2001:                               +');">above</a> ');
                   2002: 
                   2003: 
                   2004:   inf.document.writeln(
1.10      bisitz   2005:    '<br /><a href="javascript:opener.editmode=0;opener.notclear=0;'
1.1       raeburn  2006:   +'opener.infoclear();">Cancel</a>');
                   2007:   inf.document.writeln('</td></tr></table></body></html>');
                   2008:   inf.document.close();
                   2009:   inf.focus();
                   2010: }
                   2011: 
                   2012: // ---------------------------------------------------- Save into hidden fields
                   2013: function save() {
                   2014:   var k;
                   2015:   if (graphdef=='yes') {
                   2016:    parent.server.document.forms.storage.output.value='graphdef<:>yes';
                   2017:    for (k=1;k<obj.length;k++) {
                   2018:          parent.server.document.forms.storage.output.value+=
                   2019:           '<&>obj<:>'+k+'<:>'+obj[k];
                   2020:    }
                   2021:    for (k=0;k<row.length;k++) {
                   2022:          parent.server.document.forms.storage.output.value+=
                   2023:           '<&>row<:>'+k+'<:>'+row[k];
                   2024:    }
                   2025:    for (k=0;k<col.length;k++) {
                   2026:          parent.server.document.forms.storage.output.value+=
                   2027:           '<&>col<:>'+k+'<:>'+col[k];
                   2028:    }
                   2029:    for (k=0;k<rowcont.length;k++) {
                   2030:       if (rowcont[k]) {
                   2031:          parent.server.document.forms.storage.output.value+=
                   2032:           '<&>rowcont<:>'+k+'<:>'+rowcont[k];
                   2033:       }
                   2034:    }
                   2035:    parent.server.document.forms.storage.output.value+=
                   2036:       '<&>maxcol<:>'+maxcol; 
                   2037:    parent.server.document.forms.storage.output.value+=
                   2038:       '<&>maxrow<:>'+maxrow;
                   2039:     parent.server.document.forms.storage.output.value+=
                   2040:       '<&>zscale<:>'+zscale;
                   2041: } else {
                   2042:    parent.server.document.forms.storage.output.value='graphdef<:>no';
                   2043:  }
                   2044:  parent.server.document.forms.storage.output.value+=
                   2045:    '<&>tablemode<:>'+tablemode;
                   2046:       
                   2047:    for (k=0;k<objparms.length;k++) {
                   2048:       if (objparms[k]) {
                   2049:          parent.server.document.forms.storage.output.value+=
                   2050:           '<&>objparms<:>'+k+'<:>'+objparms[k];
                   2051:       }
                   2052:    }  
                   2053:    for (k=0;k<objcont.length;k++) {
                   2054:       if (objcont[k]) {
                   2055:          parent.server.document.forms.storage.output.value+=
                   2056:           '<&>objcont<:>'+k+'<:>'+objcont[k];
                   2057:       }
                   2058:    }
                   2059:    for (k=0;k<objlinks.length;k++) {
                   2060:       if (objlinks[k]) {
                   2061:          parent.server.document.forms.storage.output.value+=
                   2062:           '<&>objlinks<:>'+k+'<:>'+objlinks[k];
                   2063:       }
                   2064:    }
                   2065:    undopointer++;
                   2066:    undostack[undopointer]=
                   2067:     parent.server.document.forms.storage.output.value;
                   2068: }
                   2069: 
                   2070: // ----------------------------------------------- Reset all layout information
                   2071: function graphreset() {
                   2072: 
                   2073:    var k;
                   2074: 
                   2075:    for (k=0;k<obj.length;k++) { obj[k]=''; }
                   2076:    obj.length=0;
                   2077:    obj[0]='';
                   2078: 
                   2079:    rowcont.length=0;
                   2080:    rowcont[0]='';
                   2081: 
                   2082:    row.length=0;
                   2083:    row[0]=0;
                   2084:    maxrow=0;
                   2085: 
                   2086:    col.length=0;
                   2087:    colmap.length=0;
                   2088:    maxcol=-1;
                   2089:    insertcol(-1);
                   2090: 
                   2091:    objcont[0]='';
                   2092:    objlinks[0]='';
                   2093: 
                   2094:    graphdef='no';
                   2095: 
                   2096: }
                   2097: 
                   2098: // --------------------- Compare two resources with each other for "straighten"
                   2099: function rescompare(a,b) {
                   2100:    data1=a.split(':');
                   2101:    data2=b.split(':');
                   2102:    var rvalue=0;
                   2103:    var k;
                   2104:    for (k=1;k<data1.length;k++) {
                   2105:       if (data1[k]==data2[0]) { rvalue--; }
                   2106:    }
                   2107:    for (k=1;k<data2.length;k++) {
                   2108:       if (data2[k]==data1[0]) { rvalue++; }
                   2109:    }
                   2110:    if (rvalue==0) { rvalue=data2.length-data1.length; }
                   2111:    return rvalue;
                   2112: }
                   2113: 
                   2114: // -------------------------------------------- Draw the table instead of graph
                   2115: function tabledraw() {
                   2116:   var objsorted=new Array();
                   2117:   var robjs=new Array();
                   2118:   var iobjs=new Array();
                   2119:   var k;
                   2120:   var i;
                   2121:   var j;
                   2122:   var nr;
                   2123:   var ck;
                   2124:   var cck;
                   2125:   var condid;
                   2126:   var url='';
                   2127:   var mime='';
                   2128:   var ext='';
                   2129:   var urlparts=new Array;
                   2130:   var sortstr=sortobjs();
                   2131:  insrestab(1,-1,-1,'');
                   2132:  if ((sortstr!='') && (typeof(sortstr)!="undefined")) {
                   2133:   objsorted=sortstr.split('&');
                   2134:   for (k=0;k<objsorted.length;k++) {
                   2135:      i=(objsorted[k].split(':'))[0];
                   2136:      iobjs[k]=i;
                   2137:      robjs[i]=k;
                   2138:   }
                   2139:   for (k=0;k<iobjs.length;k++) {
                   2140:        i=iobjs[k];
                   2141:        if (k<objsorted.length-1) {
                   2142:           nr=iobjs[k+1];
                   2143:        } else {
                   2144:           nr=-1;
                   2145:        }
                   2146:        data1=objcont[i].split(':');
                   2147:        ck=rescolor(data1[2],data1[3]);
                   2148:         parent.mapout.document.write('<tr><td bgcolor="'+ck+'">');
                   2149:         url=data1[1];
                   2150:         ext=data1[2];
                   2151:         urlparts=url.split('.');
                   2152:         mime=urlparts[urlparts.length-1];
                   2153:         if (typeof(mime)=="undefined") { mime=''; }
                   2154:         if ((mime!='') && (ext!='true')) {
                   2155:            parent.mapout.document.write
                   2156:            ('<a target="preview" align="right" href="'+url+'.meta'+
1.10      bisitz   2157:            '"><img width="20" src="'+iconpath+'meta.gif" /></a><p>'+
1.1       raeburn  2158:            '<a target="preview" align="right"href="'+url+
1.10      bisitz   2159:            '"><img width="20" src="'+iconpath+mime+'.gif" /></a><p>');
1.1       raeburn  2160:         }
                   2161:          parent.mapout.document.write(
                   2162:          '<b><a href="javascript:if (parent.code.linkmode!=0) { '
                   2163:         +'parent.code.joinres(parent.code.linkmode,'+i+',0);'
                   2164:         +'parent.code.linkmode=0;parent.code.editmode=0;'
                   2165:         +'parent.code.notclear=0;parent.code.infoclear();'
                   2166:         +'parent.code.draw(); }">'+k+'</a></b></td><td bgcolor="'+ck
1.10      bisitz   2167:         +'"><form name="r'+i+'" method="post">');
1.1       raeburn  2168:       data2=obj[i].split('&');
                   2169:       parent.mapout.document.write('<table bgcolor="#CCCCCC">');
                   2170: 
                   2171:       if (data1[3]=='start') { 
                   2172:          parent.mapout.document.writeln('<tr><td><b>Start</b></td></tr>');
                   2173:       }
                   2174:       if (data1[3]=='finish') { 
                   2175:          parent.mapout.document.writeln('<tr><td><b>Finish</b></td></tr>');
                   2176:       }
                   2177:       parent.mapout.document.write(
1.10      bisitz   2178:        '<tr><td>Title:</td><td><input type="text" name="t" size="50" value="'
                   2179:             +data1[0]+'"><input type="hidden" name="h" value="'+data1[3]
                   2180:             +'"></td></tr>');
1.1       raeburn  2181:       parent.mapout.document.write(
1.10      bisitz   2182:        '<tr><td>URL:</td><td><input type="text" name="u" size="50" value="'
1.1       raeburn  2183:                                   +data1[1]+'"></td></tr>'
1.10      bisitz   2184:           +'<tr><td>External:</td><td><input type="checkbox" name="e"');
                   2185:         if (data1[2]=='true') { parent.mapout.document.write(' checked="checked"'); }
1.1       raeburn  2186:         parent.mapout.document.write('></td></tr>');
                   2187:     if ((data1[3]!='start') && (data1[3]!='finish')) {
                   2188:         parent.mapout.document.write(
1.10      bisitz   2189:         '<tr><td colspan="2"><input type="radio" name="y" value="normal" '+
1.1       raeburn  2190:  'onClick="parent.mapout.document.forms.r'+i+'.elements.h.value='+
                   2191:      "'normal'"+'"');
1.10      bisitz   2192:      if (data1[3]=='normal') { parent.mapout.document.write(' checked="checked"'); }
1.1       raeburn  2193:      parent.mapout.document.write(
1.10      bisitz   2194:       '> Regular&nbsp;&nbsp;<input type="radio" name="y" value="mandatory" '+
1.1       raeburn  2195:  'onClick="parent.mapout.document.forms.r'+i+'.elements.h.value='+
                   2196:      "'mandatory'"+'"');
1.10      bisitz   2197:      if (data1[3]=='mandatory') { parent.mapout.document.write(' checked="checked"'); }
1.1       raeburn  2198:      parent.mapout.document.write(
1.10      bisitz   2199:       '> Mandatory&nbsp;&nbsp;<input type="radio" name="y" value="optional" '+
1.1       raeburn  2200:  'onClick="parent.mapout.document.forms.r'+i+'.elements.h.value='+
                   2201:      "'optional'"+'"');
1.10      bisitz   2202:      if (data1[3]=='optional') { parent.mapout.document.write(' checked="checked"'); }
1.1       raeburn  2203:      parent.mapout.document.write('> Optional</td></tr>');
                   2204:     } 
                   2205:      parent.mapout.document.write(
1.10      bisitz   2206:          '<tr><td colspan="2"><a href="javascript:parent.code.objcont['+i        
1.1       raeburn  2207:         +']=parent.code.escape(parent.mapout.document.forms.r'+i
                   2208:         +'.elements.t.value)+'+"':'"
                   2209:         +'+parent.code.escape(parent.mapout.document.forms.r'+i
                   2210:         +'.elements.u.value)+'+"':'"
                   2211:         +'+parent.mapout.document.forms.r'+i+'.elements.e.checked+'+"':'"
                   2212:         +'+parent.mapout.document.forms.r'+i+'.elements.h.value+'+"':res'"
                   2213:         +';parent.code.draw();">'
                   2214:         +'<b>Save Changes</b></a>&nbsp;&nbsp;'
                   2215:         +' <a href="javascript:parent.mapout.document.forms.r'+i
1.10      bisitz   2216:         +'.reset()">Reset</a></td></tr><tr><td colspan="2">');
1.1       raeburn  2217:     if ((data1[3]!='start') && (data1[3]!='finish')) {
                   2218:      parent.mapout.document.writeln(
1.10      bisitz   2219:  '<a href="javascript:parent.code.notclear=0;parent.code.infoclear();'
1.1       raeburn  2220: +'parent.code.delres('+i+',0);parent.code.editmode=0;parent.code.draw();">'
1.10      bisitz   2221: +'Delete Resource (cutting links)</a><br />'
                   2222: +'<a href="javascript:parent.code.notclear=0;parent.code.infoclear();'
1.1       raeburn  2223: +'parent.code.delres('+i+',1);parent.code.editmode=0;parent.code.draw();">'
1.10      bisitz   2224: +'Delete Resource (preserving links)</a><br />');
1.1       raeburn  2225:     }
                   2226:     if (data1[3]!='finish') {
                   2227:        parent.mapout.document.writeln(
                   2228:         '<a href="javascript:parent.code.linkmode='+i+
                   2229:        ';parent.code.notclear=0;parent.code.infoclear();">'+
                   2230:        'Link resource</a>');
                   2231:     }
                   2232:         parent.mapout.document.writeln(
1.10      bisitz   2233:           '<br /><a href="javascript:'
1.1       raeburn  2234:          +'parent.code.setparms('+i+');">Set Parameters</a>');
                   2235: 
                   2236:       parent.mapout.document.writeln('</td></tr>');
1.10      bisitz   2237:        parent.mapout.document.writeln('<tr><td colspan="2"><table><tr>');
1.1       raeburn  2238:        for (j=2;j<data2.length;j++) {
                   2239:            data4=data2[j].split(':');
                   2240:            data3=objlinks[data4[2]].split(':');
                   2241:            if (data3.length>1) {
                   2242:               if (data3[1]==nr) {
                   2243:                  cck='#AAAAAA';
                   2244:                  if (data3[2]!=0) { 
                   2245:                    cck=condcolor((objcont[data3[2]].split(':'))[1]);
                   2246:                    condid=data3[2];
                   2247:                  } else {
                   2248:                    condid='-';
                   2249:                  }                 
                   2250:                  parent.mapout.document.writeln(
1.10      bisitz   2251:                   '<td bgcolor="'+cck+'">Next<br />');
1.1       raeburn  2252:                  parent.mapout.document.writeln(
                   2253:                   '<a href="javascript:parent.code.handler('+
                   2254:                   "'c&"+data4[0]+'&'+i+'&'+data4[2]+'&'+condid+"');"
                   2255:                   +'">Edit</a>');
                   2256:                  parent.mapout.document.writeln('</td>');
                   2257:               }
                   2258:            }
                   2259:        }
                   2260:        for (j=2;j<data2.length;j++) {
                   2261:            data4=data2[j].split(':');
                   2262:            data3=objlinks[data4[2]].split(':');
                   2263:            if (data3.length>1) {
                   2264:               if ((data3[1]!=nr) && (data3[1]!=0)) {
                   2265:                  cck='#AAAAAA';
                   2266:                  if (data3[2]!=0) { 
                   2267:                    cck=condcolor((objcont[data3[2]].split(':'))[1]);
                   2268:                    condid=data3[2];
                   2269:                  } else {
                   2270:                    condid='-';
                   2271:                  }
                   2272:                  parent.mapout.document.writeln(
1.10      bisitz   2273:                   '<td bgcolor="'+cck+'">To: '+robjs[data3[1]]+'<br />');
1.1       raeburn  2274:                  parent.mapout.document.writeln(
                   2275:                   '<a href="javascript:parent.code.handler('+
                   2276:                   "'c&"+data4[0]+'&'+i+'&'+data4[2]+'&'+condid+"');"
                   2277:                   +'">Edit</a>');
                   2278:                  parent.mapout.document.writeln('</td>');
                   2279:               }
                   2280:            }
                   2281:        }
                   2282:        parent.mapout.document.writeln(
                   2283:         '</tr></table></td></tr></table></form>');
                   2284:        insrestab(rrow[data2[1]],i,nr,data1[3]);
                   2285: 
                   2286:    }
                   2287:   }
                   2288: }
                   2289: 
                   2290: // ----------------------------------------------------- Insert Resource Output
                   2291: function insrestab(irow,be,af,typ) {
1.10      bisitz   2292:   parent.mapout.document.writeln('<tr><td colspan="2">'+
1.1       raeburn  2293:        '<table><tr><td><a href="javascript:parent.code.insertrow('
                   2294:        +irow+');parent.code.newresource(parent.code.maxrow,'+rcol[1]
                   2295:  +",'','','false','normal');parent.code.mostrecent=parent.code.obj.length-1;"
                   2296:        +'parent.code.draw();">'
                   2297:        +'Insert resource</a></td><td>');
                   2298:   if ((be!=-1) && (typ!='finish')) {
                   2299:    parent.mapout.document.writeln(
                   2300:        '<a href="javascript:parent.code.insertrow('
                   2301:        +irow+');parent.code.newresource(parent.code.maxrow,'+rcol[0]
                   2302:  +",'','','false','normal');parent.code.mostrecent=parent.code.obj.length-1;"
                   2303:        +"parent.code.save();"
                   2304:        +'parent.code.joinres('+be+',parent.code.mostrecent,0);'
                   2305:        +'parent.code.draw();">'
1.10      bisitz   2306:        +'Insert resource linked to from above</a><br />');
1.1       raeburn  2307:   }
                   2308:   if ((be!=-1) && (af!=-1) && (typ!='finish')) {
                   2309:      parent.mapout.document.writeln(
                   2310:        '<a href="javascript:parent.code.insertrow('
                   2311:        +irow+');parent.code.newresource(parent.code.maxrow,'+rcol[0]
                   2312:  +",'','','false','normal');parent.code.mostrecent=parent.code.obj.length-1;"
                   2313:        +"parent.code.save();"
                   2314:        +'parent.code.joinres('+be+',parent.code.mostrecent,0);'
                   2315:        +"parent.code.save();"
                   2316:        +'parent.code.joinres(parent.code.mostrecent,'+af+',0);'
                   2317:        +'parent.code.draw();">'
1.10      bisitz   2318:        +'Insert resource linked to from above and linking to below</a><br />');
1.1       raeburn  2319:   }
                   2320:   if (af!=-1) {
                   2321:      parent.mapout.document.writeln(
                   2322:        '<a href="javascript:parent.code.insertrow('
                   2323:        +irow+');parent.code.newresource(parent.code.maxrow,'+rcol[0]
                   2324:  +",'','','false','normal');parent.code.mostrecent=parent.code.obj.length-1;"
                   2325:        +"parent.code.save();"
                   2326:        +'parent.code.joinres(parent.code.mostrecent,'+af+',0);'
                   2327:        +'parent.code.draw();">'
1.10      bisitz   2328:        +'Insert resource linking to below</a><br />');
1.1       raeburn  2329:   }
                   2330:   parent.mapout.document.writeln('</td></tr></table></tr>');
                   2331: }
                   2332: 
                   2333: // ---------------------------------------- Draw simple table instead of graph
                   2334: function simpletabledraw() {
                   2335:   var objsorted=new Array();
                   2336:   var robjs=new Array();
                   2337:   var iobjs=new Array();
                   2338:   var k;
                   2339:   var i;
                   2340:   var j;
                   2341:   var nr;
                   2342:   var ck;
                   2343:   var cck;
                   2344:   var mime;
                   2345:   var ext;
                   2346:   var url;
                   2347:   var urlparts=new Array;
                   2348:   var condid;
                   2349:   var sortstr=sortobjs();
                   2350:  if ((sortstr!='') && (typeof(sortstr)!="undefined")) {
                   2351:   objsorted=sortstr.split('&');
                   2352:   for (k=0;k<objsorted.length;k++) {
                   2353:      i=(objsorted[k].split(':'))[0];
                   2354:      iobjs[k]=i;
                   2355:      robjs[i]=k;
                   2356:   }
                   2357:   for (k=0;k<iobjs.length;k++) {
                   2358:        i=iobjs[k];
                   2359:        if (k<objsorted.length-1) {
                   2360:           nr=iobjs[k+1];
                   2361:        } else {
                   2362:           nr=-1;
                   2363:        }
                   2364:        data1=objcont[i].split(':');
                   2365:        ck=rescolor(data1[2],data1[3]);
                   2366:         parent.mapout.document.write('<tr><td bgcolor="'+ck+'">');
                   2367:         url=data1[1];
                   2368:         ext=data1[2];
                   2369:         urlparts=url.split('.');
                   2370:         mime=urlparts[urlparts.length-1];
                   2371:         if (typeof(mime)=="undefined") { mime=''; }
                   2372:         if ((mime!='') && (ext!='true')) {
                   2373:            parent.mapout.document.write
                   2374:            ('<a target="preview" align="right" href="'+url+'.meta'+
1.10      bisitz   2375:            '"><img width="20" src="'+iconpath+'meta.gif" /></a><p>'+
1.1       raeburn  2376:            '<a target="preview" align="right"href="'+url+
1.10      bisitz   2377:            '"><img width="20" src="'+iconpath+mime+'.gif" /></a><p>');
1.1       raeburn  2378:         }        
                   2379:       parent.mapout.document.write('<b>'+k+'</b></td><td bgcolor="'+ck+'">');
                   2380:       data2=obj[i].split('&');
                   2381:       parent.mapout.document.write('<table>');
                   2382: 
                   2383:       if (data1[3]=='start') { 
                   2384:          parent.mapout.document.writeln('<tr><td><b>Start</b></td></tr>');
                   2385:       }
                   2386:       if (data1[3]=='finish') { 
                   2387:          parent.mapout.document.writeln('<tr><td><b>Finish</b></td></tr>');
                   2388:       }
                   2389:       parent.mapout.document.write(
                   2390:        '<tr><td>Title:</td><td>'+data1[0]+'</td></tr>');
                   2391:       parent.mapout.document.write(
                   2392:        '<tr><td>URL:</td><td>'+data1[1]+'</td></tr>'
1.10      bisitz   2393:       +'<tr><td colspan="2"><table><tr>');
1.1       raeburn  2394:        for (j=2;j<data2.length;j++) {
                   2395:            data4=data2[j].split(':');
                   2396:            data3=objlinks[data4[2]].split(':');
                   2397:            if (data3.length>1) {
                   2398:               if (data3[1]==nr) {
                   2399:                  cck='#AAAAAA';
                   2400:                  if (data3[2]!=0) { 
                   2401:                    cck=condcolor((objcont[data3[2]].split(':'))[1]);
                   2402:                    condid=data3[2];
                   2403:                  } else {
                   2404:                    condid='-';
                   2405:                  }                 
                   2406:                  parent.mapout.document.writeln(
1.10      bisitz   2407:                   '<td bgcolor='+cck+'>Next<br />');
1.1       raeburn  2408:                   parent.mapout.document.writeln('</td>');
                   2409:               }
                   2410:            }
                   2411:        }
                   2412:        for (j=2;j<data2.length;j++) {
                   2413:            data4=data2[j].split(':');
                   2414:            data3=objlinks[data4[2]].split(':');
                   2415:            if (data3.length>1) {
                   2416:               if ((data3[1]!=nr) && (data3[1]!=0)) {
                   2417:                  cck='#AAAAAA';
                   2418:                  if (data3[2]!=0) { 
                   2419:                    cck=condcolor((objcont[data3[2]].split(':'))[1]);
                   2420:                    condid=data3[2];
                   2421:                  } else {
                   2422:                    condid='-';
                   2423:                  }
                   2424:                  parent.mapout.document.writeln(
1.10      bisitz   2425:                   '<td bgcolor="'+cck+'">To: '+robjs[data3[1]]+'<br />');
1.1       raeburn  2426:                  parent.mapout.document.writeln('</td>');
                   2427:               }
                   2428:            }
                   2429:        }
                   2430:        parent.mapout.document.writeln('</tr></table></td></tr></table></tr>');
                   2431:    }
                   2432:   } else {
                   2433:     parent.mapout.document.writeln('<tr><td>No Resources</td></tr>');
                   2434:   }
                   2435: }
                   2436: 
                   2437: // ---------------------------------- Sort objects to straighten graph or table
                   2438: function sortobjs() {
                   2439:    message("Sorting Resources: "+funny);
                   2440:    var k;
                   2441:    var ij;
                   2442:    var dol;
                   2443:    var dtl;
                   2444:    var kj;
                   2445:    var sortthis=0;
                   2446:    var objsort=new Array();
                   2447:    for (k=1;k<objcont.length;k++) {
                   2448:       if (objcont[k]) {
                   2449:          data1=objcont[k].split(':');
                   2450:          if (data1[data1.length-1]=='res') {
                   2451:             objsort[objsort.length]=''+k;
                   2452:          }
                   2453:       }
                   2454:    }
                   2455:    if (objsort.length==0) { return ''; }
                   2456:    for (k=1;k<objlinks.length;k++) {
                   2457:      wheelswitch();
                   2458:      message("Sorting Resources: "+funny);
                   2459:      if ((typeof(objlinks[k])!="undefined") && (objlinks[k]!='')) {
                   2460:       sortthis=1;
                   2461:       data1=objlinks[k].split(':');
                   2462:       kj=-1;
                   2463:       for (j=0;j<objsort.length;j++) {
                   2464:          if ((objsort[j].split(':'))[0]==data1[0]) {
                   2465:             kj=j;
                   2466:          }
                   2467:       }
                   2468:       if (kj!=-1) { objsort[kj]+=':'+data1[1]; }
                   2469:      }
                   2470:    }
                   2471:    if (sortthis!=0) {
                   2472:     for (k=0;k<objsort.length;k++) {
                   2473:       wheelswitch();
                   2474:       message("Sorting Resources: "+funny);
                   2475:       for (j=0;j<objsort.length;j++) {
                   2476:         if (k!=j) {
                   2477:           data1=objsort[k].split(':');
                   2478:           data2=objsort[j].split(':');
                   2479:           dol=data1.length;
                   2480:           dtl=data2.length;
                   2481:           if (dol+dtl<200) {
                   2482:            for (kj=1;kj<dol;kj++) {
                   2483:              if (data1[kj]==data2[0]) {
                   2484:                 for (ij=1;ij<dtl;ij++) {
                   2485:                    data1[data1.length]=data2[ij];
                   2486:                 }
                   2487:              }
                   2488:            }
                   2489:            for (kj=1;kj<dtl;kj++) {
                   2490:              if (data2[kj]==data1[0]) {
                   2491:                  for (ij=1;ij<dol;ij++) {
                   2492:                     data2[data2.length]=data1[ij];
                   2493:                  }
                   2494:              }
                   2495:            }
                   2496:            objsort[k]=data1.join(':');
                   2497:            objsort[j]=data2.join(':');
                   2498:           }
                   2499:          }
                   2500:       } 
                   2501:    }
                   2502:    message("Sorting Resources: finishing up.");
                   2503:    return objsort.sort(rescompare).join('&');
                   2504:   } else {
                   2505:    return objsort.join('&');
                   2506:   }
                   2507: }
                   2508: 
                   2509: // ----------------------------------------------------------- Straighten graph
                   2510: function graphopt() {
                   2511:   var k;
                   2512:   var kj;
                   2513:   var ij;
                   2514:   var objsorted=new Array();
                   2515:   condense(); 
                   2516:   graphreset();
                   2517:   objsorted=(sortobjs()).split('&');
                   2518:   if (objsorted.length==0) { return; }
                   2519:    message("Creating Optimized Graph");
                   2520:    var thisnewobj=''+(objsorted[0].split(':'))[0];
                   2521:    rowcont[1]=thisnewobj;
                   2522:    var thiscolmax=1;
                   2523:    obj[thisnewobj]='b&1&'+thiscolmax+':0:0:0';   
                   2524:    var allcolmax=0;
                   2525:    for (k=1;k<objsorted.length;k++) {
                   2526:       thisnewobj=(objsorted[k].split(':'))[0];
                   2527:       if (rescompare(objsorted[k-1],objsorted[k])==0) {
                   2528:          rowcont[rowcont.length-1]+=':'+thisnewobj;
                   2529:          thiscolmax++;
                   2530:       } else {
                   2531:          rowcont[rowcont.length]=thisnewobj;
                   2532:          thiscolmax=1;
                   2533:       }
                   2534:       kj=rowcont.length-1;
                   2535:       obj[thisnewobj]='b&'+kj+'&'+thiscolmax+':0:0:0';
                   2536:       if (thiscolmax>allcolmax) { allcolmax=thiscolmax; }
                   2537:    }
                   2538:    for (k=0;k<obj.length;k++) {
                   2539:        if (!obj[k]) { obj[k]=''; }
                   2540:    }
                   2541:    for (k=0;k<=allcolmax;k++) { insertcol(0); }
                   2542:    for (k=0;k<rowcont.length;k++) { 
                   2543:       row[k]=k;
                   2544:    }
                   2545:    maxrow=rowcont.length-1;
                   2546:    var oldlinks=new Array();
                   2547:    for (k=0;k<objlinks.length;k++) { 
                   2548:       oldlinks[k]=objlinks[k]; 
                   2549:       objlinks[k]='';
                   2550:    }
                   2551:    objlinks.length=0;
                   2552:    objlinks[0]='';
                   2553:    graphdef='yes';
                   2554:    save();
                   2555: 
                   2556:    for (k=0;k<objsorted.length;k++) {
                   2557:      wheelswitch();
                   2558:      message("Connecting Resources: "+funny);
                   2559:      kj=(objsorted[k].split(':'))[0];
                   2560:       for (ij=1;ij<oldlinks.length;ij++) {
                   2561:         if (oldlinks[ij]) {
                   2562:           data1=oldlinks[ij].split(':');
                   2563:           if (data1[0]==kj) {
                   2564:              joinres(data1[0],data1[1],data1[2]);
                   2565:              save();
                   2566:           }
                   2567:          }
                   2568:       }
                   2569:    }
                   2570: }
                   2571: 
                   2572: // ----------------------------------------------------------- Remove e-objects
                   2573: function condense() {
                   2574:    message("Condensing");
                   2575:    var j;
                   2576:    for (j=0;j<=maxrow;j++) {
                   2577:      if ((rowcont[j]!='') && (typeof(rowcont[j])!="undefined")) {
                   2578:       data1=rowcont[j].split(':');
                   2579:       rowcont[j]='';
                   2580:       for (k=0;k<data1.length;k++) {
                   2581:          if (obj[data1[k]].substring(0,2)!='e&') {
                   2582:             if ((rowcont[j]!='') && (typeof(rowcont[j])!="undefined")) { 
                   2583:                rowcont[j]+=':'; 
                   2584:             }
                   2585:             rowcont[j]+=data1[k];
                   2586:          }
                   2587:       }
                   2588:      }
                   2589:    }
                   2590: }
                   2591: 
                   2592: // ---------------------------------------------------- Load from hidden fields
                   2593: function load() {
                   2594:    message("Loading");
                   2595:    schedule('load');
                   2596: }
                   2597: 
                   2598: function finishload() {
                   2599:    var k;
                   2600:    for (k=0;k<objcont.length;k++) { objcont[k]=''; }
                   2601:    objcont.length=0;
                   2602:    for (k=0;k<objlinks.length;k++) { objlinks[k]=''; }
                   2603:    objlinks.length=0;
                   2604:    for (k=0;k<objparms.length;k++) { objparms[k]=''; }
                   2605:    objparms.length=0;
                   2606:    objlinks[0]='';
                   2607:    objcont[0]='';
                   2608:    editmode=0;
                   2609:    notclear=0;
                   2610:    lastinfo='';
                   2611:    graphreset();
                   2612:    var inputstr=parent.server.document.forms.storage.output.value;
                   2613:    if ((inputstr!='') && (typeof(inputstr)!="undefined")) {
                   2614:    data1=inputstr.split('<&>');
                   2615:    var k;
                   2616:    for (k=0;k<data1.length;k++) {
                   2617:        data2=data1[k].split('&colon;').join('&#58;').split('<:>');
                   2618:        if (data2[0]=='graphdef') { graphdef=data2[1]; }
                   2619:        if (data2[0]=='maxcol') { maxcol=1*data2[1]; }
                   2620:        if (data2[0]=='maxrow') { maxrow=1*data2[1]; }
                   2621:        if (data2[0]=='obj') { obj[data2[1]]=data2[2]; }
                   2622:        if (data2[0]=='objcont') { objcont[data2[1]]=data2[2]; }
                   2623:        if (data2[0]=='objlinks') { objlinks[data2[1]]=data2[2]; }
                   2624:        if (data2[0]=='objparms') {
                   2625:           if (typeof(objparms[data2[1]])=="undefined") {
                   2626:              objparms[data2[1]]=data2[2];
                   2627:           } else {
                   2628:              if (objparms[data2[2]]=='') {
                   2629:                  objparms[data2[1]]=data2[2];
                   2630:              } else {
                   2631:                  objparms[data2[1]]+=':'+data2[2];
                   2632:              }
                   2633:           }
                   2634:        }
                   2635:        if (data2[0]=='rowcont') { rowcont[data2[1]]=data2[2]; }
                   2636:        if (data2[0]=='row') { row[data2[1]]=1*data2[2]; }
                   2637:        if (data2[0]=='col') { col[data2[1]]=1*data2[2]; }
                   2638:        if (data2[0]=='mode') { mode=data2[1]; }
                   2639:        if (data2[0]=='tablemode') { tablemode=1*data2[1]; }
                   2640:        if (data2[0]=='zscale') { zscale=1*data2[1]; }
                   2641:    }
                   2642:   }
                   2643:   if (graphdef=='yes') {
                   2644:      for (k=1;k<=maxrow;k++) {
                   2645:         if (typeof(rowcont[k])=="undefined") { rowcont[k]=''; }
                   2646:      }
                   2647:   } else {
                   2648:    var hasstart=0;
                   2649:    var hasfinish=0;
                   2650:    for (k=0;k<objcont.length;k++) {
                   2651:        if (typeof(objcont[k])!="undefined") {
                   2652:           var objfunctype=(objcont[k].split(':'))[3];
                   2653:           if (objfunctype=='start') { hasstart=1; }
                   2654:           if (objfunctype=='finish') { hasfinish=1; }
                   2655:        }       
                   2656:    }
                   2657:    if (!hasstart) {
                   2658:       if ((typeof(objcont[1])=="undefined") || (objcont[1]=='')) {
                   2659:          objcont[1]='Start::false:start:res';
                   2660:       }
                   2661:    } 
                   2662:    if (!hasfinish) {
                   2663:       if ((typeof(objcont[2])=="undefined") || (objcont[2]=='')) {
                   2664:          objcont[2]='Finish::false:finish:res';
                   2665:       }
                   2666:    }
                   2667:   }
                   2668: }
                   2669: 
                   2670: // -------------------------------------------------------------- Parameter set
                   2671: function setparms(resid) {
                   2672:    var options="scrollbars=1,resizable=1,menubar=0";
                   2673:    parmflag=1;
                   2674:    data1=objcont[resid].split(':');
                   2675:    parm=open("/adm/ratparms?url="+data1[1]+"&parms="+objparms[resid]+
                   2676:              "&resid="+resid,"parmout",options);
                   2677:    parm.focus();
                   2678: }
                   2679: 
                   2680: // -------------------------------------------------------------- Undo function
                   2681: function undo() {
                   2682:    if (undopointer>1) {
                   2683:       undopointer--;
                   2684:       parent.server.document.forms.storage.output.value
                   2685:        =undostack[undopointer];
                   2686:       finishload();
                   2687:       undopointer--;
                   2688:       draw();
                   2689:       stored=0;
                   2690:    } else {
                   2691:       alert("Cannot undo: reached beginning of edit session");
                   2692:    }
                   2693: }
                   2694: 
                   2695: // -------------------------------------------------------------- Redo function
                   2696: function redo() {
                   2697:    if (undopointer<undostack.length-1) {
                   2698:       undopointer++;
                   2699:       parent.server.document.forms.storage.output.value
                   2700:        =undostack[undopointer];
                   2701:       finishload();
                   2702:       undopointer--;
                   2703:       draw();
                   2704:       stored=0;
                   2705:    } else {
                   2706:       alert("Cannot redo: reached end of edit session");
                   2707:    }
                   2708: }
                   2709:  
                   2710: // ------------------------------------------------------------ Revert function
                   2711: function revert() {
                   2712:    if (confirm("Revert to beginning of edit session?")) {
                   2713:       undopointer=2;
                   2714:       undo();
                   2715:    }
                   2716: }
                   2717: 
                   2718: // ---------------------------------------------------------------- Wheelswitch
                   2719: function wheelswitch() {
                   2720:    if (funny=='|') { 
                   2721:       funny='/'; 
                   2722:    } else {
                   2723:       if (funny=='/') {
                   2724:          funny='-';
                   2725:       } else {
                   2726:          if (funny=='-') { 
                   2727:             funny='\\'; 
                   2728:          } else {
                   2729:             if (funny=='\\') { funny='|'; }
                   2730:          }
                   2731:       }
                   2732:    } 
                   2733: }
                   2734: 
                   2735: // --------------------------------------------- Checks if server frame defined
                   2736: function checkdef() {
                   2737:    if (parent.flag==1) {
                   2738:      srvloaded();
                   2739:    }
                   2740:    if ((finishdone==0) && (tim==0)) { setTimeout('checkdef()',100); }
                   2741: }
                   2742: 
                   2743: // ---------------------------------------------------------- The wait function
                   2744: function wait() {
                   2745:    if ((finishdone==1) || (tim==1)) {
                   2746:       if (tim==0) {
                   2747:          clearTimeout(canceltim);
                   2748:          if (reqaction=='save') { finishsave(); }
                   2749:          if (reqaction=='load') { finishload(); draw(); }
                   2750:       } else {
                   2751:          alert("Server Communication Timed Out.");
                   2752:       }
                   2753:    } else {
                   2754:       wheelswitch();
                   2755:       message('Waiting for server reply: '+funny);
                   2756:       setTimeout('wait();',100);
                   2757:    }
                   2758: }
                   2759: 
                   2760: // ---------------------------------------------------------- Schedule function
                   2761: function schedule(action) {
                   2762:    reqaction=action;
                   2763:    tim=0;
                   2764:    finishdone=0;
                   2765:    canceltim=setTimeout('tim=1;',20000);
                   2766:    checkdef();
                   2767:    wait();
                   2768: }
                   2769: 
                   2770: // ----------------------------------------------------- launch indexer browser
                   2771: function groupsearch() {
1.5       www      2772:    srchcheck('import');
1.1       raeburn  2773: }
                   2774: 
                   2775: function groupimport() {
1.5       www      2776:    idxcheck('import');
1.1       raeburn  2777: }
                   2778: 
                   2779: function groupcopy() {
1.5       www      2780:    copydxcheck('import');
1.1       raeburn  2781: }
                   2782: 
                   2783: // -------------------------------------------------------------- Store changes
                   2784: function storechange() {
                   2785:    var k;
                   2786:    parent.flag=0;
                   2787:    parent.server.document.forms.storage.submit();
                   2788:    schedule('save');
                   2789: }
                   2790: 
                   2791: function finishsave() {
                   2792:    finishload();
                   2793:    draw();
                   2794:    stored=1;
                   2795: }
                   2796: 
                   2797: // --------------------------------------- Gets called when submission finished
                   2798: function srvloaded() {
                   2799:    finishdone=1;
                   2800:    message("Server replied.");
                   2801: }
                   2802: 
                   2803: // ---------------------------------------------------------------- Toggle Mode
                   2804: function togglemode() {
                   2805:    if (tablemode==0) { 
                   2806:       tablemode=1; 
                   2807:    } else {
                   2808:       if (tablemode==1) { 
                   2809:          tablemode=2; 
                   2810:       } else {
                   2811:          tablemode=0; 
                   2812:       } 
                   2813:    } 
                   2814:    notclear=0;
                   2815:    infoclear();
                   2816:    draw();
                   2817: }
                   2818: 
                   2819: // -------------------------------------------------------- Main program onLoad
                   2820: function main() {
                   2821:    if (mainrun==0) {
                   2822:       infopen();
                   2823:       infoclear();
                   2824:       load();
                   2825:       stored=1;
                   2826:       mainrun=1;
                   2827:    }
                   2828: }
                   2829: 
                   2830: // ---------------------------------------------------------- Close the window?
                   2831: function leave() {
                   2832:    if (!inf.closed) {
                   2833:       inf.close();
                   2834:    }
                   2835:    if (srch && !srch.closed) {
                   2836:       srchclose();
                   2837:    }
                   2838:    if (idx && !idx.closed) {
                   2839:       idxclose();
                   2840:    }
                   2841:    if (copydx && !copydx.closed) {
                   2842:       copydxclose();
                   2843:    }
                   2844: }
                   2845: 
                   2846: </script>

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>