Return to lonambiguous.pm CVS log

Up to [LON-CAPA] / rat

Diff for /rat/lonambiguous.pm between versions 1.1 and 1.12

version 1.1, 2000/10/12 02:14:01	version 1.12, 2004/12/20 20:13:03
Line 1	Line 1
# The LearningOnline Network with CAPA	# The LearningOnline Network with CAPA
# Handler to resolve ambiguous file locations	# Handler to resolve ambiguous file locations
#	#
	# $Id$
	#
	# Copyright Michigan State University Board of Trustees
	#
	# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
	#
	# LON-CAPA is free software; you can redistribute it and/or modify
	# it under the terms of the GNU General Public License as published by
	# the Free Software Foundation; either version 2 of the License, or
	# (at your option) any later version.
	#
	# LON-CAPA is distributed in the hope that it will be useful,
	# but WITHOUT ANY WARRANTY; without even the implied warranty of
	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	# GNU General Public License for more details.
	#
	# You should have received a copy of the GNU General Public License
	# along with LON-CAPA; if not, write to the Free Software
	# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
	#
	# /home/httpd/html/adm/gpl.txt
	#
	# http://www.lon-capa.org/
	#
# (TeX Content Handler	# (TeX Content Handler
#	#
# 05/29/00,05/30,10/11 Gerd Kortemeyer)	# 05/29/00,05/30,10/11 Gerd Kortemeyer)
#	#
# 10/11 Gerd Kortemeyer	# 10/11,10/12,10/16 Gerd Kortemeyer

package Apache::lonambiguous;	package Apache::lonambiguous;

Line 13 use strict;	Line 37 use strict;
use Apache::lonnet;	use Apache::lonnet;
use Apache::Constants qw(:common REDIRECT);	use Apache::Constants qw(:common REDIRECT);
use GDBM_File;	use GDBM_File;
	use Apache::loncommon;
	use Apache::lonlocal;

	my %bighash;

	sub cleanup {
	if (tied(%bighash)){
	&Apache::lonnet::logthis('Cleanup ambiguous: bighash');
	unless (untie(%bighash)) {
	&Apache::lonnet::logthis('Failed cleanup ambiguous: bighash');
	}
	}
	}

# ----------------------------------------------------------- Could not resolve	# ----------------------------------------------------------- Could not resolve

sub getlost {	sub getlost {
my $r=shift;	my ($r,$errmsg)=@_;
	$errmsg=&mt($errmsg);
$r->content_type('text/html');	$r->content_type('text/html');
$r->send_http_header;	$r->send_http_header;
$r->print('<head><title>Unknown Error</title><body bgcolor="#FFFFFF">'.	$r->print(
'<h1>LON-CAPA</h1>Could not handle ambiguous file reference.</body></html>');	'<head><title>Unknown Error</title></head>'.
	&Apache::loncommon::bodytag('Could not handle ambiguous resource reference').
	$errmsg.
	'</body></html>');
}	}

# ================================================================ Main Handler	# ================================================================ Main Handler

	sub make_symb {
	my ($id)=@_;
	my ($mapid,$resid)=split(/\./,$id);
	my $map=$bighash{'map_id_'.$mapid};
	my $res=$bighash{'src_'.$id};
	my $symb=&Apache::lonnet::encode_symb($map,$resid,$res);
	return $symb;
	}

sub handler {	sub handler {
my $r=shift;	my $r=shift;

if ($r->header_only) {	if ($r->header_only) {
$r->content_type('text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
return OK;	return OK;
}	}

	# ---------------------------------------------------------- Is this selecting?

	if ($ENV{'form.selecturl'}) {
	my $envkey;
	if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',
	&GDBM_READER(),0640)) {
	foreach $envkey (keys %ENV) {
	if ($envkey=~/^form\.(\d+)\.(\d+)$/) {
	# ---------------------------------------------------- Update symb and redirect
	my $mapid=$1;
	my $resid=$2;
	my $resurl=$bighash{'src_'.$mapid.'.'.$resid};
	&Apache::lonnet::symblist($bighash{'map_id_'.$mapid},
	$resurl => $resid);
	untie(%bighash);
	$r->header_out(Location =>
	'http://'.$ENV{'HTTP_HOST'}.$resurl);
	return REDIRECT;
	}
	}
	untie(%bighash);
	} else {
	&getlost($r,'Could not access course structure.');
	return OK;
	}
	}

# ---------------------------------------------------------- Do we have a case?	# ---------------------------------------------------------- Do we have a case?

my $thisfn;	my $thisfn;
unless (($thisfn=$ENV{'request.ambiguous'})&&($ENV{'request.course.fn'})) {	unless (($thisfn=$ENV{'request.ambiguous'})&&($ENV{'request.course.fn'})) {
getlost($r);	&getlost($r,'Could not find information on resource.');
return OK;	return OK;
}	}

Line 48 sub handler {	Line 124 sub handler {

$thisfn=&Apache::lonnet::declutter($thisfn);	$thisfn=&Apache::lonnet::declutter($thisfn);
my %hash;	my %hash;
my %bighash;
my $syval='';	my $syval='';

if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db',	if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db',
&GDBM_READER,0640)) {	&GDBM_READER(),0640)) {
$syval=$hash{$thisfn};	$syval=$hash{$thisfn};
untie(%hash);	untie(%hash);
}	}

