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.477 and 1.478

version 1.477, 2009/11/05 18:10:37	version 1.478, 2009/11/06 10:14:12
Line 2197 ENDPARMSELSCRIPT	Line 2197 ENDPARMSELSCRIPT

# Display Unit 1 "General Parameters"	# Display Unit 1 "General Parameters"
if (!$pssymb) {	if (!$pssymb) {
#$r->print(&Apache::lonhtmlcommon::topic_bar (1,&mt('General Parameters')));	$r->print(&Apache::lonhtmlcommon::topic_bar (1,&mt('Resource Specification')));
$r->print('<div class="LC_Box">');
$r->print('<h4 class="LC_hcell">'.&mt('Resource Specification').'</h4>');
$r->print(<<COURSECONTENTSCRIPT);	$r->print(<<COURSECONTENTSCRIPT);
<script type="text/javascript">	<script type="text/javascript">
// <![CDATA[	// <![CDATA[
Line 2229 COURSECONTENTSCRIPT	Line 2227 COURSECONTENTSCRIPT
$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>');	$r->print('</div>');
$r->print('</div>');
#Display Unit 2 "Select Parameter"	#Display Unit 2 "Select Parameter"
#$r->print(&Apache::lonhtmlcommon::topic_bar (2,&mt('Select Parameters')));	$r->print(&Apache::lonhtmlcommon::topic_bar (2,&mt('Parameter Specification')));
$r->print('<div class="LC_Box">');
$r->print('<h4 class="LC_hcell">'.&mt('Parameter Specification').'</h4>');
&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)')));
} else {	} else {
	# parameter screen for a single resource.
my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);	my ($map,$id,$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 /><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(&Apache::lonhtmlcommon::topic_bar (3,&mt('User Specification (optional)'),'no_number'));
}	}
$r->print('</div>');
#$r->print(&Apache::lonhtmlcommon::topic_bar (3,&mt('User Selection')));
$r->print('<div class="LC_Box">');
$r->print('<h4 class="LC_hcell">'.&mt('User Specification (optional)').'</h4>');
$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::row_closure(1));
$r->print(&Apache::lonhtmlcommon::end_pick_box());	$r->print(&Apache::lonhtmlcommon::end_pick_box());
$r->print('</div>');

# parm selection is shown: display parm update button	# parm selection is shown: display parm update button
$r->print('<p>'	$r->print('<p>'
Line 2275 COURSECONTENTSCRIPT	Line 2268 COURSECONTENTSCRIPT
.'</a>'	.'</a>'
.'</p>'	.'</p>'
);	);


# Display Messages	# Display Messages
$r->print('<div>'.$message.'</div>');	$r->print('<div>'.$message.'</div>');

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

Removed from v.1.477
changed lines
	Added in v.1.478