# The LearningOnline Network with CAPA # Set parameters inside of the RAT # # (Search Catalog # # (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) # # 03/03/01,06/15 Gerd Kortemeyer # package Apache::lonratparms; 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; # 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 $r->print(< The LearningOnline Network with CAPA

Set Resource Parameters in Map

ENDDOCUMENT map { $r->print($_.' - '.$content{$_}.'
'); } keys %content; $r->print(''); return OK; } 1; __END__