loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

-version 1.520, 2004/07/02 21:55:13
+version 1.521, 2004/07/06 18:02:33
  Line 3203  sub auto_create_password {
      return ($authparam,$create_passwd,$authchk);
  }
+ sub auto_instcode_format {
+     my ($caller,$codedom,$instcodes,$codes,$codetitles,$cat_titles,$cat_order) = @_;
+     my $courses = '';
+     my $homeserver;
+     if ($caller eq 'global') {
+         $homeserver = $perlvar{'lonHostID'};
+     } else {
+         $homeserver = &homeserver($caller,$codedom);
+     }
+     my $host=$hostname{$homeserver};
+     foreach (keys %{$instcodes}) {
+         $courses .= &escape($_).'='.&escape($$instcodes{$_}).'&';
+     }
+     chop($courses);
+     my $response=&reply('autoinstcodeformat:'.$codedom.':'.$courses,$homeserver);
+     unless ($response =~ /(con_lost|error|no_such_host|refused)/) {
+         my ($codes_str,$codetitles_str,$cat_titles_str,$cat_order_str) = split/:/,$response;
+         %{$codes} = &str2hash($codes_str);
+         @{$codetitles} = &str2array($codetitles_str);
+         %{$cat_titles} = &str2hash($cat_titles_str);
+         %{$cat_order} = &str2hash($cat_order_str);
+         return 'ok';
+     }
+     return $response;
+ }
  # ------------------------------------------------------------------ Plain Text
  sub plaintext {