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.483 and 1.489

version 1.483, 2009/11/14 17:47:18	version 1.489, 2009/12/09 17:09:26
Line 903 sub startpage {	Line 903 sub startpage {
my ($r) = @_;	my ($r) = @_;

my %loaditems = ('onunload' => "pclose()",	my %loaditems = ('onunload' => "pclose()",
'onload' => "group_or_section('cgroup')",	'onload' => "showHide_courseContent(); group_or_section('cgroup')",
'onload' => "showHide_courseContent()",
);	);

if ((($env{'form.command'} eq 'set') && ($env{'form.url'})	if ((($env{'form.command'} eq 'set') && ($env{'form.url'})
Line 1494 sub parmboxes {	Line 1493 sub parmboxes {
'slots' => [],	'slots' => [],
'file_submission' => [],	'file_submission' => [],
'misc' => [],	'misc' => [],
);	);
	my $hidelink =
	'<p>'
	.'<a href="javascript:hideParms()">'
	.&mt('Hide detailed Parameter Selection')
	.'</a>'
	.'</p>'
	."\n";
	;
foreach $tempparameter (keys %$allparms) {	foreach $tempparameter (keys %$allparms) {
&whatIsMyCategory($tempparameter, \%categoryList);	&whatIsMyCategory($tempparameter, \%categoryList);
}	}
#part to print the parm-list	#part to print the parm-list
$r->print('<fieldset id="LC_parm_overview_parm_menu" style="display:none">'	$r->print(
.'<legend>'.&mt('Parameter').'</legend>'."\n"	'<div id="LC_parm_overview_parm_menu" class="LC_Box" style="display:none">'."\n"
	.'<h3>'.&mt('Parameter').'</h3>'."\n"
	.$hidelink
	.'<div class="LC_columnSection">'."\n"
);	);

#Print parameters	#Print parameters
Line 1508 sub parmboxes {	Line 1518 sub parmboxes {
if(@{$categoryList{$key}} == 0) {	if(@{$categoryList{$key}} == 0) {
next;	next;
} else {	} else {
$r->print('<fieldset>'	$r->print('<div class="LC_Box LC_400Box">'
.'<legend>'	.'<h4 class="LC_hcell">'
.&mt($categories{$key})	.&mt($categories{$key})
.'</legend>'."\n");	.'</h4>'."\n");
foreach $tempkey (&keysindisplayorderCategory($categoryList{$key},$keyorder)) {	foreach $tempkey (&keysindisplayorderCategory($categoryList{$key},$keyorder)) {
$r->print('<span class="LC_nobreak">'	$r->print('<span class="LC_nobreak">'
.'<label><input type="checkbox" name="pscat" ');	.'<label><input type="checkbox" name="pscat" ');
Line 1522 sub parmboxes {	Line 1532 sub parmboxes {
}	}
$r->print(' />'.($$allparms{$tempkey}=~/\S/ ? $$allparms{$tempkey}	$r->print(' />'.($$allparms{$tempkey}=~/\S/ ? $$allparms{$tempkey}
: $tempkey)	: $tempkey)
.'</label></span> ');	.'</label></span><br />'."\n");
}	}
$r->print('</fieldset>');	$r->print("</div>\n");
}	}
}	}
$r->print('<hr />'
.'<a href="javascript:hideParms()">'
.&mt('Hide')
.'</a>'
);

#&shortCuts($r,$allparms,$pscat,$keyorder);	#&shortCuts($r,$allparms,$pscat,$keyorder);
$r->print('</fieldset>');	$r->print(
	"</div>\n"
	.$hidelink
	."</div>\n"
	);
}	}
#	#
# This function offers some links on the parameter section to get with one click a group a parameters	# This function offers some links on the parameter section to get with one click a group a parameters
Line 1768 sub mapmenu {	Line 1777 sub mapmenu {
}	}
}	}
# Show it ...	# Show it ...
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Enclosing Map or Folder')));	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Enclosing Map or Folder'),'','',' id="mapmenu"'));
if ((ref($tree) eq 'ARRAY') && (ref($treeinfo) eq 'HASH')) {	if ((ref($tree) eq 'ARRAY') && (ref($treeinfo) eq 'HASH')) {
my $icon = '<img src="/adm/lonIcons/navmap.folder.open.gif" alt="" />';	my $icon = '<img src="/adm/lonIcons/navmap.folder.open.gif" alt="" />';
$r->print(&Apache::loncommon::start_data_table()	$r->print(&Apache::loncommon::start_data_table()
Line 2188 function parmsel_show() {	Line 2197 function parmsel_show() {
// ]]>	// ]]>
</script>	</script>
ENDPARMSELSCRIPT	ENDPARMSELSCRIPT
my $parmselhiddenstyle=' style="display:none"';
if($env{'form.hideparmsel'} eq 'hidden') {
$r->print('<div id="parmsel"'.$parmselhiddenstyle.'>');
} else {
$r->print('<div id="parmsel">');
}


# Display Unit 1 "General Parameters"	# Display Unit 1 "General Parameters"
if (!$pssymb) {	if (!$pssymb) {
	my $parmselhiddenstyle=' style="display:none"';
	if($env{'form.hideparmsel'} eq 'hidden') {
	$r->print('<div id="parmsel"'.$parmselhiddenstyle.'>');
	} else {
	$r->print('<div id="parmsel">');
	}

$r->print(&Apache::lonhtmlcommon::topic_bar(1,&mt('Resource Specification')));	$r->print(&Apache::lonhtmlcommon::topic_bar(1,&mt('Resource Specification')));
$r->print(<<COURSECONTENTSCRIPT);	$r->print(<<COURSECONTENTSCRIPT);
<script type="text/javascript">	<script type="text/javascript">
Line 2222 COURSECONTENTSCRIPT	Line 2231 COURSECONTENTSCRIPT
&levelmenu($r,\%alllevs,$parmlev);	&levelmenu($r,\%alllevs,$parmlev);
$r->print(&Apache::lonhtmlcommon::row_closure(1));	$r->print(&Apache::lonhtmlcommon::row_closure(1));
$r->print(&Apache::lonhtmlcommon::end_pick_box());	$r->print(&Apache::lonhtmlcommon::end_pick_box());
$r->print('<div id="mapmenu">');
$r->print(&Apache::lonhtmlcommon::start_pick_box());	$r->print(&Apache::lonhtmlcommon::start_pick_box());
&mapmenu($r,\%allmaps,$pschp,\%maptitles, \%symbp);	&mapmenu($r,\%allmaps,$pschp,\%maptitles, \%symbp);
$r->print(&Apache::lonhtmlcommon::row_closure(1));	$r->print(&Apache::lonhtmlcommon::row_closure(1));
$r->print(&Apache::lonhtmlcommon::end_pick_box());	$r->print(&Apache::lonhtmlcommon::end_pick_box());
$r->print('</div>');
#Display Unit 2 "Select Parameter"	#Display Unit 2 "Select Parameter"
$r->print(&Apache::lonhtmlcommon::topic_bar(2,&mt('Parameter Specification')));	$r->print(&Apache::lonhtmlcommon::topic_bar(2,&mt('Parameter Specification')));
&displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt,\%keyorder);	&displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt,\%keyorder);
$r->print(&Apache::lonhtmlcommon::topic_bar(3,&mt('User Specification (optional)')));	$r->print(&Apache::lonhtmlcommon::topic_bar(3,&mt('User Specification (optional)')));
	$r->print(&Apache::lonhtmlcommon::start_pick_box());
	&usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups);
	$r->print(&Apache::lonhtmlcommon::row_closure(1));
	$r->print(&Apache::lonhtmlcommon::end_pick_box());
	$r->print('<p>'
	.'<input type="submit" name="dis"'
	.' value="'.&mt('Update Parameter Display').'" />'
	.'<input type="hidden" name="hideparmsel" value="hidden" />'
	.'</p>');
	$r->print('</div>');
	# Offer link to display parameter selection again
	$r->print('<p id="parmsellink"');
	if ($env{'form.hideparmsel'} ne 'hidden') {
	$r->print($parmselhiddenstyle);
	}
	$r->print('>'
	.'<a href="javascript:parmsel_show()">'
	.&mt('Change Parameter Selection')
	.'</a>'
	.'</p>');
} else {	} else {
# parameter screen for a single resource.	# parameter screen for a single resource.
my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);	my ($map,$iid,$resource)=&Apache::lonnet::decode_symb($pssymb);
my $title = &Apache::lonnet::gettitle($pssymb);	my $title = &Apache::lonnet::gettitle($pssymb);
$r->print(&mt('Specific Resource: [_1] ([_2])',$title,$resource).	$r->print(&mt('Specific Resource: [_1] ([_2])',$title,$resource).
'<input type="hidden" value="'.$pssymb.'" name="symb" />'.	'<input type="hidden" value="'.$pssymb.'" name="symb" />'.
'<br /><label><b>'.&mt('Show all parts').': <input type="checkbox" name="psprt" value="all"'.	'<br />');
($env{'form.psprt'}?' checked="checked"':'').' /></b></label><br />');	$r->print(&Apache::lonhtmlcommon::topic_bar('',&mt('Additional Display Specification (optional)')));
$r->print(&Apache::lonhtmlcommon::topic_bar('',&mt('User Specification (optional)')));	$r->print(&Apache::lonhtmlcommon::start_pick_box());
}	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')).
$r->print(&Apache::lonhtmlcommon::start_pick_box());	'<label>'.&mt('Show all parts').': <input type="checkbox" name="psprt" value="all"'.
&usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups);	($env{'form.psprt'}?' checked="checked"':'').' /></label></td></tr>');
$r->print(&Apache::lonhtmlcommon::row_closure(1));	&usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups);
$r->print(&Apache::lonhtmlcommon::end_pick_box());	$r->print(&Apache::lonhtmlcommon::row_closure(1));
	$r->print(&Apache::lonhtmlcommon::end_pick_box());
