[WWcvs] webwork2: Utils::Tasks: add fake_set_version for previewing gateway assignments.

[Gavin L. v. a. <we...@ma...>]

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