--- loncom/interface/loncommon.pm	2006/12/17 01:49:34	1.494
+++ loncom/interface/loncommon.pm	2006/12/28 02:50:20	1.498
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.494 2006/12/17 01:49:34 raeburn Exp $
+# $Id: loncommon.pm,v 1.498 2006/12/28 02:50:20 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -59,6 +59,7 @@ use Apache::lonnet;
 use GDBM_File;
 use POSIX qw(strftime mktime);
 use Apache::lonmenu();
+use Apache::lonenc();
 use Apache::lonlocal;
 use HTML::Entities;
 use Apache::lonhtmlcommon();
@@ -2690,7 +2691,9 @@ sub get_student_answers {
   }
   $moreenv{'grade_target'}='answer';
   %moreenv=(%form,%moreenv);
-  my $userview=&Apache::lonnet::ssi('/res/'.$feedurl,%moreenv);
+  $feedurl = &Apache::lonnet::clutter($feedurl);
+  &Apache::lonenc::check_encrypt(\$feedurl);
+  my $userview=&Apache::lonnet::ssi($feedurl,%moreenv);
   return $userview;
 }
 
@@ -3636,8 +3639,6 @@ sub standard_css {
     my $mail_replied_hover   = '#888855';
     my $mail_other           = '#99BBBB';
     my $mail_other_hover     = '#669999';
-    my $mail_even            = '#EEEEEE';
-    my $mail_odd             = '#FFFFFF';
     my $table_header         = '#DDDDDD';
     my $feedback_link_bg     = '#BBBBBB';
 
@@ -3928,10 +3929,8 @@ table.LC_mail_list tr.LC_mail_other:hove
   background-color: $mail_other_hover;
 }
 table.LC_mail_list tr.LC_mail_even {
-  background-color: $mail_even
 }
 table.LC_mail_list tr.LC_mail_odd {
-  background-color: $mail_odd
 }
 
 
@@ -6078,16 +6077,19 @@ Returns: both routines return nothing
 #######################################################
 #######################################################
 sub store_course_settings {
+    return &store_settings($env{'request.course.id'},@_);
+}
+
+sub store_settings {
     # save to the environment
     # appenv the same items, just to be safe
-    my $courseid = $env{'request.course.id'};
     my $udom  = $env{'user.domain'};
     my $uname = $env{'user.name'};
-    my ($prefix,$Settings) = @_;
+    my ($context,$prefix,$Settings) = @_;
     my %SaveHash;
     my %AppHash;
     while (my ($setting,$type) = each(%$Settings)) {
-        my $basename = join('.','internal',$courseid,$prefix,$setting);
+        my $basename = join('.','internal',$context,$prefix,$setting);
         my $envname = 'environment.'.$basename;
         if (exists($env{'form.'.$setting})) {
             # Save this value away
@@ -6127,11 +6129,14 @@ sub store_course_settings {
 }
 
 sub restore_course_settings {
-    my $courseid = $env{'request.course.id'};
-    my ($prefix,$Settings) = @_;
+    return &return_settings($env{'request.course.id'},@_);
+}
+
+sub restore_settings {
+    my ($context,$prefix,$Settings) = @_;
     while (my ($setting,$type) = each(%$Settings)) {
         next if (exists($env{'form.'.$setting}));
-        my $envname = 'environment.internal.'.$courseid.'.'.$prefix.
+        my $envname = 'environment.internal.'.$context.'.'.$prefix.
             '.'.$setting;
         if (exists($env{$envname})) {
             if ($type eq 'scalar') {