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

Diff for /loncom/homework/lonhomework.pm between versions 1.342 and 1.344

version 1.342, 2014/01/10 17:51:10 version 1.344, 2014/02/25 19:31:48
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 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 ++;
     }      }
Removed from v.1.342  
changed lines
  Added in v.1.344

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