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

[albertel]

albertel		Thu Nov 11 19:25:23 2004 EDT

  Modified files:              
    /rat	lonpage.pm 
  Log:
  - page anchos now encrypted
  
  
Index: rat/lonpage.pm
diff -u rat/lonpage.pm:1.61 rat/lonpage.pm:1.62
--- rat/lonpage.pm:1.61	Thu Nov 11 19:21:14 2004
+++ rat/lonpage.pm	Thu Nov 11 19:25:23 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Page Handler
 #
-# $Id: lonpage.pm,v 1.61 2004/11/12 00:21:14 albertel Exp $
+# $Id: lonpage.pm,v 1.62 2004/11/12 00:25:23 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -429,20 +429,18 @@
                           for ($j=0;$j<=$#colcont;$j++) {
                               my $rid=$colcont[$j];
                               my $metainfo = '';
-                              print STDERR "src is $hash{'src_'.$rid}\n";
+			      my $esrc=&Apache::lonnet::declutter($hash{'src_'.$rid});
+			      if ($hash{'encrypted_'.$rid}) {
+				  $esrc=&Apache::lonenc::encrypted($esrc);
+			      }
                               unless ($hash{'src_'.$rid} =~ m-^/uploaded/-) { 
-                                  $metainfo ='<a name="'.
-	&Apache::lonnet::escape(&Apache::lonnet::declutter($hash{'src_'.$rid})).'" />'.
+                                  $metainfo ='<a name="'.&Apache::lonnet::escape($esrc).'" />'.
                                   '<a href="'.$metalink{$rid}.'" target="LONcatInfo">'.
                                   '<img src="/adm/lonMisc/cat_button.gif" border=0>'.
                                   '</img></a>';
                               }
-			      my $esrc=$hash{'src_'.$rid};
-			      if ($hash{'encrypted_'.$rid}) {
-				  $esrc=&Apache::lonenc::encrypted($esrc);
-			      }
                               $metainfo .= '<a href="/adm/evaluate?postdata='.
-		    &Apache::lonnet::escape(&Apache::lonnet::declutter($esrc)).
+				  &Apache::lonnet::escape($esrc).
                                   '" target="LONcatInfo">'.
                                   '<img src="/adm/lonMisc/eval_button.gif" border=0>'.
                                   '</img></a>';