[system] / branches / rel-2-3-dev / webwork-modperl / lib / WeBWorK / ContentGenerator / Instructor / UserList.pm Repository:
ViewVC logotype

Diff of /branches/rel-2-3-dev/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/UserList.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 3973 Revision 4062
1################################################################################ 1################################################################################
2# WeBWorK Online Homework Delivery System 2# WeBWorK Online Homework Delivery System
3# Copyright © 2000-2006 The WeBWorK Project, http://openwebwork.sf.net/ 3# Copyright © 2000-2006 The WeBWorK Project, http://openwebwork.sf.net/
4# $CVSHeader: webwork2/lib/WeBWorK/ContentGenerator/Instructor/UserList.pm,v 1.77 2006/01/10 00:33:19 sh002i Exp $ 4# $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/UserList.pm,v 1.78 2006/01/25 23:13:53 sh002i Exp $
5# 5#
6# This program is free software; you can redistribute it and/or modify it under 6# This program is free software; you can redistribute it and/or modify it under
7# the terms of either: (a) the GNU General Public License as published by the 7# the terms of either: (a) the GNU General Public License as published by the
8# Free Software Foundation; either version 2, or (at your option) any later 8# Free Software Foundation; either version 2, or (at your option) any later
9# version, or (b) the "Artistic License" which comes with this package. 9# version, or (b) the "Artistic License" which comes with this package.
… …
1543 if ($editMode or $passwordMode) { 1543 if ($editMode or $passwordMode) {
1544 # column not there 1544 # column not there
1545 } else { 1545 } else {
1546 # check to see if a user is currently logged in 1546 # check to see if a user is currently logged in
1547 my $Key = $db->getKey($User->user_id); 1547 my $Key = $db->getKey($User->user_id);
1548 push @tableCells, ($Key and WeBWorK::Authen::checkKey($self, $User->user_id, $Key->key)) ? CGI::b("active") : CGI::em("inactive"); 1548 push @tableCells, ($Key and WeBWorK::Authen::check_session($self, $User->user_id, $Key->key, 1)) ? CGI::b("active") : CGI::em("inactive");
1549 } 1549 }
1550 1550
1551 # change password (only in password mode) 1551 # change password (only in password mode)
1552 if ($passwordMode) { 1552 if ($passwordMode) {
1553 if ($User->user_id eq $user) { 1553 if ($User->user_id eq $user) {
Legend:
Removed from v.3973  
changed lines
  Added in v.4062
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9