version 1.158, 2004/04/28 18:10:54
|
version 1.160, 2004/05/14 00:55:27
|
Line 439 sub print_row {
|
Line 439 sub print_row {
|
$parm=~s|\[.*\]\s||g; |
$parm=~s|\[.*\]\s||g; |
} |
} |
|
|
$r->print('<td bgcolor='.$defbgone.'>'.&mt($parm).'</td>'); |
$r->print('<td bgcolor='.$defbgone.'>'.$parm.'</td>'); |
|
|
my $thismarker=$which; |
my $thismarker=$which; |
$thismarker=~s/^parameter\_//; |
$thismarker=~s/^parameter\_//; |
Line 944 sub assessparms {
|
Line 944 sub assessparms {
|
|
|
my $submitmessage = &mt('Update Section or Specific User'); |
my $submitmessage = &mt('Update Section or Specific User'); |
if (!$pssymb) { |
if (!$pssymb) { |
$r->print('<tr><td>'.&mt('Select Parameter Level').'</td><td colspan="2">'); |
$r->print('<tr><td>'.&mt('Select Parameter Level'). |
|
&Apache::loncommon::help_open_topic('Course_Parameter_Levels'). |
|
'</td><td colspan="2">'); |
$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{$_}.'"'); |