--- loncom/startup.pl 2003/09/16 15:12:48 1.15 +++ loncom/startup.pl 2006/03/24 18:05:15 1.25 @@ -1,10 +1,9 @@ #!/usr/bin/perl -if ($mod_perl::VERSION > 1.99) { - use Apache::compat(); -} else { - use Apache(); -} +BEGIN { + eval "use Apache2::compat();"; + eval "use Apache();"; +}; use lib '/home/httpd/lib/perl'; #use lib '/usr/lib/perl5/site_perl/5.005/'; use lib '/usr/lib/perl5/site_perl/5.6.0/i386-linux/'; @@ -22,10 +21,14 @@ use HTML::LCParser(); use HTML::TokeParser(); use HTML::TreeBuilder(); use HTML::Entities(); +use Parse::RecDescent(); +use Date::Manip(); use IO::Socket(); use LWP::UserAgent(); use Math::Cephes(); +use Math::Cephes::Matrix qw(mat); use Math::Random(); +use Math::Complex; use Opcode(); use POSIX qw(strftime); use Safe(); @@ -54,7 +57,6 @@ use Apache::loncommon(); use Apache::lonquickgrades(); use Apache::lonaboutme(); use Apache::lonannounce(); -use Apache::lonassignments(); use Apache::lonbulletin(); use Apache::londropadd(); use Apache::lonerrorhandler(); @@ -70,6 +72,8 @@ use Apache::lonpageflip(); use Apache::lonpage(); use Apache::lonpreferences(); use Apache::lonprintout(); +use Apache::lonsubmissiontimeanalysis(); +use Apache::lonstudentsubmissions(); use Apache::lonproblemanalysis(); use Apache::lonproblemstatistics(); use Apache::lonroles(); @@ -117,8 +121,13 @@ use Apache::response(); use Apache::run(); use Apache::scripttag(); use Apache::structuretags(); +use Apache::portfolio(); +use Apache::bridgetask(); # can't include this one due to the way it does it's BEGIN -#use Apache::loncreateuser(); +use Apache::loncreateuser(); +use Apache::switchserver(); +use Apache::lonwhatsnew(); + 1; __END__