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

Diff of /branches/rel-2-2-dev/webwork2/lib/WeBWorK/ContentGenerator/Instructor/UserList.pm

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

Revision 1736 Revision 1749
1################################################################################ 1################################################################################
2# WeBWorK Online Homework Delivery System 2# WeBWorK Online Homework Delivery System
3# Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ 3# Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/
4# $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/UserList.pm,v 1.38 2004/01/16 00:42:38 gage Exp $ 4# $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/UserList.pm,v 1.39 2004/01/22 00:25:17 gage 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.
… …
1119 if ($editMode) { 1119 if ($editMode) {
1120 # straight user ID 1120 # straight user ID
1121 push @tableCells, $User->user_id; 1121 push @tableCells, $User->user_id;
1122 } else { 1122 } else {
1123 # "edit sets assigned to user" link 1123 # "edit sets assigned to user" link
1124 push @tableCells, CGI::a({href=>$setsAssignedToUserURL}, "Edit"); 1124 push @tableCells, CGI::a({href=>$setsAssignedToUserURL}, "Edit set");
1125 } 1125 }
1126 1126
1127 # User Fields 1127 # User Fields
1128 foreach my $field ($User->NONKEYFIELDS) { 1128 foreach my $field ($User->NONKEYFIELDS) {
1129 my $fieldName = "user." . $User->user_id . "." . $field, 1129 my $fieldName = "user." . $User->user_id . "." . $field,
Legend:
Removed from v.1736  
changed lines
  Added in v.1749
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9