--- loncom/auth/lonauth.pm	2022/09/17 23:38:50	1.178
+++ loncom/auth/lonauth.pm	2023/06/02 01:20:26	1.179
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 #
-# $Id: lonauth.pm,v 1.178 2022/09/17 23:38:50 raeburn Exp $
+# $Id: lonauth.pm,v 1.179 2023/06/02 01:20:26 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -192,7 +192,7 @@ sub success {
         my %info;
         if ($env{'request.linkprot'}) {
             $info{'linkprot'} = $env{'request.linkprot'};
-            foreach my $item ('linkprotuser','linkprotexit') {
+            foreach my $item ('linkprotuser','linkprotexit','linkprotpbid','linkprotpburl') {
                 if ($form->{$item}) {
                     $info{$item} = $form->{$item};
                 }
@@ -377,7 +377,7 @@ sub failed {
             my %info = (
                          'linkprot' => $form->{'linkprot'},
                        );
-            foreach my $item ('linkprotuser','linkprotexit') {
+            foreach my $item ('linkprotuser','linkprotexit','linkprotpbid','linkprotpburl') {
                 if ($form->{$item} ne '') {
                     $info{$item} = $form->{$item};
                 }
@@ -823,7 +823,7 @@ sub handler {
             }
             if ($form{'linkprot'}) {
                 $env{'request.linkprot'} = $form{'linkprot'};
-                foreach my $item ('linkprotuser','linkprotexit') {
+                foreach my $item ('linkprotuser','linkprotexit','linkprotpbid','linkprotpburl') {
                     if ($form{$item}) {
                         $env{'request.'.$item} = $form{$item};
                     }
@@ -864,7 +864,7 @@ sub handler {
                 }
                 if ($form{'linkprot'}) {
                     $env{'request.linkprot'} = $form{'linkprot'};
-                    foreach my $item ('linkprotuser','linkprotexit') {
+                    foreach my $item ('linkprotuser','linkprotexit','linkprotpbid','linkprotpburl') {
                         if ($form{$item}) {
                             $env{'request.'.$item} = $form{$item};
                         }
@@ -973,6 +973,12 @@ sub handler {
                 if ($form{'linkprotexit'}) {
                     $extra_env->{'request.linkprotexit'} = $form{'linkprotexit'};
                 }
+                if ($form{'linkprotpbid'}) {
+                    $extra_env->{'request.linkprotpbid'} = $form{'linkprotpbid'};
+                }
+                if ($form{'linkprotpburl'}) {
+                    $extra_env->{'request.linkprotpburl'} = $form{'linkprotpburl'};
+                }
             } elsif ($form{'linkkey'} ne '') {
                 if (ref($extra_env) eq 'HASH') {
                     %{$extra_env} = ( %{$extra_env}, 'request.linkkey' => $form{'linkkey'} );
@@ -1061,7 +1067,7 @@ sub set_retry_token {
     my ($form,$lonhost,$querystr) = @_;
     if (ref($form) eq 'HASH') {
         my ($firsturl,$token,$extras,@names);
-        @names = ('role','symb','linkprotuser','linkprotexit','linkprot','linkkey','iptoken');
+        @names = ('role','symb','linkprotuser','linkprotexit','linkprot','linkkey','iptoken','linkprotpbid','linkprotpburl');
         foreach my $name (@names) {
             if ($form->{$name} ne '') {
                 $extras .= '&'.$name.'='.&escape($form->{$name});