[BACK]Return to lonhomework.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

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

version 1.338, 2013/06/04 22:20:24 version 1.341, 2014/01/10 17:03:30
Line 1065  sub renderpage { Line 1065  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 1135  sub get_template_list { Line 1133  sub get_template_list {
                       &mt(&Apache::lonnet::metadata($_, 'help'))]} (@files);                        &mt(&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 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 =~ $_, @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.341

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