Diff for /loncom/homework/lonhomework.pm between versions 1.338 and 1.343

version 1.338, 2013/06/04 22:20:24 version 1.343, 2014/01/15 14:46:27
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 1065  sub renderpage { Line 1066  sub renderpage {
     $problem='';      $problem='';
     my $filename=(split('/',$file))[-1];      my $filename=(split('/',$file))[-1];
     my $error =      my $error =
  '<p class="LC_error">'                  &mt('Unable to find [_1]',
                .&mt('Unable to find [_1]',     '<span class="LC_filename">'.$filename.'</span>');
    '<span class="LC_filename">'.$filename.'</span>')  
  ."</p>";  
     $result.=      $result.=
  &Apache::loncommon::simple_error_page($request,'Not available',   &Apache::loncommon::simple_error_page($request,'Not available',
       $error);        $error,{'no_auto_mt_msg' => 1});
     return;      return;
  }   }
   
Line 1132  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');
     $numfiles = 0;      $numfiles = 0;
     foreach my $file (@files) {      foreach my $file (@files) {
         next if ($file->[1] !~ /\S/);          next if ($file->[1] !~ /\S/);
Line 1173  sub get_template_list { Line 1173  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 =~ $_, @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) {

Removed from v.1.338  
changed lines
  Added in v.1.343


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>