[LON-CAPA-cvs] cvs: loncom / CrGrant.pl /interface lonpreferences.pm

[schafran]

schafran		Tue Feb 17 21:18:08 2009 EDT

  Modified files:              
    /loncom/interface	lonpreferences.pm 
    /loncom	CrGrant.pl 
  Log:
  bugfix: button names. 
  "reset all colors to default" didn't work, escaping the dot was not necessary.
  
  
  
Index: loncom/interface/lonpreferences.pm
diff -u loncom/interface/lonpreferences.pm:1.137 loncom/interface/lonpreferences.pm:1.138
--- loncom/interface/lonpreferences.pm:1.137	Tue Feb 17 10:08:35 2009
+++ loncom/interface/lonpreferences.pm	Tue Feb 17 21:18:05 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Preferences
 #
-# $Id: lonpreferences.pm,v 1.137 2009/02/17 10:08:35 weissno Exp $
+# $Id: lonpreferences.pm,v 1.138 2009/02/17 21:18:05 schafran Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1116,6 +1116,9 @@
     }
     my $end_data_table = &Apache::loncommon::end_data_table();
     my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
+    my $save = &mt('Save');
+    my $rstall = &mt('Reset All');
+    my $resetdefault = &mt('Reset All Colors to Default');
     $r->print(<<ENDCOL);
 <script type="text/javascript">
 
@@ -1154,8 +1157,8 @@
 $chtable
 $end_data_table
 </table>
-<input type="submit" value="'.&mt('Save').'" />
-<input type="submit" name="resetall" value="'.&mt('Reset All').'" title="'.&mt('Reset All Colors to Default').'" />
+<input type="submit" value="$save" />
+<input type="submit" name="resetall" value="$rstall" title="$resetdefault" />
 </form>
 ENDCOL
 }
@@ -1183,7 +1186,7 @@
 	    $message.=&mt('Set '.$colortypes{$item}.' to ').'<tt>"'.$color.'"</tt>.<br />';
 	} else {
 	    &Apache::lonnet::del('environment',[$entry]);
-	    &Apache::lonnet::delenv('environment\.'.$entry);
+	    &Apache::lonnet::delenv('environment.'.$entry);
 	    $message.=&mt('Reset '.$colortypes{$item}.'.').'<br />';
 	}
     }
Index: loncom/CrGrant.pl
diff -u loncom/CrGrant.pl:1.5 loncom/CrGrant.pl:1.6
--- loncom/CrGrant.pl:1.5	Fri Jul  9 09:16:09 2004
+++ loncom/CrGrant.pl	Tue Feb 17 21:18:07 2009
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # CrGrant.pl  - Grant a loncapa SSL certificate.
 #
-# $Id: CrGrant.pl,v 1.5 2004/07/09 09:16:09 foxr Exp $
+# $Id: CrGrant.pl,v 1.6 2009/02/17 21:18:07 schafran Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -440,18 +440,18 @@
 	die "Unable to create top level MIME Message";
     }
 
-     $mime_message->attach(Data =>["  This email contains your lonCAPA SSL certificates.  These\n",
+     $mime_message->attach(Data =>["  This e-mail contains your lonCAPA SSL certificates.  These\n",
      "certificates allow your system to interact with the world wide\n",
      "cluster of LonCAPA systems, and allow you to access and share\n",
      "public resources for courses you host.\n\n",
      "   The certificates are shipped as a self installing shell script\n",
      "To install these certificates:\n\n",
-     "1. Extract the attachment to this email message\n",
+     "1. Extract the attachment to this e-mail message\n",
      "2. Save the attachment where it can be recovered in case you need\n",
      "   to re-install these certificates later on for some reason\n",
      "3. As root execute the certificate request file:
            . $installer_file\n",
-     "   (Note: If you used a Windows based email program to extract the\n",
+     "   (Note: If you used a Windows based e-mail program to extract the\n",
      "   this file and then tranferred it to your unix lonCAPA system you \n",
      "   Will probably need to convert the file first e.g.: \n",
      "     dos2unix $installer_file\n",