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

View of /trunk/webwork-modperl/lib/WeBWorK/DB/Record/UserSet.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3209 - (download) (as text) (annotate)
Tue Mar 29 21:23:34 2005 UTC (14 years, 10 months ago) by jj
File size: 1560 byte(s)
Adding sql types for database entries for use on creation.  Many of them
can probably be tweaked to take up less space (e.g., we don't need 4 bytes
to store the published information).

    1 ################################################################################
    2 # WeBWorK Online Homework Delivery System
    3 # Copyright  2000-2003 The WeBWorK Project, http://openwebwork.sf.net/
    4 # $CVSHeader: webwork-modperl/lib/WeBWorK/DB/Record/UserSet.pm,v 1.7 2004/07/07 14:37:32 gage Exp $
    5 #
    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
    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.
   10 #
   11 # This program is distributed in the hope that it will be useful, but WITHOUT
   12 # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
   13 # FOR A PARTICULAR PURPOSE.  See either the GNU General Public License or the
   14 # Artistic License for more details.
   15 ################################################################################
   16 
   17 package WeBWorK::DB::Record::UserSet;
   18 use base WeBWorK::DB::Record;
   19 
   20 =head1 NAME
   21 
   22 WeBWorK::DB::Record::UserSet - represent a record from the set_user table.
   23 
   24 =cut
   25 
   26 use strict;
   27 use warnings;
   28 
   29 sub KEYFIELDS {qw(
   30   user_id
   31   set_id
   32 )}
   33 
   34 sub NONKEYFIELDS {qw(
   35   psvn
   36   set_header
   37   hardcopy_header
   38   open_date
   39   due_date
   40   answer_date
   41   published
   42 )}
   43 
   44 sub FIELDS {qw(
   45   user_id
   46   set_id
   47   psvn
   48   set_header
   49   hardcopy_header
   50   open_date
   51   due_date
   52   answer_date
   53   published
   54 )}
   55 
   56 sub SQL_TYPES {(
   57   "BLOB",
   58   "BLOB",
   59   "INT NOT NULL PRIMARY KEY AUTO_INCREMENT",
   60   "TEXT",
   61   "TEXT",
   62   "BIGINT",
   63   "BIGINT",
   64   "BIGINT",
   65   "INT"
   66 )}
   67 
   68 1;

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9