[system] / trunk / webwork-modperl / lib / WeBWorK / DB.pm Repository:
ViewVC logotype

Diff of /trunk/webwork-modperl/lib/WeBWorK/DB.pm

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

Revision 3019 Revision 3050
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: webwork2/lib/WeBWorK/DB.pm,v 1.58 2004/10/22 23:06:44 sh002i Exp $ 4# $CVSHeader: webwork-modperl/lib/WeBWorK/DB.pm,v 1.59 2004/12/07 16:04:18 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.
1968 1968
1969 if ($keyfield eq "problem_id") { 1969 if ($keyfield eq "problem_id") {
1970 croak "checkKeyfields: invalid characters in $keyfield field: $value (valid characters are [0-9])" 1970 croak "checkKeyfields: invalid characters in $keyfield field: $value (valid characters are [0-9])"
1971 unless $value =~ m/^\d*$/; 1971 unless $value =~ m/^\d*$/;
1972 } else { 1972 } else {
1973 croak "checkKeyfields: invalid characters in $keyfield field: $value (valid characters are [A-Za-z0-9_])" 1973 croak "checkKeyfields: invalid characters in $keyfield field: $value (valid characters are [A-Za-z0-9_\.])"
1974 unless $value =~ m/^[\w-]*$/; 1974 unless $value =~ m/^[\w-\.]*$/;
1975 } 1975 }
1976 } 1976 }
1977} 1977}
1978 1978
1979=head1 AUTHOR 1979=head1 AUTHOR

Legend:
Removed from v.3019  
changed lines
  Added in v.3050

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9