version 1.1, 2001/03/03 16:51:38
|
version 1.2, 2001/06/15 14:37:03
|
Line 13
|
Line 13
|
# |
# |
# 3/1 Gerd Kortemeyer) |
# 3/1 Gerd Kortemeyer) |
# |
# |
# 03/03/01 Gerd Kortemeyer |
# 03/03/01,06/15 Gerd Kortemeyer |
# |
# |
package Apache::lonratparms; |
package Apache::lonratparms; |
|
|
Line 26 sub handler {
|
Line 26 sub handler {
|
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
|
# Get query string for limited number of parameters |
|
|
|
map { |
|
my ($name, $value) = split(/=/,$_); |
|
$value =~ tr/+/ /; |
|
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
|
if (($name eq 'url') || ($name eq 'parms') || |
|
($name eq 'resid')) { |
|
unless ($ENV{'form.'.$name}) { |
|
$ENV{'form.'.$name}=$value; |
|
} |
|
} |
|
} (split(/&/,$ENV{'QUERY_STRING'})); |
|
|
|
|
|
# ------------------------------------------------------------------- Read file |
|
|
|
my $uri=$ENV{'form.url'}.'.meta'; |
|
my %content; |
|
map { |
|
$content{$_}=&Apache::lonnet::metadata($uri,$_); |
|
} split(/\,/,&Apache::lonnet::metadata($uri,'keys')); |
|
|
|
|
# --------------------------------------------------- Print login screen header |
# --------------------------------------------------- Print login screen header |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
<html> |
<html> |
Line 33 sub handler {
|
Line 57 sub handler {
|
<title>The LearningOnline Network with CAPA</title> |
<title>The LearningOnline Network with CAPA</title> |
</head> |
</head> |
<body bgcolor="#FFFFFF"> |
<body bgcolor="#FFFFFF"> |
<h1>Search Catalog</h1> |
<h1>Set Resource Parameters in Map</h1> |
<img src="/adm/lonKaputt/lonconstruct.gif"> |
<img src="/adm/lonKaputt/lonconstruct.gif"> |
</body> |
|
</html> |
|
ENDDOCUMENT |
ENDDOCUMENT |
|
map { |
|
$r->print($_.' - '.$content{$_}.'<br>'); |
|
} keys %content; |
|
$r->print('</body></html>'); |
return OK; |
return OK; |
} |
} |
|
|