[LON-CAPA-cvs] cvs: rat / lonpage.pm

[raeburn]

raeburn		Sat Mar  8 18:27:39 2014 EDT

  Modified files:              
    /rat	lonpage.pm 
  Log:
  - Suppress display of advice to use a "virus scanner" for a file included in
    a .pgae, if the file to download is a PDF.
  
  
Index: rat/lonpage.pm
diff -u rat/lonpage.pm:1.103 rat/lonpage.pm:1.104
--- rat/lonpage.pm:1.103	Tue Feb 11 15:56:47 2014
+++ rat/lonpage.pm	Sat Mar  8 18:27:39 2014
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Page Handler
 #
-# $Id: lonpage.pm,v 1.103 2014/02/11 15:56:47 bisitz Exp $
+# $Id: lonpage.pm,v 1.104 2014/03/08 18:27:39 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -537,9 +537,15 @@
                                   $r->print('>'.$metainfo.'<embed src="'.
                                     $hash{'src_'.$rid}.'"></embed>');
                               } elsif (&Apache::lonnet::declutter($hash{'src_'.$rid}) !~/\.(sequence|page)$/) {
-                                  $r->print($metainfo.'<b>'.$hash{'title_'.$rid}.'</b><br />'.
-                                  &mt('It is recommended that you use an up-to-date virus scanner before handling this file.').'</p><p><table>'.
-                                  &Apache::londocs::entryline(0,&mt("Click to download or use your browser's Save Link function"),'/'.&Apache::lonnet::declutter($hash{'src_'.$rid})).'</table></p><br />');
+                                  $r->print($metainfo.'<b>'.$hash{'title_'.$rid}.'</b><br />');
+                                  unless ($cellemb{$rid} eq 'wrp') {
+                                      $r->print(&mt('It is recommended that you use an up-to-date virus scanner before handling this file.'));
+                                  }
+                                  $r->print('</p><p><table>'.
+                                            &Apache::londocs::entryline(0,
+                                                                        &mt("Click to download or use your browser's Save Link function"),
+                                                                        '/'.&Apache::lonnet::declutter($hash{'src_'.$rid})).
+                                                                        '</table></p><br />');
                               }
 			      unless (($target eq 'tex') || ($target eq 'tex_answer')) {
 				  $r->print('</td>');