Annotation of rat/client/code.html, revision 1.1
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,
! 9: 1/7,1/8,1/10,1/14,1/15,1/16,1/21,1/22,
! 10: 1/29,1/30,1/31,
! 11: 2/2,2/3,2/10,2/12,2/13,2/14,2/15,2/17,2/18,
! 12: 2/19,2/20,2/21,2/22 Gerd Kortemeyer with Scott Harrison
! 13: -->
! 14:
! 15:
! 16: <head>
! 17: <script language="JavaScript">
! 18:
! 19: var row=new Array();
! 20: var maxrow=-1;
! 21: var col=new Array();
! 22: var maxcol=-1;
! 23: var colmap=new Array();
! 24: var colmap2=new Array();
! 25: var colmap3=new Array();
! 26: var colmap4=new Array();
! 27: var colmap5=new Array();
! 28: var colmap6=new Array();
! 29: var obj=new Array();
! 30: var objcont=new Array();
! 31: var objlinks=new Array();
! 32: var rowcont=new Array();
! 33: var rowtype=new Array();
! 34: var coltype=new Array();
! 35: var rcol=new Array();
! 36: var rrow=new Array();
! 37: var cw=new Array();
! 38: var rh=new Array();
! 39:
! 40: var editmode=0;
! 41: var notclear=0;
! 42: var linkmode=0;
! 43: var lastinfo='';
! 44: var graphdef='no';
! 45: var mainrun=0;
! 46:
! 47: var data1=new Array(1024);
! 48: var data2=new Array(1024);
! 49: var data3=new Array(1024);
! 50: var data4=new Array(1024);
! 51: var data5=new Array(1024);
! 52:
! 53:
! 54: // ------------------------------------------------ Insert a row into the table
! 55:
! 56: function insertrow(j,ex1,ex2) {
! 57: var kj;
! 58: objects1='';
! 59: objects2='';
! 60: for (kj=0;kj<=maxrow;kj++) {
! 61: if ( row[kj]==j ) { objects1=rowcont[kj]; }
! 62: if ( row[kj]==j+1 ) { objects2=rowcont[kj]; }
! 63: if ( row[kj]>j ) { row[kj]++; }
! 64: }
! 65: maxrow++;
! 66: row[maxrow]=j+1;
! 67: rowcont[maxrow]=':';
! 68: colcover=':'+ex1+':'+ex2+':';
! 69: objects=objects1+':'+objects2;
! 70: data1=objects.split(':');
! 71: for (kj=0;kj<data1.length;kj++) {
! 72: if (data1[kj]!='') {
! 73: thisisobj=obj[data1[kj]];
! 74: thisobjtype=thisisobj.split('&')[0];
! 75: if (thisobjtype=='v') {
! 76: if (rowcont[maxrow].indexOf(':'+data1[kj]+':',0)==-1) {
! 77: thisobjcol=thisisobj.split('&')[1];
! 78: if (colcover.indexOf(':'+thisobjcol+':',0)==-1) {
! 79: colcover+=thisobjcol+':';
! 80: rowcont[maxrow]+=data1[kj]+':';
! 81: }
! 82: }
! 83: }
! 84: if (thisobjtype=='h') {
! 85: updown=thisisobj.split('&')[4];
! 86: leftupdown=updown.split(':')[0];
! 87: rightupdown=updown.split(':')[1];
! 88: thisobjdest=thisisobj.split('&')[3];
! 89: thisobjtofrom=thisisobj.split('&')[2];
! 90: thisobjfrom=thisobjtofrom.split(':')[0];
! 91: thisobjto=thisobjtofrom.split(':')[1];
! 92: thisobjdir=col[thisobjto]-col[thisobjfrom];
! 93: thisobjrow=row[thisisobj.split('&')[1]];
! 94: topbottom=thisobjrow-j-1;
! 95: newobj='';
! 96: if (leftupdown==-1) {
! 97: if (topbottom<0) {
! 98: if (thisobjdir<0) {
! 99: newobj='v&'+thisobjto+'&'+thisobjdest+'&-1';
! 100: } else {
! 101: newobj='v&'+thisobjfrom+'&'+thisobjdest+'&1';
! 102: }
! 103: }
! 104: } else {
! 105: if (topbottom>0) {
! 106: if (thisobjdir<0) {
! 107: newobj='v&'+thisobjto+'&'+thisobjdest+'&1';
! 108: } else {
! 109: newobj='v&'+thisobjfrom+'&'+thisobjdest+'&-1';
! 110: }
! 111: }
! 112: }
! 113: if (newobj!='') {
! 114: thisobjcol=newobj.split('&')[1];
! 115: if (colcover.indexOf(':'+thisobjcol+':',0)==-1) {
! 116: colcover+=thisobjcol+':';
! 117: rowcont[maxrow]+=obj.length+':';
! 118: obj[obj.length]=newobj;
! 119: }
! 120: }
! 121: newobj='';
! 122: if (rightupdown==-1) {
! 123: if (topbottom<0) {
! 124: if (thisobjdir<0) {
! 125: newobj='v&'+thisobjfrom+'&'+thisobjdest+'&1';
! 126: } else {
! 127: newobj='v&'+thisobjto+'&'+thisobjdest+'&-1';
! 128: }
! 129: }
! 130: } else {
! 131: if (topbottom>0) {
! 132: if (thisobjdir<0) {
! 133: newobj='v&'+thisobjfrom+'&'+thisobjdest+'&-1';
! 134: } else {
! 135: newobj='v&'+thisobjto+'&'+thisobjdest+'&1';
! 136: }
! 137: }
! 138: }
! 139: if (newobj!='') {
! 140: thisobjcol=newobj.split('&')[1];
! 141: if (colcover.indexOf(':'+thisobjcol+':',0)==-1) {
! 142: colcover+=thisobjcol+':';
! 143: rowcont[maxrow]+=obj.length+':';
! 144: obj[obj.length]=newobj;
! 145: }
! 146: }
! 147: }
! 148: }
! 149: }
! 150: if (rowcont[maxrow]!=':') {
! 151: rowcont[maxrow]=rowcont[maxrow].substring(1,rowcont[maxrow].length-1);
! 152: } else {
! 153: rowcont[maxrow]='';
! 154: }
! 155: }
! 156:
! 157: // --------------------------------------------- Creates a new condition object
! 158:
! 159: function newcondition(content,type) {
! 160: var ko;
! 161: ko=obj.length;
! 162: obj[ko]='c';
! 163: objcont[ko]=content+':'+type+':cond';
! 164: return ko;
! 165: }
! 166:
! 167: // ---------------------------------------------- Creates a new resource object
! 168:
! 169: function newresource(rid,cid,text,url) {
! 170: objcont[addobj(rid,'b&'+rid+'&'+cid+':0:0:0')]=text+':'+url+':res';
! 171: }
! 172:
! 173:
! 174: // -------------------------------- Insert a condition into a port of an object
! 175:
! 176: function insertcond(obj1,portnr,cond) {
! 177: var k;
! 178: data1=obj[obj1].split('&');
! 179: for (k=2;k<data1.length;k++) {
! 180: data2=data1[k].split(':');
! 181: if (data2[0]==portnr) {
! 182: data2[3]=cond;
! 183: data1[k]=data2.join(':');
! 184: }
! 185: }
! 186: obj[obj1]=data1.join('&');
! 187: }
! 188:
! 189: // --------------------------------------------- Insert a column into the table
! 190: // Inserts a new table column after table column j
! 191:
! 192: function insertcol(j) {
! 193: var kj;
! 194: for (kj=0;kj<=maxcol;kj++) {
! 195: if ( col[kj]>j ) { col[kj]++; }
! 196: }
! 197: maxcol++;
! 198: col[maxcol]=j+1;
! 199: }
! 200:
! 201: // --------------------------------------------------------------- Find the row
! 202:
! 203: function findrow(jid) {
! 204: var j;
! 205: for (j=0;j<=maxrow;j++) { if (row[j]==jid) { return j; } }
! 206: return -1;
! 207: }
! 208:
! 209: // --------------------------------------------------------------- Find the col
! 210:
! 211: function findcol(jid) {
! 212: var j;
! 213: for (j=0;j<=maxcol;j++) { if (col[j]==jid) { return j; } }
! 214: return -1;
! 215: }
! 216:
! 217: // -------------------------------------------------------------- Map out a row
! 218: //
! 219: // b&rowID&colID:inObj:outObj:outCond&...
! 220: // h&rowID&incolID:outcolID&inObj:outObj&inupdown:outupdown
! 221: // v&colID&inObj:outObj&updown
! 222: //
! 223: // returns middle (col number of middle of obj1)
! 224: // sets colmap (map of cols with object numbers)
! 225:
! 226: function maprow (jid,obj1,ign) {
! 227: var j; var k; var left; var right; var middle;
! 228: middle=-1;
! 229: for (j=0;j<=maxcol;j++) { colmap[j]=0; }
! 230: if (rowcont[jid]!='') {
! 231: data2=rowcont[jid].split(':');
! 232: for (j=0;j<data2.length;j++) {
! 233: data3=obj[data2[j]].split('&');
! 234: if (data3[0]=='b') {
! 235: left=maxcol;
! 236: right=0;
! 237: for (k=2;k<data3.length;k++) {
! 238: thiscol=col[data3[k].split(':')[0]];
! 239: if (thiscol<left) { left=thiscol; }
! 240: if (thiscol>right) { right=thiscol; }
! 241: }
! 242: }
! 243: if (data3[0]=='h') {
! 244: data4=data3[2].split(':');
! 245: if (col[data4[1]]>col[data4[0]]) {
! 246: left=col[data4[0]];
! 247: right=col[data4[1]];
! 248: } else {
! 249: right=col[data4[0]];
! 250: left=col[data4[1]];
! 251: }
! 252: }
! 253: if (data3[0]=='v') { left=col[data3[1]]; right=left; }
! 254: if (data2[j]==obj1) { middle=Math.round((left+right)/2); }
! 255: if ((data3[0]!='h') || (ign!=1)) {
! 256: for (k=left;k<=right;k++) { colmap[k]=data2[j]; }
! 257: } else {
! 258: colmap[left]=data2[j];
! 259: colmap[right]=data2[j];
! 260: }
! 261: }
! 262: }
! 263: return middle;
! 264: }
! 265:
! 266: // --------------------------------------------------------- Find hole in a row
! 267: // jid: rowID
! 268: // kid: colID, find point close to this
! 269: // dkid: destination colID
! 270: // returns colID
! 271:
! 272: function comingthru (jid,kid,dkid) {
! 273: var k;
! 274: maprow(jid,-1,1);
! 275: knum=col[kid];
! 276: if (colmap[knum]==0) { return kid; }
! 277: right=-1;
! 278: for (k=knum+1;(k<colmap.length) && (right==-1);k++) {
! 279: if ((right==-1) && (colmap[k]!=colmap[knum])) { right=k; }
! 280: }
! 281: left=-1;
! 282: for (k=knum-1;(k>=0) && (left==-1);k--) {
! 283: if ((left==-1) && (colmap[k]!=colmap[knum])) { left=k; }
! 284: }
! 285: kup=-1;
! 286:
! 287: if ((left==-1) && (right==-1)) { right=colmap.length; }
! 288:
! 289: dknum=col[dkid];
! 290: dleft=left-dknum;
! 291: dright=right-dknum;
! 292:
! 293: if (dleft<0) { dleft=-dleft; }
! 294: if (dright<0) { dright=-dright; }
! 295: if ((dright<=dleft) && (right!=-1)) { kup=right; }
! 296: if ((dright>=dleft) && (left!=-1)) { kup=left; }
! 297: if (colmap[kup]==0) { return findcol(kup); }
! 298:
! 299: if (kup==right) { kup--; }
! 300:
! 301: if (kup<0) {
! 302: insertcol(-1);
! 303: insertcol(0);
! 304: } else {
! 305: insertcol(kup);
! 306: }
! 307: return maxcol;
! 308: }
! 309:
! 310: // ----------------------------------------------------- Insert port into block
! 311: // obj1: object number
! 312: // d: direction from middle (>0: right, <0 left)
! 313: // inout: in or out port (1: in, 2: out)
! 314: // linkobj: object that the link goes to/comes from
! 315: // sets inrow or outrow
! 316: // return column
! 317:
! 318:
! 319: function insertport (obj1,d,inout,linkobj) {
! 320:
! 321:
! 322: var k; var port; var revport;
! 323: data1=obj[obj1].split('&');
! 324: middle=maprow(data1[1],obj1,0);
! 325: if (inout==1) {
! 326: inrow=data1[1];
! 327: } else {
! 328: outrow=data1[1];
! 329: }
! 330: if (d>0) {
! 331: for (k=middle;(colmap[k]==obj1) && (k<colmap.length);k++) { data3[k]=0; }
! 332: } else {
! 333: for (k=middle;(colmap[k]==obj1) && (k>=0);k--) { data3[k]=0; }
! 334: }
! 335: for (k=2;k<data1.length;k++) {
! 336: data2=data1[k].split(':');
! 337: data3[col[data2[0]]]=data2[inout];
! 338: }
! 339: port=-1;
! 340: if (d>0) {
! 341: for (k=middle;(colmap[k]==obj1) && (k<colmap.length);k++) {
! 342: if ((data3[k]==0) && (colmap[k]==obj1) && (port==-1)) { port=k; }
! 343: }
! 344: } else {
! 345: for (k=middle;(colmap[k]==obj1) && (k>=0);k--) {
! 346: if ((data3[k]==0) && (colmap[k]==obj1) && (port==-1)) { port=k; }
! 347: }
! 348: }
! 349:
! 350: if (port==-1) {
! 351: if (colmap[k]==0) {
! 352: revport=findcol(k);
! 353: if (inout==1) {
! 354: data1[data1.length]=revport+":"+linkobj+":0:0";
! 355: } else {
! 356: data1[data1.length]=revport+":0:"+linkobj+":0";
! 357: }
! 358: } else {
! 359: if (d>0) {
! 360: insertcol(k-1);
! 361: } else {
! 362: insertcol(k);
! 363: }
! 364: revport=maxcol;
! 365: if (inout==1) {
! 366: data1[data1.length]=revport+":"+linkobj+":0:0";
! 367: } else {
! 368: data1[data1.length]=revport+":0:"+linkobj+":0";
! 369: }
! 370: }
! 371: } else {
! 372: portfound=-1;
! 373: for (k=2;k<data1.length;k++) {
! 374: data2=data1[k].split(':');
! 375: if (col[data2[0]]==port) {
! 376: data2[inout]=linkobj;
! 377: data1[k]=data2.join(':');
! 378: portfound=1;
! 379: }
! 380: }
! 381: revport=findcol(port);
! 382: if (portfound==-1) {
! 383: if (inout==1) {
! 384: data1[data1.length]=revport+":"+linkobj+":0:0";
! 385: } else {
! 386: data1[data1.length]=revport+":0:"+linkobj+":0";
! 387: }
! 388: }
! 389: }
! 390: obj[obj1]=data1.join('&');
! 391: return revport;
! 392: }
! 393:
! 394: // ---------------------------- Make a new object and add it to the row content
! 395: // returns object number of generated object
! 396:
! 397: function addobj(kjid,objs) {
! 398: if (rowcont[kjid]!='') { rowcont[kjid]+=':'; }
! 399: rowcont[kjid]+=obj.length;
! 400: obj[obj.length]=objs;
! 401: return obj.length-1;
! 402: }
! 403:
! 404: // ---------------------------------------- Make horizontal connection for hrid
! 405: // hoffs=-1: this line goes on top of hrid
! 406:
! 407: function horizontal(hrid,hoffs,hfcol,htcol,hdest,hends) {
! 408: hcrid=-1;
! 409: if (hoffs==-1) {
! 410: hbrid=findrow(row[hrid]-1);
! 411: } else {
! 412: hbrid=findrow(row[hrid]+1);
! 413: }
! 414: if (hbrid!=-1) {
! 415: maprow(hbrid,-1,0);
! 416: hcrid=hbrid;
! 417: if (col[hfcol]>col[htcol]) { left=col[htcol]; right=col[hfcol]; }
! 418: else { right=col[htcol]; left=col[hfcol]; }
! 419: if (colmap[left]!=0) {
! 420: hcrid=-1;
! 421: } else {
! 422: if (colmap[right]!=0) {
! 423: hcrid=-1;
! 424: } else {
! 425: for (kh=left+1;kh<right;kh++) {
! 426: if (colmap[kh]!=0) {
! 427: if (obj[colmap[kh]].split('&')[0]!='v') { hcrid=-1; }
! 428: }
! 429: }
! 430: }
! 431: }
! 432: }
! 433:
! 434: if (hcrid==-1) {
! 435: insertrow(row[hrid]+hoffs,hfcol,htcol);
! 436: addobj(maxrow,'h&'+maxrow+'&'+hfcol+':'+htcol+'&'+hdest+'&'+hends);
! 437: } else {
! 438: addobj(hcrid,'h&'+hcrid+'&'+hfcol+':'+htcol+'&'+hdest+'&'+hends);
! 439: }
! 440: }
! 441:
! 442: // --------------------------------------- Deletes all references to object obj
! 443:
! 444: function delobj(obj1) {
! 445: var k;
! 446: for (k=0;k<rowcont.length;k++) {
! 447: data4=rowcont[k].split(':');
! 448: rowcont[k]='';
! 449: for (k2=0;k2<data4.length;k2++) {
! 450: if (data4[k2]!=obj1) {
! 451: if (rowcont[k]!='') { rowcont[k]+=':'; }
! 452: rowcont[k]+=data4[k2];
! 453: }
! 454: }
! 455: }
! 456: }
! 457:
! 458: // --------------------------------------------------------- Garbage collection
! 459:
! 460: function cleanup () {
! 461: var j,kj,i;
! 462: insertrow(maxrow);
! 463: insertcol(maxcol);
! 464: addobj(maxrow,'e&'+maxcol);
! 465: for (kj=0;kj<=maxcol;kj++) { data1[kj]=0; }
! 466: for (kj=0;kj<=maxrow;kj++) {
! 467: rowtype[kj]=0;
! 468: if (rowcont[kj]!='') {
! 469: data2=rowcont[kj].split(':');
! 470: for (j=0;j<data2.length;j++) {
! 471: if (obj[data2[j]].substring(0,2)=='e&') {
! 472: rowtype[kj]=2;
! 473: data1[(obj[data2[j]].split('&'))[1]]=2;
! 474: }
! 475: }
! 476: maprow(kj,-1,1);
! 477: for (j=0;j<=maxcol;j++) {
! 478: if (colmap[j]!=0) {
! 479: if (data1[j]==0) { data1[j]=1; }
! 480: if (rowtype[kj]==0) {
! 481: if (obj[colmap[j]].substring(0,2)!='v&') {
! 482: rowtype[kj]=1;
! 483: }
! 484: }
! 485: if (obj[colmap[j]].substring(0,2)=='b&') {
! 486: data1[j]=2;
! 487: rowtype[kj]=2;
! 488: }
! 489: }
! 490: }
! 491: }
! 492: }
! 493: for (j=0;j<=maxcol;j++) {
! 494: coltype[j]=data1[col[j]];
! 495: }
! 496: }
! 497:
! 498: // -------------------------------------------- Delete a condition from a block
! 499:
! 500: function delcond(obj1,colid) {
! 501: var k;
! 502: data3=obj[obj1].split('&');
! 503: obj[obj1]=data3[0]+'&'+data3[1];
! 504: for (k=2;k<data3.length;k++) {
! 505: data4=data3[k].split(':');
! 506: if (data4[0]==colid) { data4[3]=0; }
! 507: if ((data4[1]!=0) || (data4[2]!=0) || (data3.length==3)) {
! 508: obj[obj1]+='&'+data4[0]+':'+data4[1]+':'+data4[2]+':'+data4[3];
! 509: }
! 510: }
! 511: }
! 512:
! 513: // ----------------------------------------- Creates a new condition in a block
! 514:
! 515: function crecond(obj1,colid,condtext,condtype) {
! 516: var k;
! 517: data3=obj[obj1].split('&');
! 518: obj[obj1]=data3[0]+'&'+data3[1];
! 519: for (k=2;k<data3.length;k++) {
! 520: data4=data3[k].split(':');
! 521: if (data4[0]==colid) {
! 522: data4[3]=newcondition(condtext,condtype);
! 523: data2=objlinks[data4[2]].split(':');
! 524: objlinks[data4[2]]=data2[0]+':'+data2[1]+':'+data4[3];
! 525: }
! 526: if ((data4[1]!=0) || (data4[2]!=0) || (data3.length==3)) {
! 527: obj[obj1]+='&'+data4[0]+':'+data4[1]+':'+data4[2]+':'+data4[3];
! 528: }
! 529: }
! 530: }
! 531:
! 532: // ---------------------------------------- Delete the path between two objects
! 533: // deletes the link linknr
! 534: // h&rowID&incolID:outcolID&inObj:outObj&inupdown:outupdown
! 535: // v&colID&inObj:outObj&updown
! 536:
! 537: function dellink (linknr) {
! 538: var k; var obj1; var obj2;
! 539: if (objlinks[linknr]!='') {
! 540: data3=objlinks[linknr].split(':');
! 541: obj1=data3[0];
! 542: obj2=data3[1];
! 543: data3=obj[obj1].split('&');
! 544: obj[obj1]=data3[0]+'&'+data3[1];
! 545: for (k=2;k<data3.length;k++) {
! 546: data4=data3[k].split(':');
! 547: if (data4[2]==linknr) { data4[2]=0; data4[3]==0; }
! 548: if ((data4[1]!=0) || (data4[2]!=0) || (data3.length==3)) {
! 549: obj[obj1]+='&'+data4[0]+':'+data4[1]+':'+data4[2]+':'+data4[3];
! 550: }
! 551: }
! 552: data3=obj[obj2].split('&');
! 553: obj[obj2]=data3[0]+'&'+data3[1];
! 554: for (k=2;k<data3.length;k++) {
! 555: data4=data3[k].split(':');
! 556: if (data4[1]==linknr) { data4[1]=0; }
! 557: if ((data4[1]!=0) || (data4[2]!=0) || (data3.length==3)) {
! 558: obj[obj2]+='&'+data4[0]+':'+data4[1]+':'+data4[2]+':'+data4[3];
! 559: }
! 560: }
! 561: for (k=0;k<obj.length;k++) {
! 562: if (obj[k]!='') {
! 563: data3=obj[k].split('&');
! 564: if (((data3[0]=='v') || (data3[0]=='h')) &&
! 565: (data3[data3.length-2]==linknr)) {
! 566: delobj(k);
! 567: }
! 568: }
! 569: }
! 570: objlinks[linknr]='';
! 571: }
! 572: }
! 573:
! 574: // ----------------------------------------------------------- Join two objects
! 575: // Links obj1 with obj2, creates new objlink, marks all elements with number
! 576:
! 577: function joinres (obj1,obj2,cond) {
! 578: var k; var kr; var outcol; var incol; var d;
! 579: dest=objlinks.length;
! 580: objlinks[dest]=obj1+':'+obj2+':'+cond;
! 581: data3=obj[obj1].split('&');
! 582: sum=0;
! 583: for (k=2;k<data3.length;k++) { sum+=col[data3[k].split(':')[0]]; }
! 584: outmiddle=sum/(data3.length-2);
! 585: data3=obj[obj2].split('&');
! 586: sum=0;
! 587: for (k=2;k<data3.length;k++) { sum+=col[data3[k].split(':')[0]]; }
! 588: inmiddle=sum/(data3.length-2);
! 589: d=inmiddle-outmiddle;
! 590: outcol=insertport(obj1,d,2,dest);
! 591: insertcond(obj1,outcol,cond);
! 592: incol=insertport(obj2,-d,1,dest);
! 593: if (row[inrow]==(row[outrow]+1)) {
! 594: insertrow(row[outrow],-1,-1);
! 595: }
! 596: if (row[inrow]<row[outrow]) {
! 597: updown=1;
! 598: tcol=comingthru(inrow,incol,outcol);
! 599: horizontal(inrow,-1,tcol,incol,dest,'-1:-1');
! 600: addobj(inrow,'v&'+tcol+'&'+dest+'&1');
! 601: incol=tcol;
! 602: tcol=comingthru(outrow,outcol,incol);
! 603: horizontal(outrow,0,outcol,tcol,dest,'1:1');
! 604: addobj(outrow,'v&'+tcol+'&'+dest+'&1');
! 605: outcol=tcol;
! 606: } else {
! 607: updown=-1;
! 608: }
! 609:
! 610: if (inrow==outrow) {
! 611: tcol=comingthru(inrow,incol,outcol);
! 612: horizontal(inrow,-1,tcol,incol,dest,'-1:-1');
! 613: addobj(inrow,'v&'+tcol+'&'+dest+'&1');
! 614: horizontal(outrow,0,outcol,tcol,dest,'1:1');
! 615: } else {
! 616:
! 617: if (updown==-1) {
! 618: for (kr=row[outrow]+1;kr<row[inrow];kr++) {
! 619: rid=findrow(kr);
! 620: ncol=comingthru(rid,outcol,incol);
! 621:
! 622: if (ncol!=outcol) {
! 623: insertrow(kr-1,outcol,ncol);
! 624: kr++;
! 625: if (col[outcol]>col[ncol]) {
! 626: addobj(maxrow,
! 627: 'h&'+maxrow+'&'+outcol+':'+ncol+'&'+dest+'&-1:1');
! 628: } else {
! 629: addobj(maxrow,
! 630: 'h&'+maxrow+'&'+outcol+':'+ncol+'&'+dest+'&1:-1');
! 631: }
! 632: }
! 633: addobj(rid,'v&'+ncol+'&'+dest+'&-1');
! 634: outcol=ncol;
! 635: }
! 636:
! 637: if (incol!=outcol) {
! 638: insertrow(row[inrow]-1,outcol,incol);
! 639: if (col[outcol]>col[incol]) {
! 640: addobj(maxrow,
! 641: 'h&'+maxrow+'&'+outcol+':'+incol+'&'+dest+'&-1:1');
! 642: } else {
! 643: addobj(maxrow,
! 644: 'h&'+maxrow+'&'+outcol+':'+incol+'&'+dest+'&1:-1');
! 645: }
! 646: }
! 647:
! 648: } else {
! 649: for (kr=row[outrow]-1;kr>row[inrow];kr--) {
! 650: rid=findrow(kr);
! 651: ncol=comingthru(rid,outcol,incol);
! 652: if (ncol!=outcol) {
! 653: insertrow(kr,outcol,ncol);
! 654: if (col[outcol]>col[ncol]) {
! 655: addobj(maxrow,
! 656: 'h&'+maxrow+'&'+outcol+':'+ncol+'&'+dest+'&1:-1');
! 657: } else {
! 658: addobj(maxrow,
! 659: 'h&'+maxrow+'&'+outcol+':'+ncol+'&'+dest+'&-1:1');
! 660: }
! 661: }
! 662: addobj(rid,'v&'+ncol+'&'+dest+'&1');
! 663: outcol=ncol;
! 664: }
! 665: if (incol!=outcol) {
! 666: insertrow(row[inrow],outcol,incol);
! 667: if (col[outcol]>col[incol]) {
! 668: addobj(maxrow,
! 669: 'h&'+maxrow+'&'+outcol+':'+incol+'&'+dest+'&1:-1');
! 670: } else {
! 671: addobj(maxrow,
! 672: 'h&'+maxrow+'&'+outcol+':'+incol+'&'+dest+'&-1:1');
! 673: }
! 674: }
! 675: }
! 676: }
! 677: }
! 678:
! 679: // ---------------------------------------------------------- Delete a resource
! 680: // Deletes resource obj1
! 681: // Reconnects resources going thru this one if recon=1
! 682:
! 683: function delres (obj1,recon) {
! 684: var infromobj=new Array();
! 685: var inwithcon=new Array();
! 686: var inwithlink=new Array();
! 687: var outtoobj=new Array();
! 688: var outwithcon=new Array();
! 689: var outwithlink=new Array();
! 690: var inobjs=new Array();
! 691: var inobjscond=new Array();
! 692: var outobjs=new Array();
! 693: var outobjscond=new Array();
! 694:
! 695: var k; var k1; var k2; var found;
! 696:
! 697: data1=obj[obj1].split('&');
! 698: for (k=2;k<data1.length;k++) {
! 699: data2=data1[k].split(':');
! 700: if (data2[1]!=0) {
! 701: k2=inwithlink.length;
! 702: inwithlink[k2]=data2[1];
! 703: data3=objlinks[data2[1]].split(':');
! 704: infromobj[k2]=data3[0];
! 705: inwithcon[k2]=data3[2];
! 706: }
! 707: if (data2[2]!=0) {
! 708: k2=outwithlink.length;
! 709: outwithlink[k2]=data2[2];
! 710: data3=objlinks[data2[2]].split(':');
! 711: outtoobj[k2]=data3[1];
! 712: outwithcon[k2]=data3[2];
! 713: }
! 714: }
! 715: for (k=0;k<inwithlink.length;k++) { dellink(inwithlink[k]); }
! 716: for (k=0;k<outwithlink.length;k++) { dellink(outwithlink[k]); }
! 717: delobj(obj1);
! 718: if (recon==1) {
! 719:
! 720: for (k=0;k<inwithlink.length;k++) {
! 721: if (infromobj[k]!=obj1) {
! 722: found=0;
! 723: for (k2=0;k2<inobjs.length;k2++) {
! 724: if (inobjs[k2]==infromobj[k]) {
! 725: if (inwithcon[k]!=0) {
! 726: if (inobjscond[k2]!='') { inobjscond[k2]+='||'; }
! 727: inobjscond[k2]+=
! 728: '('+(objcont[inwithcon[k]].split(':'))[0]+')';
! 729: }
! 730: found=1;
! 731: }
! 732: }
! 733: if (found==0) {
! 734: k2=inobjs.length;
! 735: inobjs[k2]=infromobj[k];
! 736: if (inwithcon[k]==0) {
! 737: inobjscond[k2]='';
! 738: } else {
! 739: inobjscond[k2]=
! 740: '('+(objcont[inwithcon[k]].split(':'))[0]+')';
! 741: }
! 742: }
! 743: }
! 744: }
! 745:
! 746: for (k=0;k<outwithlink.length;k++) {
! 747: if (outtoobj[k]!=obj1) {
! 748: found=0;
! 749: for (k2=0;k2<outobjs.length;k2++) {
! 750: if (outobjs[k2]==outtoobj[k]) {
! 751: if (outwithcon[k]!=0) {
! 752: if (outobjscond[k2]!='') { outobjscond[k2]+='||'; }
! 753: outobjscond[k2]+=
! 754: '('+(objcont[outwithcon[k]].split(':'))[0]+')';
! 755: }
! 756: found=1;
! 757: }
! 758: }
! 759: if (found==0) {
! 760: k2=outobjs.length;
! 761: outobjs[k2]=outtoobj[k];
! 762: if (outwithcon[k]==0) {
! 763: outobjscond[k2]='';
! 764: } else {
! 765: outobjscond[k2]=
! 766: '('+(objcont[outwithcon[k]].split(':'))[0]+')';
! 767: }
! 768: }
! 769: }
! 770: }
! 771:
! 772: for (k=0;k<inobjs.length;k++) {
! 773: cond='';
! 774: if (inobjscond[k]!='') { cond='('+inobjscond[k]+')'; }
! 775: for (k2=0;k2<outobjs.length;k2++) {
! 776: thiscond=cond;
! 777: if (outobjscond[k2]!='') {
! 778: if (thiscond!='') { thiscond+='&&'; }
! 779: thiscond+='('+outobjscond[k2]+')';
! 780: }
! 781: condnr=0;
! 782: if (thiscond!='') { condnr=newcondition(thiscond,'normal'); }
! 783: joinres(inobjs[k],outobjs[k2],condnr);
! 784: }
! 785: }
! 786: }
! 787: }
! 788:
! 789: // -------------------------------------------------------------- Draw an entry
! 790:
! 791: function drawcell (rtype,ctype,what,cm,obj1,mode2,ej,ek,ne) {
! 792: var bgcolor;
! 793: if (ctype!=0) {
! 794: parent.mapout.document.write('<td bgcolor='+cm+' width='+cw[ctype]+'>');
! 795: if (what!='') {
! 796: if (obj1!='') {
! 797: obj1="'"+obj1+"'";
! 798: parent.mapout.document.write
! 799: ('<a href="javascript:parent.code.handler('+obj1
! 800: +');" onMouseOver="parent.code.info('+obj1+');">');
! 801: }
! 802: if (what=='r:') {
! 803: parent.mapout.document.write
! 804: ('<img border=0 src="resource.gif">');
! 805: } else {
! 806: if (what=='c:') {
! 807: parent.mapout.document.write
! 808: ('<img border=0 src="condition.gif">');
! 809: } else {
! 810: parent.mapout.document.write
! 811: ('<img border=0 src="'+rtype+'.'+ctype+'.'+what+'.gif">');
! 812: }
! 813: }
! 814: if (obj1!='') {
! 815: parent.mapout.document.write('</a>');
! 816: }
! 817: } else {
! 818: if (ne!=1) {
! 819: parent.mapout.document.write
! 820: ('<a href="javascript:parent.code.empty('+ej+','+ek+');" ');
! 821: } else {
! 822: parent.mapout.document.write
! 823: ('<a href="javascript:parent.code.infoclear();" ');
! 824: }
! 825: parent.mapout.document.write
! 826: ('onMouseOver="parent.code.infoclear();">');
! 827: parent.mapout.document.write
! 828: ('<img border=0 src="'+rtype+'.'+ctype+'.empty.gif"></a>');
! 829: }
! 830: parent.mapout.document.write('</td>');
! 831: }
! 832: }
! 833:
! 834: // ----------------------------------------------------------------- Draw a row
! 835:
! 836: function drawrow (jid,mode2) {
! 837: var j; var jk; var k; var rc; var gc; var bc; var ck;
! 838: var objd1=new Array();
! 839: var objd2=new Array();
! 840: var notempty=new Array();
! 841: var condtype;
! 842: if (rowtype[jid]!=0) {
! 843: for (j=0;j<=maxcol;j++) {
! 844: colmap[j]=''; colmap2[j]=''; colmap3[j]=''; colmap4[j]='';
! 845: colmap5[j]='#FFFFFF'; colmap6[j]='#FFFFFF';
! 846: objd1[j]=''; objd2[j]=''; notempty[j]=0;
! 847: }
! 848: parent.mapout.document.writeln('<tr height='+rh[rowtype[jid]]+'>');
! 849: if (rowcont[jid]!='') {
! 850: data2=rowcont[jid].split(':');
! 851: for (jk=0;jk<data2.length;jk++) {
! 852: data3=obj[data2[jk]].split('&');
! 853: if (data3[0]=='b') {
! 854: rc=(data2[jk]+'F').substr(0,2);
! 855: gc=('9'+data2[jk]).substr(0,2);
! 856: bc=(data2[jk]+data2[jk]).substr(0,2);
! 857: ck='#'+rc+gc+bc;
! 858: left=maxcol;
! 859: leftin=maxcol;
! 860: leftout=maxcol;
! 861: right=0;
! 862: rightin=0;
! 863: rightout=0;
! 864: anyout=0;
! 865: for (k=2;k<data3.length;k++) {
! 866: data1=data3[k].split(':');
! 867: thiscol=col[data1[0]];
! 868: if (thiscol<left) { left=thiscol; }
! 869: if (thiscol>right) { right=thiscol; }
! 870: if (data1[1]!=0) {
! 871: if (thiscol<leftin) { leftin=thiscol; }
! 872: if (thiscol>rightin) { rightin=thiscol; }
! 873: colmap4[thiscol]=data1[1];
! 874: }
! 875: if (data1[2]!=0) {
! 876: if (thiscol<leftout) { anyout=1; leftout=thiscol; }
! 877: if (thiscol>rightout) { anyout=1; rightout=thiscol; }
! 878: if (data1[3]!=0) {
! 879: colmap3[thiscol]='c:';
! 880: condtype=(objcont[data1[3]].split(':'))[1];
! 881: colmap6[thiscol]='#FFFFAA';
! 882: if (condtype=='stop') { colmap6[thiscol]='#FFAAAA'; }
! 883: if (condtype=='force') { colmap6[thiscol]='#AAAAFF'; }
! 884: objd2[thiscol]='c&'
! 885: +data1[0]+'&'+data2[jk]+'&'+data1[2]+'&'+data1[3];
! 886: } else {
! 887: colmap3[thiscol]='ctd';
! 888: colmap6[thiscol]=ck;
! 889: objd2[thiscol]='c&'
! 890: +data1[0]+'&'+data2[jk]+'&'+data1[2]+'&-';
! 891: }
! 892: }
! 893: }
! 894: for (k=left;k<=right;k++) { notempty[k]=1; colmap5[k]=ck; }
! 895: middle=Math.round((left+right)/2);
! 896: colmap[middle]='r:';
! 897: objd1[middle]+='r&'+data2[jk];
! 898:
! 899: if (rightin>middle) {
! 900: for (k=middle+1;k<rightin;k++) {
! 901: if (colmap4[k]!='') {
! 902: colmap[k]='rlt';
! 903: } else {
! 904: colmap[k]='rl';
! 905: }
! 906: }
! 907: colmap[rightin]='tl';
! 908: }
! 909: if (leftin<middle) {
! 910: for (k=middle-1;k>leftin;k--) {
! 911: if (colmap4[k]!='') {
! 912: colmap[k]='lrt';
! 913: } else {
! 914: colmap[k]='lr';
! 915: }
! 916: }
! 917: colmap[leftin]='tr';
! 918: }
! 919:
! 920: if ((leftout>middle) && (anyout)) {
! 921: colmap2[middle]='tr';
! 922: }
! 923: if (leftout==middle) {
! 924: if (rightout==middle) { colmap2[middle]='td'; }
! 925: if (rightout>middle) { colmap2[middle]='rtd'; }
! 926: }
! 927: if (leftout<middle) {
! 928: if (rightout<middle) { colmap2[middle]='tl'; }
! 929: if (rightout==middle) { colmap2[middle]='tdl'; }
! 930: if (rightout>middle) {
! 931: if (colmap3[middle]!='') {
! 932: colmap2[middle]='rtdl';
! 933: } else {
! 934: colmap2[middle]='rtl';
! 935: }
! 936: }
! 937: }
! 938: if (leftout<middle) {
! 939: for (k=middle-1;k>leftout;k--) {
! 940: if (colmap3[k]!='') {
! 941: colmap2[k]='rld';
! 942: } else {
! 943: colmap2[k]='rl';
! 944: }
! 945: }
! 946: colmap2[leftout]='rd';
! 947: }
! 948: if (rightout>middle) {
! 949: for (k=middle+1;k<rightout;k++) {
! 950: if (colmap3[k]!='') {
! 951: colmap2[k]='lrd';
! 952: } else {
! 953: colmap2[k]='lr';
! 954: }
! 955: }
! 956: colmap2[rightout]='ld';
! 957: }
! 958: }
! 959: if (data3[0]=='h') {
! 960: data4=data3[2].split(':');
! 961: if (col[data4[1]]>col[data4[0]]) {
! 962: left=col[data4[0]];
! 963: right=col[data4[1]];
! 964: thisarrow='lr';
! 965: } else {
! 966: right=col[data4[0]];
! 967: left=col[data4[1]];
! 968: thisarrow='rl';
! 969: }
! 970: if (data3[4].split(':')[0]==1) {
! 971: colmap[left]='tr';
! 972: } else {
! 973: colmap[left]='rd'; colmap2[left]='utd'; colmap3[left]='utd';
! 974: }
! 975: for (k=left+1;k<right;k++) {
! 976: if (colmap[k]=='') {
! 977: colmap[k]=thisarrow;
! 978: objd1[k]=data2[jk];
! 979: } else {
! 980: colmap[k]='tdrl';
! 981: objd1[k]='';
! 982: }
! 983: }
! 984: if (data3[4].split(':')[1]==1) {
! 985: colmap[right]='tl';
! 986: } else {
! 987: colmap[right]='ld'; colmap2[right]='utd'; colmap3[right]='utd';
! 988: }
! 989: objd1[left]=data2[jk];
! 990: objd1[right]=data2[jk];
! 991: }
! 992: if (data3[0]=='v') {
! 993: left=col[data3[1]];
! 994: if (colmap[left]=='') {
! 995: if (data3[3]==1) { colmap[left]='dt'; } else { colmap[left]='td'; }
! 996: objd1[left]=data2[jk];
! 997: objd2[left]=objd1[left];
! 998: } else {
! 999: colmap[left]='tdrl';
! 1000: objd1[left]='';
! 1001: }
! 1002: colmap2[left]='utd'; colmap3[left]='utd';
! 1003: }
! 1004: }
! 1005: rtype=rowtype[jid];
! 1006: for (k=0;k<=maxcol;k++) {
! 1007: drawcell(rtype,coltype[rcol[k]],colmap[k],colmap5[k],objd1[k],mode2,jid,k,
! 1008: notempty[k]);
! 1009: }
! 1010: if (rowtype[jid]==2) {
! 1011: parent.mapout.document.writeln('</tr><tr>');
! 1012: for (k=0;k<=maxcol;k++) {
! 1013: drawcell(1,coltype[rcol[k]],colmap2[k],colmap5[k],objd2[k],mode2,jid,k,
! 1014: 1);
! 1015: }
! 1016: parent.mapout.document.writeln('</tr><tr>');
! 1017: for (k=0;k<=maxcol;k++) {
! 1018: drawcell(1,coltype[rcol[k]],colmap3[k],colmap6[k],objd2[k],mode2,jid,k,
! 1019: 1);
! 1020: }
! 1021: }
! 1022: }
! 1023: parent.mapout.document.writeln('</tr>');
! 1024: }
! 1025: }
! 1026:
! 1027: // ------------------------------------------------------------- Draw the table
! 1028:
! 1029: function draw (mode,mode2) {
! 1030: var k; var kr;
! 1031:
! 1032:
! 1033: cleanup();
! 1034:
! 1035:
! 1036: if (mode=='debug') {
! 1037: var options="scrollbars=1,resizable=1,menubar=0,width=500,height=300";
! 1038: deb=open("","debout",options);
! 1039: deb.document.clear();
! 1040: deb.document.writeln('<html><body bgcolor="#FFFFFF">');
! 1041:
! 1042: for (k=0;k<obj.length;k++) { deb.document.writeln(k+' - '+obj[k]+'<br>'); }
! 1043: deb.document.writeln('<hr>Cols: '+col+'<hr>Rows: '+row+'<hr>');
! 1044: deb.document.writeln(objcont+'<hr>'+objlinks+'<hr>');
! 1045: for (kr=0;kr<=maxrow;kr++) {
! 1046: kid=findrow(kr);
! 1047: maprow(kid,-1,0);
! 1048: deb.document.writeln(kid+' : '+colmap+' '+rowcont[kid]+"<br>");
! 1049: }
! 1050: deb.document.writeln('<hr>Rowtype: '+rowtype+'<hr>Coltype: '+coltype);
! 1051: deb.document.writeln('<hr>maxcol: '+maxcol+'<hr>maxrow: '+maxrow);
! 1052: deb.document.writeln('</body></html>');
! 1053: deb.document.close();
! 1054: }
! 1055: for (k=0;k<=maxrow;k++) { rrow[row[k]]=k; }
! 1056: for (k=0;k<=maxcol;k++) { rcol[col[k]]=k; }
! 1057: rh[0]=0;
! 1058: rh[1]=30;
! 1059: rh[2]=60;
! 1060: cw[0]=0;
! 1061: cw[1]=30;
! 1062: cw[2]=60;
! 1063: parent.mapout.document.open('text/html','replace');
! 1064: parent.mapout.document.writeln('<html><body bgcolor="#FFFFFF">');
! 1065: parent.mapout.document.writeln(
! 1066: '<table cellpadding=0 cellspacing=0 border=0>');
! 1067:
! 1068: for (kr=0;kr<=maxrow;kr++) { drawrow(rrow[kr],mode2); }
! 1069:
! 1070: parent.mapout.document.writeln('</table>');
! 1071: parent.mapout.document.writeln('</body></html>');
! 1072: parent.mapout.document.close();
! 1073: parent.focus();
! 1074: parent.mapout.focus();
! 1075: }
! 1076:
! 1077: // --------------------------------------------------------- Clears info window
! 1078:
! 1079: function infoclear() {
! 1080: if (notclear!=1) {
! 1081: var options="scrollbars=1,resizable=1,menubar=0,width=400,height=300";
! 1082: var inf=open("","infout",options);
! 1083: inf.document.clear();
! 1084: inf.document.writeln
! 1085: ('<html><body bgcolor="#FFFFFF"><table><tr><td>'+
! 1086: '<img src="/adm/lonIcons/lonlogos.gif"></td>');
! 1087: if (linkmode!=0) {
! 1088: inf.document.writeln(
! 1089: '<td><b>Link Mode</b><hr>Click on a resource to link it with<br><b>'+
! 1090: (objcont[linkmode].split(':'))[0]+
! 1091: '</b><br>click anywhere else to cancel.</td>');
! 1092: }
! 1093: inf.document.writeln('</tr></table></body></html>');
! 1094: inf.document.close();
! 1095: parent.focus();
! 1096: parent.mapout.focus();
! 1097: notclear=1;
! 1098: lastinfo='';
! 1099: }
! 1100: }
! 1101:
! 1102: // --------------------------------------------------- Prints out resource info
! 1103:
! 1104: function info(infostr) {
! 1105: if ((editmode!=1) && (infostr!=lastinfo)) {
! 1106: notclear=1;
! 1107: var options="scrollbars=1,resizable=1,menubar=0,width=400,height=300";
! 1108: var inf=open("","infout",options);
! 1109: inf.document.clear();
! 1110: inf.document.writeln(
! 1111: '<html><body bgcolor="#FFFFFF">'+
! 1112: '<table><tr><td width=32><img src="info.gif"></td><td bgcolor="#AAFFAA">');
! 1113: data1=infostr.split('&');
! 1114: if (data1[0]=='c') {
! 1115: inf.document.write('<b>Condition (');
! 1116: data3=objlinks[data1[3]].split(':');
! 1117: if (data1[4]=='-') {
! 1118: inf.document.write('not set');
! 1119: } else {
! 1120: data2=objcont[data1[4]].split(':');
! 1121: if (data2[1]=='force') {
! 1122: inf.document.write('Blocking Other Links');
! 1123: } else {
! 1124: if (data2[1]=='stop') {
! 1125: inf.document.write('Blocking This Link');
! 1126: } else {
! 1127: inf.document.write('Recommendation');
! 1128: }
! 1129: }
! 1130: }
! 1131: inf.document.writeln(')</b><hr>From <b>'+objcont[data3[0]].split(':')[0]+
! 1132: '</b><br>to <b>'+objcont[data3[1]].split(':')[0]+'</b>');
! 1133: } else {
! 1134: if (data1[0]=='r') {
! 1135: inf.document.writeln('<b>Resource</b><hr>');
! 1136: data2=objcont[data1[1]].split(':');
! 1137: inf.document.writeln('<b>'+data2[0]+'</b><br>');
! 1138: inf.document.writeln((data2[1].split('/')).join(' / '));
! 1139: } else {
! 1140: inf.document.writeln('<b>Link</b><hr>');
! 1141: data2=obj[data1[0]].split('&');
! 1142: data3=objlinks[data2[data2.length-2]].split(':');
! 1143: inf.document.writeln('From <b>'+objcont[data3[0]].split(':')[0]+
! 1144: '</b><br>to <b>'+objcont[data3[1]].split(':')[0]+'</b>');
! 1145: }
! 1146: }
! 1147: if (linkmode==0) {
! 1148: inf.document.writeln('<p>(click to edit)');
! 1149: } else {
! 1150: if (data1[0]=='r') {
! 1151: inf.document.writeln('<p>(click to link)');
! 1152: } else {
! 1153: inf.document.writeln('<p>(click to cancel linking and edit)');
! 1154: }
! 1155: }
! 1156: inf.document.writeln('</td></tr></table></body></html>');
! 1157: inf.document.close();
! 1158: parent.focus();
! 1159: parent.mapout.focus();
! 1160: notclear=0;
! 1161: lastinfo=infostr;
! 1162: }
! 1163: }
! 1164:
! 1165: // ------------------------------------------------ "Escapes" out special chars
! 1166:
! 1167: function escape(instring) {
! 1168: var outstring='';
! 1169: var thischar;
! 1170: var k;
! 1171: for (k=0;k<instring.length;k++) {
! 1172: thischar=instring.charAt(k);
! 1173: if (thischar==':') { thischar=':'; }
! 1174: if (thischar=='"') { thischar='"'; }
! 1175: if (thischar=="'") { thischar='''; }
! 1176: if (thischar==',') { thischar=','; }
! 1177: outstring+=thischar;
! 1178: }
! 1179: return outstring;
! 1180: }
! 1181:
! 1182: // ---------------------------------------------------- Handles "click to edit"
! 1183:
! 1184: function handler(infostr) {
! 1185: var k;
! 1186: editmode=1;
! 1187: notclear=1;
! 1188: var options="scrollbars=1,resizable=1,menubar=0,width=400,height=300";
! 1189: var inf=open("","infout",options);
! 1190: inf.document.clear();
! 1191: inf.document.writeln(
! 1192: '<html><body bgcolor="#FFFFFF">'+
! 1193: '<table><tr><td width=32><img src="edit.gif"></td><td bgcolor="#AAFFAA">');
! 1194: data1=infostr.split('&');
! 1195: if (data1[0]=='c') {
! 1196: inf.document.writeln('<b>Condition</b><hr>');
! 1197: linkmode=0;
! 1198: if (data1[4]=='-') {
! 1199: data2[0]=''; data2[1]='normal';
! 1200: } else {
! 1201: data2=objcont[data1[4]].split(':');
! 1202: }
! 1203: inf.document.writeln(
! 1204: '<form name=condinfo><textarea name=c cols=40 rows=4>'
! 1205: +data2[0]+'</textarea><br><input type=radio name=s value=normal '+
! 1206: 'onClick="self.document.forms.condinfo.elements.h.value='+"'normal'"+'"');
! 1207: if (data2[1]=='normal') { inf.document.write(' checked'); }
! 1208: inf.document.write(
! 1209: '> Recommendation if true<br><input type=radio name=s value=stop '+
! 1210: 'onClick="self.document.forms.condinfo.elements.h.value='+"'stop'"+'"');
! 1211: if (data2[1]=='stop') { inf.document.write(' checked'); }
! 1212: inf.document.write(
! 1213: '> Blocking this link if false<br><input type=radio name=s value=force '+
! 1214: 'onClick="self.document.forms.condinfo.elements.h.value='+"'force'"+'"');
! 1215: if (data2[1]=='force') { inf.document.write(' checked'); }
! 1216: inf.document.write(
! 1217: '> Blocking other links if true<br><a href="javascript:opener.editmode=0;'
! 1218: +'opener.notclear=0;');
! 1219: if (data1[4]=='-') {
! 1220: inf.document.write('opener.crecond('+data1[2]+','+data1[1]+','
! 1221: +'opener.escape(self.document.forms.condinfo.elements.c.value),'
! 1222: +'self.document.forms.condinfo.elements.h.value);');
! 1223: } else {
! 1224: inf.document.write('opener.objcont['+data1[4]+']='
! 1225: +'opener.escape(self.document.forms.condinfo.elements.c.value)+'+"':'"
! 1226: +'+self.document.forms.condinfo.elements.h.value+'+"':cond';");
! 1227: }
! 1228: inf.document.writeln(
! 1229: 'opener.infoclear();opener.editmode=0;opener.draw('
! 1230: +"'debug','edit'"+');">Change to above values</a> '
! 1231: +' <a href="javascript:self.document.forms.condinfo.reset()">Reset</a>'
! 1232: +'<input type=hidden name=h value='+data2[1]
! 1233: +'></form>');
! 1234:
! 1235: inf.document.writeln(
! 1236: '<a href="javascript:opener.notclear=0;opener.infoclear();'
! 1237: +'opener.delcond('+data1[2]+','+data1[1]+');opener.editmode=0;opener.draw('
! 1238: +"'debug','edit'"+');">Delete Condition</a>');
! 1239: } else {
! 1240: if (data1[0]=='r') {
! 1241: if (linkmode!=0) {
! 1242: joinres(linkmode,data1[1],0);
! 1243: editmode=0;
! 1244: notclear=0;
! 1245: linkmode=0;
! 1246: inf.document.writeln('<b>Linked Resources</b>');
! 1247: draw('debug','edit');
! 1248: } else {
! 1249: inf.document.writeln('<b>Resource</b>');
! 1250: data2=objcont[data1[1]].split(':');
! 1251: inf.document.write(
! 1252: '<form name=resinfo><table><tr><td>Title:</td><td>'
! 1253: +'<input type=text name=t size=40 value="'
! 1254: +data2[0]+'"></td></tr><tr><td>URL:</td><td>'
! 1255: +'<input type=text name=u size=40 value="'+data2[1]+'"></td></tr>'
! 1256: +'<tr><td>External:</td><td><input type=checkbox name=e');
! 1257: if (data2[2]=='true') { inf.document.write(' checked'); }
! 1258: inf.document.writeln('></td></tr>'
! 1259: +'<tr><td colspan=2><a href="javascript:opener.editmode=0;'
! 1260: +'opener.notclear=0;opener.objcont['+data1[1]
! 1261: +']=opener.escape(self.document.forms.resinfo.elements.t.value)+'+"':'"
! 1262: +'+opener.escape(self.document.forms.resinfo.elements.u.value)+'+"':'"
! 1263: +'+self.document.forms.resinfo.elements.e.checked+'+"':res'"
! 1264: +';opener.infoclear();">'
! 1265: +'Change to above values</a> '
! 1266: +' <a href="javascript:self.document.forms.resinfo.reset()">Reset</a>'
! 1267: +'</td></tr></table></form>');
! 1268: inf.document.writeln(
! 1269: '<a href="javascript:opener.notclear=0;opener.infoclear();'
! 1270: +'opener.delres('+data1[1]+',0);opener.editmode=0;opener.draw('
! 1271: +"'debug','edit'"+');">Delete Resource (cutting links)</a>');
! 1272: inf.document.writeln(
! 1273: '<br><a href="javascript:opener.notclear=0;opener.infoclear();'
! 1274: +'opener.delres('+data1[1]+',1);opener.editmode=0;opener.draw('
! 1275: +"'debug','edit'"+');">Delete Resource (preserving links)</a>');
! 1276: inf.document.writeln(
! 1277: '<br><a href="javascript:opener.editmode=0;opener.notclear=0;'
! 1278: +'opener.linkmode='+data1[1]+';'
! 1279: +'opener.infoclear();">Link Resource</a>');
! 1280: }
! 1281: } else {
! 1282: linkmode=0;
! 1283: inf.document.writeln('<b>Link</b><hr>');
! 1284: data2=obj[data1[0]].split('&');
! 1285: k=data2[data2.length-2];
! 1286: data3=objlinks[k].split(':');
! 1287: inf.document.writeln('From <b>'+objcont[data3[0]].split(':')[0]+
! 1288: '</b><br>to <b>'+objcont[data3[1]].split(':')[0]+'</b>');
! 1289: inf.document.writeln('<br><a href="javascript:opener.dellink('+
! 1290: k+');opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
! 1291: +"'debug','edit'"+');">Delete Link</a>');
! 1292: }
! 1293: }
! 1294: inf.document.writeln(
! 1295: '<br><a href="javascript:opener.editmode=0;opener.notclear=0;'
! 1296: +'opener.infoclear();">Done</a>');
! 1297: inf.document.writeln('</td></tr></table></body></html>');
! 1298: inf.document.close();
! 1299: inf.focus();
! 1300: }
! 1301:
! 1302: // ----------------------------------------------------- Clicks on empty fields
! 1303:
! 1304: function empty(rid,k) {
! 1305: var cid=findcol(k);
! 1306: var lcol=k-1;
! 1307: trow=row[rid];
! 1308: lrow=trow-1;
! 1309: editmode=1;
! 1310: notclear=1;
! 1311: linkmode=0;
! 1312: var options="scrollbars=1,resizable=1,menubar=0,width=400,height=300";
! 1313: var inf=open("","infout",options);
! 1314: inf.document.clear();
! 1315: inf.document.writeln(
! 1316: '<html><body bgcolor="#FFFFFF">'+
! 1317: '<table><tr><td width=32><img src="edit.gif"></td><td bgcolor="#AAFFAA">'+
! 1318: '<b>Empty Field</b><hr>');
! 1319:
! 1320: inf.document.writeln('<br><a href="javascript:opener.newresource('+
! 1321: rid+','+cid+",'','');"+
! 1322: 'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
! 1323: +"'debug','edit'"+');">Insert Resource</a>');
! 1324: inf.document.writeln('<hr>Insert column:');
! 1325: inf.document.writeln('<a href="javascript:opener.insertcol('+
! 1326: lcol+');opener.addobj('+rid+",'e&'+opener.maxcol);"
! 1327: +'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
! 1328: +"'debug','edit'"+');">left</a>');
! 1329: inf.document.writeln('<a href="javascript:opener.insertcol('+
! 1330: k+');opener.addobj('+rid+",'e&'+opener.maxcol);"
! 1331: +'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
! 1332: +"'debug','edit'"+');">right</a> ');
! 1333: inf.document.writeln('<br>Insert row:');
! 1334: inf.document.writeln('<a href="javascript:opener.insertrow('+
! 1335: trow+');opener.addobj(opener.maxrow'+",'e&"+cid+"');"
! 1336: +'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
! 1337: +"'debug','edit'"+');">below</a>');
! 1338: inf.document.writeln('<a href="javascript:opener.insertrow('+
! 1339: lrow+');opener.addobj(opener.maxrow'+",'e&"+cid+"');"
! 1340: +'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
! 1341: +"'debug','edit'"+');">above</a> ');
! 1342:
! 1343:
! 1344: inf.document.writeln(
! 1345: '<br><a href="javascript:opener.editmode=0;opener.notclear=0;'
! 1346: +'opener.infoclear();">Done</a>');
! 1347: inf.document.writeln('</td></tr></table></body></html>');
! 1348: inf.document.close();
! 1349: inf.focus();
! 1350: }
! 1351:
! 1352: // ---------------------------------------------------- Save into hidden fields
! 1353:
! 1354: function save() {
! 1355: var k;
! 1356: self.document.forms.storage.output.value='graphdef<:>yes';
! 1357: for (k=0;k<obj.length;k++) {
! 1358: self.document.forms.storage.output.value+=
! 1359: '<&>obj<:>'+k+'<:>'+obj[k];
! 1360: }
! 1361: for (k=0;k<row.length;k++) {
! 1362: self.document.forms.storage.output.value+=
! 1363: '<&>row<:>'+k+'<:>'+row[k];
! 1364: }
! 1365: for (k=0;k<col.length;k++) {
! 1366: self.document.forms.storage.output.value+=
! 1367: '<&>col<:>'+k+'<:>'+col[k];
! 1368: }
! 1369: for (k=0;k<rowcont.length;k++) {
! 1370: if (rowcont[k]) {
! 1371: self.document.forms.storage.output.value+=
! 1372: '<&>rowcont<:>'+k+'<:>'+rowcont[k];
! 1373: }
! 1374: }
! 1375: self.document.forms.storage.output.value+=
! 1376: '<&>maxcol<:>'+maxcol;
! 1377: self.document.forms.storage.output.value+=
! 1378: '<&>maxrow<:>'+maxrow;
! 1379:
! 1380: for (k=0;k<objcont.length;k++) {
! 1381: if (objcont[k]) {
! 1382: self.document.forms.storage.output.value+=
! 1383: '<&>objcont<:>'+k+'<:>'+objcont[k];
! 1384: }
! 1385: }
! 1386: for (k=0;k<objlinks.length;k++) {
! 1387: if (objlinks[k]) {
! 1388: self.document.forms.storage.output.value+=
! 1389: '<&>objlinks<:>'+k+'<:>'+objlinks[k];
! 1390: }
! 1391: }
! 1392: }
! 1393:
! 1394: // ----------------------------------------------- Reset all layout information
! 1395:
! 1396: function graphreset() {
! 1397:
! 1398: obj.length=0;
! 1399: obj[0]='';
! 1400: obj[1]='e&1';
! 1401:
! 1402: rowcont.length=0;
! 1403: rowcont[0]='';
! 1404: rowcont[1]='1';
! 1405: row.length=0;
! 1406: row[0]=0;
! 1407: row[1]=1;
! 1408: maxrow=1;
! 1409:
! 1410: col.length=0;
! 1411: colmap.length=0;
! 1412: maxcol=-1;
! 1413: insertcol(-1);
! 1414: insertcol(0);
! 1415:
! 1416: graphdef='no';
! 1417:
! 1418: }
! 1419:
! 1420: // --------------------- Compare two resources with each other for "straighten"
! 1421:
! 1422: function rescompare(a,b) {
! 1423: data1=a.split(':');
! 1424: data2=b.split(':');
! 1425: var rvalue=0;
! 1426: var k;
! 1427: for (k=1;k<data1.length;k++) {
! 1428: if (data1[k]==data2[0]) { rvalue--; }
! 1429: }
! 1430: for (k=1;k<data3.length;k++) {
! 1431: if (data2[k]==data1[0]) { rvalue++; }
! 1432: }
! 1433: if (rvalue==0) { rvalue=data2.length-data1.length; }
! 1434:
! 1435: return rvalue;
! 1436: }
! 1437:
! 1438: // ------------------------------------------- Sort objects to straighten graph
! 1439:
! 1440: function graphopt() {
! 1441: var k;
! 1442: var ij;
! 1443: var kj;
! 1444: var objsort=new Array();
! 1445: var objsorted=new Array();
! 1446: condense();
! 1447: graphreset();
! 1448: for (k=1;k<objcont.length;k++) {
! 1449: if (objcont[k]) {
! 1450: data1=objcont[k].split(':');
! 1451: if (data1[data1.length-1]=='res') {
! 1452: objsort[objsort.length]=''+k;
! 1453: }
! 1454: }
! 1455: }
! 1456: for (k=1;k<objlinks.length;k++) {
! 1457: data1=objlinks[k].split(':');
! 1458: kj=-1;
! 1459: for (j=0;j<objsort.length;j++) {
! 1460: if ((objsort[j].split(':'))[0]==data1[0]) {
! 1461: kj=j;
! 1462: }
! 1463: }
! 1464: objsort[kj]+=':'+data1[1];
! 1465: }
! 1466: objsorted=objsort.sort(rescompare);
! 1467: var thisnewobj=''+(objsorted[0].split(':'))[0];
! 1468: rowcont[1]=thisnewobj;
! 1469: var thiscolmax=1;
! 1470: obj[thisnewobj]='b&1&'+thiscolmax+':0:0:0';
! 1471: var allcolmax=0;
! 1472: for (k=1;k<objsorted.length;k++) {
! 1473: thisnewobj=(objsorted[k].split(':'))[0];
! 1474: if (rescompare(objsorted[k-1],objsorted[k])==0) {
! 1475: rowcont[rowcont.length-1]+=':'+thisnewobj;
! 1476: thiscolmax++;
! 1477: } else {
! 1478: rowcont[rowcont.length]=thisnewobj;
! 1479: if (thiscolmax>allcolmax) { allcolmax=thiscolmax; }
! 1480: thiscolmax=1;
! 1481: }
! 1482: kj=rowcont.length-1;
! 1483: obj[thisnewobj]='b&'+kj+'&'+thiscolmax+':0:0:0';
! 1484: }
! 1485: for (k=0;k<obj.length;k++) {
! 1486: if (!obj[k]) { obj[k]=''; }
! 1487: }
! 1488: for (k=0;k<=allcolmax;k++) { insertcol(0); }
! 1489: for (k=0;k<rowcont.length;k++) {
! 1490: row[k]=k;
! 1491: }
! 1492: maxrow=rowcont.length-1;
! 1493:
! 1494: var oldlinks=new Array();
! 1495: for (k=0;k<objlinks.length;k++) { oldlinks[k]=objlinks[k]; }
! 1496: objlinks.length=0;
! 1497: objlinks[0]='';
! 1498: for (k=0;k<objsorted.length;k++) {
! 1499: kj=(objsorted[k].split(':'))[0];
! 1500: for (ij=1;ij<oldlinks.length;ij++) {
! 1501: if (oldlinks[ij]) {
! 1502: data1=oldlinks[ij].split(':');
! 1503: if (data1[0]==kj) {
! 1504: joinres(data1[0],data1[1],data1[2]);
! 1505: }
! 1506: }
! 1507: }
! 1508: }
! 1509: }
! 1510:
! 1511: // ----------------------------------------------------------- Remove e-objects
! 1512:
! 1513: function condense() {
! 1514: var j;
! 1515: for (j=0;j<=maxrow;j++) {
! 1516: if (rowcont[j]!='') {
! 1517: data1=rowcont[j].split(':');
! 1518: rowcont[j]='';
! 1519: for (k=0;k<data1.length;k++) {
! 1520: if (obj[data1[k]].substring(0,2)!='e&') {
! 1521: if (rowcont[j]!='') { rowcont[j]+=':'; }
! 1522: rowcont[j]+=data1[k];
! 1523: }
! 1524: }
! 1525: }
! 1526: }
! 1527: }
! 1528:
! 1529: // ---------------------------------------------------- Load from hidden fields
! 1530:
! 1531: function load() {
! 1532: objcont.length=0;
! 1533: objlinks.length=0;
! 1534: objlinks[0]='';
! 1535: objcont[0]='';
! 1536: editmode=0;
! 1537: notclear=0;
! 1538: lastinfo='';
! 1539: graphreset();
! 1540: var inputstr=self.document.forms.storage.output.value;
! 1541: data1=inputstr.split('<&>');
! 1542: var k;
! 1543: for (k=0;k<data1.length;k++) {
! 1544: data2=data1[k].split('<:>');
! 1545: if (data2[0]=='graphdef') { graphdef=data2[1]; }
! 1546: if (data2[0]=='maxcol') { maxcol=1*data2[1]; }
! 1547: if (data2[0]=='maxrow') { maxrow=1*data2[1]; }
! 1548: if (data2[0]=='obj') { obj[data2[1]]=data2[2]; }
! 1549: if (data2[0]=='objcont') { objcont[data2[1]]=data2[2]; }
! 1550: if (data2[0]=='objlinks') { objlinks[data2[1]]=data2[2]; }
! 1551: if (data2[0]=='rowcont') { rowcont[data2[1]]=data2[2]; }
! 1552: if (data2[0]=='row') { row[data2[1]]=1*data2[2]; }
! 1553: if (data2[0]=='col') { col[data2[1]]=1*data2[2]; }
! 1554: }
! 1555: }
! 1556:
! 1557: // -------------------------------------------------------- Main program onLoad
! 1558:
! 1559: function main() {
! 1560:
! 1561: if (mainrun==0) {
! 1562: load();
! 1563: draw('debug','edit');
! 1564: mainrun=1;
! 1565: }
! 1566:
! 1567: }
! 1568:
! 1569: </script>
! 1570: </head>
! 1571:
! 1572: <body bgcolor="#FFFFFF" onLoad="main();">
! 1573: <a href="javascript:condense();draw('debug','edit');">Condense</a>
! 1574: <a href="javascript:graphopt();draw('debug','edit');">Straighten</a>
! 1575: <form name=storage method=post>
! 1576: <input type=hidden name=output>
! 1577: </form>
! 1578: </body>
! 1579: </html>
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to code.html CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / rat / client