version 1.415, 2009/05/08 12:02:39
|
version 1.416, 2009/06/11 19:19:51
|
Line 4928 sub get_institutional_defaults_handler {
|
Line 4928 sub get_institutional_defaults_handler {
|
®ister_handler("autoinstcodedefaults", |
®ister_handler("autoinstcodedefaults", |
\&get_institutional_defaults_handler,0,1,0); |
\&get_institutional_defaults_handler,0,1,0); |
|
|
|
sub get_possible_instcodes_handler { |
|
my ($cmd, $tail, $client) = @_; |
|
my $userinput = "$cmd:$tail"; |
|
|
|
my $reply; |
|
my $cdom = $tail; |
|
my (@codetitles,%cat_titles,%cat_order); |
|
my $formatreply = &localenroll::possible_instcodes($cdom, |
|
\@codetitles, |
|
\%cat_titles, |
|
\%cat_order); |
|
if ($formatreply eq 'ok') { |
|
my $result = join('&',map {&escape($_);} (@codetitles)).':'; |
|
foreach my $key (keys(%cat_titles)) { |
|
$result .= &escape($key).'='.&Apache::lonnet::freeze_escape($cat_titles{$key}).'&'; |
|
} |
|
$result =~ s/\&$//; |
|
$result .= ':'; |
|
foreach my $key (keys(%cat_order)) { |
|
$result .= &escape($key).'='.&Apache::lonnet::freeze_escape($cat_order{$key}).'&'; |
|
} |
|
$result =~ s/\&$//; |
|
&Reply($client,\$result,$userinput); |
|
} else { |
|
&Reply($client, "format_error\n", $userinput); |
|
} |
|
return 1; |
|
} |
|
®ister_handler("autopossibleinstcodes", |
|
\&get_possible_instcodes_handler,0,1,0); |
|
|
sub get_institutional_user_rules { |
sub get_institutional_user_rules { |
my ($cmd, $tail, $client) = @_; |
my ($cmd, $tail, $client) = @_; |
my $userinput = "$cmd:$tail"; |
my $userinput = "$cmd:$tail"; |