version 1.444, 2009/05/06 16:19:34
|
version 1.445, 2009/05/08 22:47:01
|
Line 1321 sub parmmenu {
|
Line 1321 sub parmmenu {
|
|
|
</script> |
</script> |
ENDSCRIPT |
ENDSCRIPT |
$r->print(); |
$r->print(); |
$r->print('<tr>'); |
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parameters to View'))); |
$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 1384 ENDSCRIPT
|
Line 1380 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 1411 sub partmenu {
|
Line 1402 sub partmenu {
|
$r->print('>'.$$allparts{$tempkey}.'</option>'); |
$r->print('>'.$$allparts{$tempkey}.'</option>'); |
} |
} |
} |
} |
$r->print('</select>'); |
$r->print('</select>'); |
$r->print('</blockquote></td></tr>'); |
|
} |
} |
|
|
sub usermenu { |
sub usermenu { |
Line 1495 function group_or_section(caller) {
|
Line 1485 function group_or_section(caller) {
|
$groups.='</select>'; |
$groups.='</select>'; |
} |
} |
|
|
if (%sectionhash || %grouphash) { |
if (%sectionhash || %grouphash) { |
$r->print('<tr>'); |
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Group/Section'))); |
$r->print('<td style="width:350px;border:1pt solid;font-weight:bold;color:#000000;background-color:#ccccff;vertical-align:top;">'); |
$r->print($sections.$groups); |
$r->print('<blockquote>'.&mt('Group/Section').'</blockquote>'); |
} |
$r->print('</td>'); |
|
$r->print('<td style="width:700px; border:1pt solid;padding-left:10px"><blockquote>'); |
$r->print(&Apache::lonhtmlcommon::row_title(&mt('User'))); |
$r->print($sections.$groups); |
|
$r->print('</blockquote></td></tr>'); |
|
} |
|
$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('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]' |
$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)); |
|
|
$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('<div class="LC_ContentBoxSpecial">'); |
$r->print('<div class="LC_ContentBoxSpecial">'); |
$r->print('<h2 class="LC_hcell">Step 2</h2>'); |
$r->print('<h2 class="LC_hcell">Step 2</h2>'); |
$r->print('<blockquote>'); |
$r->print('<div class="LC_BoxPadding">' ); |
$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(&Apache::lonhtmlcommon::start_pick_box()); |
|
|
#$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(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View'))); |
&partmenu($r,$allparts,$psprt); |
&partmenu($r,$allparts,$psprt); |
$r->print('</table></blockquote></div>'); |
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
|
$r->print('</div></div>'); |
} |
} |
|
|
sub mapmenu {## |
sub mapmenu { |
my ($r,$allmaps,$pschp,$maptitles)=@_; |
my ($r,$allmaps,$pschp,$maptitles)=@_; |
$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(&Apache::lonhtmlcommon::row_title(&mt('Select Enclosing Map or Folder'))); |
$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 1547 sub mapmenu {##
|
Line 1523 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('<tr>'); |
|
$r->print('<td style="width:350px;border:1pt solid;font-weight:bold;color:#000000;background-color:#ccccff;vertical-align:top;">'); |
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parameter Level').&Apache::loncommon::help_open_topic('Course_Parameter_Levels'))); |
$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 1565 sub levelmenu {
|
Line 1538 sub levelmenu {
|
} |
} |
$r->print('>'.&mt($_).'</option>'); |
$r->print('>'.&mt($_).'</option>'); |
} |
} |
$r->print("</select>"); |
$r->print("</select>"); |
$r->print('</blockquote></td></tr>'); |
|
} |
} |
|
|
|
|
Line 1889 sub assessparms {
|
Line 1861 sub assessparms {
|
'" name="recent_'.$_.'" />'); |
'" name="recent_'.$_.'" />'); |
} |
} |
|
|
if (!$pssymb) { |
if (!$pssymb) { |
|
|
$r->print('<div class="LC_ContentBoxSpecial">'); |
$r->print('<div class="LC_ContentBoxSpecial">'); |
$r->print('<h2 class="LC_hcell">Step 1</h2>'); |
$r->print('<h2 class="LC_hcell">Step 1</h2>'); |
$r->print('<blockquote>'); |
$r->print('<div class="LC_BoxPadding">' ); |
$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(&Apache::lonhtmlcommon::start_pick_box()); |
|
|
&levelmenu($r,\%alllevs,$parmlev); |
&levelmenu($r,\%alllevs,$parmlev); |
|
|
if ($parmlev ne 'general') { |
if ($parmlev ne 'general') { |
|
&mapmenu($r,\%allmaps,$pschp,\%maptitles); |
&mapmenu($r,\%allmaps,$pschp,\%maptitles); |
|
|
|
} |
} |
$r->print('</table>'); |
|
$r->print('</blockquote>'); |
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
$r->print('</div>'); |
$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 1915 sub assessparms {
|
Line 1888 sub assessparms {
|
} |
} |
$r->print('<div class="LC_ContentBoxSpecial">'); |
$r->print('<div class="LC_ContentBoxSpecial">'); |
$r->print('<h2 class="LC_hcell">Step 3</h2>'); |
$r->print('<h2 class="LC_hcell">Step 3</h2>'); |
$r->print('<blockquote>'); |
$r->print('<div class="LC_BoxPadding">' ); |
$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(&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('</table>'); |
|
$r->print('</blockquote>'); |
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
$r->print('</div>'); |
$r->print('</div></div>'); |
|
|
$r->print('<p>'.$message.'</p>'); |
$r->print('<p>'.$message.'</p>'); |
|
|
Line 3630 ENDOVER
|
Line 3603 ENDOVER
|
} |
} |
# Menu to select levels, etc |
# Menu to select levels, etc |
|
|
$r->print('<table id="LC_parm_overview_scope"> |
#$r->print('<table id="LC_parm_overview_scope"> |
<tr><td class="LC_parm_overview_level_menu">'); |
# <tr><td class="LC_parm_overview_level_menu">'); |
|
$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()); |
&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">'); |
&mapmenu($r,\%allmaps,$pschp,\%maptitles); |
&mapmenu($r,\%allmaps,$pschp,\%maptitles); |
$r->print('</td>'); |
#$r->print('</td>'); |
} |
} |
$r->print('</td></tr></table>'); |
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
|
$r->print('</div></div>'); |
$r->print('<table id="LC_parm_overview_controls"> |
#$r->print('</td></tr></table>'); |
<tr><td class="LC_parm_overview_parm_selectors">'); |
|
|
#$r->print('<table id="LC_parm_overview_controls"> |
|
# <tr><td class="LC_parm_overview_parm_selectors">'); |
|
$r->print('<div class="LC_ContentBoxSpecial">'); |
|
$r->print('<div class="LC_BoxPadding">' ); |
|
$r->print(&Apache::lonhtmlcommon::start_pick_box()); |
&parmmenu($r,\%allparms,\@pscat,\%keyorder); |
&parmmenu($r,\%allparms,\@pscat,\%keyorder); |
$r->print('</td><td class="LC_parm_overview_restrictions"> |
|
<table class="LC_parm_overview_restrictions">'. |
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View'))); |
|
#$r->print('</td><td class="LC_parm_overview_restrictions">'. |
|
$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>'); |
&partmenu($r,\%allparts,\@psprt); |
&partmenu($r,\%allparts,\@psprt); |
Line 3653 ENDOVER
|
Line 3637 ENDOVER
|
$r->print('</td><td>'); |
$r->print('</td><td>'); |
&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::end_pick_box()); |
|
$r->print('</div></div>'); |
|
|
|
$r->print('<div class="LC_ContentBoxSpecial">'); |
|
$r->print('<div class="LC_BoxPadding">' ); |
my $sortorder=$env{'form.sortorder'}; |
my $sortorder=$env{'form.sortorder'}; |
unless ($sortorder) { $sortorder='realmstudent'; } |
unless ($sortorder) { $sortorder='realmstudent'; } |
&sortmenu($r,$sortorder); |
&sortmenu($r,$sortorder); |
|
$r->print('</div></div>'); |
|
|
$r->print('<p><input type="submit" name="dis" value="'.&mt('Display').'" /></p>'); |
$r->print('<p><input type="submit" name="dis" value="'.&mt('Display').'" /></p>'); |
|
|
# Build the list data hash from the specified parms |
# Build the list data hash from the specified parms |
|
|
my $listdata; |
my $listdata; |