loncom/interface/lonpreferences.pm - diff

Return to lonpreferences.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonpreferences.pm between versions 1.81 and 1.82

version 1.81, 2006/05/01 19:37:34	version 1.82, 2006/05/01 22:15:17
Line 306 People with very few roles should leave	Line 306 People with very few roles should leave

<form name="prefs" action="/adm/preferences" method="POST">	<form name="prefs" action="/adm/preferences" method="POST">
<input type="hidden" name="action" value="verify_and_change_rolespref" />	<input type="hidden" name="action" value="verify_and_change_rolespref" />
<br />Enable Recent Roles Hotlist:	<br /><label>Enable Recent Roles Hotlist:
<input type="checkbox" $checked name="recentroles" value="true" />	<input type="checkbox" $checked name="recentroles" value="true" /></label>
<br />Number of roles in Hotlist:	<br />Number of roles in Hotlist:
<select name="recentrolesn" size="1">	<select name="recentrolesn" size="1">
$options	$options
Line 514 sub colorschanger {	Line 514 sub colorschanger {
'link' => 'Un-Visited Link',	'link' => 'Un-Visited Link',
'vlink' => 'Visited Link',	'vlink' => 'Visited Link',
'alink' => 'Active Link');	'alink' => 'Active Link');
	my $start_data_table = &Apache::loncommon::start_data_table();
my $chtable='';	my $chtable='';
foreach my $item (sort(keys(%colortypes))) {	foreach my $item (sort(keys(%colortypes))) {
my $curcol=&Apache::loncommon::designparm($function.'.'.$item,$domain);	my $curcol=&Apache::loncommon::designparm($function.'.'.$item,$domain);
$chtable.='<tr><td>'.$colortypes{$item}.'</td><td bgcolor="'.$curcol.	$chtable.=&Apache::loncommon::start_data_table_row().
	'<td>'.$colortypes{$item}.'</td><td bgcolor="'.$curcol.
'">      </td><td><input name="'.$item.	'">      </td><td><input name="'.$item.
'" size="10" value="'.$curcol.	'" size="10" value="'.$curcol.
'" /></td><td><a href="javascript:pjump('."'color_custom','".$colortypes{$item}.	'" /></td><td><a href="javascript:pjump('."'color_custom','".$colortypes{$item}.
"','".$curcol."','"	"','".$curcol."','"
.$item."','parmform.pres','psub'".');">Select</a></td></tr>';	.$item."','parmform.pres','psub'".');">Select</a></td>'.
	&Apache::loncommon::end_data_table_row();
}	}
	my $end_data_table = &Apache::loncommon::end_data_table();
my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();	my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
$r->print(<<ENDCOL);	$r->print(<<ENDCOL);
<script>	<script type="text/javascript">

function pclose() {	function pclose() {
parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",	parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",
Line 559 sub colorschanger {	Line 563 sub colorschanger {
</form>	</form>
<form name="prefs" action="/adm/preferences" method="POST">	<form name="prefs" action="/adm/preferences" method="POST">
<input type="hidden" name="action" value="verify_and_change_colors" />	<input type="hidden" name="action" value="verify_and_change_colors" />
<table border="2">	$start_data_table
$chtable	$chtable
	$end_data_table
</table>	</table>
<input type="submit" value="Change Custom Colors" />	<input type="submit" value="Change Custom Colors" />
<input type="submit" name="resetall" value="Reset All Colors to Default" />	<input type="submit" name="resetall" value="Reset All Colors to Default" />
Line 873 sub discussionchanger {	Line 878 sub discussionchanger {
$lt{'sdpf'}<br/> $lt{'prca'} <ol><li>$lt{'whpo'}</li><li>$lt{'unwh'}</li></ol>	$lt{'sdpf'}<br/> $lt{'prca'} <ol><li>$lt{'whpo'}</li><li>$lt{'unwh'}</li></ol>
<br />	<br />
<br />	<br />
<table border="0" cellpadding="0" cellspacing="0">	END
<tr>	$r->print(&Apache::loncommon::start_data_table());
<td width="100%" bgcolor="#000000">	$r->print(<<"END");
<table width="100%" border="0" cellpadding="1" cellspacing="0">	<tr>
<tr>	<th>$lt{'pref'}</th>
<td width="100%" bgcolor="#000000">	<th>$lt{'curr'}</th>
<table border="0" cellpadding="3" cellspacing="3" bgcolor="#FFFFFF">	<th>$lt{'actn'}?</th>
<tr bgcolor="$color">
<td><b>$lt{'pref'}</b></td>
<td><b>$lt{'curr'}</b></td>
<td><b>$lt{'actn'}?</b></td>
</tr>	</tr>
<tr bgcolor="#dddddd">	END
	$r->print(&Apache::loncommon::start_data_table_row());
	$r->print(<<"END");
<td>$lt{'disa'}</td>	<td>$lt{'disa'}</td>
<td>$lt{$discdisp}</td>	<td>$lt{$discdisp}</td>
<td><input type="checkbox" name="discdisp" /><input type="hidden" name="newdisp" value="$newdisp" /> $lt{'chgt'} "$dispchange"</td>	<td><label><input type="checkbox" name="discdisp" /><input type="hidden" name="newdisp" value="$newdisp" /> $lt{'chgt'} "$dispchange"</label></td>
</tr><tr bgcolor="#eeeeee">	END
	$r->print(&Apache::loncommon::end_data_table_row().
	&Apache::loncommon::start_data_table_row());
	$r->print(<<"END");
<td>$lt{'npmr'}</td>	<td>$lt{'npmr'}</td>
<td>$lt{$discmark}</td>	<td>$lt{$discmark}</td>
<td><input type="checkbox" name="discmark" /><input type="hidden" name="newmark" value="$newmark" /> $lt{'chgt'} "$markchange"</td>	<td><label><input type="checkbox" name="discmark" /><input type="hidden" name="newmark" value="$newmark" /> $lt{'chgt'} "$markchange"</label></td>
</tr>	</tr>
</table>	END
</td>	$r->print(&Apache::loncommon::end_data_table_row().
</tr>	&Apache::loncommon::end_data_table());
</table>	$r->print(<<"END");
</td>
</tr>
</table>
<br />	<br />
<br />	<br />
<input type="submit" name="sub" value="Store Changes" />	<input type="submit" name="sub" value="Store Changes" />

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

Removed from v.1.81
changed lines
	Added in v.1.82