[LON-CAPA-cvs] cvs: loncom /homework lonhomework.pm

[raeburn]

raeburn		Tue Feb 25 19:31:49 2014 EDT

  Modified files:              
    /loncom/homework	lonhomework.pm 
  Log:
  - Modification to rev. 1.341.
    - Style: grep(), standard indent.
    - Tighten up regexp.
  
  
Index: loncom/homework/lonhomework.pm
diff -u loncom/homework/lonhomework.pm:1.343 loncom/homework/lonhomework.pm:1.344
--- loncom/homework/lonhomework.pm:1.343	Wed Jan 15 14:46:27 2014
+++ loncom/homework/lonhomework.pm	Tue Feb 25 19:31:48 2014
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Homework handler
 #
-# $Id: lonhomework.pm,v 1.343 2014/01/15 14:46:27 bisitz Exp $
+# $Id: lonhomework.pm,v 1.344 2014/02/25 19:31:48 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1176,12 +1176,12 @@
         # Provide example link
         my $filename=$file->[0];
         $filename=~s{^\Q$londocroot\E}{};
-         if (!(grep $filename =~ $_, @noexamplelink)) {
-           $result .= ' <span class="LC_fontsize_small">'
-                     .&Apache::loncommon::modal_link(
-                          $filename.'?inhibitmenu=yes',&mt('Example'),600,420,'sample')
-                     .'</span>';
-        };
+        if (!(grep($filename =~ /\Q$_\E$/, at noexamplelink))) {
+            $result .= ' <span class="LC_fontsize_small">'
+                      .&Apache::loncommon::modal_link(
+                           $filename.'?inhibitmenu=yes',&mt('Example'),600,420,'sample')
+                      .'</span>';
+        }
         $result .= '<br />'."\n";
         $count ++;
     }