loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.91, 2002/09/25 18:49:01	version 1.97, 2002/10/16 19:29:44
Line 139 sub send_footer {	Line 139 sub send_footer {

$Apache::lonxml::browse='';	$Apache::lonxml::browse='';

	# JB, 9/24/2002: Any changes in this function may require a change
	# in lonnavmaps::resource::getDateStatus.
sub check_access {	sub check_access {
my ($id) = @_;	my ($id) = @_;
my $date ='';	my $date ='';
Line 376 sub renderpage {	Line 378 sub renderpage {

my %mystyle;	my %mystyle;
my $result = '';	my $result = '';
&Apache::inputtags::initialize_inputtags;	&Apache::inputtags::initialize_inputtags();
&Apache::edit::initialize_edit;	&Apache::outputtags::initialize_outputtags();
	&Apache::edit::initialize_edit();
if ($target eq 'analyze') { %Apache::lonhomework::anaylze=(); }	if ($target eq 'analyze') { %Apache::lonhomework::anaylze=(); }
if ($target eq 'web') {	if ($target eq 'web') {
my ($symb)=&Apache::lonxml::whichuser();	my ($symb)=&Apache::lonxml::whichuser();
Line 505 sub handler {	Line 508 sub handler {
my $request=$_[0];	my $request=$_[0];

# if ( $ENV{'user.name'} eq 'albertel' ) {$Apache::lonxml::debug=1;}	# if ( $ENV{'user.name'} eq 'albertel' ) {$Apache::lonxml::debug=1;}
	$Apache::lonxml::debug=$ENV{'user.debug'};

if (&setupheader($request)) { return OK; }	if (&setupheader($request)) { return OK; }
$ENV{'request.uri'}=$request->uri;	$ENV{'request.uri'}=$request->uri;