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.446 and 1.449

version 1.446, 2009/05/12 10:54:11	version 1.449, 2009/05/16 22:18:20
Line 1488 function group_or_section(caller) {	Line 1488 function group_or_section(caller) {
if (%sectionhash \|\| %grouphash) {	if (%sectionhash \|\| %grouphash) {
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Group/Section')));	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Group/Section')));
$r->print($sections.$groups);	$r->print($sections.$groups);
	$r->print(&Apache::lonhtmlcommon::row_closure());
}	}

$r->print(&Apache::lonhtmlcommon::row_title(&mt('User')));	$r->print(&Apache::lonhtmlcommon::row_title(&mt('User')));
Line 1499 function group_or_section(caller) {	Line 1500 function group_or_section(caller) {

sub displaymenu {	sub displaymenu {
my ($r,$allparms,$allparts,$pscat,$psprt,$keyorder)=@_;	my ($r,$allparms,$allparts,$pscat,$psprt,$keyorder)=@_;
$r->print('<div class="LC_ContentBoxSpecial">');	$r->print(&Apache::lonhtmlcommon::topic_bar (2,&mt('Select Parameters')));
$r->print('<h2 class="LC_hcell">Step 2</h2>');
$r->print('<div class="LC_BoxPadding">' );
$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_title(&mt('Select Parts to View')));	$r->print(&Apache::lonhtmlcommon::row_closure());

	$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::end_pick_box());	$r->print(&Apache::lonhtmlcommon::end_pick_box());
$r->print('</div></div>');
}	}

sub mapmenu {	sub mapmenu {
Line 1862 sub assessparms {	Line 1862 sub assessparms {
}	}

if (!$pssymb) {	if (!$pssymb) {
	$r->print(&Apache::lonhtmlcommon::topic_bar (1,&mt('General Parameters')));
$r->print('<div class="LC_ContentBoxSpecial">');
$r->print('<h2 class="LC_hcell">Step 1</h2>');
$r->print('<div class="LC_BoxPadding">' );
$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(&Apache::lonhtmlcommon::row_closure());
&mapmenu($r,\%allmaps,$pschp,\%maptitles);	&mapmenu($r,\%allmaps,$pschp,\%maptitles);
}	}

	$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>');

&displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt,\%keyorder);	&displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt,\%keyorder);
} else {	} else {
my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);	my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);
Line 1886 sub assessparms {	Line 1884 sub assessparms {
'<br /><label><b>'.&mt('Show all parts').': <input type="checkbox" name="psprt" value="all"'.	'<br /><label><b>'.&mt('Show all parts').': <input type="checkbox" name="psprt" value="all"'.
($env{'form.psprt'}?' checked="checked"':'').' /></b></label><br />');	($env{'form.psprt'}?' checked="checked"':'').' /></b></label><br />');
}	}
$r->print('<div class="LC_ContentBoxSpecial">');	$r->print(&Apache::lonhtmlcommon::topic_bar (3,&mt('User Selection')));
$r->print('<h2 class="LC_hcell">Step 3</h2>');
$r->print('<div class="LC_BoxPadding">' );
$r->print(&Apache::lonhtmlcommon::start_pick_box());	$r->print(&Apache::lonhtmlcommon::start_pick_box());
&usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups);	&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(&Apache::lonhtmlcommon::end_pick_box());
$r->print('</div></div>');

$r->print('<p>'.$message.'</p>');	$r->print('<p>'.$message.'</p>');

Line 3612 ENDOVER	Line 3608 ENDOVER
&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('<td class="LC_parm_overview_map_menu">');
	$r->print(&Apache::lonhtmlcommon::row_closure());
&mapmenu($r,\%allmaps,$pschp,\%maptitles);	&mapmenu($r,\%allmaps,$pschp,\%maptitles);
#$r->print('</td>');	#$r->print('</td>');
}	}
	$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('</td></tr></table>');
Line 3625 ENDOVER	Line 3623 ENDOVER
$r->print('<div class="LC_BoxPadding">' );	$r->print('<div class="LC_BoxPadding">' );
$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_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">'.
Line 3638 ENDOVER	Line 3637 ENDOVER
&groupmenu($r,\@selected_groups);	&groupmenu($r,\@selected_groups);
$r->print('</td></tr></table>');	$r->print('</td></tr></table>');
#$r->print('</td></tr></table>');	#$r->print('</td></tr></table>');
	$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>');

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

Removed from v.1.446
changed lines
	Added in v.1.449