version 1.4, 2005/06/29 22:03:10
|
version 1.5, 2005/07/11 20:00:58
|
Line 66
|
Line 66
|
my @requests = grep(!/^\.\.?$/,readdir(DIR)); |
my @requests = grep(!/^\.\.?$/,readdir(DIR)); |
closedir(DIR); |
closedir(DIR); |
my %courseids = (); |
my %courseids = (); |
my @permissions = ('ccc','cin','cta','cep','ccr','cst'); |
my @permissions = ('mau','ccc','cin','cta','cep','ccr','cst'); |
my %permissionflags = (); |
my %permissionflags = (); |
&set_permissions(\%permissionflags,\@permissions); |
&set_permissions(\%permissionflags,\@permissions); |
$env{'user.name'} = $dcname; |
$env{'user.name'} = $dcname; |