[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lon-capa-cvs
Subject:    [LON-CAPA-cvs] cvs: loncom /interface lonpopulate.pm
From:       raeburn <lon-capa-cvs-allow () mail ! lon-capa ! org>
Date:       2008-04-30 23:55:00
Message-ID: cvsraeburn1209599700 () cvsserver
[Download RAW message or body]

raeburn		Wed Apr 30 19:55:00 2008 EDT

  Modified files:              
    /loncom/interface	lonpopulate.pm 
  Log:
  Bug 5176.
  Pass 'chgtype' as context arg to &lonnet::modify_student_enrollment() for storge in \
nohist_rolelog.db record.   
  
Index: loncom/interface/lonpopulate.pm
diff -u loncom/interface/lonpopulate.pm:1.54 loncom/interface/lonpopulate.pm:1.55
--- loncom/interface/lonpopulate.pm:1.54	Tue Mar 11 22:45:07 2008
+++ loncom/interface/lonpopulate.pm	Wed Apr 30 19:54:59 2008
@@ -1,5 +1,5 @@
 # automated enrollment configuration handler
-# $Id: lonpopulate.pm,v 1.54 2008/03/12 02:45:07 raeburn Exp $
+# $Id: lonpopulate.pm,v 1.55 2008/04/30 23:54:59 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2697,7 +2697,7 @@
             } elsif ($newtype eq '') {
                 $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') {
                 $chgok ++;
                 $chg{$student} = "Changed to $change";
@@ -2729,7 +2729,7 @@
                 $newlockname = &mt('unlocked');
                 $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') {
                 $lockok ++;
                 $lockchg{$student} = 'Changed to '.$newlockname;


_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs


[prev in list] [next in list] [prev in thread] [next in thread]