loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.202, 2003/08/13 15:25:59	version 1.203, 2003/08/13 17:54:12
Line 443 sub start_problem {	Line 443 sub start_problem {
my $due_file_content = $due_file_content[$#due_file_content];	my $due_file_content = $due_file_content[$#due_file_content];
chomp $due_file_content;	chomp $due_file_content;
my $name_of_resourse= &get_resource_name($parstack,$safeeval);	my $name_of_resourse= &get_resource_name($parstack,$safeeval);
	if (not $name_of_resourse=~/\S+/) {
	$name_of_resourse=$ENV{'request.uri'};
	$name_of_resourse=~/\/([^\/]+)$/;
	$name_of_resourse=$1;
	}
if ($due_file_content ne $duedate) {	if ($due_file_content ne $duedate) {
$temp_file = Apache::File->new('>'.$filename);	$temp_file = Apache::File->new('>'.$filename);
print $temp_file "$duedate\n";	print $temp_file "$duedate\n";