loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmeta.pm between versions 1.64 and 1.65

version 1.64, 2004/04/13 14:42:24	version 1.65, 2004/04/13 15:41:19
Line 104 sub authordisplay {	Line 104 sub authordisplay {
# Pretty display	# Pretty display
sub evalgraph {	sub evalgraph {
my $value=shift;	my $value=shift;
unless ($value) { return ''; }	if (! $value) {
	return '';
	}
my $val=int($value*10.+0.5)-10;	my $val=int($value*10.+0.5)-10;
my $output='<table border=0 cellpadding=0 cellspacing=0><tr>';	my $output='<table border=0 cellpadding=0 cellspacing=0><tr>';
if ($val>=20) {	if ($val>=20) {
Line 126 sub evalgraph {	Line 128 sub evalgraph {

sub diffgraph {	sub diffgraph {
my $value=shift;	my $value=shift;
unless ($value) { return ''; }	if (! $value) {
	return '';
	}
my $val=int(40.0*$value+0.5);	my $val=int(40.0*$value+0.5);
my @colors=('#FF9933','#EEAA33','#DDBB33','#CCCC33',	my @colors=('#FF9933','#EEAA33','#DDBB33','#CCCC33',
'#BBDD33','#CCCC33','#DDBB33','#EEAA33');	'#BBDD33','#CCCC33','#DDBB33','#EEAA33');
Line 200 sub fieldnames {	Line 204 sub fieldnames {

sub prettyprint {	sub prettyprint {
my ($type,$value)=@_;	my ($type,$value)=@_;
unless (defined($value)) { return ' '; }	if (! defined($value)) {
	return ' ';
	}
# Title	# Title
if ($type eq 'title') {	if ($type eq 'title') {
return '<font size="+1" face="arial">'.$value.'</font>';	return '<font size="+1" face="arial">'.$value.'</font>';
Line 239 sub prettyprint {	Line 245 sub prettyprint {
return &Apache::loncommon::gradeleveldescription($value);	return &Apache::loncommon::gradeleveldescription($value);
}	}
# Only for advance users below	# Only for advance users below
unless ($ENV{'user.adv'}) { return '<i>- '.&mt('not displayed').' -</i>' };	if (! $ENV{'user.adv'}) {
	return '<i>- '.&mt('not displayed').' -</i>';
	}
# File	# File
if (($type eq 'customdistributionfile') \|\|	if (($type eq 'customdistributionfile') \|\|
($type eq 'obsoletereplacement') \|\|	($type eq 'obsoletereplacement') \|\|
Line 284 sub direct {	Line 292 sub direct {

sub selectbox {	sub selectbox {
my ($name,$value,$functionref,@idlist)=@_;	my ($name,$value,$functionref,@idlist)=@_;
unless (defined($functionref)) { $functionref=\&direct; }	if (! defined($functionref)) {
	$functionref=\&direct;
	}
my $selout='<select name="'.$name.'">';	my $selout='<select name="'.$name.'">';
foreach (@idlist) {	foreach (@idlist) {
$selout.='<option value=\''.$_.'\'';	$selout.='<option value=\''.$_.'\'';
Line 298 sub selectbox {	Line 308 sub selectbox {

sub relatedfield {	sub relatedfield {
my ($show,$relatedsearchflag,$relatedsep,$fieldname,$relatedvalue)=@_;	my ($show,$relatedsearchflag,$relatedsep,$fieldname,$relatedvalue)=@_;
unless ($relatedsearchflag) { return ''; }	if (! $relatedsearchflag) {
unless (defined($relatedsep)) { $relatedsep=' '; }	return '';
unless ($show) { return $relatedsep.' '; }	}
	if (! defined($relatedsep)) {
	$relatedsep=' ';
	}
	if (! $show) {
	return $relatedsep.' ';
	}
return $relatedsep.'<input type="checkbox" name="'.$fieldname.'_related"'.	return $relatedsep.'<input type="checkbox" name="'.$fieldname.'_related"'.
($relatedvalue?' checked="1"':'').' />';	($relatedvalue?' checked="1"':'').' />';
}	}
Line 551 ENDHEAD	Line 567 ENDHEAD
'</h3>');	'</h3>');
foreach (sort keys %content) {	foreach (sort keys %content) {
my $name=$_;	my $name=$_;
unless ($name=~/\.display$/) {	if ($name!~/\.display$/) {
my $display=&Apache::lonnet::metadata($uri,	my $display=&Apache::lonnet::metadata($uri,
$name.'.display');	$name.'.display');
unless ($display) { $display=$name; };	if (! $display) {
	$display=$name;
	};
my $otherinfo='';	my $otherinfo='';
foreach ('name','part','type','default') {	foreach ('name','part','type','default') {
if (defined(&Apache::lonnet::metadata($uri,	if (defined(&Apache::lonnet::metadata($uri,
Line 643 ENDEDIT	Line 661 ENDEDIT
$Apache::lonpublisher::metadatafields{$_}=	$Apache::lonpublisher::metadatafields{$_}=
$ENV{'form.new_'.$_};	$ENV{'form.new_'.$_};
}	}
unless ($Apache::lonpublisher::metadatafields{'copyright'}) {	if (! $Apache::lonpublisher::metadatafields{'copyright'}) {
$Apache::lonpublisher::metadatafields{'copyright'}=	$Apache::lonpublisher::metadatafields{'copyright'}=
'default';	'default';
}	}
Line 654 ENDEDIT	Line 672 ENDEDIT
}	}
if ($ENV{'form.store'}) {	if ($ENV{'form.store'}) {
my $mfh;	my $mfh;
unless ($mfh=Apache::File->new('>'.$fn)) {	if (! ($mfh=Apache::File->new('>'.$fn))) {
$r->print('<p><font color=red>'.	$r->print('<p><font color=red>'.
&mt('Could not write metadata').', '.	&mt('Could not write metadata').', '.
&mt('FAIL').'</font>');	&mt('FAIL').'</font>');
} else {	} else {
foreach (sort keys %Apache::lonpublisher::metadatafields) {	foreach (sort keys %Apache::lonpublisher::metadatafields) {
unless ($_=~/\./) {	if ($_!~/\./) {
my $unikey=$_;	my $unikey=$_;
$unikey=~/^([A-Za-z]+)/;	$unikey=~/^([A-Za-z]+)/;
my $tag=$1;	my $tag=$1;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.64
changed lines
	Added in v.1.65