loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonparmset.pm between versions 1.212 and 1.224

version 1.212, 2005/06/06 15:13:46	version 1.224, 2005/06/17 18:11:42
Line 70 my $parmhashid;	Line 70 my $parmhashid;
my %parmhash;	my %parmhash;
my $symbsid;	my $symbsid;
my %symbs;	my %symbs;
	my $rulesid;
	my %rules;

# --- end local caches	# --- end local caches

Line 240 sub symbcache {	Line 242 sub symbcache {
return $symbs{$id};	return $symbs{$id};
}	}

	sub resetrulescache {
	$rulesid='';
	}

	sub rulescache {
	my $id=shift;
	if ($rulesid ne $env{'request.course.id'}) {
	%rules=();
	}
	unless (defined($rules{$id})) {
	my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
	%rules=&Apache::lonnet::dump('parmdefactions',$dom,$crs);
	$rulesid=$env{'request.course.id'};
	}
	return $rules{$id};
	}

##################################################	##################################################
##################################################	##################################################
#	#
Line 403 sub valout {	Line 423 sub valout {
$result.=$sec.' secs ';	$result.=$sec.' secs ';
}	}
$result=~s/\s+$//;	$result=~s/\s+$//;
} elsif ($type=~/^date/) {	} elsif (&isdateparm($type)) {
$result = localtime($value);	$result = localtime($value);
} else {	} else {
$result = $value;	$result = $value;
Line 434 sub plink {	Line 454 sub plink {
my ($type,$dis,$value,$marker,$return,$call)=@_;	my ($type,$dis,$value,$marker,$return,$call)=@_;
my $winvalue=$value;	my $winvalue=$value;
unless ($winvalue) {	unless ($winvalue) {
if ($type=~/^date/) {	if (&isdateparm($type)) {
$winvalue=$env{'form.recent_'.$type};	$winvalue=$env{'form.recent_'.$type};
} else {	} else {
$winvalue=$env{'form.recent_'.(split(/\_/,$type))[0]};	$winvalue=$env{'form.recent_'.(split(/\_/,$type))[0]};
Line 742 sub extractResourceInformation {	Line 762 sub extractResourceInformation {
##################################################	##################################################
##################################################	##################################################

	sub isdateparm {
	my $type=shift;
	return (($type=~/^date/) && (!($type eq 'date_interval')));
	}

sub parmmenu {	sub parmmenu {
my ($r,$allparms,$pscat,$keyorder)=@_;	my ($r,$allparms,$pscat,$keyorder)=@_;
my $tempkey;	my $tempkey;
Line 771 sub parmmenu {	Line 796 sub parmmenu {
checkthis('duedate','pscat');	checkthis('duedate','pscat');
checkthis('opendate','pscat');	checkthis('opendate','pscat');
checkthis('answerdate','pscat');	checkthis('answerdate','pscat');
checkthis('interval','pscat');	}
}
	function checkdisset() {
	checkthis('discussend','pscat');
	checkthis('discusshide','pscat');
	}

	function checkcontdates() {
	checkthis('contentopen','pscat');
	checkthis('contentclose','pscat');
	}


function checkvisi() {	function checkvisi() {
checkthis('hiddenresource','pscat');	checkthis('hiddenresource','pscat');
Line 815 ENDSCRIPT	Line 850 ENDSCRIPT
}	}
$r->print('	$r->print('
</tr><tr><td>	</tr><tr><td>
<a href="javascript:checkall(true, \'pscat\')">Select All</a>	<a href="javascript:checkall(true, \'pscat\')">Select All</a><br />
<a href="javascript:checkstandard()">Select Standard</a>	<a href="javascript:checkstandard()">Select Common Only</a>
</td><td>	</td><td>
<a href="javascript:checkdates()">Select Dates</a>	<a href="javascript:checkdates()">Add Problem Dates</a>
<a href="javascript:checkvisi()">Select Visibilities</a>	<a href="javascript:checkcontdates()">Add Content Dates</a><br />
<a href="javascript:checkparts()">Select Part Parameters</a>	<a href="javascript:checkdisset()">Add Discussion Settings</a>
	<a href="javascript:checkvisi()">Add Visibilities</a><br />
	<a href="javascript:checkparts()">Add Part Parameters</a>
</td><td>	</td><td>
<a href="javascript:checkall(false, \'pscat\')">Unselect All</a>	<a href="javascript:checkall(false, \'pscat\')">Unselect All</a>
</td>	</td>
Line 967 sub keysindisplayorder {	Line 1004 sub keysindisplayorder {
} (keys %{$name});	} (keys %{$name});
}	}

	sub sortmenu {
	my ($r,$sortorder)=@_;
	$r->print('<br /><input type="radio" name="sortorder" value="realmstudent"');
	if ($sortorder eq 'realmstudent') {
	$r->print(' checked="on"');
	}
	$r->print(' />'.&mt('Sort by realm first, then student (group/section)'));
	$r->print('<br /><input type="radio" name="sortorder" value="studentrealm"');
	if ($sortorder eq 'studentrealm') {
	$r->print(' checked="on"');
	}
	$r->print(' />'.&mt('Sort by student (group/section) first, then realm'));
	}

sub standardkeyorder {	sub standardkeyorder {
return ('parameter_0_opendate' => 1,	return ('parameter_0_opendate' => 1,
'parameter_0_duedate' => 2,	'parameter_0_duedate' => 2,
Line 985 sub standardkeyorder {	Line 1036 sub standardkeyorder {
'parameter_0_ordered' => 15,	'parameter_0_ordered' => 15,
'parameter_0_tol' => 16,	'parameter_0_tol' => 16,
'parameter_0_sig' => 17,	'parameter_0_sig' => 17,
'parameter_0_turnoffunit' => 18);	'parameter_0_turnoffunit' => 18,
	'parameter_0_discussend' => 19,
	'parameter_0_discusshide' => 20);
}	}

##################################################	##################################################
Line 1043 sub assessparms {	Line 1096 sub assessparms {
my $coursename=$env{'course.'.$env{'request.course.id'}.'.description'};	my $coursename=$env{'course.'.$env{'request.course.id'}.'.description'};

$alllevs{'Resource Level'}='full';	$alllevs{'Resource Level'}='full';
$alllevs{'Map Level'}='map';	$alllevs{'Map/Folder Level'}='map';
$alllevs{'Course Level'}='general';	$alllevs{'Course Level'}='general';

my %allparms;	my %allparms;
Line 1761 sub crsenv {	Line 1814 sub crsenv {
'anonymous_quiz'	'anonymous_quiz'
=> '<b>'.&mt('Anonymous quiz/exam').'</b><br />'.	=> '<b>'.&mt('Anonymous quiz/exam').'</b><br />'.
' (<tt><b>'.&mt('yes').'</b> '.&mt('to avoid print students names').' </tt>)',	' (<tt><b>'.&mt('yes').'</b> '.&mt('to avoid print students names').' </tt>)',
'default_enrollment_start_date' => '<b>'.&mt('Default beginning date when enrolling students').'</b>',	'default_enrollment_start_date' => '<b>'.&mt('Default beginning date for student access.').'</b>',
'default_enrollment_end_date' => '<b>'.&mt('Default ending date when enrolling students').'</b>',	'default_enrollment_end_date' => '<b>'.&mt('Default ending date for student access.').'</b>',
'nothideprivileged' => '<b>'.&mt('Privileged users that should not be hidden on staff listings').'</b>'.	'nothideprivileged' => '<b>'.&mt('Privileged users that should not be hidden on staff listings').'</b>'.
'<br />(<tt>user:domain,user:domain,...</tt>)',	'<br />(<tt>user:domain,user:domain,...</tt>)',
'languages' => '<b>'.&mt('Languages used').'</b>',	'languages' => '<b>'.&mt('Languages used').'</b>',
Line 2031 sub extractuser {	Line 2084 sub extractuser {
}	}

sub listdata {	sub listdata {
my ($r,$resourcedata,$listdata)=@_;	my ($r,$resourcedata,$listdata,$sortorder)=@_;
# Start list output	# Start list output

my $oldsection='';	my $oldsection='';
Line 2040 sub listdata {	Line 2093 sub listdata {
my $pointer=0;	my $pointer=0;
$tableopen=0;	$tableopen=0;
my $foundkeys=0;	my $foundkeys=0;
foreach my $thiskey (sort keys %{$listdata}) {	foreach my $thiskey (sort {
	if ($sortorder eq 'realmstudent') {
	my ($astudent,$arealm)=($a=~/^$env{'request.course.id'}\.([^\.]+)\.(.+)\.[^\.]+$/);
	my ($bstudent,$brealm)=($b=~/^$env{'request.course.id'}\.([^\.]+)\.(.+)\.[^\.]+$/);
	($arealm cmp $brealm) \|\| ($astudent cmp $bstudent);
	} else {
	$a cmp $b;
	}
	} keys %{$listdata}) {
if ($$listdata{$thiskey.'.type'}) {	if ($$listdata{$thiskey.'.type'}) {
my $thistype=$$listdata{$thiskey.'.type'};	my $thistype=$$listdata{$thiskey.'.type'};
if ($$resourcedata{$thiskey.'.type'}) {	if ($$resourcedata{$thiskey.'.type'}) {
Line 2067 sub listdata {	Line 2128 sub listdata {
my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);	my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);
$realm='<font color="orange">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).' <br /><font color="#aaaaaa" size="-2">('.$url.' in '.$map.' id: '.$id.')</font></font>';	$realm='<font color="orange">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).' <br /><font color="#aaaaaa" size="-2">('.$url.' in '.$map.' id: '.$id.')</font></font>';
}	}
if ($section ne $oldsection) {	if ($sortorder eq 'realmstudent') {
$r->print(&tableend()."\n<hr /><h1>$section</h1>");	if ($realm ne $oldrealm) {
$oldsection=$section;	$r->print(&tableend()."\n<hr /><h1>$realm</h1>");
$oldrealm='';	$oldrealm=$realm;
}	$oldsection='';
if ($realm ne $oldrealm) {	}
$r->print(&tableend()."\n<h2>$realm</h2>");	if ($section ne $oldsection) {
$oldrealm=$realm;	$r->print(&tableend()."\n<h2>$section</h2>");
$oldpart='';	$oldsection=$section;
	$oldpart='';
	}
	} else {
	if ($section ne $oldsection) {
	$r->print(&tableend()."\n<hr /><h1>$section</h1>");
	$oldsection=$section;
	$oldrealm='';
	}
	if ($realm ne $oldrealm) {
	$r->print(&tableend()."\n<h2>$realm</h2>");
	$oldrealm=$realm;
	$oldpart='';
	}
}	}
if ($part ne $oldpart) {	if ($part ne $oldpart) {
$r->print(&tableend().	$r->print(&tableend().
"\n<h3><font color='blue'>".&mt('Part').": $part</font></h3>");	"\n<font color='blue'>".&mt('Part').": $part</font>");
$oldpart=$part;	$oldpart=$part;
}	}
#	#
Line 2089 sub listdata {	Line 2163 sub listdata {
':</b></td><td><input type="checkbox" name="del_'.	':</b></td><td><input type="checkbox" name="del_'.
$thiskey.'" /></td><td>');	$thiskey.'" /></td><td>');
$foundkeys++;	$foundkeys++;
if ($thistype=~/^date/) {	if (&isdateparm($thistype)) {
my $jskey='key_'.$pointer;	my $jskey='key_'.$pointer;
$pointer++;	$pointer++;
$r->print(	$r->print(
&Apache::lonhtmlcommon::date_setter('overviewform',	&Apache::lonhtmlcommon::date_setter('overviewform',
$jskey,	$jskey,
$$resourcedata{$thiskey}).	$$resourcedata{$thiskey},
	'',1).
'<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'	'<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'
);	);
	} elsif ($thistype eq 'string_yesno') {
	$r->print('<label><input type="radio" name="set_'.$thiskey.
	'" value="yes"');
	if ($$resourcedata{$thiskey} eq 'yes') {
	$r->print(' checked="checked"');
	}
	$r->print(' />'.&mt('Yes').'</label> ');
	$r->print('<label><input type="radio" name="set_'.$thiskey.
	'" value="no"');
	if ($$resourcedata{$thiskey} eq 'no') {
	$r->print(' checked="checked"');
	}
	$r->print(' />'.&mt('No').'</label>');
} else {	} else {
$r->print('<input type="text" name="set_'.$thiskey.'" value="'.	$r->print('<input type="text" name="set_'.$thiskey.'" value="'.
$$resourcedata{$thiskey}.'">');	$$resourcedata{$thiskey}.'">');
Line 2112 sub listdata {	Line 2200 sub listdata {

sub newoverview {	sub newoverview {
my $r=shift;	my $r=shift;
my $bodytag=&Apache::loncommon::bodytag(	my $bodytag=&Apache::loncommon::bodytag('Set Parameters');
'Set Course Assessment Parameters');
my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};	my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};	my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Overview');	my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Overview');
Line 2142 ENDOVER	Line 2229 ENDOVER

my %alllevs=();	my %alllevs=();
$alllevs{'Resource Level'}='full';	$alllevs{'Resource Level'}='full';
$alllevs{'Map Level'}='map';	$alllevs{'Map/Folder Level'}='map';
$alllevs{'Course Level'}='general';	$alllevs{'Course Level'}='general';

my $csec=$env{'form.csec'};	my $csec=$env{'form.csec'};
Line 2191 ENDOVER	Line 2278 ENDOVER
&partmenu($r,\%allparts,\@psprt);	&partmenu($r,\%allparts,\@psprt);
$r->print('</td><td>');	$r->print('</td><td>');
&sectionmenu($r,\@selected_sections);	&sectionmenu($r,\@selected_sections);
$r->print('</td></tr></table>'.
'<p><input type="submit" name="dis" value="'.&mt('Display').'" /></p>');	$r->print('</td></tr></table>');

	my $sortorder=$env{'form.sortorder'};
	unless ($sortorder) { $sortorder='realmstudent'; }
	&sortmenu($r,$sortorder);

	$r->print('<p><input type="submit" name="dis" value="'.&mt('Display').'" /></p>');

# Build the list data hash from the specified parms	# Build the list data hash from the specified parms

Line 2243 ENDOVER	Line 2336 ENDOVER

# List data	# List data

&listdata($r,$resourcedata,$listdata);	&listdata($r,$resourcedata,$listdata,$sortorder);
}	}
$r->print(&tableend().	$r->print(&tableend().
((($env{'form.store'}) \|\| ($env{'form.dis'}))?'<p><input type="submit" name="store" value="'.&mt('Store').'" /></p>':'').	((($env{'form.store'}) \|\| ($env{'form.dis'}))?'<p><input type="submit" name="store" value="'.&mt('Store').'" /></p>':'').
Line 2252 ENDOVER	Line 2345 ENDOVER

sub overview {	sub overview {
my $r=shift;	my $r=shift;
my $bodytag=&Apache::loncommon::bodytag(	my $bodytag=&Apache::loncommon::bodytag('Modify Parameters');
'Modify Course Assessment Parameters');
my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};	my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};	my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Overview');	my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Overview');
Line 2275 ENDOVER	Line 2367 ENDOVER

my $resourcedata=&readdata($crs,$dom);	my $resourcedata=&readdata($crs,$dom);


	my $sortorder=$env{'form.sortorder'};
	unless ($sortorder) { $sortorder='realmstudent'; }
	&sortmenu($r,$sortorder);

# List data	# List data

my $foundkeys=&listdata($r,$resourcedata,$resourcedata);	my $foundkeys=&listdata($r,$resourcedata,$resourcedata,$sortorder);

$r->print(&tableend().'<p>'.	$r->print(&tableend().'<p>'.
($foundkeys?'<input type="submit" value="'.&mt('Modify Parameters').'" />':&mt('There are no parameters.')).'</p></form></body></html>');	($foundkeys?'<input type="submit" value="'.&mt('Modify Parameters').'" />':&mt('There are no parameters.')).'</p></form></body></html>');
Line 2411 ENDMAINFORMHEAD	Line 2508 ENDMAINFORMHEAD
action => 'crsenv',	action => 'crsenv',
permission => $parm_permission,	permission => $parm_permission,
},	},
{ text => 'Set/Modify Course Assessment Parameters - Helper Mode',	{ text => 'Set/Modify Resource Parameters - Helper Mode',
url => '/adm/helper/parameter.helper',	url => '/adm/helper/parameter.helper',
permission => $parm_permission,	permission => $parm_permission,
},	},
{ text => 'Modify Course Assessment Parameters - Overview Mode',	{ text => 'Modify Resource Parameters - Overview Mode',
action => 'setoverview',	action => 'setoverview',
permission => $parm_permission,	permission => $parm_permission,
},	},
{ text => 'Set Course Assessment Parameters - Overview Mode',	{ text => 'Set Resource Parameters - Overview Mode',
action => 'newoverview',	action => 'newoverview',
permission => $parm_permission,	permission => $parm_permission,
},	},
{ text => 'Set/Modify Course Assessment Parameters - Table Mode',	{ text => 'Set/Modify Resource Parameters - Table Mode',
action => 'settable',	action => 'settable',
permission => $parm_permission,	permission => $parm_permission,
help => 'Cascading_Parameters',	help => 'Cascading_Parameters',
},	},
# { text => 'Set Parameter Default Preferences',	{ text => 'Set Parameter Setting Default Actions',
# help => 'Course_View_Class_List',	action => 'setdefaults',
# action => 'setdefaults',	permission => $parm_permission,
# permission => $parm_permission,	},
# },
);	);
my $menu_html = '';	my $menu_html = '';
foreach my $menu_item (@menu) {	foreach my $menu_item (@menu) {
Line 2457 ENDMAINFORMHEAD	Line 2553 ENDMAINFORMHEAD
}	}


	##################################################

	sub defaultsetter {
	my $r=shift;
	my $bodytag=&Apache::loncommon::bodytag('Parameter Setting Default Actions');
	my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
	my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Defaults');
	my $html=&Apache::lonxml::xmlbegin();
	$r->print(<<ENDDEFHEAD);
	$html
	<head>
	<title>LON-CAPA Parameters</title>
	</head>
	$bodytag
	$breadcrumbs
	<form method="post" action="/adm/parmset?action=setdefaults" name="defaultform">
	ENDDEFHEAD
	my @ids=();
	my %typep=();
	my %keyp=();
	my %allparms=();
	my %allparts=();
	my %allmaps=();
	my %mapp=();
	my %symbp=();
	my %maptitles=();
	my %uris=();
	my %keyorder=&standardkeyorder();
	my %defkeytype=();

	&extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps,
	\%mapp, \%symbp,\%maptitles,\%uris,
	\%keyorder,\%defkeytype);
	if ($env{'form.storerules'}) {
	my %newrules=();
	my @delrules=();
	foreach (keys %env) {
	if ($_=~/^form\.(\w+)\_action$/) {
	my $tempkey=$1;
	if ($env{$_}) {
	$newrules{$tempkey.'_action'}=$env{$_};
	if (&isdateparm($defkeytype{$tempkey})) {
	$newrules{$tempkey.'_hours'}=$env{'form.'.$tempkey.'_hours'};
	$newrules{$tempkey.'_min'}=$env{'form.'.$tempkey.'_min'};
	$newrules{$tempkey.'_sec'}=$env{'form.'.$tempkey.'_sec'};
	} else {
	$newrules{$tempkey.'_value'}=$env{'form.'.$tempkey.'_value'};
	}
	} else {
	push @delrules,$tempkey.'_action';
	push @delrules,$tempkey.'_hours';
	push @delrules,$tempkey.'_min';
	push @delrules,$tempkey.'_sec';
	push @delrules,$tempkey.'_value';
	}
	}
	}
	&Apache::lonnet::put('parmdefactions',\%newrules,$dom,$crs);
	&Apache::lonnet::del('parmdefactions',\@delrules,$dom,$crs);
	&resetrulescache();
	}
	my %lt=&Apache::lonlocal::texthash('hours' => 'Hours',
	'min' => 'Minutes',
	'sec' => 'Seconds',
	'yes' => 'Yes',
	'no' => 'No');
	my @standardoptions=('','default');
	my @standarddisplay=('',&mt('Default value when manually setting'));
	my @dateoptions=('','default');
	my @datedisplay=('',&mt('Default value when manually setting'));
	foreach my $tempkey (&keysindisplayorder(\%allparms,\%keyorder)) {
	unless ($tempkey) { next; }
	push @standardoptions,'when_setting_'.$tempkey;
	push @standarddisplay,&mt('Automatically set when setting ').$tempkey;
	if (&isdateparm($defkeytype{$tempkey})) {
	push @dateoptions,'later_than_'.$tempkey;
	push @datedisplay,&mt('Automatically set later than ').$tempkey;
	push @dateoptions,'earlier_than_'.$tempkey;
	push @datedisplay,&mt('Automatically set earlier than ').$tempkey;
	}
	}
	$r->print("\n<table border='1'><tr><th>".&mt('Rule for parameter').'</th><th>'.
	&mt('Action').'</th><th>'.&mt('Value').'</th></tr>');
	foreach my $tempkey (&keysindisplayorder(\%allparms,\%keyorder)) {
	unless ($tempkey) { next; }
	$r->print("\n<tr><td>".$allparms{$tempkey}."\n<br />(".$tempkey.')</td><td>');
	my $action=&rulescache($tempkey.'_action');
	$r->print('<select name="'.$tempkey.'_action">');
	if (&isdateparm($defkeytype{$tempkey})) {
	for (my $i=0;$i<=$#dateoptions;$i++) {
	if ($dateoptions[$i]=~/\_$tempkey$/) { next; }
	$r->print("\n<option value='$dateoptions[$i]'".
	($dateoptions[$i] eq $action?' selected="selected"':'').
	">$datedisplay[$i]</option>");
	}
	} else {
	for (my $i=0;$i<=$#standardoptions;$i++) {
	if ($standardoptions[$i]=~/\_$tempkey$/) { next; }
	$r->print("\n<option value='$standardoptions[$i]'".
	($standardoptions[$i] eq $action?' selected="selected"':'').
	">$standarddisplay[$i]</option>");
	}
	}
	$r->print('</select>');


	$r->print("\n</td><td>\n");

	if (&isdateparm($defkeytype{$tempkey})) {
	my $hours=&rulescache($tempkey.'_hours');
	my $min=&rulescache($tempkey.'_min');
	my $sec=&rulescache($tempkey.'_sec');
	$r->print(<<ENDINPUTDATE);
	<input name="$tempkey\_hours" type="text" size="4" value="$hours" />$lt{'hours'}<br />
	<input name="$tempkey\_min" type="text" size="4" value="$min" />$lt{'min'}<br />
	<input name="$tempkey\_sec" type="text" size="4" value="$sec" />$lt{'sec'}
	ENDINPUTDATE
	} elsif ($defkeytype{$tempkey} eq 'string_yesno') {
	my $yeschecked='';
	my $nochecked='';
	if (&rulescache($tempkey.'_value') eq 'yes') { $yeschecked='checked="checked"'; }
	if (&rulescache($tempkey.'_value') eq 'no') { $nochecked='checked="checked"'; }

	$r->print(<<ENDYESNO);
	<label><input type="radio" name="$tempkey\_value" value="yes" $yeschecked /> $lt{'yes'}</label><br />
	<label><input type="radio" name="$tempkey\_value" value="no" $nochecked /> $lt{'no'}</label>
	ENDYESNO
	} else {
	$r->print('<input type="text" size="20" name="'.$tempkey.'_value" value="'.&rulescache($tempkey.'_value').'" />');
	}
	$r->print('</td></tr>');
	}
	$r->print("</table>\n<input type='submit' name='storerules' value='".
	&mt('Store Rules')."' /></form>\n</body>\n</html>");
	return;
	}

##################################################	##################################################
##################################################	##################################################
Line 2471 Main handler. Calls &assessparms and &c	Line 2703 Main handler. Calls &assessparms and &c
=cut	=cut
##################################################	##################################################
##################################################	##################################################
use Data::Dumper;	# use Data::Dumper;

sub handler {	sub handler {
my $r=shift;	my $r=shift;

Line 2485 sub handler {	Line 2718 sub handler {
'pres_marker',	'pres_marker',
'pres_value',	'pres_value',
'pres_type',	'pres_type',
'udom','uname']);	'udom','uname','symb']);


&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();
Line 2527 sub handler {	Line 2760 sub handler {
} elsif ($env{'form.action'} eq 'crsenv' && $parm_permission) {	} elsif ($env{'form.action'} eq 'crsenv' && $parm_permission) {
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=crsenv',	&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=crsenv',
text=>"Course Environment"});	text=>"Course Environment"});
$r->print(&Apache::lonhtmlcommon::breadcrumbs(undef,
'Edit Course Environment'));
&crsenv($r);	&crsenv($r);
} elsif ($env{'form.action'} eq 'setoverview' && $parm_permission) {	} elsif ($env{'form.action'} eq 'setoverview' && $parm_permission) {
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',	&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
Line 2538 sub handler {	Line 2769 sub handler {
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',	&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
text=>"Overview Mode"});	text=>"Overview Mode"});
&newoverview($r);	&newoverview($r);
} elsif ($env{'form.action'} eq 'settable' && $parm_permission) {	} elsif ($env{'form.action'} eq 'setdefaults' && $parm_permission) {
	&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setdefaults',
	text=>"Set Defaults"});
	&defaultsetter($r);
	} elsif ($env{'form.action'} eq 'settable' && $parm_permission) {
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',	&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',
text=>"Table Mode",	text=>"Table Mode",
help => 'Course_Setting_Parameters'});	help => 'Course_Setting_Parameters'});

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

Removed from v.1.212
changed lines
	Added in v.1.224