| 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/Utils.pm,v 1.52 2004/09/14 22:10:14 sh002i Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/Utils.pm,v 1.53 2004/09/23 22:03:03 dpvc 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. |
| … | |
… | |
| 44 | # %d = numeric day of the month, with leading zeros (eg 01..31) |
44 | # %d = numeric day of the month, with leading zeros (eg 01..31) |
| 45 | # %y = year (2 digits) |
45 | # %y = year (2 digits) |
| 46 | # %I = hour, 12 hour clock, leading 0's) |
46 | # %I = hour, 12 hour clock, leading 0's) |
| 47 | # %M = minute, leading 0's |
47 | # %M = minute, leading 0's |
| 48 | # %P = am or pm (Yes %p and %P are backwards :) |
48 | # %P = am or pm (Yes %p and %P are backwards :) |
| 49 | use constant DATE_FORMAT => "%m/%d/%y at %I:%M%P"; |
49 | use constant DATE_FORMAT => "%m/%d/%y at %I:%M%P %Z"; |
| 50 | |
50 | |
| 51 | our @EXPORT = (); |
51 | our @EXPORT = (); |
| 52 | our @EXPORT_OK = qw( |
52 | our @EXPORT_OK = qw( |
| 53 | runtime_use |
53 | runtime_use |
| 54 | readFile |
54 | readFile |