version 1.340, 2013/08/21 16:07:49
|
version 1.344.2.1, 2015/03/12 01:26:55
|
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 468 sub check_access {
|
Line 469 sub check_access {
|
if ( $tries eq '' ) { $tries = '0'; } |
if ( $tries eq '' ) { $tries = '0'; } |
if ( $maxtries eq '' && |
if ( $maxtries eq '' && |
$env{'request.state'} ne 'construct') { $maxtries = '2'; } |
$env{'request.state'} ne 'construct') { $maxtries = '2'; } |
$Apache::lonhomework::results{'resource.'.$id.'.maxtries'}=$maxtries; |
|
if ($maxtries && $tries >= $maxtries) { $status = 'CANNOT_ANSWER'; } |
if ($maxtries && $tries >= $maxtries) { $status = 'CANNOT_ANSWER'; } |
# if (correct and show prob status) or excused then CANNOT_ANSWER |
# if (correct and show prob status) or excused then CANNOT_ANSWER |
if ( ($Apache::lonhomework::history{"resource.$id.solved"}=~/^correct/) |
if ( ($Apache::lonhomework::history{"resource.$id.solved"}=~/^correct/) |
Line 540 sub due_date {
|
Line 540 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 589 sub showarray {
|
Line 589 sub showarray {
|
sub showhashsubset { |
sub showhashsubset { |
my ($hash,$keyre) = @_; |
my ($hash,$keyre) = @_; |
my $resultkey; |
my $resultkey; |
foreach $resultkey (sort keys %$hash) { |
foreach $resultkey (sort(keys(%$hash))) { |
if ($resultkey !~ /$keyre/) { next; } |
if ($resultkey !~ /$keyre/) { next; } |
if (ref($$hash{$resultkey}) eq 'ARRAY' ) { |
if (ref($$hash{$resultkey}) eq 'ARRAY' ) { |
&Apache::lonxml::debug("$resultkey ---- ". |
&Apache::lonxml::debug("$resultkey ---- ". |
Line 1130 sub get_template_list {
|
Line 1130 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'); |
$numfiles = 0; |
$numfiles = 0; |
foreach my $file (@files) { |
foreach my $file (@files) { |
next if ($file->[1] !~ /\S/); |
next if ($file->[1] !~ /\S/); |
Line 1171 sub get_template_list {
|
Line 1172 sub get_template_list {
|
if ($file->[3]) { |
if ($file->[3]) { |
$result.=&Apache::loncommon::help_open_topic($file->[3]); |
$result.=&Apache::loncommon::help_open_topic($file->[3]); |
} |
} |
|
# Provide example link |
my $filename=$file->[0]; |
my $filename=$file->[0]; |
$filename=~s{^\Q$londocroot\E}{}; |
$filename=~s{^\Q$londocroot\E}{}; |
$result.=' <span class="LC_fontsize_small">' |
if (!(grep($filename =~ /\Q$_\E$/,@noexamplelink))) { |
.&Apache::loncommon::modal_link($filename.'?inhibitmenu=yes',&mt('Example'),600,420,'sample') |
$result .= ' <span class="LC_fontsize_small">' |
.'</span><br />'."\n"; |
.&Apache::loncommon::modal_link( |
|
$filename.'?inhibitmenu=yes',&mt('Example'),600,420,'sample') |
|
.'</span>'; |
|
} |
|
$result .= '<br />'."\n"; |
$count ++; |
$count ++; |
} |
} |
if ($numfiles > 0) { |
if ($numfiles > 0) { |