rat/lonsequence.pm - diff

Return to lonsequence.pm CVS log

Up to [LON-CAPA] / rat

version 1.31, 2007/07/11 23:51:02	version 1.32.2.1, 2008/12/21 04:53:39
Line 46 my $successtied;	Line 46 my $successtied;
# ----------------------------------------- Attempt to read from resource space	# ----------------------------------------- Attempt to read from resource space

sub attemptread {	sub attemptread {
my $fn=shift;	my ($fn,$unsorted)=@_;
&Apache::lonnet::repcopy($fn);	&Apache::lonnet::repcopy($fn);
if (-e $fn) {	if (-e $fn) {
return &LONCAPA::map::attemptread($fn);	return &LONCAPA::map::attemptread($fn,$unsorted);
} else {	} else {
return ();	return ();
}	}
Line 278 sub handler {	Line 278 sub handler {
&Apache::lonnet::symblist($requrl,$disurl => [$disurl,$dismapid],	&Apache::lonnet::symblist($requrl,$disurl => [$disurl,$dismapid],
'last_known' => [$disurl,$dismapid]);	'last_known' => [$disurl,$dismapid]);
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->header_out(Location => 'http://'.$ENV{'HTTP_HOST'}.$disurl);	$r->header_out(Location => &Apache::lonnet::absolute_url($ENV{'SERVER_NAME'}).
	$disurl);
return REDIRECT;	return REDIRECT;
} else {	} else {
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');