loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.16, 2000/10/28 19:23:21	version 1.17, 2000/12/08 15:52:43
Line 5	Line 5
# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer)	# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer)
# 11/23 Gerd Kortemeyer)	# 11/23 Gerd Kortemeyer)
# 1/14,03/06,06/01,07/22,07/24,07/25,	# 1/14,03/06,06/01,07/22,07/24,07/25,
# 09/04,09/06,09/28,09/29,09/30,10/2,10/5,10/26,10/28 Gerd Kortemeyer	# 09/04,09/06,09/28,09/29,09/30,10/2,10/5,10/26,10/28,12/08 Gerd Kortemeyer
#	#
package Apache::lonroles;	package Apache::lonroles;

Line 130 ENDHEADER	Line 130 ENDHEADER
} else {	} else {
$r->print("<h2>Enter a Course</h2>\n");	$r->print("<h2>Enter a Course</h2>\n");
}	}
	if ($ENV{'REDIRECT_QUERY_STRING'}) {
	$fn.='?'.$ENV{'REDIRECT_QUERY_STRING'};
	}
$r->print('<form method=post action="'.(($fn)?$fn:$r->uri).'">');	$r->print('<form method=post action="'.(($fn)?$fn:$r->uri).'">');
$r->print('<input type=hidden name=orgurl value="'.$fn.'">');	$r->print('<input type=hidden name=orgurl value="'.$fn.'">');
$r->print('<input type=hidden name=selectrole value=1>');	$r->print('<input type=hidden name=selectrole value=1>');