loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.228, 2005/06/18 14:39:24	version 1.229, 2005/06/18 17:23:25
Line 260 sub rulescache {	Line 260 sub rulescache {
return $rules{$id};	return $rules{$id};
}	}

	sub preset_defaults {
	my $type=shift;
	if (&rulescache($type.'_action') eq 'default') {
	# yes, there is something
	return (&rulescache($type.'_hours'),
	&rulescache($type.'_min'),
	&rulescache($type.'_sec'),
	&rulescache($type.'_value'));
	} else {
	# nothing there or something else
	return ('','','','','');
	}
	}

##################################################	##################################################
##################################################	##################################################
#	#
Line 510 sub plink {	Line 524 sub plink {
$winvalue=$env{'form.recent_'.(split(/\_/,$type))[0]};	$winvalue=$env{'form.recent_'.(split(/\_/,$type))[0]};
}	}
}	}
	my ($parmname)=((split(/\&/,$marker))[1]=~/\_([^\_]+)$/);
	&Apache::lonnet::logthis($marker.'-'.$parmname);
	my ($hour,$min,$sec,$val)=&preset_defaults($parmname);
	unless (defined($winvalue)) { $winvalue=$val; }
return	return
'<a href="javascript:pjump('."'".$type."','".$dis."','".$winvalue."','"	'<a href="javascript:pjump('."'".$type."','".$dis."','".$winvalue."','"
.$marker."','".$return."','".$call."'".');">'.	.$marker."','".$return."','".$call."','".$hour."','".$min."','".$sec."'".');">'.
&valout($value,$type).'</a><a name="'.$marker.'"></a>';	&valout($value,$type).'</a><a name="'.$marker.'"></a>';
}	}