--- rat/lonratparms.pm 2001/03/03 16:51:38 1.1 +++ rat/lonratparms.pm 2001/06/15 14:37:03 1.2 @@ -13,7 +13,7 @@ # # 3/1 Gerd Kortemeyer) # -# 03/03/01 Gerd Kortemeyer +# 03/03/01,06/15 Gerd Kortemeyer # package Apache::lonratparms; @@ -26,6 +26,30 @@ sub handler { $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(< @@ -33,11 +57,13 @@ sub handler { The LearningOnline Network with CAPA -

Search Catalog

+

Set Resource Parameters in Map

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