version 1.453, 2009/06/03 17:17:03
|
version 1.454, 2009/06/04 16:56:27
|
Line 854 sub page_js {
|
Line 854 sub page_js {
|
|
|
return(<<ENDJS); |
return(<<ENDJS); |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
function pclose() { |
function pclose() { |
parmwin=window.open("/adm/rat/empty.html","LONCAPAparms", |
parmwin=window.open("/adm/rat/empty.html","LONCAPAparms", |
"height=350,width=350,scrollbars=no,menubar=no"); |
"height=350,width=350,scrollbars=no,menubar=no"); |
Line 893 sub page_js {
|
Line 893 sub page_js {
|
var newWin = window.open(url, wdwName, options); |
var newWin = window.open(url, wdwName, options); |
newWin.focus(); |
newWin.focus(); |
} |
} |
|
// ]]> |
</script> |
</script> |
$selscript |
$selscript |
ENDJS |
ENDJS |
Line 1248 sub parmmenu {
|
Line 1249 sub parmmenu {
|
my $tempkey; |
my $tempkey; |
$r->print(<<ENDSCRIPT); |
$r->print(<<ENDSCRIPT); |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
function checkall(value, checkName) { |
function checkall(value, checkName) { |
|
|
var li = "_li"; |
var li = "_li"; |
Line 1334 sub parmmenu {
|
Line 1336 sub parmmenu {
|
document.getElementById(id_li).style.display = "none"; |
document.getElementById(id_li).style.display = "none"; |
} |
} |
} |
} |
|
// ]]> |
</script> |
</script> |
ENDSCRIPT |
ENDSCRIPT |
$r->print(); |
|
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parameters to View'))); |
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parameters to View'))); |
|
|
#part to print selected parms overview |
#part to print selected parms overview |
$r->print('<table id="LC_parm_overview_parm_overview">' |
$r->print(&mt('Selected Parameters:').'<br />'); |
.'<tr>' |
|
.'<td style="vertical-align:top; width:250px"><p>'.&mt('Selected Parameters').': '); |
#print out all possible parms and hide them by default |
|
$r->print('<ul>'); |
#print out all possible parms and hide it |
|
$r->print('<td>'); |
|
$r->print('<ol style="list-style-type:disc">'); |
|
foreach $tempkey (&keysindisplayorder($allparms,$keyorder)) { |
foreach $tempkey (&keysindisplayorder($allparms,$keyorder)) { |
$r->print('<li id="'.$tempkey.'_li" value="'.$tempkey.'_li" name="pscat_li"'); |
$r->print('<li id="'.$tempkey.'_li" value="'.$tempkey.'_li" name="pscat_li"'); |
if (!($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat})) { |
if (!($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat})) { |
$r->print('style="display:none"'); |
$r->print(' style="display:none"'); |
} |
} |
|
$r->print('>' |
$r->print('>'.($$allparms{$tempkey}=~/\s/ ? $$allparms{$tempkey} : $tempkey).'</li>'); |
.($$allparms{$tempkey}=~/\s/ ? $$allparms{$tempkey} : $tempkey) |
} |
.'</li>' |
$r->print('<a href="javascript:showParms()">('.&mt('add more parameter').')' |
); |
.'</a></p></td>'); |
} |
$r->print('</td>'); |
$r->print('</ul>' |
$r->print('</tr>' |
.'<p><a href="javascript:showParms()">' |
.'</table>'); |
.&mt('Show detailed Parameter Selection') |
|
.'</a></p>' |
|
); |
|
|
&shortCuts($r,$allparms,$pscat,$keyorder); |
&shortCuts($r,$allparms,$pscat,$keyorder); |
|
|
$r->print('</table>'); |
$r->print(&Apache::lonhtmlcommon::row_closure(1)); |
} |
} |
|
|
sub parmboxes { |
sub parmboxes { |
Line 1372 sub parmboxes {
|
Line 1372 sub parmboxes {
|
my $tempkey; |
my $tempkey; |
|
|
#part to print the parm-list |
#part to print the parm-list |
$r->print('<table><tr><td><fieldset id="LC_parm_overview_parm_menu" style="display:none"><legend><b>'.&mt('Parameter').'</legend>'); |
$r->print('<fieldset id="LC_parm_overview_parm_menu" style="display:none">' |
$r->print("\n".'<table>'); |
.'<legend>'.&mt('Parameter').'</legend>' |
|
."\n" |
|
.'<table>' |
|
); |
my $cnt=0; |
my $cnt=0; |
|
|
$r->print('<tr>'); |
$r->print('<tr>'); |
Line 1395 sub parmboxes {
|
Line 1398 sub parmboxes {
|
} |
} |
$r->print('</tr>' |
$r->print('</tr>' |
.'</table>' |
.'</table>' |
.'<a href="javascript:hideParms()" style="font-weight:normal">('.&mt('hide more parameter').')'); |
.'<hr />' |
|
.'<a href="javascript:hideParms()">' |
|
.&mt('Hide') |
|
.'</a>' |
|
); |
|
|
#&shortCuts($r,$allparms,$pscat,$keyorder); |
#&shortCuts($r,$allparms,$pscat,$keyorder); |
$r->print('</fieldset></td></tr></table>'); |
$r->print('</fieldset>'); |
} |
} |
sub shortCuts { |
sub shortCuts { |
my ($r,$allparms,$pscat,$keyorder)=@_; |
my ($r,$allparms,$pscat,$keyorder)=@_; |
Line 1500 sub usermenu {
|
Line 1507 sub usermenu {
|
$sections .= ' '.&mt('or').' '; |
$sections .= ' '.&mt('or').' '; |
$sections .= qq| |
$sections .= qq| |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
function group_or_section(caller) { |
function group_or_section(caller) { |
if (caller == "cgroup") { |
if (caller == "cgroup") { |
if (document.parmform.cgroup.selectedIndex != 0) { |
if (document.parmform.cgroup.selectedIndex != 0) { |
Line 1511 function group_or_section(caller) {
|
Line 1519 function group_or_section(caller) {
|
} |
} |
} |
} |
} |
} |
|
// ]]> |
</script> |
</script> |
|; |
|; |
} else { |
} else { |
$sections .= qq| |
$sections .= qq| |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
function group_or_section(caller) { |
function group_or_section(caller) { |
return; |
return; |
} |
} |
|
// ]]> |
</script> |
</script> |
|; |
|; |
} |
} |
Line 1565 sub displaymenu {
|
Line 1576 sub displaymenu {
|
$r->print(&Apache::lonhtmlcommon::topic_bar (2,&mt('Select Parameters'))); |
$r->print(&Apache::lonhtmlcommon::topic_bar (2,&mt('Select Parameters'))); |
$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::end_pick_box()); |
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
&parmboxes($r,$allparms,$pscat,$keyorder); |
&parmboxes($r,$allparms,$pscat,$keyorder); |
$r->print(&Apache::lonhtmlcommon::start_pick_box()); |
$r->print(&Apache::lonhtmlcommon::start_pick_box()); |
Line 2887 ENDOVER
|
Line 2897 ENDOVER
|
$r->print('<div>'); |
$r->print('<div>'); |
$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::end_pick_box()); |
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
&parmboxes($r,\%allparms,\@pscat,\%keyorder); |
&parmboxes($r,\%allparms,\@pscat,\%keyorder); |
$r->print(&Apache::lonhtmlcommon::start_pick_box()); |
$r->print(&Apache::lonhtmlcommon::start_pick_box()); |