Log Message:
-----------
Utils::Tasks: add fake_set_version for previewing gateway assignments.
Modified Files:
--------------
webwork2/lib/WeBWorK/Utils:
Tasks.pm
Revision Data
-------------
Index: Tasks.pm
===================================================================
RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/Utils/Tasks.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -Llib/WeBWorK/Utils/Tasks.pm -Llib/WeBWorK/Utils/Tasks.pm -u -r1.16 -r1.17
--- lib/WeBWorK/Utils/Tasks.pm
+++ lib/WeBWorK/Utils/Tasks.pm
@@ -51,6 +51,7 @@
our @EXPORT_OK = qw(
renderProblems
fake_set
+ fake_set_version
fake_problem
fake_user
);
@@ -85,6 +86,30 @@
return($set);
}
+sub fake_set_version {
+ my $db = shift;
+
+ my $set = $db->newSetVersion();
+ # $set = global2user($db->{set_user}->{record}, $set);
+ $set->psvn(123);
+ $set->set_id(fakeSetName);
+ $set->open_date(time());
+ $set->due_date(time());
+ $set->answer_date(time());
+ $set->published(0);
+ $set->hardcopy_header("");
+ $set->version_id(1);
+ $set->attempts_per_version(0);
+ $set->problem_randorder(0);
+ $set->problems_per_page(0);
+ $set->hide_score('N');
+ $set->hide_score_by_problem('N');
+ $set->hide_work('N');
+ $set->restrict_ip('No');
+
+ return($set);
+}
+
=item fake_problem
|
