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

[albertel]

albertel		Mon Jun 25 19:10:26 2007 EDT

  Modified files:              
    /rat	lonpage.pm 
  Log:
  - switch to using the correct lonnet routines for building a symb
  - enc the symb if needed for grading/parm
  
  
Index: rat/lonpage.pm
diff -u rat/lonpage.pm:1.81 rat/lonpage.pm:1.82
--- rat/lonpage.pm:1.81	Fri Jun 22 18:30:45 2007
+++ rat/lonpage.pm	Mon Jun 25 19:10:26 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Page Handler
 #
-# $Id: lonpage.pm,v 1.81 2007/06/22 22:30:45 albertel Exp $
+# $Id: lonpage.pm,v 1.82 2007/06/25 23:10:26 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -451,11 +451,11 @@
  (&Apache::lonnet::allowed('mgr',$env{'request.course.id'})) && 
  ($hash{'src_'.$rid} !~ m-^/uploaded/-)) {
 				  my ($mapid,$resid)=split(/\./,$rid);
-                                 my $symb=
-                &Apache::lonnet::declutter($hash{'map_id_'.$mapid}).
-                '___'.$resid.'___'.
-		&Apache::lonnet::declutter($hash{'src_'.$rid});
-                                 $metainfo.=
+				  my $symb= &Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},$resid,$hash{'src_'.$rid});
+				  if ($hash{'encrypted_'.$resid}) { 
+				      $symb = &Apache::lonenc::encrypt($symb);
+				  }
+				  $metainfo.=
                   '<a href="/adm/grades?symb='.&escape($symb).
 #                 '&command=submission" target="LONcatInfo">'.
                   '&command=submission">'.