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.452 and 1.453

version 1.452, 2009/05/30 21:52:30	version 1.453, 2009/06/03 17:17:03
Line 1249 sub parmmenu {	Line 1249 sub parmmenu {
$r->print(<<ENDSCRIPT);	$r->print(<<ENDSCRIPT);
<script type="text/javascript">	<script type="text/javascript">
function checkall(value, checkName) {	function checkall(value, checkName) {

	var li = "_li";
	var displayOverview = "";

	if (value == false) {
	displayOverview = "none"
	}

for (i=0; i<document.forms.parmform.elements.length; i++) {	for (i=0; i<document.forms.parmform.elements.length; i++) {
ele = document.forms.parmform.elements[i];	ele = document.forms.parmform.elements[i];
if (ele.name == checkName) {	if (ele.name == checkName) {
document.forms.parmform.elements[i].checked=value;	document.forms.parmform.elements[i].checked=value;
	document.getElementById(document.forms.parmform.elements[i].value.concat(li)).style.display = displayOverview;
}	}
}	}
}	}

function checkthis(thisvalue, checkName) {	function checkthis(thisvalue, checkName) {
	checkboxChecked(thisvalue);
for (i=0; i<document.forms.parmform.elements.length; i++) {	for (i=0; i<document.forms.parmform.elements.length; i++) {
ele = document.forms.parmform.elements[i];	ele = document.forms.parmform.elements[i];
if (ele.name == checkName) {	if (ele.name == checkName) {
Line 1284 sub parmmenu {	Line 1294 sub parmmenu {
checkthis('contentclose','pscat');	checkthis('contentclose','pscat');
}	}


function checkvisi() {	function checkvisi() {
checkthis('hiddenresource','pscat');	checkthis('hiddenresource','pscat');
checkthis('encrypturl','pscat');	checkthis('encrypturl','pscat');
Line 1306 sub parmmenu {	Line 1315 sub parmmenu {
checkthis('maxtries','pscat');	checkthis('maxtries','pscat');
}	}

	function hideParms() {
	document.getElementById('LC_parm_overview_parm_menu').style.display = "none";
	}

	function showParms() {
	document.getElementById('LC_parm_overview_parm_menu').style.display = "";
	}

	function checkboxChecked(id) {
	var li = "_li";
	var id_li = id.concat(li);

	if (document.getElementById(id_li).style.display == "none") {
	document.getElementById(id_li).style.display = "";
	}
	else {
	document.getElementById(id_li).style.display = "none";
	}
	}

</script>	</script>
ENDSCRIPT	ENDSCRIPT
$r->print();	$r->print();
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parameters to View')));	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parameters to View')));
$r->print("\n".'<table id="LC_parm_overview_parm_menu"><tr>');
	#part to print selected parms overview
	$r->print('<table id="LC_parm_overview_parm_overview">'
	.'<tr>'
	.'<td style="vertical-align:top; width:250px"><p>'.&mt('Selected Parameters').': ');

	#print out all possible parms and hide it
	$r->print('<td>');
	$r->print('<ol style="list-style-type:disc">');
	foreach $tempkey (&keysindisplayorder($allparms,$keyorder)) {
	$r->print('<li id="'.$tempkey.'_li" value="'.$tempkey.'_li" name="pscat_li"');
	if (!($$pscat[0] eq "all" \|\| grep $_ eq $tempkey, @{$pscat})) {
	$r->print('style="display:none"');
	}

	$r->print('>'.($$allparms{$tempkey}=~/\s/ ? $$allparms{$tempkey} : $tempkey).'</li>');
	}
	$r->print('<a href="javascript:showParms()">('.&mt('add more parameter').')'
	.'</a></p></td>');
	$r->print('</td>');
	$r->print('</tr>'
	.'</table>');

	&shortCuts($r,$allparms,$pscat,$keyorder);

	$r->print('</table>');
	}

	sub parmboxes {
	my ($r,$allparms,$pscat,$keyorder)=@_;
	my $tempkey;

	#part to print the parm-list
	$r->print('<table><tr><td><fieldset id="LC_parm_overview_parm_menu" style="display:none"><legend><b>'.&mt('Parameter').'</legend>');
	$r->print("\n".'<table>');
my $cnt=0;	my $cnt=0;

	$r->print('<tr>');
foreach $tempkey (&keysindisplayorder($allparms,$keyorder)) {	foreach $tempkey (&keysindisplayorder($allparms,$keyorder)) {
$r->print("\n".'<td><label><input type="checkbox" name="pscat" ');	$r->print("\n".'<td><label><input type="checkbox" name="pscat" ');
$r->print('value="'.$tempkey.'"');	$r->print('value="'.$tempkey.'" ');
	$r->print('onclick="checkboxChecked(\''.$tempkey.'\')"');
if ($$pscat[0] eq "all" \|\| grep $_ eq $tempkey, @{$pscat}) {	if ($$pscat[0] eq "all" \|\| grep $_ eq $tempkey, @{$pscat}) {
$r->print(' checked="checked"');	$r->print(' checked="checked"');
}	}
Line 1322 ENDSCRIPT	Line 1388 ENDSCRIPT
: $tempkey)	: $tempkey)
.'</label></td>');	.'</label></td>');
$cnt++;	$cnt++;
if ($cnt==3) {	if ($cnt==4) {
$r->print("</tr>\n<tr>");	$r->print("</tr>\n<tr>");
$cnt=0;	$cnt=0;
}	}
}	}
$r->print('</tr>'	$r->print('</tr>'
.'<tr id="LC_parm_overview_parm_menu_selectors">'	.'</table>'
	.'<a href="javascript:hideParms()" style="font-weight:normal">('.&mt('hide more parameter').')');

	#&shortCuts($r,$allparms,$pscat,$keyorder);
	$r->print('</fieldset></td></tr></table>');
	}
	sub shortCuts {
	my ($r,$allparms,$pscat,$keyorder)=@_;

	#part to print out the shortcuts for parmselection
	$r->print('<table><tr id="LC_parm_overview_parm_menu_selectors">'
.'<td valign="top">'	.'<td valign="top">'
.'<fieldset><legend><b>'.&mt('Parameter Selection').'</b></legend>'	.'<fieldset><legend><b>'.&mt('Parameter Selection').'</b></legend>'
.'<span class="LC_nobreak">'	.'<span class="LC_nobreak">'
Line 1365 ENDSCRIPT	Line 1441 ENDSCRIPT
.'</span>'	.'</span>'
.'</fieldset>'	.'</fieldset>'
.'</td>'	.'</td>'
.'</tr></table>'	.'</tr></table>');
);
}	}

sub partmenu {	sub partmenu {
Line 1490 sub displaymenu {	Line 1565 sub displaymenu {
$r->print(&Apache::lonhtmlcommon::topic_bar (2,&mt('Select Parameters')));	$r->print(&Apache::lonhtmlcommon::topic_bar (2,&mt('Select Parameters')));
$r->print(&Apache::lonhtmlcommon::start_pick_box());	$r->print(&Apache::lonhtmlcommon::start_pick_box());
&parmmenu($r,$allparms,$pscat,$keyorder);	&parmmenu($r,$allparms,$pscat,$keyorder);
$r->print(&Apache::lonhtmlcommon::row_closure());	#$r->print(&Apache::lonhtmlcommon::row_closure());
	$r->print(&Apache::lonhtmlcommon::end_pick_box());
	&parmboxes($r,$allparms,$pscat,$keyorder);
	$r->print(&Apache::lonhtmlcommon::start_pick_box());
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')));	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')));
&partmenu($r,$allparts,$psprt);	&partmenu($r,$allparts,$psprt);
$r->print(&Apache::lonhtmlcommon::row_closure(1));	$r->print(&Apache::lonhtmlcommon::row_closure(1));
Line 2810 ENDOVER	Line 2887 ENDOVER
$r->print('<div>');	$r->print('<div>');
$r->print(&Apache::lonhtmlcommon::start_pick_box());	$r->print(&Apache::lonhtmlcommon::start_pick_box());
&parmmenu($r,\%allparms,\@pscat,\%keyorder);	&parmmenu($r,\%allparms,\@pscat,\%keyorder);
$r->print(&Apache::lonhtmlcommon::row_closure());	#$r->print(&Apache::lonhtmlcommon::row_closure());
	$r->print(&Apache::lonhtmlcommon::end_pick_box());
	&parmboxes($r,\%allparms,\@pscat,\%keyorder);
	$r->print(&Apache::lonhtmlcommon::start_pick_box());
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')));	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')));
#$r->print('</td><td class="LC_parm_overview_restrictions">'.	#$r->print('</td><td class="LC_parm_overview_restrictions">'.
$r->print('<table>'.	$r->print('<table>'.

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

Removed from v.1.452
changed lines
	Added in v.1.453