version 1.81, 2004/04/27 18:37:43
|
version 1.86, 2004/08/12 07:45:03
|
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 2090 sub render {
|
Line 2089 sub render {
|
for (i=0; i<document.forms.helpform.elements.length; i++) { |
for (i=0; i<document.forms.helpform.elements.length; i++) { |
comp = document.forms.helpform.elements.chksec.value; |
comp = document.forms.helpform.elements.chksec.value; |
if (document.forms.helpform.elements[i].value.indexOf(':'+comp+':') != -1) { |
if (document.forms.helpform.elements[i].value.indexOf(':'+comp+':') != -1) { |
document.forms.helpform.elements[i].checked=value; |
if (document.forms.helpform.elements[i].value.indexOf(':Active') != -1) { |
|
document.forms.helpform.elements[i].checked=value; |
|
} |
} |
} |
} |
} |
} |
} |
Line 2098 sub render {
|
Line 2099 sub render {
|
for (i=0; i<document.forms.helpform.elements.length; i++) { |
for (i=0; i<document.forms.helpform.elements.length; i++) { |
if (document.forms.helpform.elements[i].value.indexOf(':Active') != -1) { |
if (document.forms.helpform.elements[i].value.indexOf(':Active') != -1) { |
document.forms.helpform.elements[i].checked=true; |
document.forms.helpform.elements[i].checked=true; |
} |
} |
|
} |
|
} |
|
function uncheckexpired() { |
|
for (i=0; i<document.forms.helpform.elements.length; i++) { |
|
if (document.forms.helpform.elements[i].value.indexOf(':Expired') != -1) { |
|
document.forms.helpform.elements[i].checked=false; |
|
} |
} |
} |
} |
} |
</script> |
</script> |
Line 2106 SCRIPT
|
Line 2114 SCRIPT
|
|
|
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'ocs' => "Select Only Current Students", |
'ocs' => "Select Only Current Students", |
|
'ues' => "Unselect Expired Students", |
'sas' => "Select All Students", |
'sas' => "Select All Students", |
'uas' => "Unselect All Students", |
'uas' => "Unselect All Students", |
'sfsg' => "Select for Section/Group", |
'sfsg' => "Select Current Students for Section/Group", |
'ufsg' => "Unselect for Section/Group"); |
'ufsg' => "Unselect for Section/Group"); |
|
|
$buttons = <<BUTTONS; |
$buttons = <<BUTTONS; |
<br /> |
<br /> |
<input type="button" onclick="checkactive()" value="$lt{'ocs'}" /> |
<input type="button" onclick="checkactive()" value="$lt{'ocs'}" /> |
|
<input type="button" onclick="uncheckexpired()" value="$lt{'ues'}" /><br /> |
<input type="button" onclick="checkall(true, '$var')" value="$lt{'sas'}" /> |
<input type="button" onclick="checkall(true, '$var')" value="$lt{'sas'}" /> |
<input type="button" onclick="checkall(false, '$var')" value="$lt{'uas'}" /> |
<input type="button" onclick="checkall(false, '$var')" value="$lt{'uas'}" /><br /> |
<input type="button" onclick="checksec(true)" value="$lt{'sfsg'}"> |
<input type="button" onclick="checksec(true)" value="$lt{'sfsg'}"> |
<input type="text" size="5" name="chksec"> |
<input type="text" size="5" name="chksec"> |
<input type="button" onclick="checksec(false)" value="$lt{'ufsg'}"> |
<input type="button" onclick="checksec(false)" value="$lt{'ufsg'}"> |
Line 2178 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 2452 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; |
|
|
Line 2539 sub fileState {
|
Line 2548 sub fileState {
|
my $constructionSpaceDir = shift; |
my $constructionSpaceDir = shift; |
my $file = shift; |
my $file = shift; |
|
|
|
my ($uname,$udom)=($ENV{'user.name'},$ENV{'user.domain'}); |
|
if ($ENV{'request.role'}=~/^ca\./) { |
|
(undef,$udom,$uname)=split(/\//,$ENV{'request.role'}); |
|
} |
my $docroot = $Apache::lonnet::perlvar{'lonDocRoot'}; |
my $docroot = $Apache::lonnet::perlvar{'lonDocRoot'}; |
my $subdirpart = $constructionSpaceDir; |
my $subdirpart = $constructionSpaceDir; |
$subdirpart =~ s/^\/home\/$ENV{'user.name'}\/public_html//; |
$subdirpart =~ s/^\/home\/$uname\/public_html//; |
my $resdir = $docroot . '/res/' . $ENV{'user.domain'} . '/' . $ENV{'user.name'} . |
my $resdir = $docroot . '/res/' . $udom . '/' . $uname . |
$subdirpart; |
$subdirpart; |
|
|
my @constructionSpaceFileStat = stat($constructionSpaceDir . '/' . $file); |
my @constructionSpaceFileStat = stat($constructionSpaceDir . '/' . $file); |
Line 2790 be able to call methods on it.
|
Line 2803 be able to call methods on it.
|
|
|
=cut |
=cut |
|
|
|
use Apache::lonlocal; |
|
|
BEGIN { |
BEGIN { |
&Apache::lonhelper::register('Apache::lonhelper::general', |
&Apache::lonhelper::register('Apache::lonhelper::general', |
'exec', 'condition', 'clause', |
'exec', 'condition', 'clause', |