loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.21, 2000/07/24 21:22:35	version 1.22, 2000/07/25 15:39:41
Line 35	Line 35
# 04/05,05/29,05/31,06/01,	# 04/05,05/29,05/31,06/01,
# 06/05,06/26 Gerd Kortemeyer	# 06/05,06/26 Gerd Kortemeyer
# 06/26 Ben Tyszka	# 06/26 Ben Tyszka
# 06/30,07/15,07/17,07/18,07/20,07/21,07/22 Gerd Kortemeyer	# 06/30,07/15,07/17,07/18,07/20,07/21,07/22,07/25 Gerd Kortemeyer

package Apache::lonnet;	package Apache::lonnet;

Line 625 sub definerole {	Line 625 sub definerole {
# ------------------------------------------------------------------ Plain Text	# ------------------------------------------------------------------ Plain Text

sub plaintext {	sub plaintext {
return $prp{$_};	my $short=shift;
	return $prp{$short};
}	}

# ----------------------------------------------------------------- Assign Role	# ----------------------------------------------------------------- Assign Role
Line 807 if ($readit ne 'done') {	Line 808 if ($readit ne 'done') {
}	}
}	}


$readit='done';	$readit='done';
&logthis('<font color=yellow>INFO: Read configuration</font>');	&logthis('<font color=yellow>INFO: Read configuration</font>');
}	}
}	}
1;	1;