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