version 1.6, 2002/05/09 21:59:33
|
version 1.7, 2002/05/10 15:42:16
|
Line 35 package Apache::lonratedt;
|
Line 35 package Apache::lonratedt;
|
use strict; |
use strict; |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::lonnet; |
use Apache::lonnet; |
|
use Apache::lonratsrv; |
|
|
# --------------------------------------------------------- Build up RAT screen |
# --------------------------------------------------------- Build up RAT screen |
sub ratedt { |
sub ratedt { |
Line 59 ENDDOCUMENT
|
Line 60 ENDDOCUMENT
|
|
|
sub smpedt { |
sub smpedt { |
my ($r,$fn)=@_; |
my ($r,$fn)=@_; |
|
my $errtext=''; |
|
my ($outtext,$errtext)=&Apache::lonratsrv::loadmap($fn,$errtext); |
|
my @loadelements=split(/\<\&\>/,$outtext); |
$r->print(<<ENDSMPHEAD); |
$r->print(<<ENDSMPHEAD); |
<html> |
<html> |
<head> |
<head> |
Line 147 function idxcheck(mode) {
|
Line 151 function idxcheck(mode) {
|
<form method=post> |
<form method=post> |
<input type=submit name=forceadv |
<input type=submit name=forceadv |
value="Advanced Map Editing - Graphical Resource Assembly Tool"><hr> |
value="Advanced Map Editing - Graphical Resource Assembly Tool"><hr> |
This is the future site of the great simple RAT |
<font color=red>$errtext</font> |
<a href="javascript:groupsearch()">Group Search</a> |
<a href="javascript:groupsearch()">Group Search</a> |
<a href="javascript:groupimport()">Group Import</a> |
<a href="javascript:groupimport()">Group Import</a> |
|
|
ENDSMPHEAD |
ENDSMPHEAD |
|
$r->print('<pre>'); |
|
foreach (@loadelements) { $r->print($_."\n") } |
|
$r->print('</pre>'); |
$r->print( |
$r->print( |
'<input type=submit name=forcesmp value="Store"></form></body></html>'); |
'<input type=submit name=forcesmp value="Store"></form></body></html>'); |
} |
} |