loncom/interface/lonpreferences.pm - diff

Return to lonpreferences.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.22, 2003/04/30 15:12:29	version 1.23, 2003/04/30 15:49:45
Line 50 use Apache::File;	Line 50 use Apache::File;
use Crypt::DES;	use Crypt::DES;
use DynaLoader; # for Crypt::DES version	use DynaLoader; # for Crypt::DES version
use Apache::loncommon();	use Apache::loncommon();
	use Apache::lonhtmlcommon();

#	#
# Write lonnet::passwd to do the call below.	# Write lonnet::passwd to do the call below.
Line 304 sub colorschanger {	Line 305 sub colorschanger {
"','".$curcol."','"	"','".$curcol."','"
.$item."','parmform.pres','psub'".');">Select</a></td></tr>';	.$item."','parmform.pres','psub'".');">Select</a></td></tr>';
}	}
	my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
$r->print(<<ENDCOL);	$r->print(<<ENDCOL);
<html>	<html>
<script>	<script>
Line 314 sub colorschanger {	Line 316 sub colorschanger {
parmwin.close();	parmwin.close();
}	}

function pjump(type,dis,value,marker,ret,call) {	$pjump_def
parmwin=window.open("/adm/rat/parameter.html?type="+escape(type)
+"&value="+escape(value)+"&marker="+escape(marker)
+"&return="+escape(ret)
+"&call="+escape(call)+"&name="+escape(dis),"LONCAPAparms",
"height=350,width=350,scrollbars=no,menubar=no");

}

function psub() {	function psub() {
pclose();	pclose();