loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.73, 2000/11/28 02:48:25	version 1.75, 2000/12/02 12:41:48
Line 79	Line 79
# 10/04 Guy Albertelli	# 10/04 Guy Albertelli
# 10/06,10/09,10/10,10/11,10/14,10/20,10/23,10/25,10/26,10/27,10/28,10/29,	# 10/06,10/09,10/10,10/11,10/14,10/20,10/23,10/25,10/26,10/27,10/28,10/29,
# 10/30,10/31,	# 10/30,10/31,
# 11/2,11/14,11/15,11/16,11/20,11/21,11/22,11/25,11/27 Gerd Kortemeyer	# 11/2,11/14,11/15,11/16,11/20,11/21,11/22,11/25,11/27,
	# 12/02 Gerd Kortemeyer

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

Line 631 sub restore {	Line 632 sub restore {
my ($name,$value)=split(/\=/,$_);	my ($name,$value)=split(/\=/,$_);
$returnhash{&unescape($name)}=&unescape($value);	$returnhash{&unescape($name)}=&unescape($value);
} split(/\&/,$answer);	} split(/\&/,$answer);
map {	my $version;
$returnhash{$_}=$returnhash{$returnhash{'version'}.':'.$_};	for ($version=1;$version<=$returnhash{'version'};$version++) {
} split(/\:/,$returnhash{$returnhash{'version'}.':keys'});	map {
	$returnhash{$_}=$returnhash{$version.':'.$_};
	} split(/\:/,$returnhash{$version.':keys'});
	}
return %returnhash;	return %returnhash;
}	}

Line 1149 sub fileembstyle {	Line 1153 sub fileembstyle {

# ------------------------------------------------------------ Description Text	# ------------------------------------------------------------ Description Text

sub filedecription {	sub filedescription {
my $ending=shift;	my $ending=shift;
return $fd{$ending};	return $fd{$ending};
}	}