loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.38, 2001/08/13 16:12:59	version 1.39, 2001/08/17 16:27:08
Line 11	Line 11
# 04/16/2001 Scott Harrison	# 04/16/2001 Scott Harrison
# 05/03,05/05,05/07 Gerd Kortemeyer	# 05/03,05/05,05/07 Gerd Kortemeyer
# 05/28/2001 Scott Harrison	# 05/28/2001 Scott Harrison
# 06/23,08/07,08/11,8/13 Gerd Kortemeyer	# 06/23,08/07,08/11,8/13,8/17 Gerd Kortemeyer

package Apache::lonpublisher;	package Apache::lonpublisher;

Line 135 sub selectbox {	Line 135 sub selectbox {

sub urlfixup {	sub urlfixup {
my ($url,$target)=@_;	my ($url,$target)=@_;
	unless ($url) { return ''; }
my ($host)=($url=~/(?:http\:\/\/)*([^\/]+)/);	my ($host)=($url=~/(?:http\:\/\/)*([^\/]+)/);
map {	map {
if ($_ eq $host) {	if ($_ eq $host) {