|
version 1.91, 2003/05/07 19:31:43
|
version 1.92, 2003/05/23 06:18:25
|
|
Line 687 sub assessparms {
|
Line 687 sub assessparms {
|
| my $url=$ENV{'form.url'}; |
my $url=$ENV{'form.url'}; |
| $url=~s-^http://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--; |
$url=~s-^http://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--; |
| $pssymb=&Apache::lonnet::symbread($url); |
$pssymb=&Apache::lonnet::symbread($url); |
| @pscat='all'; |
if (!@pscat) { @pscat=('all'); } |
| $pschp=''; |
$pschp=''; |
| $parmlev = 'full'; |
$parmlev = 'full'; |
| } elsif ($ENV{'form.symb'}) { |
} elsif ($ENV{'form.symb'}) { |
| $pssymb=$ENV{'form.symb'}; |
$pssymb=$ENV{'form.symb'}; |
| @pscat='all'; |
if (!@pscat) { @pscat=('all'); } |
| $pschp=''; |
$pschp=''; |
| $parmlev = 'full'; |
$parmlev = 'full'; |
| } else { |
} else { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonparmset.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface