[LON-CAPA-cvs] cvs: doc /loncapafiles updatequery.piml

albertel lon-capa-cvs@mail.lon-capa.org
Tue, 29 Jun 2004 15:18:41 -0000


albertel		Tue Jun 29 11:18:41 2004 EDT

  Modified files:              
    /doc/loncapafiles	updatequery.piml 
  Log:
  - hey how about we test before committing :-)
  
  
Index: doc/loncapafiles/updatequery.piml
diff -u doc/loncapafiles/updatequery.piml:1.32 doc/loncapafiles/updatequery.piml:1.33
--- doc/loncapafiles/updatequery.piml:1.32	Mon Jun 28 12:40:18 2004
+++ doc/loncapafiles/updatequery.piml	Tue Jun 29 11:18:41 2004
@@ -1,6 +1,6 @@
 <!-- updatequery.piml -->
 
-<!-- $Id: updatequery.piml,v 1.32 2004/06/28 16:40:18 raeburn Exp $ -->
+<!-- $Id: updatequery.piml,v 1.33 2004/06/29 15:18:41 albertel Exp $ -->
 
 <!--
 
@@ -383,7 +383,7 @@
   my $choice=&lt;&gt;;
   chomp($choice);
   $choice =~ s/\s//g;
-  if ( ($choice=~/\@/) || $choice eq '') ) {
+  if ( ($choice=~/\@/) || $choice eq '') {
     open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
     print(OUT 'lonSupportEMail'."\t".$choice."\n");
     close(OUT);
@@ -559,7 +559,7 @@
  2) Domain Description: $domainDescription
  3) Machine Name: $perlvar{'lonHostID'}
  4) System Administrator's E-mail Address: $perlvar{'lonAdmEMail'}
- 5) Support E-mail Address: $perlvar{'lonSupportEmail'}
+ 5) Support E-mail Address: $perlvar{'lonSupportEMail'}
  6) Role: $perlvar{'lonRole'}
  7) Cache Expiration Time: $perlvar{'lonExpire'}
  8) Server Load: $perlvar{'lonLoadLim'}