[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm
From: albertel <lon-capa-cvs-allow () mail ! lon-capa ! org>
Date: 2007-11-20 0:13:58
Message-ID: cvsalbertel1195517638 () cvsserver
[Download RAW message or body]
albertel Mon Nov 19 19:13:58 2007 EDT
Modified files:
/loncom/lonnet/perl lonnet.pm
Log:
- add supprot for a first access time for the course
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.925 loncom/lonnet/perl/lonnet.pm:1.926
--- loncom/lonnet/perl/lonnet.pm:1.925 Fri Nov 16 21:41:17 2007
+++ loncom/lonnet/perl/lonnet.pm Mon Nov 19 19:13:56 2007
@@ -1,7 +1,7 @@
# The LearningOnline Network
# TCP networking package
#
-# $Id: lonnet.pm,v 1.925 2007/11/17 02:41:17 albertel Exp $
+# $Id: lonnet.pm,v 1.926 2007/11/20 00:13:56 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2670,7 +2670,9 @@
my ($symb,$courseid,$udom,$uname)=&whichuser();
if ($argsymb) { $symb=$argsymb; }
my ($map,$id,$res)=&decode_symb($symb);
- if ($type eq 'map') {
+ if ($type eq 'course') {
+ $res='course';
+ } elsif ($type eq 'map') {
$res=&symbread($map);
} else {
$res=$symb;
_______________________________________________
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]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic