loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

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);
}	}