# parm selection is shown: display parm update button	$r->print('<p>'
$r->print('<p>'
.'<input type="submit" name="dis"'	.'<input type="submit" name="dis"'
.' value="'.&mt('Update Parameter Display').'" />'	.' value="'.&mt('Update Parameter Display').'" />'
.'<input type="hidden" name="hideparmsel" value="hidden" />'	.'<input type="hidden" name="hideparmsel" value="hidden" />'
.'</p>'	.'</p>');
);

$r->print('</div>');
# ----- End Parameter Selection

# Offer link to display parameter selection again
$r->print('<p id="parmsellink"');
if($env{'form.hideparmsel'} ne 'hidden') {
$r->print($parmselhiddenstyle);
}	}
$r->print('>'
.'<a href="javascript:parmsel_show()">'
.&mt('Change Parameter Selection')
.'</a>'
.'</p>'
);

	# ----- End Parameter Selection

# Display Messages	# Display Messages
$r->print('<div>'.$message.'</div>');	$r->print('<div>'.$message.'</div>');
Line 3180 ENDOVER	Line 3192 ENDOVER
}	}
# Menu to select levels, etc	# Menu to select levels, etc

#$r->print('<table id="LC_parm_overview_scope">
# <tr><td class="LC_parm_overview_level_menu">');
$r->print('<div class="LC_Box">');	$r->print('<div class="LC_Box">');
#$r->print('<h2 class="LC_hcell">Step 1</h2>');	#$r->print('<h2 class="LC_hcell">Step 1</h2>');
$r->print('<div>');	$r->print('<div>');
$r->print(&Apache::lonhtmlcommon::start_pick_box());	$r->print(&Apache::lonhtmlcommon::start_pick_box());
&levelmenu($r,\%alllevs,$parmlev);	&levelmenu($r,\%alllevs,$parmlev);
if ($parmlev ne 'general') {	if ($parmlev ne 'general') {
#$r->print('<td class="LC_parm_overview_map_menu">');
$r->print(&Apache::lonhtmlcommon::row_closure());	$r->print(&Apache::lonhtmlcommon::row_closure());
&mapmenu($r,\%allmaps,$pschp,\%maptitles,\%symbp);	&mapmenu($r,\%allmaps,$pschp,\%maptitles,\%symbp);
#$r->print('</td>');
}	}
$r->print(&Apache::lonhtmlcommon::row_closure(1));	$r->print(&Apache::lonhtmlcommon::row_closure(1));
$r->print(&Apache::lonhtmlcommon::end_pick_box());	$r->print(&Apache::lonhtmlcommon::end_pick_box());
$r->print('</div></div>');	$r->print('</div></div>');
#$r->print('</td></tr></table>');

