loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.69, 2003/07/22 19:39:58	version 1.71, 2003/08/05 12:47:21
Line 265 END	Line 265 END
}	}
}	}
$url=~s/^http\&colon\;\/\//\/adm\/wrapper\/ext\//;	$url=~s/^http\&colon\;\/\//\/adm\/wrapper\/ext\//;
if ($residx) {	if (($residx) && ($folder!~/supplemental/)) {
$url.=(($url=~/\?/)?'&':'?').'symb='.	$url.=(($url=~/\?/)?'&':'?').'symb='.
&Apache::lonnet::escape(&Apache::lonnet::symbclean(	&Apache::lonnet::escape(&Apache::lonnet::symbclean(
&Apache::lonnet::declutter('uploaded/'.	&Apache::lonnet::declutter('uploaded/'.
Line 411 sub handler {	Line 411 sub handler {
}	}
}	}
&untiehash();	&untiehash();
	$r->print('<h1>Done.</h1>');
} elsif ($ENV{'form.versions'}) {	} elsif ($ENV{'form.versions'}) {
$r->print('<html><head><title>Check Versions</title></head>'.	$r->print('<html><head><title>Check Versions</title></head>'.
&Apache::loncommon::bodytag('Check Course Document Versions'));	&Apache::loncommon::bodytag('Check Course Document Versions'));
Line 498 ENDHEADERS	Line 499 ENDHEADERS
}	}
}	}
$r->print('</table>');	$r->print('</table>');
	$r->print('<h1>Done.</h1>');
} else {	} else {
$r->print('<p>No content modifications yet.</p>');	$r->print('<p>No content modifications yet.</p>');
}	}