rat/client/code.html - diff

Return to code.html CVS log

Up to [LON-CAPA] / rat / client

Diff for /rat/client/Attic/code.html between versions 1.7 and 1.50

version 1.7, 2000/07/08 11:23:36	version 1.50, 2002/03/06 20:30:07
Line 3	Line 3
<!--	<!--
The LearningOnline Network	The LearningOnline Network
Resource Assembly Tool	Resource Assembly Tool
	//
	// $Id$
	//
	// Copyright Michigan State University Board of Trustees
	//
	// This file is part of the LearningOnline Network with CAPA (LON-CAPA).
	//
	// LON-CAPA is free software; you can redistribute it and/or modify
	// it under the terms of the GNU General Public License as published by
	// the Free Software Foundation; either version 2 of the License, or
	// (at your option) any later version.
	//
	// LON-CAPA is distributed in the hope that it will be useful,
	// but WITHOUT ANY WARRANTY; without even the implied warranty of
	// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	// GNU General Public License for more details.
	//
	// You should have received a copy of the GNU General Public License
	// along with LON-CAPA; if not, write to the Free Software
	// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
	//
	// /home/httpd/html/adm/gpl.txt
	//
	// http://www.lon-capa.org/
	//
	YEAR 2000
7/23,7/24,7/26,	7/23,7/24,7/26,
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/11,8/14,8/18,8/19,8/20,8/21,8/22,8/25,8/26,8/28,8/30,8/31,
9/1,9/2,9/4,9/5,9/6,	9/1,9/2,9/4,9/5,9/6,
1/7,1/8,1/10,1/14,1/15,1/16,1/21,1/22,1/29,1/30,1/31,	1/7,1/8,1/10,1/14,1/15,1/16,1/21,1/22,1/29,1/30,1/31,
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,	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,
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,	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,
6/7,6/8,6/9,6/10,6/12,6/15,7/4	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,
Gerd Kortemeyer with Scott Harrison	YEAR 2001
	01/17/01,03/03,03/05 Gerd Kortemeyer with Scott Harrison
	March/April 01 Scott Harrison
	04/20 Gerd Kortemeyer
	04/30 Scott Harrison
	05/31 Scott Harrison
	06/11,06/25,06/27,06/28,06/29,07/04 Gerd Kortemeyer
	07/24,8/6,8/7,10/16 Scott Harrison
	03/01/02 Matthew Hall
-->	-->


Line 30 var colmap5=new Array();	Line 64 var colmap5=new Array();
var colmap6=new Array();	var colmap6=new Array();
var obj=new Array();	var obj=new Array();
var objcont=new Array();	var objcont=new Array();
	var objparms=new Array();
var objlinks=new Array();	var objlinks=new Array();
var rowcont=new Array();	var rowcont=new Array();
var rowtype=new Array();	var rowtype=new Array();
Line 56 var zscale=3;	Line 91 var zscale=3;
var disrows=0;	var disrows=0;
var discols=0;	var discols=0;

	var finishdone=0;
	var tim=0;
	var funny='\|';
	var reqaction='';
	var canceltim;

	var expense=0;

var data1=new Array(1024);	var data1=new Array(1024);
var data2=new Array(1024);	var data2=new Array(1024);
var data3=new Array(1024);	var data3=new Array(1024);
Line 63 var data4=new Array(1024);	Line 106 var data4=new Array(1024);
var data5=new Array(1024);	var data5=new Array(1024);

var inf;	var inf;
	var srch;
	var srchflag=-1; // 1 means currently open
	// 0 means closed (but has been open)
	// -1 means never yet opened/defined
	var srchmode='';

	var idx;
	var idxflag=-1; // 1 means currently open
	// 0 means closed (but has been open)
	// -1 means never yet opened/defined
	var idxmode='';

	var parm;
	var parmflag=-1; // 1 means currently open
	// 0 means closed (but has been open)
	// -1 means never yet opened/defined

	var iconpath='/adm/lonIcons/';

// ------------------------------------------------ Insert a row into the table	function testfunction() {
	inf.document.forms.resinfo.elements.t.value="ABC";
	}

	// ------------------------------------------------ Insert a row into the table
