--- loncom/interface/lonparmset.pm 2009/11/08 19:51:22 1.480
+++ loncom/interface/lonparmset.pm 2009/11/23 13:03:58 1.487
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.480 2009/11/08 19:51:22 amueller Exp $
+# $Id: lonparmset.pm,v 1.487 2009/11/23 13:03:58 wenzelju Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -903,8 +903,7 @@ sub startpage {
my ($r) = @_;
my %loaditems = ('onunload' => "pclose()",
- 'onload' => "group_or_section('cgroup')",
- 'onload' => "showHide_courseContent()",
+ 'onload' => "showHide_courseContent(); group_or_section('cgroup')",
);
if ((($env{'form.command'} eq 'set') && ($env{'form.url'})
@@ -1768,7 +1767,7 @@ sub mapmenu {
}
}
# 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')) {
my $icon = '';
$r->print(&Apache::loncommon::start_data_table()
@@ -1835,6 +1834,8 @@ sub mapmenu {
}
}
+# Build up the select Box to choose if your parameter specification should work for the resource, map/folder or the course level
+# The value of default selection in the select box is set by the value that is given by the argument in $parmlev.
sub levelmenu {
my ($r,$alllevs,$parmlev)=@_;
@@ -2186,16 +2187,16 @@ function parmsel_show() {
// ]]>
ENDPARMSELSCRIPT
- my $parmselhiddenstyle=' style="display:none"';
- if($env{'form.hideparmsel'} eq 'hidden') {
- $r->print('
' + .'' + .'' + .'
'); + $r->print('print($parmselhiddenstyle); + } + $r->print('>' + .'' + .&mt('Change Parameter Selection') + .'' + .'
'); } else { # 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); $r->print(&mt('Specific Resource: [_1] ([_2])',$title,$resource). ''. - ''
+ '
');
+ $r->print(&Apache::lonhtmlcommon::topic_bar('',&mt('Additional Display Specification (optional)')));
+ $r->print(&Apache::lonhtmlcommon::start_pick_box());
+ $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')).
+ '');
+ &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('
' .'' .'' - .'
' - ); - - $r->print('print($parmselhiddenstyle); + .'
'); } - $r->print('>' - .'' - .&mt('Change Parameter Selection') - .'' - .'' - ); + # ----- End Parameter Selection # Display Messages $r->print(''.&mt('Parts').' | '.&mt('Section(s)'). ' | '.&mt('Group(s)').' |
---|---|---|
'); &partmenu($r,\%allparts,\@psprt); @@ -3242,15 +3246,15 @@ ENDOVER if (($env{'form.store'}) || ($env{'form.dis'})) { - if ($env{'form.store'}) { &storedata($r,$crs,$dom); } + if ($env{'form.store'}) { &storedata($r,$crs,$dom); } # Read modified data - my $resourcedata=&readdata($crs,$dom); + my $resourcedata=&readdata($crs,$dom); # List data - &listdata($r,$resourcedata,$listdata,$sortorder); + &listdata($r,$resourcedata,$listdata,$sortorder); } $r->print(&tableend(). ((($env{'form.store'}) || ($env{'form.dis'}))?'':''). @@ -3715,7 +3719,7 @@ ENDMAINFORMHEAD url => '/adm/parmset?action=parameterchangelog', permission => $parm_permission, 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)); |