loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/londocs.pm between versions 1.17 and 1.29

version 1.17, 2002/09/04 14:50:53	version 1.29, 2002/10/16 19:15:55
Line 29	Line 29
package Apache::londocs;	package Apache::londocs;

use strict;	use strict;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common :http);
use Apache::lonnet;	use Apache::lonnet;
use Apache::loncommon;	use Apache::loncommon;
use Apache::lonratedt;	use Apache::lonratedt;
use Apache::lonratsrv;	use Apache::lonratsrv;
use Apache::lonxml;	use Apache::lonxml;
	use GDBM_File;

my $iconpath;	my $iconpath;

	my %hash;

	my $hashtied;
	my %alreadyseen=();

# Mapread read maps into lonratedt::global arrays	# Mapread read maps into lonratedt::global arrays
# @order and @resources, determines status	# @order and @resources, determines status
# sets @order - pointer to resources in right order	# sets @order - pointer to resources in right order
Line 198 END	Line 204 END
$url=&Apache::lonnet::tokenwrapper($url);	$url=&Apache::lonnet::tokenwrapper($url);
}	}
}	}
	$url=~s/^http\&colon\;\/\//\/adm\/wrapper\/ext\//;
# Title	# Title
$title=&Apache::lonnet::unescape($title);	$title=&Apache::lonnet::unescape($title);
my $foldertitle=$title;	my $foldertitle=$title;
Line 210 END	Line 217 END
$foldertitle;	$foldertitle;
}	}
if ($isfolder) { $url.='&foldername='.$foldertitle; }	if ($isfolder) { $url.='&foldername='.$foldertitle; }
$line.='<td bgcolor="#FFFFBB"><a href="'.$url.'"><img src="/adm/lonIcons/'.	$line.='<td bgcolor="#FFFFBB"><a href="'.$url.'" target="cat_'.$folder.
	'"><img src="/adm/lonIcons/'.