#$r->print('<table id="LC_parm_overview_controls">
# <tr><td class="LC_parm_overview_parm_selectors">');
$r->print('<div class="LC_Box">');	$r->print('<div class="LC_Box">');
$r->print('<div>');	$r->print('<div>');
$r->print(&Apache::lonhtmlcommon::start_pick_box());	$r->print(&Apache::lonhtmlcommon::start_pick_box());
Line 3208 ENDOVER	Line 3213 ENDOVER
&parmboxes($r,\%allparms,\@pscat,\%keyorder);	&parmboxes($r,\%allparms,\@pscat,\%keyorder);
$r->print(&Apache::lonhtmlcommon::start_pick_box());	$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('<table>'.	$r->print('<table>'.
'<tr><th>'.&mt('Parts').'</th><th>'.&mt('Section(s)').	'<tr><th>'.&mt('Parts').'</th><th>'.&mt('Section(s)').
'</th><th>'.&mt('Group(s)').'</th></tr><tr><td>');	'</th><th>'.&mt('Group(s)').'</th></tr><tr><td>');
Line 3717 ENDMAINFORMHEAD	Line 3721 ENDMAINFORMHEAD
url => '/adm/parmset?action=parameterchangelog',	url => '/adm/parmset?action=parameterchangelog',
permission => $parm_permission,	permission => $parm_permission,
linktitle =>"View parameter and $lc_crstype blog posting/user notification change log." ,	linktitle =>"View parameter and $lc_crstype blog posting/user notification change log." ,
icon => 'emblem-system.png' ,	icon => 'document-properties.png',
}]}	}]}
);	);
$r->print(&Apache::lonhtmlcommon::generate_menu(@menu));	$r->print(&Apache::lonhtmlcommon::generate_menu(@menu));

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

Removed from v.1.483
changed lines
	Added in v.1.489