loncom/interface/lonuserutils.pm - diff

Return to lonuserutils.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.97.2.13, 2010/01/20 21:42:30	version 1.97.2.14, 2010/01/20 21:49:26
Line 1141 sub date_setting_table {	Line 1141 sub date_setting_table {
}	}

sub make_dates_default {	sub make_dates_default {
my ($startdate,$enddate,$context,$crstype = @_;	my ($startdate,$enddate,$context,$crstype) = @_;
my $result = '';	my $result = '';
if ($context eq 'course') {	if ($context eq 'course') {
my ($cnum,$cdom) = &get_course_identity();	my ($cnum,$cdom) = &get_course_identity();
Line 3750 sub upfile_drop_add {	Line 3750 sub upfile_drop_add {
}	}
my ($startdate,$enddate) = &get_dates_from_form();	my ($startdate,$enddate) = &get_dates_from_form();
if ($env{'form.makedatesdefault'}) {	if ($env{'form.makedatesdefault'}) {
$r->print(&make_dates_default($startdate,$enddate,$context,$crstype);	$r->print(&make_dates_default($startdate,$enddate,$context,$crstype));
}	}
# Determine domain and desired host (home server)	# Determine domain and desired host (home server)
my $defdom=$env{'request.role.domain'};	my $defdom=$env{'request.role.domain'};