$icon.'.gif" border="0"></a></td>'.	$icon.'.gif" border="0"></a></td>'.
"<td bgcolor='#FFFFBB'><a href='$url'>$title</a></td></tr>";	"<td bgcolor='#FFFFBB'><a href='$url' target='cat_$folder'>$title</a></td></tr>";
return $line;	return $line;
}	}

	# ---------------------------------------------------------------- tie the hash

	sub tiehash {
	$hashtied=0;
	if ($ENV{'request.course.fn'}) {
	if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.".db",
	&GDBM_READER(),0640)) {
	$hashtied=1;
	}
	}
	}

	sub untiehash {
	if ($hashtied) { untie %hash; }
	$hashtied=0;
	}

	# --------------------------------------------------------------- check on this

	sub checkonthis {
	my ($r,$url,$level,$title)=@_;
	$alreadyseen{$url}=1;
	$r->rflush();
	if ($url) {
	$r->print('<br />');
	for (my $i=0;$i<=$level*5;$i++) {
	$r->print(' ');
	}
	$r->print('<a href="'.$url.'" target="cat">'.
	($title?$title:$url).'</a> ');
	if ($url=~/^\/res\//) {
	my $result=&Apache::lonnet::repcopy(
	&Apache::lonnet::filelocation('',$url));
	if ($result==OK) {
	$r->print('<font color="green">ok</font>');
	$r->rflush();
	my $dependencies=
	&Apache::lonnet::metadata($url,'dependencies');
	foreach (split(/\,/,$dependencies)) {
	if (($_=~/^\/res\//) && (!$alreadyseen{$_})) {
	&checkonthis($r,$_,$level+1);
	}
	}
	} elsif ($result==HTTP_SERVICE_UNAVAILABLE) {
	$r->print('<font color="red"><b>connection down</b></font>');
	} elsif ($result==HTTP_NOT_FOUND) {
	$r->print('<font color="red"><b>not found</b></font>');
	} else {
	$r->print('<font color="red"><b>access denied</b></font>');
	}
	}
	}
	}

# ================================================================ Main Handler	# ================================================================ Main Handler
sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 223 sub handler {	Line 285 sub handler {
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;


	if ($ENV{'form.verify'}) {

	my $loaderror=&Apache::lonnet::overloaderror($r);
	if ($loaderror) { return $loaderror; }

	$r->print('<html><head><title>Verify Content</title></head>'.
	&Apache::loncommon::bodytag('Verify Course Documents'));
	$hashtied=0;
	&tiehash();
	foreach (keys %hash) {
	if (($_=~/^src\_(.+)$/) && (!$alreadyseen{$hash{$_}})) {
	&checkonthis($r,$hash{$_},0,$hash{'title_'.$1});
	}
	}
	&untiehash();
	} elsif ($ENV{'form.versions'}) {
	$r->print('<html><head><title>Check Versions</title></head>'.
	&Apache::loncommon::bodytag('Check Course Document Versions'));
	$hashtied=0;
	&tiehash();

	&untiehash();
	} else {
# is this a standard course?	# is this a standard course?

my $standard=($ENV{'request.course.uri'}=~/^\/uploaded\//);	my $standard=($ENV{'request.course.uri'}=~/^\/uploaded\//);
Line 231 sub handler {	Line 317 sub handler {
my $script='';	my $script='';
my $allowed;	my $allowed;
my $events='';	my $events='';
	my $showdoc=0;
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['folder','foldername','showdoc']);	['folder','foldername']);
unless ($ENV{'form.showdoc'}) { # got called from remote	if ($r->uri=~/^\/adm\/coursedocs\/showdoc\/(.*)$/) {
	$showdoc=$1;
	}
	unless ($showdoc) { # got called from remote
$forcestandard=($ENV{'form.folder'}=~/^default_/);	$forcestandard=($ENV{'form.folder'}=~/^default_/);
$forcesupplement=($ENV{'form.folder'}=~/^supplemental_/);	$forcesupplement=($ENV{'form.folder'}=~/^supplemental_/);

Line 245 sub handler {	Line 335 sub handler {
}	}
} else { # got called in sequence from course	} else { # got called in sequence from course
$allowed=0;	$allowed=0;
$forcestandard=1;	$script='</script>'.&Apache::lonxml::registerurl(1,undef).'<script>';
$forcesupplement=0;
$script=&Apache::&Apache::lonxml::registerurl(1,undef);
$events='onLoad="'.&Apache::lonxml::loadevents.	$events='onLoad="'.&Apache::lonxml::loadevents.
'" onUnload="'.&Apache::lonxml::unloadevents.'"';	'" onUnload="'.&Apache::lonxml::unloadevents.'"';
}	}
Line 267 sub handler {	Line 355 sub handler {

$iconpath = $r->dir_config('lonIconsURL') . "/";	$iconpath = $r->dir_config('lonIconsURL') . "/";

	my $now=time;

# print screen	# print screen
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
<html>	<html>
Line 274 sub handler {	Line 364 sub handler {
<title>The LearningOnline Network with CAPA</title>	<title>The LearningOnline Network with CAPA</title>
<script>	<script>
$script	$script
	</script>
	ENDDOCUMENT
	if ($allowed) {
	$r->print(<<ENDNEWSCRIPT);
	<script>
function makenewfolder(targetform,folderseq) {	function makenewfolder(targetform,folderseq) {
var foldername=prompt('Name of New Folder','New Folder');	var foldername=prompt('Name of New Folder','New Folder');
if (foldername) {	if (foldername) {
Line 283 function makenewfolder(targetform,folder	Line 377 function makenewfolder(targetform,folder
}	}
}	}

function makenewext(targetform) {	function makenewext(targetname) {
	this.document.forms.extimport.useform.value=targetname;
	window.open('/adm/rat/extpickframe.html');
	}

	function makesmppage() {
	var title=prompt('Listed Title for the Page');
	this.document.forms.newsmppg.importdetail.value=
	title+'=/adm/$udom/$uname/$now/smppg';
	this.document.forms.newsmppg.submit();
	}

	function makebulboard() {
	var title=prompt('Listed Title for the Bulletin Board');
	this.document.forms.newbul.importdetail.value=
	title+'=/adm/$udom/$uname/$now/bulletinboard';
	this.document.forms.newbul.submit();
	}

	function finishpick() {
	var title=this.document.forms.extimport.title.value;
	var url=this.document.forms.extimport.url.value;
	var form=this.document.forms.extimport.useform.value;
	eval
	('this.document.forms.'+form+'.importdetail.value="'+title+'='+url+
	'";this.document.forms.'+form+'.submit();');
}	}
</script>	</script>
</head>	ENDNEWSCRIPT
ENDDOCUMENT	}
$r->print(&Apache::loncommon::bodytag('Course Documents','',$events));	# -------------------------------------------------------------------- Body tag
	$r->print('</head>'.
	&Apache::loncommon::bodytag('Course Documents','',$events));
	unless ($showdoc) {
	if ($allowed) {
	$r->print(<<ENDCOURSEVERIFY);
	<form action="/adm/coursedocs" method="post" name="courseverify">
	<input type="submit" name="verify" value="Verify Content" />
	<input type="submit" name="versions" value="Check Resource Versions" />
	</form>
	ENDCOURSEVERIFY
	}
# --------------------------------------------------------- Standard documents	# --------------------------------------------------------- Standard documents
	$r->print('<table>');
if (($standard) && ($allowed) && (!$forcesupplement)) {	if (($standard) && ($allowed) && (!$forcesupplement)) {
$r->print('<h2>Main Course Documents</h2>');	$r->print('<tr><td bgcolor="#FFFFBB"><h2>Main Course Documents</h2>');
my $folder=$ENV{'form.folder'};	my $folder=$ENV{'form.folder'};
unless ($folder=~/^default/) { $folder='default'; }	unless ($folder=~/^default/) { $folder='default'; }
&editor($r,$coursenum,$coursedom,$folder,$allowed);	&editor($r,$coursenum,$coursedom,$folder,$allowed);
Line 338 value="New Folder" />	Line 469 value="New Folder" />
<input type="hidden" name="folder" value="$folder">	<input type="hidden" name="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">	<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail" value="">	<input type=hidden name="importdetail" value="">
<input name="newext" type="button" onClick="javascript:makenewext(this.form);"	<input name="newext" type="button" onClick="javascript:makenewext('newext');"
value="External Resource" />	value="External Resource" />
</form>	</form>
<form action="/adm/coursedocs" method="post" name="newsyl">	<form action="/adm/coursedocs" method="post" name="newsyl">
Line 349 value="Syllabus=/public/$coursedom/$cour	Line 480 value="Syllabus=/public/$coursedom/$cour
<input name="newsyl" type="submit" value="Syllabus" />	<input name="newsyl" type="submit" value="Syllabus" />
</form>	</form>
<form action="/adm/coursedocs" method="post" name="newnav">	<form action="/adm/coursedocs" method="post" name="newnav">
	<input type="hidden" name="folder" value="$folder">
	<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail"	<input type=hidden name="importdetail"
value="Navigate Content=/adm/navmaps">	value="Navigate Content=/adm/navmaps">
<input name="newsyl" type="submit" value="Navigate Content" />	<input name="newnav" type="submit" value="Navigate Content" />
	</form>
	<form action="/adm/coursedocs" method="post" name="newsmppg">
	<input type="hidden" name="folder" value="$folder">
	<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
	<input type=hidden name="importdetail" value="">
	<input name="newsmppg" type="button" value="Simple Page"
	onClick="javascript:makesmppage();" />
	</form>
	<form action="/adm/coursedocs" method="post" name="newbul">
	<input type="hidden" name="folder" value="$folder">
	<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
	<input type=hidden name="importdetail" value="">
	<input name="newbulletin" type="button" value="Bulletin Board"
	onClick="javascript:makebulboard();" />
</form>	</form>
<form action="/adm/coursedocs" method="post" name="newaboutme">	<form action="/adm/coursedocs" method="post" name="newaboutme">
<input type="hidden" name="folder" value="$folder">	<input type="hidden" name="folder" value="$folder">
Line 363 value="$plainname=/adm/$udom/$uname/abou	Line 510 value="$plainname=/adm/$udom/$uname/abou
</td></tr>	</td></tr>
</table>	</table>
ENDFORM	ENDFORM
$r->print('<hr />');	$r->print('</td></tr>');
}	}
# ----------------------------------------------------- Supplemental documents	# ----------------------------------------------------- Supplemental documents
if (!$forcestandard) {	if (!$forcestandard) {
$r->print('<h2>Supplemental Course Documents</h2>');	$r->print(
	'<tr><td bgcolor="#BBFFFF"><h2>Supplemental Course Documents</h2>');
my $folder=$ENV{'form.folder'};	my $folder=$ENV{'form.folder'};
unless ($folder=~/supplemental/) { $folder='supplemental'; }	unless ($folder=~/supplemental/) { $folder='supplemental'; }
&editor($r,$coursenum,$coursedom,$folder,$allowed);	&editor($r,$coursenum,$coursedom,$folder,$allowed);
Line 404 ENDFORM	Line 552 ENDFORM
"javascript:groupimport();" value="Import">	"javascript:groupimport();" value="Import">
</form>	</form>
</td><td bgcolor="#DDDDDD">	</td><td bgcolor="#DDDDDD">
<form action="/adm/coursedocs" method="post" name="newfolder">	<form action="/adm/coursedocs" method="post" name="supnewfolder">
<input type="hidden" name="folder" value="$folder">	<input type="hidden" name="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">	<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail" value="">	<input type=hidden name="importdetail" value="">
Line 412 ENDFORM	Line 560 ENDFORM
onClick="javascript:makenewfolder(this.form,'$folderseq');"	onClick="javascript:makenewfolder(this.form,'$folderseq');"
value="New Folder" />	value="New Folder" />
</form>	</form>
<form action="/adm/coursedocs" method="post" name="newext">	<form action="/adm/coursedocs" method="post" name="supnewext">
<input type="hidden" name="folder" value="$folder">	<input type="hidden" name="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">	<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail" value="">	<input type=hidden name="importdetail" value="">
<input name="newext" type="button" onClick="javascript:makenewext(this.form);"	<input name="newext" type="button"
	onClick="javascript:makenewext('supnewext');"
value="External Resource" />	value="External Resource" />
</form>	</form>
<form action="/adm/coursedocs" method="post" name="newsyl">	<form action="/adm/coursedocs" method="post" name="supnewsyl">
<input type="hidden" name="folder" value="$folder">	<input type="hidden" name="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">	<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail"	<input type=hidden name="importdetail"
value="Syllabus=/public/$coursedom/$coursenum/syllabus">	value="Syllabus=/public/$coursedom/$coursenum/syllabus">
<input name="newsyl" type="submit" value="Syllabus" />	<input name="newsyl" type="submit" value="Syllabus" />
</form>	</form>
<form action="/adm/coursedocs" method="post" name="newaboutme">	<form action="/adm/coursedocs" method="post" name="subnewaboutme">
<input type="hidden" name="folder" value="$folder">	<input type="hidden" name="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">	<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail"	<input type=hidden name="importdetail"
Line 434 value="$plainname=/adm/$udom/$uname/abou	Line 583 value="$plainname=/adm/$udom/$uname/abou
<input name="newaboutme" type="submit" value="My Personal Info" />	<input name="newaboutme" type="submit" value="My Personal Info" />
</form>	</form>
</td></tr>	</td></tr>
</table>	</table></td></tr>
ENDSUPFORM	ENDSUPFORM
}	}
}	}
	if ($allowed) {
$r->print('</body></html>');	$r->print('<form name="extimport"><input type="hidden" name="title"><input type="hidden" name="url"><input type="hidden" name="useform"></form>');
return OK;	}
	$r->print('</table>');
	} else {
	# -------------------------------------------------------- This is showdoc mode
	$r->print("<h1>Uploaded Document</h1><p>It is recommended that you use an up-to-date virus scanner before handling this file.</p><p><table>".
	&entryline(0,"Click to download or use your browser's Save Link function",$showdoc).'</table></p>');
	}
	}
	$r->print('</body></html>');
	return OK;
}	}

1;	1;

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

Removed from v.1.17
changed lines
	Added in v.1.29