# ---------------------------------------------------------- There was an entry	# ---------------------------------------------------------- There was an entry

if ($syval) {	if ($syval) {

if ($syval=~/\_$/) {	if ($syval=~/\_$/) {
# ----------------------------------- Okay, this should have appeared on a page	# ----------------------------------- Okay, this should have appeared on a page
$syval=~s/\_\_\_$//;	$syval=~s/\_\_\_$//;
Line 67 sub handler {	Line 145 sub handler {
return REDIRECT;	return REDIRECT;
} else {	} else {
# There is not really a problem (???), but cannot go back without endless loop	# There is not really a problem (???), but cannot go back without endless loop
getlost($r);	&getlost($r,'The nature of the problem is unclear');
return OK;	return OK;
}	}
}	}

# ------------------------------------------------ Would be standalone resource	# ------------------------------------------------ Would be standalone resource

if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',	if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',
&GDBM_READER,0640)) {	&GDBM_READER(),0640)) {
# ---------------------------------------------- Get ID(s) for current resource	# ---------------------------------------------- Get ID(s) for current resource
my $ids=$bighash{'ids_/res/'.$thisfn};	my $ids=$bighash{'ids_'.&Apache::lonnet::clutter($thisfn)};
if ($ids) {	if ($ids) {
# ------------------------------------------------------------------- Has ID(s)	# ------------------------------------------------------------------- Has ID(s)
my @possibilities=split(/\,/,$ids);	my @possibilities=split(/\,/,$ids);
my $couldbe='';	my $couldbe='';
map {	foreach (@possibilities) {
if (&allowed('bre',$bighash{'src_'.$_})) {	if ($bighash{'encrypted_'.$_}) { next; }
	my $symb=&make_symb($_);
	if (&Apache::lonnet::allowed('bre',$bighash{'src_'.$_},$symb)) {
if ($couldbe) {	if ($couldbe) {
$couldbe.=','.$_;	$couldbe.=','.$_;
} else {	} else {
$couldbe=$_;	$couldbe=$_;
}	}
}	}
} @possibilities;	}
if ($couldbe) {	if ($couldbe) {
@possibilities=split(/\,/,$couldbe);	@possibilities=split(/\,/,$couldbe);
	if ($#possibilities==0) {
	my $id=$possibilities[0];
	my $resurl=$bighash{'src_'.$id};
	my $mapurl=$bighash{'map_id_'.(split(/\./,$id))[0]};
	my $symb=&make_symb($id);
	$r->content_type('text/html');
	&Apache::lonnet::logthis('http://'.$ENV{'HTTP_HOST'}.$resurl.'?symb='.$symb);
	$r->header_out(Location =>
	'http://'.$ENV{'HTTP_HOST'}.$resurl.'?symb='.$symb);
	return REDIRECT;
	}
if ($#possibilities>0) {	if ($#possibilities>0) {
# ----------------------------------------------- Okay, really multiple choices	# ----------------------------------------------- Okay, really multiple choices
$r->content_type('text/html');	$r->content_type('text/html');
$r->send_http_header;	$r->send_http_header;
$r->print(	my $bodytag=
'<head><title>Choose Location</title><body bgcolor="#FFFFFF">'.	&Apache::loncommon::bodytag('Pick Instance of Resource');
'<h1>LON-CAPA</h1>Cool.</body></html>');	$r->print(<<ENDSTART);
	<head><title>Choose Location</title></head>
	$bodytag
	The resource you had been accessing appears more than once in this course,
	and LON-CAPA has insufficient session information to determine which instance
	of the resource you meant.
	<p>
	Please click on the instance of the resource you intended to access:
	</p>
	<table border="2">
	<tr><th>Title</th><th>Part of ...</th></tr>
	ENDSTART
	map {
	my $resurl=$bighash{'src_'.$_};
	my $mapurl=$bighash{'map_id_'.(split(/\./,$_))[0]};
	my $symb=&make_symb($_);
	$r->print('<tr><td><a href="'.$resurl.'?symb='.$symb.'">'.
	&Apache::lonnet::gettitle($symb).
	'</a></td><td>'.
	&Apache::lonnet::gettitle($mapurl).' '.
	'</td></tr>');
	} @possibilities;
	$r->print('</table></body></html>');
untie(%bighash);	untie(%bighash);
return OK;	return OK;
}	}
Line 109 sub handler {	Line 221 sub handler {
}	}

# ------------------------------------ This handler should not have been called	# ------------------------------------ This handler should not have been called
getlost($r);	&getlost($r,'Invalid call of handler');
return OK;	return OK;
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.1
changed lines
	Added in v.1.12