--- doc/loncapafiles/updatequery.piml	2010/07/21 00:32:44	1.65
+++ doc/loncapafiles/updatequery.piml	2010/12/31 17:58:57	1.66
@@ -1,6 +1,6 @@
 <!-- updatequery.piml -->
 
-<!-- $Id: updatequery.piml,v 1.65 2010/07/21 00:32:44 raeburn Exp $ -->
+<!-- $Id: updatequery.piml,v 1.66 2010/12/31 17:58:57 raeburn Exp $ -->
 
 <!--
 
@@ -694,8 +694,9 @@ my %perlvarstatic;
         foreach my $file (@hosts_files) {
             open(IN,'&lt;'.$file);
             while(my $line = &lt;IN&gt;) {
-                if ($line =~ /^\Q$perlvar{'lonHostID'}\E:\Q$perlvar{'lonDefDomain'}\E\:(?:access|library)\:(https?)/) {
+                if ($line =~ /^\Q$perlvar{'lonHostID'}\E:\Q$perlvar{'lonDefDomain'}\E\:(?:access|library)\:[^:]+\:(https?)/) {
                     $protocol = $1;
+                    chomp($protocol);
                     last;
                 }
             }
@@ -710,8 +711,9 @@ my %perlvarstatic;
         foreach my $file (@hosts_files) {
             open(IN,'&lt;'.$file);
             while(my $line = &lt;IN&gt;) {
-                if ($line =~ /^\Q$perlvar{'lonHostID'}\E:\Q$perlvar{'lonDefDomain'}\E\:(?:access|library)\:https?:([^:]+)/) {
+                if ($line =~ /^\Q$perlvar{'lonHostID'}\E:\Q$perlvar{'lonDefDomain'}\E\:(?:access|library)\:[^:]+\:https?\:([^:]+)/) {
                     $intdom = $1;
+                    chomp($intdom);
                     last;
                 }
             }