# 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,06/25,06/26 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; my %type; my %value; map { $content{$_}=&Apache::lonnet::metadata($uri,$_); } split(/\,/,&Apache::lonnet::metadata($uri,'keys')); # ---------------------------------------------------------- Current Parameters map { my ($ptype,$pname,$pvalue)=split(/\_\_\_/,$_); $type{$pname}=$ptype; $value{$pname}=$pvalue; } split(/\:/,$ENV{'form.params'}); # --------------------------------------------------- Print input screen header $r->print(< The LearningOnline Network with CAPA

Set Resource Parameters in Map

ENDDOCUMENT my $cur=$content{$_}; if (defined($value{$_})) { $cur=$value{$_}; } map { $r->print(''); } keys %content; $r->print( '
ParameterValueSet?
'.$_. '

'); return OK; } 1; __END__