[LON-CAPA-cvs] cvs: loncom /auth lonauth.pm

[raeburn]

raeburn		Sun Jan  5 11:04:27 2014 EDT

  Modified files:              
    /loncom/auth	lonauth.pm 
  Log:
  - Remove superfluous ampersands.
  - Remove som trailing whitespace.
  
  
Index: loncom/auth/lonauth.pm
diff -u loncom/auth/lonauth.pm:1.129 loncom/auth/lonauth.pm:1.130
--- loncom/auth/lonauth.pm:1.129	Fri Dec 20 14:54:34 2013
+++ loncom/auth/lonauth.pm	Sun Jan  5 11:04:27 2014
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 #
-# $Id: lonauth.pm,v 1.129 2013/12/20 14:54:34 raeburn Exp $
+# $Id: lonauth.pm,v 1.130 2014/01/05 11:04:27 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -108,11 +108,11 @@
             }
             $desturl = &HTML::Entities::encode($desturl,'"<>&');
             $destsymb = &HTML::Entities::encode($destsymb,'"<>&');
-            $destination .= '&destinationurl='.$desturl.
+            $destination .= 'destinationurl='.$desturl.
                             '&destsymb='.$destsymb;
         } else {
             $destsymb = &HTML::Entities::encode($destsymb,'"<>&');
-            $destination .= '&destinationurl='.$destsymb;
+            $destination .= 'destinationurl='.$destsymb;
         }
     }
     if ($destination =~ m{^/adm/roles}) {
@@ -173,7 +173,7 @@
     my $udom = &Apache::loncommon::cleanup_html($form->{'udom'});
     if (&Apache::lonnet::domain($udom,'description') eq '') {
         undef($udom);
-    }  
+    }
     my $retry = '/adm/login';
     if ($uname eq $form->{'uname'}) {
         $retry .= '?username='.$uname;
@@ -183,7 +183,7 @@
     }
     if (exists($form->{role})) {
         my $role = &Apache::loncommon::cleanup_html($form->{role});
-        if ($role ne '') { 
+        if ($role ne '') {
             $retry .= (($retry=~/\?/)?'&':'?').'role='.$role;
         }
     }