loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.29, 2002/10/16 19:15:55	version 1.30, 2002/10/16 20:18:19
Line 294 sub handler {	Line 294 sub handler {
$r->print('<html><head><title>Verify Content</title></head>'.	$r->print('<html><head><title>Verify Content</title></head>'.
&Apache::loncommon::bodytag('Verify Course Documents'));	&Apache::loncommon::bodytag('Verify Course Documents'));
$hashtied=0;	$hashtied=0;
	undef %alreadyseen;
	%alreadyseen=();
&tiehash();	&tiehash();
foreach (keys %hash) {	foreach (keys %hash) {
if (($_=~/^src\_(.+)$/) && (!$alreadyseen{$hash{$_}})) {	if (($_=~/^src\_(.+)$/) && (!$alreadyseen{$hash{$_}})) {
Line 306 sub handler {	Line 308 sub handler {
&Apache::loncommon::bodytag('Check Course Document Versions'));	&Apache::loncommon::bodytag('Check Course Document Versions'));
$hashtied=0;	$hashtied=0;
&tiehash();	&tiehash();
	my %changes=&Apache::lonnet::dump
	('versionupdate',$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
	$ENV{'course.'.$ENV{'request.course.id'}.'.num'});
	foreach (keys %changes) {
	$r->print('<br /><a href="'.$_.'" target="cat">'.$_.'</a> - '.
	localtime($changes{$_}));
	}
&untiehash();	&untiehash();
} else {	} else {
# is this a standard course?	# is this a standard course?