View of /branches/rel-2-4-patches/webwork2/lib/WeBWorK/DB/Record/SetVersion.pm

    1 ################################################################################
    2 # WeBWorK Online Homework Delivery System
    3 # Copyright © 2000-2007 The WeBWorK Project, http://openwebwork.sf.net/
    4 # $CVSHeader: webwork2/lib/WeBWorK/DB/Record/SetVersion.pm,v 1.2 2007/02/22 01:25:11 sh002i 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::SetVersion;
   18 use base WeBWorK::DB::Record::UserSet;
   19 
   20 =head1 NAME
   21 
   22 WeBWorK::DB::Record::SetVersion - represent a record from the virtual
   23 set_version table.
   24 
   25 =cut
   26 
   27 use strict;
   28 use warnings;
   29 
   30 BEGIN {
   31   our @ISA;
   32   my $base = $ISA[0];
   33   my $field_data = $base->FIELD_DATA;
   34   my @nonkeyfields = map { $_ => $field_data->{$_} } $base->NONKEYFIELDS;
   35   __PACKAGE__->_fields(
   36     user_id    => { type=>"TINYBLOB NOT NULL", key=>1 },
   37     set_id     => { type=>"TINYBLOB NOT NULL", key=>1 },
   38     version_id => { type=>"INT NOT NULL", key=>1 },
   39     @nonkeyfields,
   40   );
   41 }
   42 
   43 1;