loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.52, 2004/02/27 17:53:05	version 1.54, 2004/04/16 13:33:41
Line 546 ENDENHEAD	Line 546 ENDENHEAD
$cenv{'description'}=$oldcenv{'description'};	$cenv{'description'}=$oldcenv{'description'};
# Mark as cloned	# Mark as cloned
$cenv{'clonedfrom'}=$cloneid;	$cenv{'clonedfrom'}=$cloneid;
	delete($cenv{'default_enrollment_start_date'});
	delete($cenv{'default_enrollment_end_date'});
}	}
}	}
#	#
Line 682 ENDENHEAD	Line 684 ENDENHEAD
$cenv{'rndseed'}=&Apache::lonnet::latest_rnd_algorithm_id();;	$cenv{'rndseed'}=&Apache::lonnet::latest_rnd_algorithm_id();;
$cenv{'receiptalg'}=&Apache::lonnet::latest_receipt_algorithm_id();;	$cenv{'receiptalg'}=&Apache::lonnet::latest_receipt_algorithm_id();;
#	#
	# The encryption code and receipt prefix for this course
	#
	$cenv{'internal.encseed'}=$Apache::lonnet::perlvar{'lonReceipt'}.$$.time.int(rand(9999));
	$cenv{'internal.encpref'}=100+int(9*rand(99));
	#
# By default, use standard grading	# By default, use standard grading
$cenv{'grading'} = 'standard';	$cenv{'grading'} = 'standard';