function insertrow(j,ex1,ex2) {	function insertrow(j,ex1,ex2) {
var kj;	var kj;
stored=0;	stored=0;
	expense++; expense++;
objects1='';	objects1='';
objects2='';	objects2='';
for (kj=0;kj<=maxrow;kj++) {	for (kj=0;kj<=maxrow;kj++) {
Line 83 function insertrow(j,ex1,ex2) {	Line 148 function insertrow(j,ex1,ex2) {
objects=objects1+':'+objects2;	objects=objects1+':'+objects2;
data1=objects.split(':');	data1=objects.split(':');
for (kj=0;kj<data1.length;kj++) {	for (kj=0;kj<data1.length;kj++) {
if (data1[kj]!='') {	if ((data1[kj]!='') && (typeof(data1[kj])!="undefined")) {
thisisobj=obj[data1[kj]];	thisisobj=obj[data1[kj]];
thisobjtype=thisisobj.split('&')[0];	thisobjtype=thisisobj.split('&')[0];
if (thisobjtype=='v') {	if (thisobjtype=='v') {
Line 124 function insertrow(j,ex1,ex2) {	Line 189 function insertrow(j,ex1,ex2) {
}	}
}	}
}	}
if (newobj!='') {	if ((newobj!='') && (typeof(newobj)!="undefined")) {
thisobjcol=newobj.split('&')[1];	thisobjcol=newobj.split('&')[1];
if (colcover.indexOf(':'+thisobjcol+':',0)==-1) {	if (colcover.indexOf(':'+thisobjcol+':',0)==-1) {
colcover+=thisobjcol+':';	colcover+=thisobjcol+':';
Line 150 function insertrow(j,ex1,ex2) {	Line 215 function insertrow(j,ex1,ex2) {
}	}
}	}
}	}
if (newobj!='') {	if ((newobj!='') && (typeof(newobj)!="undefined")) {
thisobjcol=newobj.split('&')[1];	thisobjcol=newobj.split('&')[1];
if (colcover.indexOf(':'+thisobjcol+':',0)==-1) {	if (colcover.indexOf(':'+thisobjcol+':',0)==-1) {
colcover+=thisobjcol+':';	colcover+=thisobjcol+':';
Line 169 function insertrow(j,ex1,ex2) {	Line 234 function insertrow(j,ex1,ex2) {
}	}

// --------------------------------------------- Creates a new condition object	// --------------------------------------------- Creates a new condition object

function newcondition(content,type) {	function newcondition(content,type) {
var ko;	var ko;
stored=0;	stored=0;
Line 180 function newcondition(content,type) {	Line 244 function newcondition(content,type) {
}	}

// ---------------------------------------------- Creates a new resource object	// ---------------------------------------------- Creates a new resource object

function newresource(rid,cid,text,url,ext,type) {	function newresource(rid,cid,text,url,ext,type) {
stored=0;	stored=0;
objcont[addobj(rid,'b&'+rid+'&'+cid+':0:0:0')]=	objcont[addobj(rid,'b&'+rid+'&'+cid+':0:0:0')]=
Line 189 function newresource(rid,cid,text,url,ex	Line 252 function newresource(rid,cid,text,url,ex


// -------------------------------- Insert a condition into a port of an object	// -------------------------------- Insert a condition into a port of an object

function insertcond(obj1,portnr,cond) {	function insertcond(obj1,portnr,cond) {
var k;	var k;
stored=0;	stored=0;
Line 206 function insertcond(obj1,portnr,cond) {	Line 268 function insertcond(obj1,portnr,cond) {

// --------------------------------------------- Insert a column into the table	// --------------------------------------------- Insert a column into the table
// Inserts a new table column after table column j	// Inserts a new table column after table column j

function insertcol(j) {	function insertcol(j) {
var kj;	var kj;
stored=0;	stored=0;
Line 214 function insertcol(j) {	Line 275 function insertcol(j) {
if ( col[kj]>j ) { col[kj]++; }	if ( col[kj]>j ) { col[kj]++; }
}	}
maxcol++;	maxcol++;
	expense++; expense++;
col[maxcol]=j+1;	col[maxcol]=j+1;
}	}

// --------------------------------------------------------------- Find the row	// --------------------------------------------------------------- Find the row

function findrow(jid) {	function findrow(jid) {
var j;	var j;
for (j=0;j<=maxrow;j++) { if (row[j]==jid) { return j; } }	for (j=0;j<=maxrow;j++) { if (row[j]==jid) { return j; } }
Line 226 function findrow(jid) {	Line 287 function findrow(jid) {
}	}

// --------------------------------------------------------------- Find the col	// --------------------------------------------------------------- Find the col

function findcol(jid) {	function findcol(jid) {
var j;	var j;
for (j=0;j<=maxcol;j++) { if (col[j]==jid) { return j; } }	for (j=0;j<=maxcol;j++) { if (col[j]==jid) { return j; } }
Line 241 function findcol(jid) {	Line 301 function findcol(jid) {
//	//
// returns middle (col number of middle of obj1)	// returns middle (col number of middle of obj1)
// sets colmap (map of cols with object numbers)	// sets colmap (map of cols with object numbers)

function maprow (jid,obj1,ign) {	function maprow (jid,obj1,ign) {
var j; var k; var left; var right; var middle;	var j; var k; var left; var right; var middle;
middle=-1;	middle=-1;
for (j=0;j<=maxcol;j++) { colmap[j]=0; }	for (j=0;j<=maxcol;j++) { colmap[j]=0; }
if (rowcont[jid]!='') {	if ((rowcont[jid]!='') && (typeof(rowcont[jid])!="undefined")) {
data2=rowcont[jid].split(':');	data2=rowcont[jid].split(':');
for (j=0;j<data2.length;j++) {	for (j=0;j<data2.length;j++) {
data3=obj[data2[j]].split('&');	data3=obj[data2[j]].split('&');
Line 287 function maprow (jid,obj1,ign) {	Line 346 function maprow (jid,obj1,ign) {
// kid: colID, find point close to this	// kid: colID, find point close to this
// dkid: destination colID	// dkid: destination colID
// returns colID	// returns colID

function comingthru (jid,kid,dkid) {	function comingthru (jid,kid,dkid) {
var k;	var k;
maprow(jid,-1,1);	maprow(jid,-1,1);
Line 333 function comingthru (jid,kid,dkid) {	Line 391 function comingthru (jid,kid,dkid) {
// linkobj: object that the link goes to/comes from	// linkobj: object that the link goes to/comes from
// sets inrow or outrow	// sets inrow or outrow
// return column	// return column


function insertport (obj1,d,inout,linkobj) {	function insertport (obj1,d,inout,linkobj) {


var k; var port; var revport;	var k; var port; var revport;
stored=0;	stored=0;
data1=obj[obj1].split('&');	data1=obj[obj1].split('&');
Line 366 function insertport (obj1,d,inout,linkob	Line 420 function insertport (obj1,d,inout,linkob
if ((data3[k]==0) && (colmap[k]==obj1) && (port==-1)) { port=k; }	if ((data3[k]==0) && (colmap[k]==obj1) && (port==-1)) { port=k; }
}	}
}	}

if (port==-1) {	if (port==-1) {
if (colmap[k]==0) {	if (colmap[k]==0) {
revport=findcol(k);	revport=findcol(k);
Line 413 function insertport (obj1,d,inout,linkob	Line 466 function insertport (obj1,d,inout,linkob

// ---------------------------- Make a new object and add it to the row content	// ---------------------------- Make a new object and add it to the row content
// returns object number of generated object	// returns object number of generated object

function addobj(kjid,objs) {	function addobj(kjid,objs) {
stored=0;	stored=0;
if (rowcont[kjid]!='') { rowcont[kjid]+=':'; }	expense++;
	if ((rowcont[kjid]!='') && (typeof(rowcont[kjid])!="undefined")) {
	rowcont[kjid]+=':';
	}
rowcont[kjid]+=obj.length;	rowcont[kjid]+=obj.length;
obj[obj.length]=objs;	obj[obj.length]=objs;
return obj.length-1;	return obj.length-1;
Line 424 function addobj(kjid,objs) {	Line 479 function addobj(kjid,objs) {

// ---------------------------------------- Make horizontal connection for hrid	// ---------------------------------------- Make horizontal connection for hrid
// hoffs=-1: this line goes on top of hrid	// hoffs=-1: this line goes on top of hrid

function horizontal(hrid,hoffs,hfcol,htcol,hdest,hends) {	function horizontal(hrid,hoffs,hfcol,htcol,hdest,hends) {
hcrid=-1;	hcrid=-1;
if (hoffs==-1) {	if (hoffs==-1) {
Line 451 function horizontal(hrid,hoffs,hfcol,htc	Line 505 function horizontal(hrid,hoffs,hfcol,htc
}	}
}	}
}	}

if (hcrid==-1) {	if (hcrid==-1) {
insertrow(row[hrid]+hoffs,hfcol,htcol);	insertrow(row[hrid]+hoffs,hfcol,htcol);
addobj(maxrow,'h&'+maxrow+'&'+hfcol+':'+htcol+'&'+hdest+'&'+hends);	addobj(maxrow,'h&'+maxrow+'&'+hfcol+':'+htcol+'&'+hdest+'&'+hends);
Line 461 function horizontal(hrid,hoffs,hfcol,htc	Line 514 function horizontal(hrid,hoffs,hfcol,htc
}	}

// --------------------------------------- Deletes all references to object obj	// --------------------------------------- Deletes all references to object obj

function delobj(obj1) {	function delobj(obj1) {
var k;	var k;
stored=0;	stored=0;
Line 470 function delobj(obj1) {	Line 522 function delobj(obj1) {
rowcont[k]='';	rowcont[k]='';
for (k2=0;k2<data4.length;k2++) {	for (k2=0;k2<data4.length;k2++) {
if (data4[k2]!=obj1) {	if (data4[k2]!=obj1) {
if (rowcont[k]!='') { rowcont[k]+=':'; }	if ((rowcont[k]!='') && (typeof(rowcont[k])!="undefined")) {
	rowcont[k]+=':';
	}
rowcont[k]+=data4[k2];	rowcont[k]+=data4[k2];
}	}
}	}
}	}
	obj[obj1]='';
}	}

// --------------------------------------------------------- Garbage collection	// --------------------------------------------------------- Garbage collection

function cleanup () {	function cleanup () {
message("Garbage Collection");	message("Garbage Collection");
var j,kj,i;	var j,kj,i;
Line 489 function cleanup () {	Line 543 function cleanup () {
for (kj=0;kj<=maxcol;kj++) { data1[kj]=0; }	for (kj=0;kj<=maxcol;kj++) { data1[kj]=0; }
for (kj=0;kj<=maxrow;kj++) {	for (kj=0;kj<=maxrow;kj++) {
rowtype[kj]=0;	rowtype[kj]=0;
if (rowcont[kj]!='') {	if ((rowcont[kj]!='') && (typeof(rowcont[kj])!="undefined")) {
data2=rowcont[kj].split(':');	data2=rowcont[kj].split(':');
for (j=0;j<data2.length;j++) {	for (j=0;j<data2.length;j++) {
if (obj[data2[j]].substring(0,2)=='e&') {	if (obj[data2[j]].substring(0,2)=='e&') {
Line 532 function cleanup () {	Line 586 function cleanup () {
rowtype[maxrow]=2;	rowtype[maxrow]=2;
coltype[maxcol]=2;	coltype[maxcol]=2;
}	}

}	}

// -------------------------------------------- Delete a condition from a block	// -------------------------------------------- Delete a condition from a block

function delcond(obj1,colid) {	function delcond(obj1,colid) {
var k;	var k;
stored=0;	stored=0;
Line 556 function delcond(obj1,colid) {	Line 608 function delcond(obj1,colid) {
}	}

// ----------------------------------------- Creates a new condition in a block	// ----------------------------------------- Creates a new condition in a block

function crecond(obj1,colid,condtext,condtype) {	function crecond(obj1,colid,condtext,condtype) {
var k;	var k;
data3=obj[obj1].split('&');	data3=obj[obj1].split('&');
Line 578 function crecond(obj1,colid,condtext,con	Line 629 function crecond(obj1,colid,condtext,con
// deletes the link linknr	// deletes the link linknr
// h&rowID&incolID:outcolID&inObj:outObj&inupdown:outupdown	// h&rowID&incolID:outcolID&inObj:outObj&inupdown:outupdown
// v&colID&inObj:outObj&updown	// v&colID&inObj:outObj&updown

function dellink (linknr) {	function dellink (linknr) {
var k; var obj1; var obj2;	var k; var obj1; var obj2;
stored=0;	stored=0;
if (objlinks[linknr]!='') {	if ((objlinks[linknr]!='') && (typeof(objlinks[linknr])!="undefined")) {
data3=objlinks[linknr].split(':');	data3=objlinks[linknr].split(':');
obj1=data3[0];	obj1=data3[0];
obj2=data3[1];	obj2=data3[1];
Line 605 function dellink (linknr) {	Line 655 function dellink (linknr) {
}	}
}	}
for (k=0;k<obj.length;k++) {	for (k=0;k<obj.length;k++) {
if (obj[k]!='') {	if ((obj[k]!='') && (typeof(obj[k])!="undefined")) {
data3=obj[k].split('&');	data3=obj[k].split('&');
if (((data3[0]=='v') \|\| (data3[0]=='h')) &&	if (((data3[0]=='v') \|\| (data3[0]=='h')) &&
(data3[data3.length-2]==linknr)) {	(data3[data3.length-2]==linknr)) {
Line 619 function dellink (linknr) {	Line 669 function dellink (linknr) {

// ----------------------------------------------------------- Join two objects	// ----------------------------------------------------------- Join two objects
// Links obj1 with obj2, creates new objlink, marks all elements with number	// Links obj1 with obj2, creates new objlink, marks all elements with number

function joinres (obj1,obj2,cond) {	function joinres (obj1,obj2,cond) {
var k; var kr; var outcol; var incol; var d;
stored=0;	stored=0;
	var minexpense;
	var best;

	expense=0;
	tryjoin(obj1,obj2,cond,1,1);
	minexpense=expense;
	best=0;
	finishload();

	expense=0;
	tryjoin(obj1,obj2,cond,1,-1);
	if (expense<minexpense) {
	best=1;
	minexpense=expense;
	}
	finishload();

	expense=0;
	tryjoin(obj1,obj2,cond,-1,1);
	if (expense<minexpense) {
	best=2;
	minexpense=expense;
	}
	finishload();

	expense=0;
	tryjoin(obj1,obj2,cond,-1,-1);
	if (expense<minexpense) {
	best=3;
	minexpense=expense;
	}

	if (best==0) {
	finishload();
	tryjoin(obj1,obj2,cond,1,1);
	}
	if (best==1) {
	finishload();
	tryjoin(obj1,obj2,cond,1,-1);
	}
	if (best==2) {
	finishload();
	tryjoin(obj1,obj2,cond,-1,1);
	}
	}

	function tryjoin(obj1,obj2,cond,d1,d2) {
	var k; var kr; var outcol; var incol; var d; var dest;

dest=objlinks.length;	dest=objlinks.length;
objlinks[dest]=obj1+':'+obj2+':'+cond;	objlinks[dest]=obj1+':'+obj2+':'+cond;
data3=obj[obj1].split('&');
sum=0;	outcol=insertport(obj1,d1,2,dest);
for (k=2;k<data3.length;k++) { sum+=col[data3[k].split(':')[0]]; }
outmiddle=sum/(data3.length-2);
data3=obj[obj2].split('&');
sum=0;
for (k=2;k<data3.length;k++) { sum+=col[data3[k].split(':')[0]]; }
inmiddle=sum/(data3.length-2);
d=inmiddle-outmiddle;
outcol=insertport(obj1,d,2,dest);
insertcond(obj1,outcol,cond);	insertcond(obj1,outcol,cond);
incol=insertport(obj2,-d,1,dest);	incol=insertport(obj2,d2,1,dest);
if (row[inrow]==(row[outrow]+1)) {	if (row[inrow]==(row[outrow]+1)) {
insertrow(row[outrow],-1,-1);	insertrow(row[outrow],-1,-1);
}	}
Line 726 function joinres (obj1,obj2,cond) {	Line 815 function joinres (obj1,obj2,cond) {
// ---------------------------------------------------------- Delete a resource	// ---------------------------------------------------------- Delete a resource
// Deletes resource obj1	// Deletes resource obj1
// Reconnects resources going thru this one if recon=1	// Reconnects resources going thru this one if recon=1

function delres (obj1,recon) {	function delres (obj1,recon) {
var infromobj=new Array();	var infromobj=new Array();
var inwithcon=new Array();	var inwithcon=new Array();
Line 773 function delres (obj1,recon) {	Line 861 function delres (obj1,recon) {
for (k2=0;k2<inobjs.length;k2++) {	for (k2=0;k2<inobjs.length;k2++) {
if (inobjs[k2]==infromobj[k]) {	if (inobjs[k2]==infromobj[k]) {
if (inwithcon[k]!=0) {	if (inwithcon[k]!=0) {
if (inobjscond[k2]!='') { inobjscond[k2]+='\|\|'; }	if ((inobjscond[k2]!='') &&
	(typeof(inobjscond[k2])!="undefined")) {
	inobjscond[k2]+='\|\|';
	}
inobjscond[k2]+=	inobjscond[k2]+=
'('+(objcont[inwithcon[k]].split(':'))[0]+')';	'('+(objcont[inwithcon[k]].split(':'))[0]+')';
}	}
Line 799 function delres (obj1,recon) {	Line 890 function delres (obj1,recon) {
for (k2=0;k2<outobjs.length;k2++) {	for (k2=0;k2<outobjs.length;k2++) {
if (outobjs[k2]==outtoobj[k]) {	if (outobjs[k2]==outtoobj[k]) {
if (outwithcon[k]!=0) {	if (outwithcon[k]!=0) {
if (outobjscond[k2]!='') { outobjscond[k2]+='\|\|'; }	if ((outobjscond[k2]!='') &&
	(typeof(outobjscond[k2])!="undefined")) {
	outobjscond[k2]+='\|\|';
	}
outobjscond[k2]+=	outobjscond[k2]+=
'('+(objcont[outwithcon[k]].split(':'))[0]+')';	'('+(objcont[outwithcon[k]].split(':'))[0]+')';
}	}
Line 821 function delres (obj1,recon) {	Line 915 function delres (obj1,recon) {

for (k=0;k<inobjs.length;k++) {	for (k=0;k<inobjs.length;k++) {
cond='';	cond='';
if (inobjscond[k]!='') { cond='('+inobjscond[k]+')'; }	if ((inobjscond[k]!='') && (typeof(inobjscond[k])!="undefined")) {
	cond='('+inobjscond[k]+')';
	}
for (k2=0;k2<outobjs.length;k2++) {	for (k2=0;k2<outobjs.length;k2++) {
thiscond=cond;	thiscond=cond;
if (outobjscond[k2]!='') {	if ((outobjscond[k2]!='') && (typeof(outobjscond[k2])!="undefined")) {
if (thiscond!='') { thiscond+='&&'; }	if ((thiscond!='') && (typeof(thiscond)!="undefined")) {
	thiscond+='&&';
	}
thiscond+='('+outobjscond[k2]+')';	thiscond+='('+outobjscond[k2]+')';
}	}
condnr=0;	condnr=0;
if (thiscond!='') { condnr=newcondition(thiscond,'normal'); }	if ((thiscond!='') && (typeof(thiscond)!="undefined")) {
	condnr=newcondition(thiscond,'normal');
	}
	save();
joinres(inobjs[k],outobjs[k2],condnr);	joinres(inobjs[k],outobjs[k2],condnr);
}	}
}	}
Line 837 function delres (obj1,recon) {	Line 938 function delres (obj1,recon) {
}	}

// -------------------------------------------------------------- Draw an entry	// -------------------------------------------------------------- Draw an entry

function drawcell (rtype,ctype,what,cm,obj1,ej,ek,ne) {	function drawcell (rtype,ctype,what,cm,obj1,ej,ek,ne) {
var bgcolor;	var bgcolor;
	var url='';
	var urlparts=new Array;
	var mime;
	var ext;
	var objref;
	var objnum;

if ((what=='') && (ne==0)) { cm="#DDDDDD"; }	if ((what=='') && (ne==0)) { cm="#DDDDDD"; }
if (ctype!=0) {	if (ctype!=0) {
parent.mapout.document.write('<td bgcolor='+cm+' width='+cw[ctype]+'>');	parent.mapout.document.write('<td bgcolor='+cm+' width='+cw[ctype]+'>');
if (what!='') {	if ((what!='') && (typeof(what)!="undefined")) {
if (obj1!='') {	if ((obj1!='') && (typeof(obj1)!="undefined")) {
obj1="'"+obj1+"'";	objref="'"+obj1+"'";
parent.mapout.document.write	parent.mapout.document.write
('<a href="javascript:parent.code.handler('+obj1	('<a href="javascript:parent.code.handler('+objref
+');" onMouseOver="parent.code.info('+obj1+');">');	+');" onMouseOver="parent.code.info('+objref+');">');
}	}
if (what=='r:') {	if (what=='r:') {
	mime='';
	objnum=(obj1.split('&'))[1];
	if (typeof(objcont[objnum])!="undefined") {
	urlparts=objcont[objnum].split(':');
	url=urlparts[1];
	ext=urlparts[2];
	urlparts=url.split('.');
	mime=urlparts[urlparts.length-1];
	if (typeof(mime)=="undefined") { mime=''; }
	}
parent.mapout.document.write	parent.mapout.document.write
('<img border=0 width='+cw[ctype]+' height='+rh[rtype]	('<img border=0 width='+cw[ctype]+' height='+rh[1]
+' src="resource.gif">');	+' src="resource.gif">');
	if ((mime!='') && (ext!='true')) {
	parent.mapout.document.write
	('<br><img border=0 src="left.gif"></a><a target="preview" href="'+
	url+'.meta"><img border=0 src="'+iconpath+
	'meta.gif"><a target="preview" href="'+url+
	'"><img border=0 src="'+iconpath+mime+'.gif">'+
	'<img border=0 src="right.gif">');
	} else {
	parent.mapout.document.write
	('<br><img border=0 src="middle.gif">');
	}
	parent.mapout.document.write
	('<br><img border=0 src="bottom.gif">');
} else {	} else {
if (what=='c:') {	if (what=='c:') {
parent.mapout.document.write	parent.mapout.document.write
Line 861 function drawcell (rtype,ctype,what,cm,o	Line 991 function drawcell (rtype,ctype,what,cm,o
+' src="condition.gif">');	+' src="condition.gif">');
} else {	} else {
if (what=='rs:') {	if (what=='rs:') {
	mime='';
	objnum=(obj1.split('&'))[1];
	if (typeof(objcont[objnum])!="undefined") {
	urlparts=objcont[objnum].split(':');
	url=urlparts[1];
	ext=urlparts[2];
	urlparts=url.split('.');
	mime=urlparts[urlparts.length-1];
	if (typeof(mime)=="undefined") { mime=''; }
	}
parent.mapout.document.write	parent.mapout.document.write
('<img border=0 width='+cw[ctype]+' height='+rh[rtype]	('<img border=0 width='+cw[ctype]+' height='+rh[1]
+' src="start.gif">');	+' src="start.gif">');
	if ((mime!='') && (ext!='true')) {
	parent.mapout.document.write
	('<br><img border=0 src="left.gif"></a><a target="preview" href="'+
	url+'.meta"><img border=0 src="'+iconpath+
	'meta.gif"><a target="preview" href="'+url+
	'"><img border=0 src="'+iconpath+mime+'.gif">'+
	'<img border=0 src="right.gif">');
	} else {
	parent.mapout.document.write
	('<br><img border=0 src="middle.gif">');
	}
	parent.mapout.document.write
	('<br><img border=0 src="bottom.gif">');

} else {	} else {
if (what=='rf:') {	if (what=='rf:') {
	mime='';
	objnum=(obj1.split('&'))[1];
	if (typeof(objcont[objnum])!="undefined") {
	urlparts=objcont[objnum].split(':');
	url=urlparts[1];
	ext=urlparts[2];
	urlparts=url.split('.');
	mime=urlparts[urlparts.length-1];
	if (typeof(mime)=="undefined") { mime=''; }
	}
parent.mapout.document.write	parent.mapout.document.write
('<img border=0 width='+cw[ctype]+' height='+rh[rtype]	('<img border=0 width='+cw[ctype]+' height='+rh[1]
+' src="finish.gif">');	+' src="finish.gif">');
	if ((mime!='') && (ext!='true')) {
	parent.mapout.document.write
	('<br><img border=0 src="left.gif"></a><a target="preview" href="'+
	url+'.meta"><img border=0 src="'+iconpath+
	'meta.gif"><a target="preview" href="'+url+
	'"><img border=0 src="'+iconpath+mime+'.gif">'+
	'<img border=0 src="right.gif">');
	} else {
	parent.mapout.document.write
	('<br><img border=0 src="middle.gif">');
	}
	parent.mapout.document.write
	('<br><img border=0 src="bottom.gif">');
} else {	} else {
parent.mapout.document.write	parent.mapout.document.write
('<img border=0 width='+cw[ctype]+' height='+rh[rtype]	('<img border=0 width='+cw[ctype]+' height='+rh[rtype]
Line 877 function drawcell (rtype,ctype,what,cm,o	Line 1054 function drawcell (rtype,ctype,what,cm,o
}	}
}	}
}	}
if (obj1!='') {	if ((obj1!='') && (typeof(obj1)!="undefined")) {
parent.mapout.document.write('</a>');	parent.mapout.document.write('</a>');
}	}
} else {	} else {
Line 900 function drawcell (rtype,ctype,what,cm,o	Line 1077 function drawcell (rtype,ctype,what,cm,o
}	}

// --------------------------------------------------------- Color of resources	// --------------------------------------------------------- Color of resources

function rescolor (ext,typ) {	function rescolor (ext,typ) {
var rc; var gc; var bc;	var rc; var gc; var bc;
if (ext=='true') { bc='55'; } else { bc='99'; }	if (ext=='true') { bc='55'; } else { bc='99'; }
Line 911 function rescolor (ext,typ) {	Line 1087 function rescolor (ext,typ) {
}	}

// -------------------------------------------------------- Color of conditions	// -------------------------------------------------------- Color of conditions

function condcolor(typ) {	function condcolor(typ) {
if (typ=='stop') { return '#EEAAAA'; }	if (typ=='stop') { return '#EEAAAA'; }
if (typ=='force') { return '#AAAAEE'; }	if (typ=='force') { return '#AAAAEE'; }
Line 919 function condcolor(typ) {	Line 1094 function condcolor(typ) {
}	}

// ----------------------------------------------------------------- Draw a row	// ----------------------------------------------------------------- Draw a row

function drawrow (jid) {	function drawrow (jid) {
var j; var jk; var k; var ck; var rtype;	var j; var jk; var k; var ck; var rtype;
var objd1=new Array();	var objd1=new Array();
Line 934 if (rowtype[jid]!=0) {	Line 1108 if (rowtype[jid]!=0) {
}	}

parent.mapout.document.writeln('<tr height='+rh[rowtype[jid]]+'>');	parent.mapout.document.writeln('<tr height='+rh[rowtype[jid]]+'>');
if (rowcont[jid]!='') {	if ((rowcont[jid]!='') && (typeof(rowcont[jid])!="undefined")) {
data2=rowcont[jid].split(':');	data2=rowcont[jid].split(':');
for (jk=0;jk<data2.length;jk++) {	for (jk=0;jk<data2.length;jk++) {
data3=obj[data2[jk]].split('&');	data3=obj[data2[jk]].split('&');
Line 991 if (rowtype[jid]!=0) {	Line 1165 if (rowtype[jid]!=0) {

if (rightin>middle) {	if (rightin>middle) {
for (k=middle+1;k<rightin;k++) {	for (k=middle+1;k<rightin;k++) {
if (colmap4[k]!='') {	if ((colmap4[k]!='') && (typeof(colmap4[k])!="undefined")) {
colmap[k]='rlt';	colmap[k]='rlt';
} else {	} else {
colmap[k]='rl';	colmap[k]='rl';
Line 1001 if (rowtype[jid]!=0) {	Line 1175 if (rowtype[jid]!=0) {
}	}
if (leftin<middle) {	if (leftin<middle) {
for (k=middle-1;k>leftin;k--) {	for (k=middle-1;k>leftin;k--) {
if (colmap4[k]!='') {	if ((colmap4[k]!='') && (typeof(colmap4[k])!="undefined")) {
colmap[k]='lrt';	colmap[k]='lrt';
} else {	} else {
colmap[k]='lr';	colmap[k]='lr';
Line 1021 if (rowtype[jid]!=0) {	Line 1195 if (rowtype[jid]!=0) {
if (rightout<middle) { colmap2[middle]='tl'; }	if (rightout<middle) { colmap2[middle]='tl'; }
if (rightout==middle) { colmap2[middle]='tdl'; }	if (rightout==middle) { colmap2[middle]='tdl'; }
if (rightout>middle) {	if (rightout>middle) {
if (colmap3[middle]!='') {	if ((colmap3[middle]!='') && (typeof(colmap3[middle])!="undefined")) {
colmap2[middle]='rtdl';	colmap2[middle]='rtdl';
} else {	} else {
colmap2[middle]='rtl';	colmap2[middle]='rtl';
Line 1030 if (rowtype[jid]!=0) {	Line 1204 if (rowtype[jid]!=0) {
}	}
if (leftout<middle) {	if (leftout<middle) {
for (k=middle-1;k>leftout;k--) {	for (k=middle-1;k>leftout;k--) {
if (colmap3[k]!='') {	if ((colmap3[k]!='') && (typeof(colmap3[k])!="undefined")) {
colmap2[k]='rld';	colmap2[k]='rld';
} else {	} else {
colmap2[k]='rl';	colmap2[k]='rl';
Line 1040 if (rowtype[jid]!=0) {	Line 1214 if (rowtype[jid]!=0) {
}	}
if (rightout>middle) {	if (rightout>middle) {
for (k=middle+1;k<rightout;k++) {	for (k=middle+1;k<rightout;k++) {
if (colmap3[k]!='') {	if ((colmap3[k]!='') && (typeof(colmap3[k])!="undefined")) {
colmap2[k]='lrd';	colmap2[k]='lrd';
} else {	} else {
colmap2[k]='lr';	colmap2[k]='lr';
Line 1123 if (rowtype[jid]!=0) {	Line 1297 if (rowtype[jid]!=0) {
}	}

// -------------------------------------------------------------- Print message	// -------------------------------------------------------------- Print message

function message(txt) {	function message(txt) {
parent.window.status=txt;	parent.window.status=txt;
}	}

// ------------------------------------------------------------- Draw the table	// ------------------------------------------------------------- Draw the table

function draw () {	function draw () {
var k; var kr;	var k; var kr;

Line 1178 function draw () {	Line 1350 function draw () {
}	}

// --------------------------------------------------------- Clears info window	// --------------------------------------------------------- Clears info window

function infoclear() {	function infoclear() {
if (notclear!=1) {	if (notclear!=1) {
infcheck();	infcheck();
Line 1209 function infoclear() {	Line 1380 function infoclear() {
}	}
inf.document.writeln('</tr></table></body></html>');	inf.document.writeln('</tr></table></body></html>');
inf.document.close();	inf.document.close();
parent.focus();	if (srchflag==1) {
	srchclose();
	}
	if (idxflag==1) {
	idxclose();
	}
	if (parmflag==1) {
	parmclose();
	}
	parent.top.focus();
parent.mapout.focus();	parent.mapout.focus();
notclear=1;	notclear=1;
lastinfo='';	lastinfo='';
Line 1217 function infoclear() {	Line 1397 function infoclear() {
}	}

// ------------------------------------------------------------ Open inf window	// ------------------------------------------------------------ Open inf window

function infopen() {	function infopen() {
var options="scrollbars=1,resizable=1,menubar=0,width=400,height=300";	var options="scrollbars=1,resizable=1,menubar=0,width=400,height=300";
inf=open("","infout",options);	inf=open("","infout",options);
}	}

// -------------------------------------------------------- Do inf status check	// -------------------------------------------------------- Do inf status check

function infcheck() {	function infcheck() {
if (inf.closed) {	if (inf.closed) {
infopen();	infopen();
Line 1232 function infcheck() {	Line 1410 function infcheck() {
}	}

// --------------------------------------------------- Prints out resource info	// --------------------------------------------------- Prints out resource info

function info(infostr) {	function info(infostr) {
	var mime='';
	var ext;
	var urlparts=new Array;
	var url='';
if ((editmode!=1) && (infostr!=lastinfo)) {	if ((editmode!=1) && (infostr!=lastinfo)) {
notclear=1;	notclear=1;
infcheck();	infcheck();
Line 1264 function info(infostr) {	Line 1445 function info(infostr) {
} else {	} else {
if (data1[0]=='r') {	if (data1[0]=='r') {
data2=objcont[data1[1]].split(':');	data2=objcont[data1[1]].split(':');
inf.document.write('<b>');	url=data2[1];
	ext=data2[2];
	urlparts=url.split('.');
	mime=urlparts[urlparts.length-1];
	if (typeof(mime)=="undefined") { mime=''; }
	if (ext=='true') { mime=''; }
	if (mime!='') {
	inf.document.write
	('<br><a target="preview" align="right" href="'+url+
	'"><img border=0 src="'+iconpath+mime+'.gif"></a>  ');
	}
	inf.document.write('<b>');
if (data2[2]=='true') { inf.document.write('External '); }	if (data2[2]=='true') { inf.document.write('External '); }
if (data2[3]=='start') {	if (data2[3]=='start') {
inf.document.writeln('<b>Start</b>');	inf.document.writeln('<b>Start</b>');
Line 1302 function info(infostr) {	Line 1494 function info(infostr) {
}	}
inf.document.writeln('</td></tr></table></body></html>');	inf.document.writeln('</td></tr></table></body></html>');
inf.document.close();	inf.document.close();
parent.focus();	parent.top.focus();
parent.mapout.focus();	parent.mapout.focus();
notclear=0;	notclear=0;
lastinfo=infostr;	lastinfo=infostr;
Line 1310 function info(infostr) {	Line 1502 function info(infostr) {
}	}

// ------------------------------------------------ "Escapes" out special chars	// ------------------------------------------------ "Escapes" out special chars

function escape(instring) {	function escape(instring) {
var outstring='';	var outstring='';
var thischar;	var thischar;
Line 1325 function escape(instring) {	Line 1516 function escape(instring) {
}	}
return outstring;	return outstring;
}	}
	// There must be a way to get rid of the odd number of "s

// -------------------------------------------------- Insert resource into link	// -------------------------------------------------- Insert resource into link

function insertreslink(infostr) {	function insertreslink(infostr) {
var lnr;	var lnr;
var fobj;	var fobj;
Line 1353 function insertreslink(infostr) {	Line 1544 function insertreslink(infostr) {
dellink(lnr);	dellink(lnr);
newresource(rid,cid,'','','false','normal');	newresource(rid,cid,'','','false','normal');
nobj=obj.length-1;	nobj=obj.length-1;
	save();
joinres(fobj,nobj,cobj);	joinres(fobj,nobj,cobj);
	save();
joinres(nobj,tobj,0);	joinres(nobj,tobj,0);
}	}

// -------------------------------------------- Insert resource after condition	// -------------------------------------------- Insert resource after condition

function insertcondlink(cid,lnr) {	function insertcondlink(cid,lnr) {
var fobj;	var fobj;
var tobj;	var tobj;
Line 1373 function insertcondlink(cid,lnr) {	Line 1565 function insertcondlink(cid,lnr) {
dellink(lnr);	dellink(lnr);
newresource(maxrow,cid,'','','false','normal');	newresource(maxrow,cid,'','','false','normal');
nobj=obj.length-1;	nobj=obj.length-1;
	save();
joinres(fobj,nobj,cobj);	joinres(fobj,nobj,cobj);
	save();
joinres(nobj,tobj,0);	joinres(nobj,tobj,0);
}	}

// ---------------------------------------------------- Handles "click to edit"	// ------------------------------------------------------ Clears indexer window
	function idxclear() {
	idx.document.clear();
	}

	// ------------------------------------------------------- Clears search window
	function srchclear() {
	srch.document.clear();
	}

	// --------------------------------------------------------- Clears parm window
	function parmclear() {
	parm.document.clear();
	}

	// ------------------------------------------------------ Closes indexer window
	function idxclose() {
	if (idx && !idx.closed) {
	idxflag=0;
	idx.close();
	}
	}

	// ------------------------------------------------------- Closes search window
	function srchclose() {
	if (srch && !srch.closed) {
	srchflag=0;
	srch.close();
	}
	}

	// ------------------------------------------------------- Closes search window
	function parmclose() {
	if (parm && !parm.closed) {
	parmflag=0;
	parm.close();
	}
	}

	// -------------------------------------------------------- Open indexer window
	function idxopen(mode) {
	var options="scrollbars=1,resizable=1,menubar=0";
	idxmode=mode;
	idxflag=1;
	idx=open("/res/?launch=1&mode=rat&catalogmode="+mode,"idxout",options);
	idx.focus();
	}

	// --------------------------------------------------------- Open search window
	function srchopen(mode) {
	var options="scrollbars=1,resizable=1,menubar=0";
	srchmode=mode;
	srchflag=1;
	srch=open("/adm/searchcat?launch=1&mode=rat&catalogmode="+mode,"srchout",options);
	srch.focus();
	}

	// -------------------------------------------- Interface function to searching
	function search() {
	alert("Searching not yet implemented");
	}

	// ------------------------------------------------------- Do srch status check
	function srchcheck(mode) {
	if (!srch \|\| srch.closed \|\| srchmode!=mode) {
	srchopen(mode);
	}
	srch.focus();
	}

	// -------------------------------------------------------- Do idx status check
	function idxcheck(mode) {
	if (!idx \|\| idx.closed \|\| idxmode!=mode) {
	idxopen(mode);
	}
	idx.focus();
	}

	// ---------------------------------------------------- Handles "click to edit"
function handler(infostr) {	function handler(infostr) {
var k;	var k;
editmode=1;	editmode=1;
Line 1424 function handler(infostr) {	Line 1695 function handler(infostr) {
}	}
inf.document.writeln(	inf.document.writeln(
'opener.infoclear();opener.editmode=0;opener.draw('	'opener.infoclear();opener.editmode=0;opener.draw('
+');"><b>Change to above values</b></a>  '	+');"><b>Save Changes</b></a>  '
+' <a href="javascript:self.document.forms.condinfo.reset()">Reset</a><br>'	+' <a href="javascript:self.document.forms.condinfo.reset()">Reset</a><br>'
+'<input type=hidden name=h value='+data2[1]+'>');	+'<input type=hidden name=h value='+data2[1]+'>');

Line 1441 function handler(infostr) {	Line 1712 function handler(infostr) {
'opener.insertcondlink('+data1[1]+','+data1[3]+');'+	'opener.insertcondlink('+data1[1]+','+data1[3]+');'+
'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('	'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
+');">Insert Resource Into Link</a>');	+');">Insert Resource Into Link</a>');


} else {	} else {
if (data1[0]=='r') {	if (data1[0]=='r') {
if (linkmode!=0) {	if (linkmode!=0) {
Line 1464 function handler(infostr) {	Line 1733 function handler(infostr) {
}	}
}	}
inf.document.write(	inf.document.write(
'<form name=resinfo><table><tr><td>Title:</td><td>'	'<form name=resinfo><table><tr><td>Title:</td><td colspan=2>'
+'<input type=text name=t size=30 value="'	+'<input type=text name=t size=30 value="'
+data2[0]+'"><input type=hidden name=h value='+data2[3]+'></td></tr>');	+data2[0]+'"><input type=hidden name=h value='+data2[3]+'></td></tr>');
if ((data2[3]!='start') && (data2[3]!='finish')) {	inf.document.write('<tr><td>URL:</td><td colspan=2>'
inf.document.write('<tr><td>URL:</td><td>'
+'<input type=text name=u size=30 value="'+data2[1]+'"></td></tr>'	+'<input type=text name=u size=30 value="'+data2[1]+'"></td></tr>'
+'<tr><td>External:</td><td><input type=checkbox name=e');	+'<tr><td>External:</td><td><input type=checkbox name=e');
if (data2[2]=='true') { inf.document.write(' checked'); }	if (data2[2]=='true') { inf.document.write(' checked'); }
inf.document.write('></td></tr>'	inf.document.write('></td><td align=right>'
+'<tr><td colspan=2>'	+'<a href="javascript:opener.idxcheck(\'interactive\')">Browse</a> '
	+'<a href="javascript:opener'
	+'.srchcheck(\'interactive\')">Search</a></td></tr>');
	if ((data2[3]!='start') && (data2[3]!='finish')) {
	inf.document.write('<tr><td colspan=3>'
+'<input type=radio name=y value=normal '+	+'<input type=radio name=y value=normal '+
'onClick="self.document.forms.resinfo.elements.h.value='+"'normal'"+'"');	'onClick="self.document.forms.resinfo.elements.h.value='+"'normal'"+'"');
if (data2[3]=='normal') { inf.document.write(' checked'); }	if (data2[3]=='normal') { inf.document.write(' checked'); }
Line 1486 function handler(infostr) {	Line 1758 function handler(infostr) {
'onClick="self.document.forms.resinfo.elements.h.value='+"'optional'"+'"');	'onClick="self.document.forms.resinfo.elements.h.value='+"'optional'"+'"');
if (data2[3]=='optional') { inf.document.write(' checked'); }	if (data2[3]=='optional') { inf.document.write(' checked'); }
inf.document.write('> Optional</td></tr>');	inf.document.write('> Optional</td></tr>');
} else {	}
inf.document.write(
'<tr><td><input type=hidden name=e value=false>'
+'<input type=hidden name=u value=""></td></tr>');
}
inf.document.writeln(	inf.document.writeln(
'<tr><td colspan=2><a href="javascript:opener.editmode=0;'	'<tr><td colspan=3><a href="javascript:opener.editmode=0;'
+'opener.notclear=0;opener.objcont['+data1[1]	+'opener.notclear=0;opener.objcont['+data1[1]
+']=opener.escape(self.document.forms.resinfo.elements.t.value)+'+"':'"	+']=opener.escape(self.document.forms.resinfo.elements.t.value)+'+"':'"
+'+opener.escape(self.document.forms.resinfo.elements.u.value)+'+"':'"	+'+opener.escape(self.document.forms.resinfo.elements.u.value)+'+"':'"
+'+self.document.forms.resinfo.elements.e.checked+'+"':'"	+'+self.document.forms.resinfo.elements.e.checked+'+"':'"
+'+self.document.forms.resinfo.elements.h.value+'+"':res'"	+'+self.document.forms.resinfo.elements.h.value+'+"':res'"
+';opener.infoclear();opener.editmode=0;opener.draw();">'	+';opener.infoclear();opener.editmode=0;opener.draw();">'
+'<b>Change to above values</b></a>  '	+'<b>Save Changes</b></a>  '
+' <a href="javascript:self.document.forms.resinfo.reset()">Reset</a>'	+' <a href="javascript:self.document.forms.resinfo.reset()">Reset</a>'
+'</td></tr></table>');	+'</td></tr></table>');
if ((data2[3]!='start') && (data2[3]!='finish')) {	if ((data2[3]!='start') && (data2[3]!='finish')) {
Line 1518 function handler(infostr) {	Line 1786 function handler(infostr) {
+'opener.linkmode='+data1[1]+';'	+'opener.linkmode='+data1[1]+';'
+'opener.infoclear();">Link Resource</a>');	+'opener.infoclear();">Link Resource</a>');
}	}
	inf.document.writeln(
	'<br><a href="javascript:'
	+'opener.setparms('+data1[1]+');'
	+'opener.infoclear();">Set Parameters</a>');

}	}
} else {	} else {
linkmode=0;	linkmode=0;
Line 1538 function handler(infostr) {	Line 1811 function handler(infostr) {
}	}
inf.document.writeln(	inf.document.writeln(
'<br><a href="javascript:opener.editmode=0;opener.notclear=0;'	'<br><a href="javascript:opener.editmode=0;opener.notclear=0;'
+'opener.infoclear();">Done</a>');	+'opener.infoclear();">Cancel</a>');
inf.document.writeln('</form></td></tr></table></body></html>');	inf.document.writeln('</form></td></tr></table></body></html>');
inf.document.close();	inf.document.close();
inf.focus();	inf.focus();
}	}

// ----------------------------------------------------- Clicks on empty fields	// ----------------------------------------------------- Clicks on empty fields

function empty(rid,k) {	function empty(rid,k) {
var cid=findcol(k);	var cid=findcol(k);
var lcol=k-1;	var lcol=k-1;
Line 1567 function empty(rid,k) {	Line 1839 function empty(rid,k) {
'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('	'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
+');">Insert resource</a>');	+');">Insert resource</a>');

if ((mostrecent!=0) && (objcont[mostrecent]!='')) {	if ((mostrecent!=0) && (objcont[mostrecent]!='') &&
	(typeof(objcont[mostrecent])!="undefined")) {

inf.document.writeln('<br><a href="javascript:opener.newresource('+	inf.document.writeln('<br><a href="javascript:opener.newresource('+
rid+','+cid+",'','','false','normal');"+	rid+','+cid+",'','','false','normal');"+
Line 1607 function empty(rid,k) {	Line 1880 function empty(rid,k) {

inf.document.writeln(	inf.document.writeln(
'<br><a href="javascript:opener.editmode=0;opener.notclear=0;'	'<br><a href="javascript:opener.editmode=0;opener.notclear=0;'
+'opener.infoclear();">Done</a>');	+'opener.infoclear();">Cancel</a>');
inf.document.writeln('</td></tr></table></body></html>');	inf.document.writeln('</td></tr></table></body></html>');
inf.document.close();	inf.document.close();
inf.focus();	inf.focus();
}	}

// ---------------------------------------------------- Save into hidden fields	// ---------------------------------------------------- Save into hidden fields

function save() {	function save() {
var k;	var k;
if (graphdef=='yes') {	if (graphdef=='yes') {
Line 1648 function save() {	Line 1920 function save() {
}	}
parent.server.document.forms.storage.output.value+=	parent.server.document.forms.storage.output.value+=
'<&>tablemode<:>'+tablemode;	'<&>tablemode<:>'+tablemode;

	for (k=0;k<objparms.length;k++) {
	if (objparms[k]) {
	parent.server.document.forms.storage.output.value+=
	'<&>objparms<:>'+k+'<:>'+objparms[k];
	}
	}
for (k=0;k<objcont.length;k++) {	for (k=0;k<objcont.length;k++) {
if (objcont[k]) {	if (objcont[k]) {
parent.server.document.forms.storage.output.value+=	parent.server.document.forms.storage.output.value+=
Line 1667 function save() {	Line 1945 function save() {
}	}

// ----------------------------------------------- Reset all layout information	// ----------------------------------------------- Reset all layout information

function graphreset() {	function graphreset() {

var k;	var k;
Line 1689 function graphreset() {	Line 1966 function graphreset() {
insertcol(-1);	insertcol(-1);

objcont[0]='';	objcont[0]='';
objcont[1]='Start::false:start:res'
objcont[2]='Finish::false:finish:res';
objlinks[0]='';	objlinks[0]='';
objlinks[1]='1:2:0';	if (((typeof(objcont[1])=="undefined")&&(typeof(objcont[2])=="undefined")) \|\|
	((objcont[1]=='')&&(objcont[2]==''))) {
	objcont[1]='Start::false:start:res'
	objcont[2]='Finish::false:finish:res';
	}
graphdef='no';	graphdef='no';

}	}

// --------------------- Compare two resources with each other for "straighten"	// --------------------- Compare two resources with each other for "straighten"

function rescompare(a,b) {	function rescompare(a,b) {
data1=a.split(':');	data1=a.split(':');
data2=b.split(':');	data2=b.split(':');
Line 1716 function rescompare(a,b) {	Line 1993 function rescompare(a,b) {
}	}

// -------------------------------------------- Draw the table instead of graph	// -------------------------------------------- Draw the table instead of graph

function tabledraw() {	function tabledraw() {
var objsorted=new Array();	var objsorted=new Array();
var robjs=new Array();	var robjs=new Array();
Line 1728 function tabledraw() {	Line 2004 function tabledraw() {
var ck;	var ck;
var cck;	var cck;
var condid;	var condid;
	var url='';
	var mime='';
	var ext='';
	var urlparts=new Array;
var sortstr=sortobjs();	var sortstr=sortobjs();
insrestab(1,-1,-1,'');	insrestab(1,-1,-1,'');
if (sortstr!='') {	if ((sortstr!='') && (typeof(sortstr)!="undefined")) {
objsorted=sortstr.split('&');	objsorted=sortstr.split('&');
for (k=0;k<objsorted.length;k++) {	for (k=0;k<objsorted.length;k++) {
i=(objsorted[k].split(':'))[0];	i=(objsorted[k].split(':'))[0];
Line 1746 function tabledraw() {	Line 2026 function tabledraw() {
}	}
data1=objcont[i].split(':');	data1=objcont[i].split(':');
ck=rescolor(data1[2],data1[3]);	ck=rescolor(data1[2],data1[3]);
parent.mapout.document.write('<tr><td bgcolor="'+ck	parent.mapout.document.write('<tr><td bgcolor="'+ck+'">');
+'"><b><a href="javascript:if (parent.code.linkmode!=0) { '	url=data1[1];
	ext=data1[2];
	urlparts=url.split('.');
	mime=urlparts[urlparts.length-1];
	if (typeof(mime)=="undefined") { mime=''; }
	if ((mime!='') && (ext!='true')) {
	parent.mapout.document.write
	('<a target="preview" align="right" href="'+url+'.meta'+
	'"><img src="'+iconpath+'meta.gif"></a><p>'+
	'<a target="preview" align="right"href="'+url+
	'"><img src="'+iconpath+mime+'.gif"></a><p>');
	}
	parent.mapout.document.write(
	'<b><a href="javascript:if (parent.code.linkmode!=0) { '
+'parent.code.joinres(parent.code.linkmode,'+i+',0);'	+'parent.code.joinres(parent.code.linkmode,'+i+',0);'
+'parent.code.linkmode=0;parent.code.editmode=0;'	+'parent.code.linkmode=0;parent.code.editmode=0;'
+'parent.code.notclear=0;parent.code.infoclear();'	+'parent.code.notclear=0;parent.code.infoclear();'
Line 1755 function tabledraw() {	Line 2048 function tabledraw() {
+'"><form name=r'+i+' method=post>');	+'"><form name=r'+i+' method=post>');
data2=obj[i].split('&');	data2=obj[i].split('&');
parent.mapout.document.write('<table bgcolor="#CCCCCC">');	parent.mapout.document.write('<table bgcolor="#CCCCCC">');

if (data1[3]=='start') {	if (data1[3]=='start') {
parent.mapout.document.writeln('<tr><td><b>Start</b></td></tr>');	parent.mapout.document.writeln('<tr><td><b>Start</b></td></tr>');
}	}
Line 1765 function tabledraw() {	Line 2059 function tabledraw() {
'<tr><td>Title:</td><td><input type=text name=t size=50 value="'	'<tr><td>Title:</td><td><input type=text name=t size=50 value="'
+data1[0]+'"><input type=hidden name=h value='+data1[3]	+data1[0]+'"><input type=hidden name=h value='+data1[3]
+'></td></tr>');	+'></td></tr>');
if ((data1[3]!='start') && (data1[3]!='finish')) {
parent.mapout.document.write(	parent.mapout.document.write(
'<tr><td>URL:</td><td><input type=text name=u size=50 value="'	'<tr><td>URL:</td><td><input type=text name=u size=50 value="'
+data1[1]+'"></td></tr>'	+data1[1]+'"></td></tr>'
+'<tr><td>External:</td><td><input type=checkbox name=e');	+'<tr><td>External:</td><td><input type=checkbox name=e');
if (data1[2]=='true') { parent.mapout.document.write(' checked'); }	if (data1[2]=='true') { parent.mapout.document.write(' checked'); }
parent.mapout.document.write('></td></tr>'	parent.mapout.document.write('></td></tr>');
+'<tr><td colspan=2><input type=radio name=y value=normal '+	if ((data1[3]!='start') && (data1[3]!='finish')) {
	parent.mapout.document.write(
	'<tr><td colspan=2><input type=radio name=y value=normal '+
'onClick="parent.mapout.document.forms.r'+i+'.elements.h.value='+	'onClick="parent.mapout.document.forms.r'+i+'.elements.h.value='+
"'normal'"+'"');	"'normal'"+'"');
if (data1[3]=='normal') { parent.mapout.document.write(' checked'); }	if (data1[3]=='normal') { parent.mapout.document.write(' checked'); }
Line 1787 function tabledraw() {	Line 2082 function tabledraw() {
"'optional'"+'"');	"'optional'"+'"');
if (data1[3]=='optional') { parent.mapout.document.write(' checked'); }	if (data1[3]=='optional') { parent.mapout.document.write(' checked'); }
parent.mapout.document.write('> Optional</td></tr>');	parent.mapout.document.write('> Optional</td></tr>');
} else {	}
parent.mapout.document.write(
'<tr><td><input type=hidden name=u value="">'
+'<input type=hidden name=e value=false></td></tr>');
}
parent.mapout.document.write(	parent.mapout.document.write(
'<tr><td colspan=2><a href="javascript:parent.code.objcont['+i	'<tr><td colspan=2><a href="javascript:parent.code.objcont['+i
+']=parent.code.escape(parent.mapout.document.forms.r'+i	+']=parent.code.escape(parent.mapout.document.forms.r'+i
Line 1801 function tabledraw() {	Line 2092 function tabledraw() {
+'+parent.mapout.document.forms.r'+i+'.elements.e.checked+'+"':'"	+'+parent.mapout.document.forms.r'+i+'.elements.e.checked+'+"':'"
+'+parent.mapout.document.forms.r'+i+'.elements.h.value+'+"':res'"	+'+parent.mapout.document.forms.r'+i+'.elements.h.value+'+"':res'"
+';parent.code.draw();">'	+';parent.code.draw();">'
+'<b>Change to above values</b></a>  '	+'<b>Save Changes</b></a>  '
+' <a href="javascript:parent.mapout.document.forms.r'+i	+' <a href="javascript:parent.mapout.document.forms.r'+i
+'.reset()">Reset</a></td></tr><tr><td colspan=2>');	+'.reset()">Reset</a></td></tr><tr><td colspan=2>');
if ((data1[3]!='start') && (data1[3]!='finish')) {	if ((data1[3]!='start') && (data1[3]!='finish')) {
Line 1817 function tabledraw() {	Line 2108 function tabledraw() {
parent.mapout.document.writeln(	parent.mapout.document.writeln(
'<a href="javascript:parent.code.linkmode='+i+	'<a href="javascript:parent.code.linkmode='+i+
';parent.code.notclear=0;parent.code.infoclear();">'+	';parent.code.notclear=0;parent.code.infoclear();">'+
'Link resource</a></td></tr>');	'Link resource</a>');
}	}
	parent.mapout.document.writeln(
	'<br><a href="javascript:'
	+'parent.code.setparms('+i+');">Set Parameters</a>');

	parent.mapout.document.writeln('</td></tr>');
parent.mapout.document.writeln('<tr><td colspan=2><table><tr>');	parent.mapout.document.writeln('<tr><td colspan=2><table><tr>');
for (j=2;j<data2.length;j++) {	for (j=2;j<data2.length;j++) {
data4=data2[j].split(':');	data4=data2[j].split(':');
Line 1873 function tabledraw() {	Line 2169 function tabledraw() {
}	}

// ----------------------------------------------------- Insert Resource Output	// ----------------------------------------------------- Insert Resource Output

function insrestab(irow,be,af,typ) {	function insrestab(irow,be,af,typ) {
parent.mapout.document.writeln('<tr><td colspan=2>'+	parent.mapout.document.writeln('<tr><td colspan=2>'+
'<table><tr><td><a href="javascript:parent.code.insertrow('	'<table><tr><td><a href="javascript:parent.code.insertrow('
Line 1886 function insrestab(irow,be,af,typ) {	Line 2181 function insrestab(irow,be,af,typ) {
'<a href="javascript:parent.code.insertrow('	'<a href="javascript:parent.code.insertrow('
+irow+');parent.code.newresource(parent.code.maxrow,'+rcol[0]	+irow+');parent.code.newresource(parent.code.maxrow,'+rcol[0]
+",'','','false','normal');parent.code.mostrecent=parent.code.obj.length-1;"	+",'','','false','normal');parent.code.mostrecent=parent.code.obj.length-1;"
	+"parent.code.save();"
+'parent.code.joinres('+be+',parent.code.mostrecent,0);'	+'parent.code.joinres('+be+',parent.code.mostrecent,0);'
+'parent.code.draw();">'	+'parent.code.draw();">'
+'Insert resource linked to from above</a><br>');	+'Insert resource linked to from above</a><br>');
Line 1895 function insrestab(irow,be,af,typ) {	Line 2191 function insrestab(irow,be,af,typ) {
'<a href="javascript:parent.code.insertrow('	'<a href="javascript:parent.code.insertrow('
+irow+');parent.code.newresource(parent.code.maxrow,'+rcol[0]	+irow+');parent.code.newresource(parent.code.maxrow,'+rcol[0]
+",'','','false','normal');parent.code.mostrecent=parent.code.obj.length-1;"	+",'','','false','normal');parent.code.mostrecent=parent.code.obj.length-1;"
	+"parent.code.save();"
+'parent.code.joinres('+be+',parent.code.mostrecent,0);'	+'parent.code.joinres('+be+',parent.code.mostrecent,0);'
	+"parent.code.save();"
+'parent.code.joinres(parent.code.mostrecent,'+af+',0);'	+'parent.code.joinres(parent.code.mostrecent,'+af+',0);'
+'parent.code.draw();">'	+'parent.code.draw();">'
+'Insert resource linked to from above and linking to below</a><br>');	+'Insert resource linked to from above and linking to below</a><br>');
Line 1905 function insrestab(irow,be,af,typ) {	Line 2203 function insrestab(irow,be,af,typ) {
'<a href="javascript:parent.code.insertrow('	'<a href="javascript:parent.code.insertrow('
+irow+');parent.code.newresource(parent.code.maxrow,'+rcol[0]	+irow+');parent.code.newresource(parent.code.maxrow,'+rcol[0]
+",'','','false','normal');parent.code.mostrecent=parent.code.obj.length-1;"	+",'','','false','normal');parent.code.mostrecent=parent.code.obj.length-1;"
	+"parent.code.save();"
+'parent.code.joinres(parent.code.mostrecent,'+af+',0);'	+'parent.code.joinres(parent.code.mostrecent,'+af+',0);'
+'parent.code.draw();">'	+'parent.code.draw();">'
+'Insert resource linking to below</a><br>');	+'Insert resource linking to below</a><br>');
}	}
parent.mapout.document.writeln('</td></tr></table></tr>');	parent.mapout.document.writeln('</td></tr></table></tr>');
}	}
// ---------------------------------------- Draw simple table instead of graph

	// ---------------------------------------- Draw simple table instead of graph
function simpletabledraw() {	function simpletabledraw() {
var objsorted=new Array();	var objsorted=new Array();
var robjs=new Array();	var robjs=new Array();
Line 1923 function simpletabledraw() {	Line 2222 function simpletabledraw() {
var nr;	var nr;
var ck;	var ck;
var cck;	var cck;
	var mime;
	var ext;
	var url;
	var urlparts=new Array;
var condid;	var condid;
var sortstr=sortobjs();	var sortstr=sortobjs();
if (sortstr!='') {	if ((sortstr!='') && (typeof(sortstr)!="undefined")) {
objsorted=sortstr.split('&');	objsorted=sortstr.split('&');
for (k=0;k<objsorted.length;k++) {	for (k=0;k<objsorted.length;k++) {
i=(objsorted[k].split(':'))[0];	i=(objsorted[k].split(':'))[0];
Line 1941 function simpletabledraw() {	Line 2244 function simpletabledraw() {
}	}
data1=objcont[i].split(':');	data1=objcont[i].split(':');
ck=rescolor(data1[2],data1[3]);	ck=rescolor(data1[2],data1[3]);
parent.mapout.document.write('<tr><td bgcolor="'+ck	parent.mapout.document.write('<tr><td bgcolor="'+ck+'">');
+'"><b>'+k+'</b></td><td bgcolor="'+ck	url=data1[1];
+'">');	ext=data1[2];
	urlparts=url.split('.');
	mime=urlparts[urlparts.length-1];
	if (typeof(mime)=="undefined") { mime=''; }
	if ((mime!='') && (ext!='true')) {
	parent.mapout.document.write
	('<a target="preview" align="right" href="'+url+'.meta'+
	'"><img src="'+iconpath+'meta.gif"></a><p>'+
	'<a target="preview" align="right"href="'+url+
	'"><img src="'+iconpath+mime+'.gif"></a><p>');
	}
	parent.mapout.document.write('<b>'+k+'</b></td><td bgcolor="'+ck+'">');
data2=obj[i].split('&');	data2=obj[i].split('&');
parent.mapout.document.write('<table>');	parent.mapout.document.write('<table>');

if (data1[3]=='start') {	if (data1[3]=='start') {
parent.mapout.document.writeln('<tr><td><b>Start</b></td></tr>');	parent.mapout.document.writeln('<tr><td><b>Start</b></td></tr>');
}	}
Line 2001 function simpletabledraw() {	Line 2316 function simpletabledraw() {
}	}

// ---------------------------------- Sort objects to straighten graph or table	// ---------------------------------- Sort objects to straighten graph or table

function sortobjs() {	function sortobjs() {
message("Sorting Resources");	message("Sorting Resources: "+funny);
var k;	var k;
var ij;	var ij;
var dol;	var dol;
Line 2021 function sortobjs() {	Line 2335 function sortobjs() {
}	}
if (objsort.length==0) { return ''; }	if (objsort.length==0) { return ''; }
for (k=1;k<objlinks.length;k++) {	for (k=1;k<objlinks.length;k++) {
if (objlinks[k]!='') {	wheelswitch();
	message("Sorting Resources: "+funny);
	if ((typeof(objlinks[k])!="undefined") && (objlinks[k]!='')) {
sortthis=1;	sortthis=1;
data1=objlinks[k].split(':');	data1=objlinks[k].split(':');
kj=-1;	kj=-1;
Line 2030 function sortobjs() {	Line 2346 function sortobjs() {
kj=j;	kj=j;
}	}
}	}
objsort[kj]+=':'+data1[1];	if (kj!=-1) { objsort[kj]+=':'+data1[1]; }
}	}
}	}
if (sortthis!=0) {	if (sortthis!=0) {
for (k=0;k<objsort.length;k++) {	for (k=0;k<objsort.length;k++) {
	wheelswitch();
	message("Sorting Resources: "+funny);
for (j=0;j<objsort.length;j++) {	for (j=0;j<objsort.length;j++) {
if (k!=j) {	if (k!=j) {
data1=objsort[k].split(':');	data1=objsort[k].split(':');
data2=objsort[j].split(':');	data2=objsort[j].split(':');
dol=data1.length;	dol=data1.length;
dtl=data2.length;	dtl=data2.length;
for (kj=1;kj<dol;kj++) {	if (dol+dtl<200) {
	for (kj=1;kj<dol;kj++) {
if (data1[kj]==data2[0]) {	if (data1[kj]==data2[0]) {
for (ij=1;ij<dtl;ij++) {	for (ij=1;ij<dtl;ij++) {
data1[data1.length]=data2[ij];	data1[data1.length]=data2[ij];
}	}
}	}
}	}
for (kj=1;kj<dtl;kj++) {	for (kj=1;kj<dtl;kj++) {
if (data2[kj]==data1[0]) {	if (data2[kj]==data1[0]) {
for (ij=1;ij<dol;ij++) {	for (ij=1;ij<dol;ij++) {
data2[data2.length]=data1[ij];	data2[data2.length]=data1[ij];
}	}
}	}
	}
	objsort[k]=data1.join(':');
	objsort[j]=data2.join(':');
}	}
objsort[k]=data1.join(':');
objsort[j]=data2.join(':');
}	}
}	}
}	}
	message("Sorting Resources: finishing up.");
return objsort.sort(rescompare).join('&');	return objsort.sort(rescompare).join('&');
} else {	} else {
return objsort.join('&');	return objsort.join('&');
Line 2067 function sortobjs() {	Line 2388 function sortobjs() {
}	}

// ----------------------------------------------------------- Straighten graph	// ----------------------------------------------------------- Straighten graph

function graphopt() {	function graphopt() {
var k;	var k;
var kj;	var kj;
var ij;	var ij;

var objsorted=new Array();	var objsorted=new Array();
condense();	condense();
graphreset();	graphreset();
Line 2105 function graphopt() {	Line 2424 function graphopt() {
row[k]=k;	row[k]=k;
}	}
maxrow=rowcont.length-1;	maxrow=rowcont.length-1;

var oldlinks=new Array();	var oldlinks=new Array();
for (k=0;k<objlinks.length;k++) { oldlinks[k]=objlinks[k]; }	for (k=0;k<objlinks.length;k++) {
	oldlinks[k]=objlinks[k];
	objlinks[k]='';
	}
objlinks.length=0;	objlinks.length=0;
objlinks[0]='';	objlinks[0]='';
	graphdef='yes';
	save();

for (k=0;k<objsorted.length;k++) {	for (k=0;k<objsorted.length;k++) {
kj=(objsorted[k].split(':'))[0];	wheelswitch();
	message("Connecting Resources: "+funny);
	kj=(objsorted[k].split(':'))[0];
for (ij=1;ij<oldlinks.length;ij++) {	for (ij=1;ij<oldlinks.length;ij++) {
if (oldlinks[ij]) {	if (oldlinks[ij]) {
data1=oldlinks[ij].split(':');	data1=oldlinks[ij].split(':');
if (data1[0]==kj) {	if (data1[0]==kj) {
joinres(data1[0],data1[1],data1[2]);	joinres(data1[0],data1[1],data1[2]);
	save();
}	}
}	}
}	}
}	}
graphdef='yes';
}	}

// ----------------------------------------------------------- Remove e-objects	// ----------------------------------------------------------- Remove e-objects

function condense() {	function condense() {
message("Condensing");	message("Condensing");
var j;	var j;
for (j=0;j<=maxrow;j++) {	for (j=0;j<=maxrow;j++) {
if (rowcont[j]!='') {	if ((rowcont[j]!='') && (typeof(rowcont[j])!="undefined")) {
data1=rowcont[j].split(':');	data1=rowcont[j].split(':');
rowcont[j]='';	rowcont[j]='';
for (k=0;k<data1.length;k++) {	for (k=0;k<data1.length;k++) {
if (obj[data1[k]].substring(0,2)!='e&') {	if (obj[data1[k]].substring(0,2)!='e&') {
if (rowcont[j]!='') { rowcont[j]+=':'; }	if ((rowcont[j]!='') && (typeof(rowcont[j])!="undefined")) {
	rowcont[j]+=':';
	}
rowcont[j]+=data1[k];	rowcont[j]+=data1[k];
}	}
}	}
Line 2144 function condense() {	Line 2471 function condense() {
}	}

// ---------------------------------------------------- Load from hidden fields	// ---------------------------------------------------- Load from hidden fields

function load() {	function load() {
message("Loading");	message("Loading");
	schedule('load');
	}

	function finishload() {
var k;	var k;
for (k=0;k<objcont.length;k++) { objcont[k]=''; }	for (k=0;k<objcont.length;k++) { objcont[k]=''; }
objcont.length=0;	objcont.length=0;
Line 2159 function load() {	Line 2489 function load() {
lastinfo='';	lastinfo='';
graphreset();	graphreset();
var inputstr=parent.server.document.forms.storage.output.value;	var inputstr=parent.server.document.forms.storage.output.value;
if (inputstr!='') {	if ((inputstr!='') && (typeof(inputstr)!="undefined")) {
data1=inputstr.split('<&>');	data1=inputstr.split('<&>');
var k;	var k;
for (k=0;k<data1.length;k++) {	for (k=0;k<data1.length;k++) {
data2=data1[k].split('<:>');	data2=data1[k].split('&colon;').join(':').split('<:>');
if (data2[0]=='graphdef') { graphdef=data2[1]; }	if (data2[0]=='graphdef') { graphdef=data2[1]; }
if (data2[0]=='maxcol') { maxcol=1*data2[1]; }	if (data2[0]=='maxcol') { maxcol=1*data2[1]; }
if (data2[0]=='maxrow') { maxrow=1*data2[1]; }	if (data2[0]=='maxrow') { maxrow=1*data2[1]; }
if (data2[0]=='obj') { obj[data2[1]]=data2[2]; }	if (data2[0]=='obj') { obj[data2[1]]=data2[2]; }
if (data2[0]=='objcont') { objcont[data2[1]]=data2[2]; }	if (data2[0]=='objcont') { objcont[data2[1]]=data2[2]; }
if (data2[0]=='objlinks') { objlinks[data2[1]]=data2[2]; }	if (data2[0]=='objlinks') { objlinks[data2[1]]=data2[2]; }
	if (data2[0]=='objparms') {
	if (typeof(objparms[data2[1]])=="undefined") {
	objparms[data2[1]]=data2[2];
	} else {
	objparms[data2[1]]+=':'+data2[2];
	}
	}
if (data2[0]=='rowcont') { rowcont[data2[1]]=data2[2]; }	if (data2[0]=='rowcont') { rowcont[data2[1]]=data2[2]; }
if (data2[0]=='row') { row[data2[1]]=1*data2[2]; }	if (data2[0]=='row') { row[data2[1]]=1*data2[2]; }
if (data2[0]=='col') { col[data2[1]]=1*data2[2]; }	if (data2[0]=='col') { col[data2[1]]=1*data2[2]; }
Line 2178 function load() {	Line 2515 function load() {
if (data2[0]=='zscale') { zscale=1*data2[1]; }	if (data2[0]=='zscale') { zscale=1*data2[1]; }
}	}
}	}
	if (graphdef=='yes') {
	for (k=1;k<=maxrow;k++) {
	if (typeof(rowcont[k])=="undefined") { rowcont[k]=''; }
	}
	}
}	}

// -------------------------------------------------------------- Undo function	// -------------------------------------------------------------- Parameter set
	function setparms(resid) {
	var options="scrollbars=1,resizable=1,menubar=0";
	parmflag=1;
	data1=objcont[resid].split(':');
	parm=open("/adm/ratparms?url="+data1[1]+"&parms="+objparms[resid]+
	"&resid="+resid,"parmout",options);
	parm.focus();
	}

	// -------------------------------------------------------------- Undo function
function undo() {	function undo() {
if (undopointer>1) {	if (undopointer>1) {
undopointer--;	undopointer--;
parent.server.document.forms.storage.output.value	parent.server.document.forms.storage.output.value
=undostack[undopointer];	=undostack[undopointer];
load();	finishload();
undopointer--;	undopointer--;
draw();	draw();
stored=0;	stored=0;
Line 2197 function undo() {	Line 2548 function undo() {
}	}

// -------------------------------------------------------------- Redo function	// -------------------------------------------------------------- Redo function

function redo() {	function redo() {
if (undopointer<undostack.length-1) {	if (undopointer<undostack.length-1) {
undopointer++;	undopointer++;
parent.server.document.forms.storage.output.value	parent.server.document.forms.storage.output.value
=undostack[undopointer];	=undostack[undopointer];
load();	finishload();
undopointer--;	undopointer--;
draw();	draw();
stored=0;	stored=0;
Line 2213 function redo() {	Line 2563 function redo() {
}	}

// ------------------------------------------------------------ Revert function	// ------------------------------------------------------------ Revert function

function revert() {	function revert() {
if (confirm("Revert to beginning of edit session?")) {	if (confirm("Revert to beginning of edit session?")) {
undopointer=2;	undopointer=2;
Line 2221 function revert() {	Line 2570 function revert() {
}	}
}	}

// -------------------------------------------------------------- Store changes	// ---------------------------------------------------------------- Wheelswitch
	function wheelswitch() {
	if (funny=='\|') {
	funny='/';
	} else {
	if (funny=='/') {
	funny='-';
	} else {
	if (funny=='-') {
	funny='\\';
	} else {
	if (funny=='\\') { funny='\|'; }
	}
	}
	}
	}

	// --------------------------------------------- Checks if server frame defined
	function checkdef() {
	if (parent.flag==1) {
	srvloaded();
	}
	if ((finishdone==0) && (tim==0)) { setTimeout('checkdef()',100); }
	}

	// ---------------------------------------------------------- The wait function
	function wait() {
	if ((finishdone==1) \|\| (tim==1)) {
	if (tim==0) {
	clearTimeout(canceltim);
	if (reqaction=='save') { finishsave(); }
	if (reqaction=='load') { finishload(); draw(); }
	} else {
	alert("Server Communication Timed Out.");
	}
	} else {
	wheelswitch();
	message('Waiting for server reply: '+funny);
	setTimeout('wait();',100);
	}
	}

	// ---------------------------------------------------------- Schedule function
	function schedule(action) {
	reqaction=action;
	tim=0;
	finishdone=0;
	canceltim=setTimeout('tim=1;',20000);
	checkdef();
	wait();
	}

	// ----------------------------------------------------- launch indexer browser
	function groupsearch() {
	srchcheck('groupsearch');
	}

	function groupimport() {
	idxcheck('groupimport');
	}

	// -------------------------------------------------------------- Store changes
function storechange() {	function storechange() {
	var k;
	parent.flag=0;
parent.server.document.forms.storage.submit();	parent.server.document.forms.storage.submit();
load();	schedule('save');
	}

	function finishsave() {
	finishload();
draw();	draw();
stored=1;	stored=1;
}	}

// ---------------------------------------------------------------- Toggle Mode	// --------------------------------------- Gets called when submission finished
	function srvloaded() {
	finishdone=1;
	message("Server replied.");
	}

	// ---------------------------------------------------------------- Toggle Mode
function togglemode() {	function togglemode() {
if (tablemode==0) {	if (tablemode==0) {
tablemode=1;	tablemode=1;
Line 2248 function togglemode() {	Line 2668 function togglemode() {
}	}

// -------------------------------------------------------- Main program onLoad	// -------------------------------------------------------- Main program onLoad

function main() {	function main() {

if (mainrun==0) {	if (mainrun==0) {
infopen();	infopen();
infoclear();	infoclear();
load();	load();
draw();
stored=1;	stored=1;
mainrun=1;	mainrun=1;
}	}

}	}

// ------------------------------------------------------------- Save on leave?	// ---------------------------------------------------------- Close the window?

function leave() {	function leave() {
if (!inf.closed) {	if (!inf.closed) {
inf.close();	inf.close();
}	}
if (stored==0) {	if (srch && !srch.closed) {
if (confirm('Store changes?')) {	srchclose();
storechange();	}
}	if (idx && !idx.closed) {
	srchclose();
}	}
}	}

</script>	</script>
</head>	</head>

<body bgcolor="#FFFFFF" onLoad="main();" onUnload="leave();">	<body bgcolor="#FFFFFF" onUnload="leave();">
<a href="javascript:togglemode();">Toggle Display Mode</a>	<table border=0><tr><td bgcolor="#aaaaaa">
<a href="javascript:if (zscale>1) { zscale--; draw();}">Zoom Out</a>	<table border=0><tr>
<a href="javascript:if (zscale<3) { zscale++; draw();}">Zoom In</a>	<td bgcolor="#ffffcc"><a href="javascript:togglemode();"><b>T</b>oggle display</a> </td>
<a href="javascript:condense();draw();">Condense</a>	<td bgcolor="#ffffcc"><a href="javascript:if (zscale>1) { zscale--; draw();}"><b>Z</b>oom out</a> </td>
<a href="javascript:graphopt();draw();">Straighten</a>	<td bgcolor="#ffffcc"><a href="javascript:if (zscale<3) { zscale++; draw();}"><b>Z</b>oom in</a> </td>
<a href="javascript:revert();">Revert</a>	<td bgcolor="#ffffcc"><a href="javascript:condense();draw();"><b>C</b>ondense</a> </td>
<a href="javascript:undo();">Undo</a>	<td bgcolor="#ffffcc"><a href="javascript:graphopt();draw();"><b>S</b>traighten</a> </td>
<a href="javascript:redo();">Redo</a>	<td bgcolor="#ffffcc"><a href="javascript:revert();"><b>R</b>evert</a> </td>
<a href="javascript:storechange();">Store</a>	<td bgcolor="#ffffcc"><a href="javascript:undo();"><b>U</b>ndo</a> </td>
	<td bgcolor="#ffffcc"><a href="javascript:redo();"><b>R</b>edo</a> </td>
	<td bgcolor="#ffffcc"><a href="javascript:groupsearch();"><b>G</b>roup search</a> </td>
	<td bgcolor="#ffffcc"><a href="javascript:groupimport();"><b>G</b>roup import</a> </td>
	<td bgcolor="#ffcccc"><a href="javascript:storechange();"><b>S</b>ave map</a> </td>
	</tr></table>
	</td></tr></table>
	<script>
	main();
	</script>
</body>	</body>
</html>	</html>

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

Removed from v.1.7
changed lines
	Added in v.1.50