version 1.442, 2009/04/05 17:31:04
|
version 1.443, 2009/05/05 16:53:25
|
Line 1322 sub parmmenu {
|
Line 1322 sub parmmenu {
|
</script> |
</script> |
ENDSCRIPT |
ENDSCRIPT |
$r->print(); |
$r->print(); |
|
$r->print('<tr>'); |
|
$r->print('<td style="width:350px;border:1pt solid;font-weight:bold;color:#000000;background-color:#ccccff;vertical-align:top;">'); |
|
$r->print('<blockquote>'.&mt('Select Parameters to View').'</blockquote>'); |
|
$r->print('</td>'); |
|
$r->print('<td style="width:700px; border:1pt solid;padding-left:10px"><blockquote>'); |
$r->print("\n".'<table id="LC_parm_overview_parm_menu"><tr>'); |
$r->print("\n".'<table id="LC_parm_overview_parm_menu"><tr>'); |
my $cnt=0; |
my $cnt=0; |
foreach $tempkey (&keysindisplayorder($allparms,$keyorder)) { |
foreach $tempkey (&keysindisplayorder($allparms,$keyorder)) { |
Line 1379 ENDSCRIPT
|
Line 1384 ENDSCRIPT
|
.'</td>' |
.'</td>' |
.'</tr></table>' |
.'</tr></table>' |
); |
); |
|
$r->print('</blockquote></td></tr>'); |
} |
} |
|
|
sub partmenu { |
sub partmenu { |
my ($r,$allparts,$psprt)=@_; |
my ($r,$allparts,$psprt)=@_; |
|
$r->print('<tr>'); |
|
$r->print('<td style="width:350px;border:1pt solid;font-weight:bold;color:#000000;background-color:#ccccff;vertical-align:top;">'); |
|
$r->print('<blockquote>'. &mt('Select Parts to View').'</blockquote>'); |
|
$r->print('</td>'); |
|
$r->print('<td style="width:700px; border:1pt solid;padding-left:10px"><blockquote>'); |
$r->print('<select multiple="multiple" name="psprt" size="8">'); |
$r->print('<select multiple="multiple" name="psprt" size="8">'); |
$r->print('<option value="all"'); |
$r->print('<option value="all"'); |
$r->print(' selected="selected"') unless (@{$psprt}); |
$r->print(' selected="selected"') unless (@{$psprt}); |
Line 1401 sub partmenu {
|
Line 1412 sub partmenu {
|
} |
} |
} |
} |
$r->print('</select>'); |
$r->print('</select>'); |
|
$r->print('</blockquote></td></tr>'); |
} |
} |
|
|
sub usermenu { |
sub usermenu { |
Line 1417 sub usermenu {
|
Line 1429 sub usermenu {
|
|
|
my $g_s_header=''; |
my $g_s_header=''; |
my $g_s_footer=''; |
my $g_s_footer=''; |
|
|
if (%sectionhash) { |
if (%sectionhash) { |
$sections=&mt('Section:').' <select name="csec"'; |
$sections=&mt('Section:').' <select name="csec"'; |
if (%grouphash && $parmlev ne 'full') { |
if (%grouphash && $parmlev ne 'full') { |
Line 1483 function group_or_section(caller) {
|
Line 1495 function group_or_section(caller) {
|
$groups.='</select>'; |
$groups.='</select>'; |
} |
} |
|
|
if (%sectionhash || %grouphash) { |
if (%sectionhash || %grouphash) { |
$g_s_header='<fieldset><legend>'.&mt('Group/Section').'</legend><div>'; |
$r->print('<tr>'); |
$g_s_footer='</div></fieldset>'; |
$r->print('<td style="width:350px;border:1pt solid;font-weight:bold;color:#000000;background-color:#ccccff;vertical-align:top;">'); |
} |
$r->print('<blockquote>'.&mt('Group/Section').'</blockquote>'); |
|
$r->print('</td>'); |
$r->print('<b>' |
$r->print('<td style="width:700px; border:1pt solid;padding-left:10px"><blockquote>'); |
.$g_s_header |
$r->print($sections.$groups); |
.$sections |
$r->print('</blockquote></td></tr>'); |
.$groups |
} |
.$g_s_footer |
$r->print('<tr>'); |
.'<fieldset><legend>'.&mt('User').'</legend><div>' |
$r->print('<td style="width:350px;border:1pt solid;font-weight:bold;color:#000000;background-color:#ccccff;vertical-align:top;">'); |
.&mt('For User [_1] or Student/Employee ID [_2] at Domain [_3]' |
$r->print('<blockquote>'. &mt('User').'</blockquote>'); |
|
$r->print('</td>'); |
|
$r->print('<td style="width:700px; border:1pt solid;padding-left:10px"><blockquote>'); |
|
|
|
$r->print(&mt('For User [_1] or Student/Employee ID [_2] at Domain [_3]' |
,'<input type="text" value="'.$uname.'" size="12" name="uname" />' |
,'<input type="text" value="'.$uname.'" size="12" name="uname" />' |
,'<input type="text" value="'.$id.'" size="12" name="id" /> ' |
,'<input type="text" value="'.$id.'" size="12" name="id" /> ' |
,$chooseopt) |
,$chooseopt)); |
.'</div></fieldset>' |
|
.'</b>' |
$r->print('</blockquote></td></tr>'); |
); |
|
} |
} |
|
|
sub displaymenu { |
sub displaymenu { |
my ($r,$allparms,$allparts,$pscat,$psprt,$keyorder)=@_; |
my ($r,$allparms,$allparts,$pscat,$psprt,$keyorder)=@_; |
$r->print('<table border="1"><tr><th>'.&mt('Select Parameters to View').'</th><th>'. |
$r->print('<div class="LC_ContentBoxSpecial">'); |
&mt('Select Parts to View').'</th></tr><tr><td>'); |
$r->print('<h2 class="LC_hcell">Step 2</h2>'); |
|
$r->print('<blockquote>'); |
|
$r->print('<table border="0" style="border-style:solid;border-collapse:seperate;text-align:left;margin-left:auto;margin-right:auto;border-spacing:0pt;">'); |
|
|
|
#$r->print('<table border="1"><tr><th>'.&mt('Select Parameters to View').'</th><th>'. &mt('Select Parts to View').'</th></tr><tr><td>'); |
&parmmenu($r,$allparms,$pscat,$keyorder); |
&parmmenu($r,$allparms,$pscat,$keyorder); |
$r->print('</td><td valign="top" align="center">'); |
|
&partmenu($r,$allparts,$psprt); |
&partmenu($r,$allparts,$psprt); |
$r->print('</td></tr></table>'); |
$r->print('</table></blockquote></div>'); |
} |
} |
|
|
sub mapmenu { |
sub mapmenu {## |
my ($r,$allmaps,$pschp,$maptitles)=@_; |
my ($r,$allmaps,$pschp,$maptitles)=@_; |
$r->print('<b>'.&mt('Select Enclosing Map or Folder').'</b> '); |
$r->print('<tr>'); |
|
$r->print('<td style="width:350px;border:1pt solid;font-weight:bold;color:#000000;background-color:#ccccff;vertical-align:top;">'); |
|
$r->print('<blockquote>'.&mt('Select Enclosing Map or Folder').'</blockquote>'); |
|
$r->print('</td>'); |
|
$r->print('<td style="width:700px; border:1pt solid;padding-left:10px"><blockquote>'); |
$r->print('<select name="pschp">'); |
$r->print('<select name="pschp">'); |
$r->print('<option value="all">'.&mt('All Maps or Folders').'</option>'); |
$r->print('<option value="all">'.&mt('All Maps or Folders').'</option>'); |
foreach (sort {$$allmaps{$a} cmp $$allmaps{$b}} keys %{$allmaps}) { |
foreach (sort {$$allmaps{$a} cmp $$allmaps{$b}} keys %{$allmaps}) { |
Line 1524 sub mapmenu {
|
Line 1547 sub mapmenu {
|
$r->print('>'.$$maptitles{$_}.($$allmaps{$_}!~/^uploaded/?' ['.$$allmaps{$_}.']':'').'</option>'); |
$r->print('>'.$$maptitles{$_}.($$allmaps{$_}!~/^uploaded/?' ['.$$allmaps{$_}.']':'').'</option>'); |
} |
} |
$r->print("</select>"); |
$r->print("</select>"); |
|
$r->print('</blockquote></td></tr>'); |
} |
} |
|
|
sub levelmenu { |
sub levelmenu { |
my ($r,$alllevs,$parmlev)=@_; |
my ($r,$alllevs,$parmlev)=@_; |
$r->print('<b>'.&mt('Select Parameter Level'). |
$r->print('<tr>'); |
&Apache::loncommon::help_open_topic('Course_Parameter_Levels').'</b> '); |
$r->print('<td style="width:350px;border:1pt solid;font-weight:bold;color:#000000;background-color:#ccccff;vertical-align:top;">'); |
|
$r->print('<blockquote>'.&mt('Select Parameter Level').&Apache::loncommon::help_open_topic('Course_Parameter_Levels').'</blockquote>'); |
|
$r->print('</td>'); |
|
$r->print('<td style="width:700px; border:1pt solid;padding-left:10px"><blockquote>'); |
$r->print('<select name="parmlev">'); |
$r->print('<select name="parmlev">'); |
foreach (reverse sort keys %{$alllevs}) { |
foreach (reverse sort keys %{$alllevs}) { |
$r->print('<option value="'.$$alllevs{$_}.'"'); |
$r->print('<option value="'.$$alllevs{$_}.'"'); |
Line 1539 sub levelmenu {
|
Line 1566 sub levelmenu {
|
$r->print('>'.&mt($_).'</option>'); |
$r->print('>'.&mt($_).'</option>'); |
} |
} |
$r->print("</select>"); |
$r->print("</select>"); |
|
$r->print('</blockquote></td></tr>'); |
} |
} |
|
|
|
|
Line 1861 sub assessparms {
|
Line 1889 sub assessparms {
|
'" name="recent_'.$_.'" />'); |
'" name="recent_'.$_.'" />'); |
} |
} |
|
|
if (!$pssymb) { |
if (!$pssymb) { |
$r->print('<table border="1"><tr><td>'); |
$r->print('<div class="LC_ContentBoxSpecial">'); |
|
$r->print('<h2 class="LC_hcell">Step 1</h2>'); |
|
$r->print('<blockquote>'); |
|
$r->print('<table border="0" style="border-style:solid;border-collapse:seperate;text-align:left;margin-left:auto;margin-right:auto;border-spacing:0pt;">'); |
&levelmenu($r,\%alllevs,$parmlev); |
&levelmenu($r,\%alllevs,$parmlev); |
$r->print('</td>'); |
|
if ($parmlev ne 'general') { |
if ($parmlev ne 'general') { |
$r->print('<td>'); |
|
&mapmenu($r,\%allmaps,$pschp,\%maptitles); |
&mapmenu($r,\%allmaps,$pschp,\%maptitles); |
$r->print('</td>'); |
|
} |
} |
$r->print('</tr></table>'); |
$r->print('</table>'); |
|
$r->print('</blockquote>'); |
|
$r->print('</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 1880 sub assessparms {
|
Line 1913 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('<h2 class="LC_hcell">Step 3</h2>'); |
|
$r->print('<blockquote>'); |
|
$r->print('<table border="0" style="border-style:solid;border-collapse:seperate;text-align:left;margin-left:auto;margin-right:auto;border-spacing:0pt;">'); |
&usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups); |
&usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups); |
|
$r->print('</table>'); |
|
$r->print('</blockquote>'); |
|
$r->print('</div>'); |
|
|
$r->print('<p>'.$message.'</p>'); |
$r->print('<p>'.$message.'</p>'); |
|
|