Diff for /loncom/lond between versions 1.423 and 1.424

version 1.423, 2009/08/22 19:10:01 version 1.424, 2009/08/22 19:52:08
Line 4877  sub enrollment_enabled_handler { Line 4877  sub enrollment_enabled_handler {
 #   $tail         - The tail of the command.  In this case,  #   $tail         - The tail of the command.  In this case,
 #                   this is a colon separated set of words that will be split  #                   this is a colon separated set of words that will be split
 #                   into:  #                   into:
 #                        $inst_course_id - The institutional cod3 from the  #                        $dom      - The domain for which the check of 
 #                                          institutions point of view.  #                                    institutional course code will occur.
 #                        $cdom           - The domain from the institutions  #
 #                                          point of view.  #                        $instcode - The institutional code for the course
   #                                    being requested, or validated for rights
   #                                    to request.
   #
   #                        $owner    - The course requestor (who will be the
   #                                    course owner, in the form username:domain
   #
 #   $client       - Socket open on the client.  #   $client       - Socket open on the client.
 # Returns:  # Returns:
 #    1           - Indicating processing should continue.  #    1           - Indicating processing should continue.
Line 5106  sub crsreq_checks_handler { Line 5112  sub crsreq_checks_handler {
     my $userinput = "$cmd:$tail";      my $userinput = "$cmd:$tail";
     my $dom = $tail;      my $dom = $tail;
     my $result;      my $result;
       my @reqtypes = ('official','unofficial','community');
     eval {      eval {
         local($SIG{__DIE__})='DEFAULT';          local($SIG{__DIE__})='DEFAULT';
         my %validations;          my %validations;
         my $response = &localenroll::crsreq_checks($dom,\%validations);          my $response = &localenroll::crsreq_checks($dom,\@reqtypes,
                                                      \%validations);
         if ($response eq 'ok') {           if ($response eq 'ok') { 
             foreach my $key (keys(%validations)) {              foreach my $key (keys(%validations)) {
                 $result .= &escape($key).'='.&Apache::lonnet::freeze_escape($validations{$key}).'&';                  $result .= &escape($key).'='.&Apache::lonnet::freeze_escape($validations{$key}).'&';

Removed from v.1.423  
changed lines
  Added in v.1.424


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>