[LON-CAPA-cvs] cvs: loncom / loncapa_apache.conf /interface lonannounce.pm lonchat.pm londocs.pm /xml lonxml.pm doc/loncapafiles loncapafiles.lpml
www
lon-capa-cvs@mail.lon-capa.org
Wed, 24 Jul 2002 20:25:23 -0000
www Wed Jul 24 16:25:23 2002 EDT
Added files:
/loncom/interface lonannounce.pm lonchat.pm londocs.pm
Modified files:
/doc/loncapafiles loncapafiles.lpml
/loncom loncapa_apache.conf
/loncom/xml lonxml.pm
Log:
Toward new functionality:
announcements
calendar
chat
course documents
Index: doc/loncapafiles/loncapafiles.lpml
diff -u doc/loncapafiles/loncapafiles.lpml:1.144 doc/loncapafiles/loncapafiles.lpml:1.145
--- doc/loncapafiles/loncapafiles.lpml:1.144 Wed Jul 24 10:52:32 2002
+++ doc/loncapafiles/loncapafiles.lpml Wed Jul 24 16:25:23 2002
@@ -3,7 +3,7 @@
<!-- loncapafiles.lpml -->
<!-- Scott Harrison -->
-<!-- $Id: loncapafiles.lpml,v 1.144 2002/07/24 14:52:32 stredwic Exp $ -->
+<!-- $Id: loncapafiles.lpml,v 1.145 2002/07/24 20:25:23 www Exp $ -->
<!--
@@ -1268,6 +1268,33 @@
<description>
Wrapper for external and binary files as standalone resources.
Edit handler for rat maps; TeX content handler.
+</description>
+<status>works/unverified</status>
+</file>
+<file>
+<source>interface/londocs.pm</source>
+<target dist='default'>home/httpd/lib/perl/Apache/londocs.pm</target>
+<categoryname>handler</categoryname>
+<description>
+Handler for course documents
+</description>
+<status>works/unverified</status>
+</file>
+<file>
+<source>interface/lonchat.pm</source>
+<target dist='default'>home/httpd/lib/perl/Apache/lonchat.pm</target>
+<categoryname>handler</categoryname>
+<description>
+Handler for chat
+</description>
+<status>works/unverified</status>
+</file>
+<file>
+<source>interface/lonannounce.pm</source>
+<target dist='default'>home/httpd/lib/perl/Apache/lonannounce.pm</target>
+<categoryname>handler</categoryname>
+<description>
+Handler to put up announcements and calendar
</description>
<status>works/unverified</status>
</file>
Index: loncom/loncapa_apache.conf
diff -u loncom/loncapa_apache.conf:1.9 loncom/loncapa_apache.conf:1.10
--- loncom/loncapa_apache.conf:1.9 Mon Jul 22 16:35:05 2002
+++ loncom/loncapa_apache.conf Wed Jul 24 16:25:23 2002
@@ -1,7 +1,7 @@
##
## loncapa_apache.conf -- Apache HTTP LON-CAPA configuration file
##
-## $Id: loncapa_apache.conf,v 1.9 2002/07/22 20:35:05 stredwic Exp $
+## $Id: loncapa_apache.conf,v 1.10 2002/07/24 20:25:23 www Exp $
##
## 1/11/2002 - Scott Harrison
## 2/19/2002 - Scott Harrison
@@ -375,6 +375,30 @@
PerlAccessHandler Apache::lonacc
SetHandler perl-script
PerlHandler Apache::lonfeedback
+ErrorDocument 403 /adm/login
+ErrorDocument 500 /adm/errorhandler
+</Location>
+
+<Location /adm/coursedocs>
+PerlAccessHandler Apache::lonacc
+SetHandler perl-script
+PerlHandler Apache::londocs
+ErrorDocument 403 /adm/login
+ErrorDocument 500 /adm/errorhandler
+</Location>
+
+<Location /adm/announcements>
+PerlAccessHandler Apache::lonacc
+SetHandler perl-script
+PerlHandler Apache::lonannounce
+ErrorDocument 403 /adm/login
+ErrorDocument 500 /adm/errorhandler
+</Location>
+
+<Location /adm/chat>
+PerlAccessHandler Apache::lonacc
+SetHandler perl-script
+PerlHandler Apache::lonchat
ErrorDocument 403 /adm/login
ErrorDocument 500 /adm/errorhandler
</Location>
Index: loncom/xml/lonxml.pm
diff -u loncom/xml/lonxml.pm:1.183 loncom/xml/lonxml.pm:1.184
--- loncom/xml/lonxml.pm:1.183 Tue Jul 23 10:17:45 2002
+++ loncom/xml/lonxml.pm Wed Jul 24 16:25:23 2002
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# XML Parser Module
#
-# $Id: lonxml.pm,v 1.183 2002/07/23 14:17:45 sakharuk Exp $
+# $Id: lonxml.pm,v 1.184 2002/07/24 20:25:23 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -384,7 +384,7 @@
menu.switchbutton
(8,1,'eval.gif','evaluate','this','gopost("/adm/evaluate",currentURL)');
menu.switchbutton
- (8,2,'fdbk.gif','feedback','on this','gopost("/adm/feedback",currentURL)');
+ (8,2,'fdbk.gif','feedback','discuss','gopost("/adm/feedback",currentURL)');
menu.switchbutton
(8,3,'prt.gif','prepare','printout','gopost("/adm/printout",currentURL)');
menu.switchbutton
Index: loncom/interface/lonannounce.pm
+++ loncom/interface/lonannounce.pm
# The LearningOnline Network
# Printout
#
# (Internal Server Error Handler
#
# (Login Screen
# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14,
# 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer)
#
# 3/1/1 Gerd Kortemeyer)
#
# 3/1 Gerd Kortemeyer
#
package Apache::lonprintout;
use strict;
use Apache::Constants qw(:common);
sub handler {
my $r = shift;
$r->content_type('text/html');
$r->send_http_header;
return OK if $r->header_only;
# --------------------------------------------------- Print login screen header
$r->print(<<ENDDOCUMENT);
<html>
<head>
<title>The LearningOnline Network with CAPA</title>
</head>
<body bgcolor="#FFFFFF">
<h1>Printout</h1>
<img src="/adm/lonKaputt/lonconstruct.gif">
</body>
</html>
ENDDOCUMENT
return OK;
}
1;
__END__
Index: loncom/interface/lonchat.pm
+++ loncom/interface/lonchat.pm
# The LearningOnline Network
# Printout
#
# (Internal Server Error Handler
#
# (Login Screen
# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14,
# 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer)
#
# 3/1/1 Gerd Kortemeyer)
#
# 3/1 Gerd Kortemeyer
#
package Apache::lonprintout;
use strict;
use Apache::Constants qw(:common);
sub handler {
my $r = shift;
$r->content_type('text/html');
$r->send_http_header;
return OK if $r->header_only;
# --------------------------------------------------- Print login screen header
$r->print(<<ENDDOCUMENT);
<html>
<head>
<title>The LearningOnline Network with CAPA</title>
</head>
<body bgcolor="#FFFFFF">
<h1>Printout</h1>
<img src="/adm/lonKaputt/lonconstruct.gif">
</body>
</html>
ENDDOCUMENT
return OK;
}
1;
__END__
Index: loncom/interface/londocs.pm
+++ loncom/interface/londocs.pm
# The LearningOnline Network
# Printout
#
# (Internal Server Error Handler
#
# (Login Screen
# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14,
# 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer)
#
# 3/1/1 Gerd Kortemeyer)
#
# 3/1 Gerd Kortemeyer
#
package Apache::lonprintout;
use strict;
use Apache::Constants qw(:common);
sub handler {
my $r = shift;
$r->content_type('text/html');
$r->send_http_header;
return OK if $r->header_only;
# --------------------------------------------------- Print login screen header
$r->print(<<ENDDOCUMENT);
<html>
<head>
<title>The LearningOnline Network with CAPA</title>
</head>
<body bgcolor="#FFFFFF">
<h1>Printout</h1>
<img src="/adm/lonKaputt/lonconstruct.gif">
</body>
</html>
ENDDOCUMENT
return OK;
}
1;
__END__