version 1.3, 2000/11/21 22:57:53
|
version 1.4, 2000/11/22 12:16:03
|
Line 9
|
Line 9
|
# |
# |
# 10/11,10/12,10/16 Gerd Kortemeyer) |
# 10/11,10/12,10/16 Gerd Kortemeyer) |
# |
# |
# 11/20,11/21 Gerd Kortemeyer |
# 11/20,11/21,11/22 Gerd Kortemeyer |
|
|
package Apache::lonparmset; |
package Apache::lonparmset; |
|
|
Line 17 use strict;
|
Line 17 use strict;
|
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::Constants qw(:common :http REDIRECT); |
use GDBM_File; |
use GDBM_File; |
|
use Apache::lonmeta; |
|
|
|
|
my %courseopt; |
my %courseopt; |
my %useropt; |
my %useropt; |
Line 201 sub handler {
|
Line 203 sub handler {
|
if ($uhome eq 'no_host') { |
if ($uhome eq 'no_host') { |
$r->print($message); |
$r->print($message); |
} |
} |
|
$r->print('<table border=2>'); |
map { |
map { |
$r->print($_.'<br>'); |
$r->print('<tr>'); |
|
# ------------------------------------------------------ Entry for one resource |
|
my %metadata=&Apache::lonmeta::unpackagemeta( |
|
&Apache::lonnet::getfile('/home/httpd/html/'.$bighash{'src_'.$_}.'.meta'),1); |
|
map { |
|
if ($_=~/^parameter\_(\d+)\_(\w+)\_\_dis\_\_(.+)$/) { |
|
my $part=$1; |
|
my $name=$2; |
|
my $display=$3; |
|
my $type=$metadata{$_}; |
|
} |
|
} keys %metadata; |
|
# -------------------------------------------------- End entry for one resource |
|
$r->print('</tr>'); |
} @ids; |
} @ids; |
$r->print('</body></html>'); |
$r->print('</table></body></html>'); |
untie(%bighash); |
untie(%bighash); |
untie(%parmhash); |
untie(%parmhash); |
} |
} |