From 0b994c44c11f16b04d5d4bb37c09edaf1ad0f692 Mon Sep 17 00:00:00 2001 From: zacheiss Date: Sun, 9 Sep 2001 04:28:42 +0000 Subject: [PATCH] Make the lists inactive. --- regtape/grouper.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/regtape/grouper.pl b/regtape/grouper.pl index d3be8870..950a9d70 100755 --- a/regtape/grouper.pl +++ b/regtape/grouper.pl @@ -65,7 +65,7 @@ foreach $class (@$classes) { "*** DO NOT MODIFY *** Automatically-created registered students list for $class"); &check_list("$base-others", $staff, 0, "Non-registered students and miscellaneous people list for $class"); - &check_list($base, $staff, 0, + &check_list($base, $staff, 1, "*** DO NOT MODIFY *** Automatically-created participants list for $class"); if (!$lists{$base}) { &add_member($staff, LIST, $base); @@ -135,7 +135,7 @@ sub check_list { my ( $name, $owner, $export, $desc ) = @_; if (!$lists{$name}) { print LOG "Creating $name\n"; - print MRTEST "qy alis $name 1 0 1 $export $export \"create unique GID\" 0 LIST $owner NONE NONE \"$desc\"\n"; + print MRTEST "qy alis $name 0 0 1 $export $export \"create unique GID\" 0 LIST $owner NONE NONE \"$desc\"\n"; } } -- 2.45.2