loncom/interface/lonpopulate.pm - diff

Return to lonpopulate.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.54, 2008/03/12 02:45:07	version 1.55, 2008/04/30 23:54:59
Line 2697 sub print_viewclass_response {	Line 2697 sub print_viewclass_response {
} elsif ($newtype eq '') {	} elsif ($newtype eq '') {
$newlock = '1';	$newlock = '1';
}	}
my $modreply = &Apache::lonnet::modify_student_enrollment($udom,$uname,$uid,'','','','',$section,$end,$start,$newtype,$newlock,$cid);	my $modreply = &Apache::lonnet::modify_student_enrollment($udom,$uname,$uid,'','','','',$section,$end,$start,$newtype,$newlock,$cid,'','chgtype');
if ($modreply eq 'ok') {	if ($modreply eq 'ok') {
$chgok ++;	$chgok ++;
$chg{$student} = "Changed to $change";	$chg{$student} = "Changed to $change";
Line 2729 sub print_viewclass_response {	Line 2729 sub print_viewclass_response {
$newlockname = &mt('unlocked');	$newlockname = &mt('unlocked');
$oldlockname = &mt('locked');	$oldlockname = &mt('locked');
}	}
my $lockreply = &Apache::lonnet::modify_student_enrollment($udom,$uname,$uid,'','','','',$section,$end,$start,$type,$newlock,$cid);	my $lockreply = &Apache::lonnet::modify_student_enrollment($udom,$uname,$uid,'','','','',$section,$end,$start,$type,$newlock,$cid,'','chgtype');
if ($lockreply eq 'ok') {	if ($lockreply eq 'ok') {
$lockok ++;	$lockok ++;
$lockchg{$student} = 'Changed to '.$newlockname;	$lockchg{$student} = 'Changed to '.$newlockname;