Annotation of rat/client/code.html, revision 1.31

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

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