version 1.66, 2002/09/07 17:30:31
|
version 1.69, 2002/09/07 18:48:26
|
Line 806 sub assessparms {
|
Line 806 sub assessparms {
|
} |
} |
# ---------------------------------------------------------------- Done storing |
# ---------------------------------------------------------------- Done storing |
} |
} |
|
# --------------------------------------------- Devalidate cache for this child |
|
&Apache::lonnet::devalidatecourseresdata( |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}, |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}); |
# -------------------------------------------------------------- Get coursedata |
# -------------------------------------------------------------- Get coursedata |
%courseopt = &Apache::lonnet::dump |
%courseopt = &Apache::lonnet::dump |
('resourcedata', |
('resourcedata', |
Line 1425 sub crsenv {
|
Line 1429 sub crsenv {
|
} |
} |
foreach (sort keys %descriptions) { |
foreach (sort keys %descriptions) { |
# onchange is javascript to automatically check the 'Set' button. |
# onchange is javascript to automatically check the 'Set' button. |
my $onchange = 'onchange="javascript:window.document.forms'. |
my $onchange = 'onFocus="javascript:window.document.forms'. |
'[\'envform\'].elements[\''.$_.'_setparmval\']'. |
'[\'envform\'].elements[\''.$_.'_setparmval\']'. |
'.checked=true;"'; |
'.checked=true;"'; |
$output.='<tr><td>'.$descriptions{$_}.'</td>'. |
$output.='<tr><td>'.$descriptions{$_}.'</td>'. |
Line 1434 sub crsenv {
|
Line 1438 sub crsenv {
|
'<td><input type=checkbox name="'.$_.'_setparmval"></td>'. |
'<td><input type=checkbox name="'.$_.'_setparmval"></td>'. |
'</tr>'."\n"; |
'</tr>'."\n"; |
} |
} |
my $onchange = 'onchange="javascript:window.document.forms'. |
my $onchange = 'onFocus="javascript:window.document.forms'. |
'[\'envform\'].elements[\'newp_setparmval\']'. |
'[\'envform\'].elements[\'newp_setparmval\']'. |
'.checked=true;"'; |
'.checked=true;"'; |
$output.='<tr><td><i>Create New Environment Variable</i><br />'. |
$output.='<tr><td><i>Create New Environment Variable</i><br />'. |