version 1.1, 2000/07/01 17:55:31
|
version 1.38, 2006/11/02 21:26:54
|
Line 1
|
Line 1
|
# The LearningOnline Network with CAPA |
# The LearningOnline Network with CAPA |
# Server for RAT Maps |
# Server for RAT Maps |
# |
# |
# (Edit Handler for RAT Maps |
# $Id$ |
# (TeX Content Handler |
# |
|
# Copyright Michigan State University Board of Trustees |
|
# |
|
# This file is part of the LearningOnline Network with CAPA (LON-CAPA). |
|
# |
|
# LON-CAPA is free software; you can redistribute it and/or modify |
|
# it under the terms of the GNU General Public License as published by |
|
# the Free Software Foundation; either version 2 of the License, or |
|
# (at your option) any later version. |
|
# |
|
# LON-CAPA is distributed in the hope that it will be useful, |
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
# GNU General Public License for more details. |
|
# |
|
# You should have received a copy of the GNU General Public License |
|
# along with LON-CAPA; if not, write to the Free Software |
|
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
|
# |
|
# /home/httpd/html/adm/gpl.txt |
|
# |
|
# http://www.lon-capa.org/ |
# |
# |
# 05/29/00,05/30 Gerd Kortemeyer) |
|
# 7/1 Gerd Kortemeyer) |
|
# 7/1 Gerd Kortemeyer |
|
|
|
package Apache::lonratsrv; |
package Apache::lonratsrv; |
|
|
use strict; |
use strict; |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
|
use LONCAPA::map(); |
|
|
|
|
# ================================================================ Main Handler |
# ================================================================ Main Handler |
|
|
sub handler { |
sub handler { |
my $r=shift; |
my $r=shift; |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
|
|
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
my $url=$r->uri; |
my $url=$r->uri; |
|
$url=~/\/(\w+)\/ratserver$/; |
|
my $mode=$1; |
|
|
|
$url=~s/\/loadonly\/ratserver$/\/save\/ratserver/; |
|
|
|
my $fn=$r->filename; |
|
my $lonDocRoot=$r->dir_config('lonDocRoot'); |
|
if ( $fn =~ /\Q$lonDocRoot\E/ ) { |
|
#internal authentication, needs fixup. |
|
$fn = $url; |
|
$fn=~s|^/~(\w+)|/home/$1/public_html|; |
|
$fn=~s|/[^/]*/ratserver$||; |
|
} |
|
my $errtext=''; |
|
my $infotext=''; |
|
my $outtext=''; |
|
|
|
if ($mode ne 'loadonly') { |
|
($errtext,$infotext)=&LONCAPA::map::savemap($fn,$errtext); |
|
} |
|
($outtext,$errtext,$infotext)=&LONCAPA::map::loadmap($fn,$errtext,$infotext); |
|
|
|
my $start_page = |
|
&Apache::loncommon::start_page('Alert',undef, |
|
{'only_body' => 1, |
|
'bgcolor' => '#FFFFFF',}); |
|
my $end_page = |
|
&Apache::loncommon::end_page(); |
|
|
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
<html> |
$start_page |
<body bgcolor="#FFFFFF"> |
<form name="storage" method="post" action="$url"> |
<form name=storage method=post> |
<input type="hidden" name="output" value="$outtext" /> |
<input type=hidden name=output> |
|
</form> |
</form> |
</body> |
<script type ="text/javascript"> |
</html> |
parent.flag=1; |
|
</script> |
ENDDOCUMENT |
ENDDOCUMENT |
|
if (($errtext ne '') || ($infotext ne '')) { |
|
$r->print(<<ENDSCRIPT); |
|
<script type="text/javascript"> |
|
alert("$infotext $errtext"); |
|
</script> |
|
ENDSCRIPT |
|
} |
|
$r->print($end_page); |
|
|
return OK; |
return OK; |
} |
} |
|
|
1; |
1; |
__END__ |
__END__ |
|
|
|
|
|
|
|
|
|
|
|
|
|
|