version 1.83, 2004/06/02 17:30:02
|
version 1.85, 2004/08/12 05:44:36
|
Line 1271 BUTTONS
|
Line 1271 BUTTONS
|
$choiceLabel = eval($choiceLabel); |
$choiceLabel = eval($choiceLabel); |
$choiceLabel = &$choiceLabel($helper, $self); |
$choiceLabel = &$choiceLabel($helper, $self); |
} |
} |
&Apache::lonnet::logthis("TITLE TRANSLATION >$choiceLabel<"); |
|
$result .= "/></td><td> " . &mtn($choiceLabel) . "</td></tr>\n"; |
$result .= "/></td><td> " . &mtn($choiceLabel) . "</td></tr>\n"; |
} |
} |
$result .= "</table>\n\n\n"; |
$result .= "</table>\n\n\n"; |
Line 2189 BUTTONS
|
Line 2188 BUTTONS
|
} |
} |
|
|
my $name = $self->{'coursepersonnel'} ? &mt('Name') : &mt('Student Name'); |
my $name = $self->{'coursepersonnel'} ? &mt('Name') : &mt('Student Name'); |
&Apache::lonnet::logthis("THE NAME IS >$name<"); |
|
my $type = 'radio'; |
my $type = 'radio'; |
if ($self->{'multichoice'}) { $type = 'checkbox'; } |
if ($self->{'multichoice'}) { $type = 'checkbox'; } |
$result .= "<table cellspacing='2' cellpadding='2' border='0'>\n"; |
$result .= "<table cellspacing='2' cellpadding='2' border='0'>\n"; |
Line 2463 BUTTONS
|
Line 2461 BUTTONS
|
} |
} |
|
|
# Sort the fileList into order |
# Sort the fileList into order |
@fileList = sort @fileList; |
@fileList = sort {lc($a) cmp lc($b)} @fileList; |
|
|
$result .= $buttons; |
$result .= $buttons; |
|
|