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

List:       lon-capa-cvs
Subject:    [LON-CAPA-cvs] cvs: loncom /interface lonpickauthor.pm
From:       raeburn <raeburn () source ! lon-capa ! org>
Date:       2012-10-12 17:00:50
Message-ID: cvsraeburn1350061250 () cvsserver
[Download RAW message or body]

raeburn		Fri Oct 12 17:00:50 2012 EDT

  Modified files:              
    /loncom/interface	lonpickauthor.pm 
  Log:
  - Starting with lonroles.pm rev 1.260, args for lonroles::check_fordc()
    changed to include update as second arg.
  
  
Index: loncom/interface/lonpickauthor.pm
diff -u loncom/interface/lonpickauthor.pm:1.2 loncom/interface/lonpickauthor.pm:1.3
--- loncom/interface/lonpickauthor.pm:1.2	Wed Oct 15 09:49:52 2008
+++ loncom/interface/lonpickauthor.pm	Fri Oct 12 17:00:50 2012
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Display authors in domain for selection of ad loc co-author role by Domain Coordinator. 
 #
-# $Id: lonpickauthor.pm,v 1.2 2008/10/15 09:49:52 bisitz Exp $
+# $Id: lonpickauthor.pm,v 1.3 2012/10/12 17:00:50 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -53,8 +53,12 @@
     &Apache::loncommon::get_unprocessed_cgi
         ($ENV{'QUERY_STRING'},['form','roledom','sortby']);
     my $then=$env{'user.login.time'};
+    my $update=$env{'user.update.time'};
+    if (!$update) {
+        $update = $then;
+    }
     my (%dcroles,%dom_roles,$earlyout,$domdesc);
-    my $numdc = &Apache::lonroles::check_fordc(\%dcroles,$then);
+    my $numdc = &Apache::lonroles::check_fordc(\%dcroles,$update,$then);
     if ($env{'form.roledom'} ne '') {
         $domdesc = &Apache::lonnet::domain($env{'form.roledom'});
         if ($domdesc eq '') {


_______________________________________________
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]