version 1.27, 2004/04/23 17:30:33
|
version 1.29, 2005/02/17 09:09:57
|
Line 26
|
Line 26
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
|
|
|
|
package Apache::lonratsrv; |
package Apache::lonratsrv; |
|
|
use strict; |
use strict; |
Line 60 sub qtunescape {
|
Line 59 sub qtunescape {
|
# --------------------------------------------------------- Loads map from disk |
# --------------------------------------------------------- Loads map from disk |
|
|
sub loadmap { |
sub loadmap { |
my ($fn,$errtext)=@_; |
my ($fn,$errtext,$infotext)=@_; |
|
if ($errtext) { return('',$errtext); } |
my $outstr=''; |
my $outstr=''; |
my @obj=(); |
my @obj=(); |
my @links=(); |
my @links=(); |
Line 190 sub loadmap {
|
Line 190 sub loadmap {
|
} else { |
} else { |
$errtext.='Map not loaded: The file does not exist. '; |
$errtext.='Map not loaded: The file does not exist. '; |
} |
} |
return($outstr,$errtext); |
return($outstr,$errtext,$infotext); |
} |
} |
|
|
|
|
Line 198 sub loadmap {
|
Line 198 sub loadmap {
|
|
|
sub savemap { |
sub savemap { |
my ($fn,$errtext)=@_; |
my ($fn,$errtext)=@_; |
|
my $infotext=''; |
my %alltypes; |
my %alltypes; |
my %allvalues; |
my %allvalues; |
if (($fn=~/\.sequence(\.tmp)*$/) || |
if (($fn=~/\.sequence(\.tmp)*$/) || |
Line 298 sub savemap {
|
Line 299 sub savemap {
|
my $fh; |
my $fh; |
if ($fh=Apache::File->new(">$fn")) { |
if ($fh=Apache::File->new(">$fn")) { |
print $fh $outstr; |
print $fh $outstr; |
$errtext.="Map saved as $fn. "; |
$infotext.="Map saved as $fn. "; |
} else { |
} else { |
$errtext.='Could not write file '.$fn.'. Map not saved. '; |
$errtext.='Could not write file '.$fn.'. Map not saved. '; |
} |
} |
Line 307 sub savemap {
|
Line 308 sub savemap {
|
# -------------------------------------------- Cannot write to that file, error |
# -------------------------------------------- Cannot write to that file, error |
$errtext.='Map not saved: The specified path does not exist. '; |
$errtext.='Map not saved: The specified path does not exist. '; |
} |
} |
return $errtext; |
return ($errtext,$infotext); |
} |
} |
|
|
# ================================================================ 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; |
Line 334 sub handler {
|
Line 335 sub handler {
|
$fn=~s|/[^/]*/ratserver$||; |
$fn=~s|/[^/]*/ratserver$||; |
} |
} |
my $errtext=''; |
my $errtext=''; |
|
my $infotext=''; |
my $outtext=''; |
my $outtext=''; |
|
|
if ($mode ne 'loadonly') { |
if ($mode ne 'loadonly') { |
$errtext=&savemap($fn,$errtext); |
($errtext,$infotext)=&savemap($fn,$errtext); |
} |
} |
($outtext,$errtext)=&loadmap($fn,$errtext); |
($outtext,$errtext,$infotext)=&loadmap($fn,$errtext,$infotext); |
|
|
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
<html> |
<html> |
Line 351 sub handler {
|
Line 353 sub handler {
|
parent.flag=1; |
parent.flag=1; |
</script> |
</script> |
ENDDOCUMENT |
ENDDOCUMENT |
if ($errtext ne '') { |
if (($errtext ne '') || ($infotext ne '')) { |
$r->print(<<ENDSCRIPT); |
$r->print(<<ENDSCRIPT); |
<script> |
<script> |
alert("$errtext"); |
alert("$infotext $errtext"); |
</script> |
</script> |
ENDSCRIPT |
ENDSCRIPT |
} |
} |