version 1.62, 2003/10/22 16:52:14
|
version 1.63, 2003/10/23 21:01:54
|
Line 161 sub loadmap {
|
Line 161 sub loadmap {
|
} |
} |
} |
} |
&Apache::lonnet::do_cache(\%Apache::lonnet::titlecache, |
&Apache::lonnet::do_cache(\%Apache::lonnet::titlecache, |
&Apache::lonnet::symbclean( |
&Apache::lonnet::encode_symb($uri,$token->[2]->{'id'}, |
&Apache::lonnet::declutter($uri).'___'. |
$turi), |
$token->[2]->{'id'}.'___'. |
$token->[2]->{'title'},'title'); |
&Apache::lonnet::declutter($turi)), |
|
$token->[2]->{'title'}); |
|
unless ($ispage) { |
unless ($ispage) { |
$turi=~/\.(\w+)$/; |
$turi=~/\.(\w+)$/; |
my $embstyle=&Apache::loncommon::fileembstyle($1); |
my $embstyle=&Apache::loncommon::fileembstyle($1); |
Line 267 sub loadmap {
|
Line 265 sub loadmap {
|
# ------------------------------------------------------------------- Parameter |
# ------------------------------------------------------------------- Parameter |
|
|
my $referid=$lpc.'.'.$token->[2]->{'to'}; |
my $referid=$lpc.'.'.$token->[2]->{'to'}; |
my $part=$token->[2]->{'part'}; |
my $name=$token->[2]->{'name'}; |
unless ($part) { $part=0; } |
my $part; |
|
if ($name=~/^parameter_(.*)_/) { |
|
$part=$1; |
|
} else { |
|
$part=0; |
|
} |
|
$name=~s/^.*_([^_]*)$/$1/; |
my $newparam= |
my $newparam= |
&Apache::lonnet::escape($token->[2]->{'type'}).':'. |
&Apache::lonnet::escape($token->[2]->{'type'}).':'. |
&Apache::lonnet::escape($part.'.'. |
&Apache::lonnet::escape($part.'.'.$name).'='. |
$token->[2]->{'name'}).'='. |
|
&Apache::lonnet::escape($token->[2]->{'value'}); |
&Apache::lonnet::escape($token->[2]->{'value'}); |
if (defined($hash{'param_'.$referid})) { |
if (defined($hash{'param_'.$referid})) { |
$hash{'param_'.$referid}.='&'.$newparam; |
$hash{'param_'.$referid}.='&'.$newparam; |