loncom/publisher/loncfile.pm - diff

Return to loncfile.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.88, 2008/03/12 02:46:38	version 1.89, 2008/05/27 17:33:28
Line 109 sub Debug {	Line 109 sub Debug {
}	}
}	}

	sub done {
	my ($url)=@_;
	my $done=&mt("Done");
	return(<<ENDDONE);
	<a href="$url">$done</a>
	<script type="text/javascript">
	location.href="$url";
	</script>
	ENDDONE
	}

=pod	=pod

=item URLToPath($url)	=item URLToPath($url)
Line 435 Parameters:	Line 446 Parameters:

sub CloseForm2 {	sub CloseForm2 {
my ($request, $user, $fn) = @_;	my ($request, $user, $fn) = @_;
$request->print('<h3><a href="'.&url($fn).'/">'.&mt('Done').'</a></h3>');	$request->print(&done(&url($fn)));
}	}

=pod	=pod
Line 1256 sub phasetwo {	Line 1267 sub phasetwo {
$r->print('<h3><a href="'.&url($dest).'">'.&mt('Return to Directory').'</a></h3>');	$r->print('<h3><a href="'.&url($dest).'">'.&mt('Return to Directory').'</a></h3>');
$r->print('<h3><a href="'.&url($dest_newname).'">'.$disp_newname.'</a></h3>');	$r->print('<h3><a href="'.&url($dest_newname).'">'.$disp_newname.'</a></h3>');
} else {	} else {
$r->print('<h3><a href="'.&url($dest).'">'.&mt('Done').'</a></h3>');	$r->print(&done(&url($dest)));
}	}
}	}
}	}