[WWcvs] webwork-modperl: Allow the admin course to be hidden by the

[Arnie P. v. a. <we...@ma...>]

Log Message:
-----------
Allow the admin course to be hidden by the hide_directort technique

Modified Files:
--------------
    webwork-modperl/lib/WeBWorK/ContentGenerator:
        Home.pm

Revision Data
-------------
Index: Home.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/ContentGenerator/Home.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -Llib/WeBWorK/ContentGenerator/Home.pm -Llib/WeBWorK/ContentGenerator/Home.pm -u -r1.11 -r1.12
--- lib/WeBWorK/ContentGenerator/Home.pm
+++ lib/WeBWorK/ContentGenerator/Home.pm
@@ -83,7 +83,7 @@
 	
 	print CGI::p("Welcome to WeBWorK!");
 	
-	if ($haveAdminCourse) {
+	if ($haveAdminCourse and !(-f "$coursesDir/admin/hide_directory")) {
 		my $urlpath = $r->urlpath->newFromModule("WeBWorK::ContentGenerator::ProblemSets", courseID => "admin");
 		print CGI::p(CGI::a({href=>$self->systemLink($urlpath, authen => 0)}, "Course Administration"));
 	}