loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1473, 2021/11/30 15:55:40	version 1.1475, 2021/12/19 02:45:48
Line 4659 sub bubblesheet_converter {	Line 4659 sub bubblesheet_converter {
next if (($num == 1) && ($csvoptions{'hdr'} == 1));	next if (($num == 1) && ($csvoptions{'hdr'} == 1));
$line =~ s{[\r\n]+$}{};	$line =~ s{[\r\n]+$}{};
my %found;	my %found;
my @values = split(/,/,$line);	my @values = split(/,/,$line,-1);
my ($qstart,$record);	my ($qstart,$record);
for (my $i=0; $i<@values; $i++) {	for (my $i=0; $i<@values; $i++) {
if ((($qstart ne '') && ($i > $qstart)) \|\|	if ((($qstart ne '') && ($i > $qstart)) \|\|
Line 14656 sub use_proxy_alias {	Line 14656 sub use_proxy_alias {
return;	return;
}	}

sub alias_shibboleth {	sub alias_sso {
my ($lonid) = @_;	my ($lonid) = @_;
if ($lonid eq '') {	if ($lonid eq '') {
$lonid = $perlvar{'lonHostID'};	$lonid = $perlvar{'lonHostID'};