[LON-CAPA-cvs] cvs: modules /vcu create_course_enroll.pl

raeburn lon-capa-cvs-allow@mail.lon-capa.org
Mon, 11 Feb 2008 21:37:32 -0000


raeburn		Mon Feb 11 16:37:32 2008 EDT

  Added files:                 
    /modules/vcu	create_course_enroll.pl 
  Log:
  - Auto-enrollment for VCU. Start script to build XML files for VCU LON-CAPA courses  from data extracts used in Blackboard.
  
  

Index: modules/vcu/create_course_enroll.pl
+++ modules/vcu/create_course_enroll.pl
#!/usr/bin/perl
# $Id: create_course_enroll.pl
    use strict;
    use lib '/home/httpd/lib/perl';
    use Apache::lonnet;

    my @domains = &Apache::lonnet::current_machine_domains();
    my @hostids = &Apache::lonnet::current_machine_ids();
    my %args = (
                  one_time => 1,
               );
    my %vcu_users;
    
    my (%userinfo,%record);