loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.61.2.1, 2002/08/29 03:57:45	version 1.62, 2002/08/17 20:04:18
Line 591 sub assessparms {	Line 591 sub assessparms {
$ids[$#ids+1]=$id;	$ids[$#ids+1]=$id;
$typep{$id}=$1;	$typep{$id}=$1;
$keyp{$id}='';	$keyp{$id}='';
foreach (split(/\,/,&Apache::lonnet::metadata($srcf,'allpossiblekeys'))) {	foreach (split(/\,/,&Apache::lonnet::metadata($srcf,'keys'))) {
if ($_=~/^parameter\_(.*)/) {	if ($_=~/^parameter\_(.*)/) {
my $key=$_;	my $key=$_;
my $allkey=$1;	my $allkey=$1;
Line 1233 sub crsenv {	Line 1233 sub crsenv {
}	}
if ($name eq 'url') {	if ($name eq 'url') {
$value=~s/^\/res\///;	$value=~s/^\/res\///;
	my $bkuptime=time;
my @tmp = &Apache::lonnet::get	my @tmp = &Apache::lonnet::get
('environment',['url'],$dom,$crs);	('environment',['url'],$dom,$crs);
$setoutput.='Backing up previous URL: '.	$setoutput.='Backing up previous URL: '.
&Apache::lonnet::put	&Apache::lonnet::put
('environment',	('environment',
{'top level map backup ' => $tmp[1] },	{'top level map backup '.$bkuptime => $tmp[1] },
$dom,$crs).	$dom,$crs).
'<br>';	'<br>';
}	}