loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1004, 2009/07/17 13:55:10	version 1.1005, 2009/07/20 23:33:11
Line 5703 sub auto_instcode_defaults {	Line 5703 sub auto_instcode_defaults {
}	}

sub auto_possible_instcodes {	sub auto_possible_instcodes {
my ($domain,$codetitles,$cat_titles,$cat_order) = @_;	my ($domain,$codetitles,$cat_titles,$cat_orders) = @_;
my (@homeservers,$uhome);	my (@homeservers,$uhome);
if (defined(&domain($domain,'primary'))) {	if (defined(&domain($domain,'primary'))) {
$uhome=&domain($domain,'primary');	$uhome=&domain($domain,'primary');
Line 5723 sub auto_possible_instcodes {	Line 5723 sub auto_possible_instcodes {
my ($codetitlestr,$cat_title,$cat_order) = split(':',$response);	my ($codetitlestr,$cat_title,$cat_order) = split(':',$response);
@{$codetitles} = map { &unescape($_); } (split('&',$codetitlestr));	@{$codetitles} = map { &unescape($_); } (split('&',$codetitlestr));
foreach my $item (split('&',$cat_title)) {	foreach my $item (split('&',$cat_title)) {
my ($name,$value)=split('&',$item);	my ($name,$value)=split('=',$item);
$cat_titles->{&unescape($name)}=&unescape($value);	$cat_titles->{&unescape($name)}=&thaw_unescape($value);
}	}
foreach my $item (split('&',$cat_order)) {	foreach my $item (split('&',$cat_order)) {
my ($name,$value)=split('&',$item);	my ($name,$value)=split('=',$item);
$cat_order->{&unescape($name)}=&unescape($value);	$cat_orders->{&unescape($name)}=&thaw_unescape($value);
}	}
return 'ok';	return 'ok';
}	}