version 1.341, 2014/01/10 17:03:30
|
version 1.345, 2014/08/07 19:53:19
|
Line 451 sub check_access {
|
Line 451 sub check_access {
|
$datemsg=$date; |
$datemsg=$date; |
} elsif ($type eq 'opendate') { |
} elsif ($type eq 'opendate') { |
$status='CLOSED'; |
$status='CLOSED'; |
$datemsg = &mt("will open on")." $date"; |
$datemsg = &mt('will open on [_1]',$date); |
} elsif ($type eq 'duedate') { |
} elsif ($type eq 'duedate') { |
$status='CAN_ANSWER'; |
$status='CAN_ANSWER'; |
$datemsg = &mt("is due at")." $date"; |
$datemsg = &mt('is due at [_1]',$date); |
} elsif ($type eq 'answerdate') { |
} elsif ($type eq 'answerdate') { |
$status='CLOSED'; |
$status='CLOSED'; |
$datemsg = &mt("was due on")." $lastdate".&mt(", and answers will be available on")." $date"; |
$datemsg = &mt('was due on [_1], and answers will be available on [_2]', |
|
$lastdate,$date); |
} |
} |
} |
} |
if ($status eq 'CAN_ANSWER' || |
if ($status eq 'CAN_ANSWER' || |
Line 540 sub due_date {
|
Line 541 sub due_date {
|
} else { |
} else { |
$date = $due_date; |
$date = $due_date; |
} |
} |
return $date |
return $date; |
} |
} |
|
|
sub seconds_to_human_length { |
sub seconds_to_human_length { |
Line 1130 sub get_template_list {
|
Line 1131 sub get_template_list {
|
'/templates/*.'.$glob_extension); |
'/templates/*.'.$glob_extension); |
@files = map {[$_,&mt(&Apache::lonnet::metadata($_, 'title')), |
@files = map {[$_,&mt(&Apache::lonnet::metadata($_, 'title')), |
(&Apache::lonnet::metadata($_, 'category')?&mt(&Apache::lonnet::metadata($_, 'category')):&mt('Miscellaneous')), |
(&Apache::lonnet::metadata($_, 'category')?&mt(&Apache::lonnet::metadata($_, 'category')):&mt('Miscellaneous')), |
&mt(&Apache::lonnet::metadata($_, 'help'))]} (@files); |
&Apache::lonnet::metadata($_, 'help')]} (@files); |
@files = sort {$a->[2].$a->[1] cmp $b->[2].$b->[1]} (@files); |
@files = sort {$a->[2].$a->[1] cmp $b->[2].$b->[1]} (@files); |
my ($midpoint,$seconddiv,$numfiles); |
my ($midpoint,$seconddiv,$numfiles); |
my @noexamplelink = ('blank.problem','blank.library','script.library'); |
my @noexamplelink = ('blank.problem','blank.library','script.library'); |
Line 1175 sub get_template_list {
|
Line 1176 sub get_template_list {
|
# Provide example link |
# Provide example link |
my $filename=$file->[0]; |
my $filename=$file->[0]; |
$filename=~s{^\Q$londocroot\E}{}; |
$filename=~s{^\Q$londocroot\E}{}; |
if (!(grep $filename =~ $_, @noexamplelink)) { |
if (!(grep($filename =~ /\Q$_\E$/,@noexamplelink))) { |
$result .= ' <span class="LC_fontsize_small">' |
$result .= ' <span class="LC_fontsize_small">' |
.&Apache::loncommon::modal_link( |
.&Apache::loncommon::modal_link( |
$filename.'?inhibitmenu=yes',&mt('Example'),600,420,'sample') |
$filename.'?inhibitmenu=yes',&mt('Example'),600,420,'sample') |
.'</span>'; |
.'</span>'; |
}; |
} |
$result .= '<br />'."\n"; |
$result .= '<br />'."\n"; |
$count ++; |
$count ++; |
} |
} |