[system] / branches / rel-2-1-a1 / webwork2 / lib / WeBWorK / DB / Record / Set.pm Repository:
ViewVC logotype

View of /branches/rel-2-1-a1/webwork2/lib/WeBWorK/DB/Record/Set.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2332 - (download) (as text) (annotate)
Wed Jun 16 20:07:49 2004 UTC (9 years ago) by glarose
File size: 1915 byte(s)

update Set.pm to include new and exciting fields for gateway tests and
versioned sets.

    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/Set.pm,v 1.7 2004/03/25 00:27:56 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::Set;
   18 use base WeBWorK::DB::Record;
   19 
   20 =head1 NAME
   21 
   22 WeBWorK::DB::Record::Set - represent a record from the set table.
   23 
   24 =cut
   25 
   26 use strict;
   27 use warnings;
   28 
   29 sub KEYFIELDS {qw(
   30   set_id
   31 )}
   32 
   33 # added fields here for gateway testing:
   34 #    assignment_type, attempts_per_version, time_interval,
   35 #    versions_per_interval, version_time_limit, version_creation_time,
   36 #    problem_randorder
   37 sub NONKEYFIELDS {qw(
   38   set_header
   39   problem_header
   40   open_date
   41   due_date
   42   answer_date
   43   published
   44         assignment_type
   45   attempts_per_version
   46   time_interval
   47         versions_per_interval
   48         version_time_limit
   49         version_creation_time
   50         problem_randorder
   51 )}
   52 
   53 sub FIELDS {qw(
   54   set_id
   55   set_header
   56   problem_header
   57   open_date
   58   due_date
   59   answer_date
   60   published
   61         assignment_type
   62   attempts_per_version
   63   time_interval
   64         versions_per_interval
   65         version_time_limit
   66         version_creation_time
   67         problem_randorder
   68 )}
   69 
   70 1;

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9