[BACK]Return to loncreateuser.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncreateuser.pm between versions 1.117 and 1.118

version 1.117, 2006/05/18 01:08:51 version 1.118, 2006/05/30 12:46:09
Line 65  use Apache::lonnet; Line 65  use Apache::lonnet;
 use Apache::loncommon;  use Apache::loncommon;
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::longroup;  use Apache::longroup;
   use lib '/home/httpd/lib/perl/';
   use LONCAPA;
   
 my $loginscript; # piece of javascript used in two separate instances  my $loginscript; # piece of javascript used in two separate instances
 my $generalrule;  my $generalrule;
Line 1226  END Line 1228  END
  &Apache::lonnet::critical('put:'.   &Apache::lonnet::critical('put:'.
                              $env{'course.'.$cid.'.domain'}.':'.                               $env{'course.'.$cid.'.domain'}.':'.
                      $env{'course.'.$cid.'.num'}.':classlist:'.                       $env{'course.'.$cid.'.num'}.':classlist:'.
                          &Apache::lonnet::escape($env{'form.ccuname'}.':'.                           &escape($env{'form.ccuname'}.':'.
                              $env{'form.ccdomain'}).'='.                               $env{'form.ccdomain'}).'='.
                          &Apache::lonnet::escape($now.':'),                           &escape($now.':'),
                      $env{'course.'.$cid.'.home'}).'</b><br />');                       $env{'course.'.$cid.'.home'}).'</b><br />');
  }   }
     }       } 
Line 1253  END Line 1255  END
  &Apache::lonnet::critical('put:'.   &Apache::lonnet::critical('put:'.
                              $env{'course.'.$cid.'.domain'}.':'.                               $env{'course.'.$cid.'.domain'}.':'.
                      $env{'course.'.$cid.'.num'}.':classlist:'.                       $env{'course.'.$cid.'.num'}.':classlist:'.
                          &Apache::lonnet::escape($env{'form.ccuname'}.':'.                           &escape($env{'form.ccuname'}.':'.
                              $env{'form.ccdomain'}).'='.                               $env{'form.ccdomain'}).'='.
                          &Apache::lonnet::escape($now.':'),                           &escape($now.':'),
                      $env{'course.'.$cid.'.home'}).'</b><br />');                       $env{'course.'.$cid.'.home'}).'</b><br />');
  }   }
             }              }
Removed from v.1.117  
changed lines
  Added in v.1.118

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