version 1.95, 2005/03/18 16:47:31
|
version 1.96, 2005/04/07 06:56:23
|
Line 31 package Apache::lonmeta;
|
Line 31 package Apache::lonmeta;
|
use strict; |
use strict; |
use LONCAPA::lonmetadata(); |
use LONCAPA::lonmetadata(); |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::lonnet(); |
use Apache::lonnet; |
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonhtmlcommon(); |
use Apache::lonhtmlcommon(); |
use Apache::lonmsg; |
use Apache::lonmsg; |
Line 338 sub prettyprint {
|
Line 338 sub prettyprint {
|
return &Apache::loncommon::gradeleveldescription($value); |
return &Apache::loncommon::gradeleveldescription($value); |
} |
} |
# Only for advance users below |
# Only for advance users below |
if (! $ENV{'user.adv'}) { |
if (! $env{'user.adv'}) { |
return '<i>- '.&mt('not displayed').' -</i>'; |
return '<i>- '.&mt('not displayed').' -</i>'; |
} |
} |
# File |
# File |
Line 632 sub present_uneditable_metadata {
|
Line 632 sub present_uneditable_metadata {
|
# obsolete |
# obsolete |
my $obsolete=$content{'obsolete'}; |
my $obsolete=$content{'obsolete'}; |
my $obsoletewarning=''; |
my $obsoletewarning=''; |
if (($obsolete) && ($ENV{'user.adv'})) { |
if (($obsolete) && ($env{'user.adv'})) { |
$obsoletewarning='<p><font color="red">'. |
$obsoletewarning='<p><font color="red">'. |
&mt('This resource has been marked obsolete by the author(s)'). |
&mt('This resource has been marked obsolete by the author(s)'). |
'</font></p>'; |
'</font></p>'; |
Line 681 $versiondisplay
|
Line 681 $versiondisplay
|
$table |
$table |
</table> |
</table> |
ENDHEAD |
ENDHEAD |
if ($ENV{'user.adv'}) { |
if ($env{'user.adv'}) { |
&print_dynamic_metadata($r,$uri,\%content); |
&print_dynamic_metadata($r,$uri,\%content); |
} |
} |
return; |
return; |
Line 822 sub print_dynamic_metadata {
|
Line 822 sub print_dynamic_metadata {
|
$r->print('<h4>'.&mt('No Evaluation Data is available for this resource.').'</h4>'); |
$r->print('<h4>'.&mt('No Evaluation Data is available for this resource.').'</h4>'); |
} |
} |
$uri=~/^\/res\/(\w+)\/(\w+)\//; |
$uri=~/^\/res\/(\w+)\/(\w+)\//; |
if ((($ENV{'user.domain'} eq $1) && ($ENV{'user.name'} eq $2)) |
if ((($env{'user.domain'} eq $1) && ($env{'user.name'} eq $2)) |
|| ($ENV{'user.role.ca./'.$1.'/'.$2})) { |
|| ($env{'user.role.ca./'.$1.'/'.$2})) { |
if (exists($dynmeta{'comments'})) { |
if (exists($dynmeta{'comments'})) { |
$r->print('<h4>'.&mt('Evaluation Comments').' ('. |
$r->print('<h4>'.&mt('Evaluation Comments').' ('. |
&mt('visible to author and co-authors only'). |
&mt('visible to author and co-authors only'). |
Line 890 sub present_editable_metadata {
|
Line 890 sub present_editable_metadata {
|
$disuri=~s/^\/\~/\/priv\//; |
$disuri=~s/^\/\~/\/priv\//; |
$disuri=~s/\.meta$//; |
$disuri=~s/\.meta$//; |
my $target=$uri; |
my $target=$uri; |
$target=~s/^\/\~/\/res\/$ENV{'request.role.domain'}\//; |
$target=~s/^\/\~/\/res\/$env{'request.role.domain'}\//; |
$target=~s/\.meta$//; |
$target=~s/\.meta$//; |
my $bombs=&Apache::lonmsg::retrieve_author_res_msg($target); |
my $bombs=&Apache::lonmsg::retrieve_author_res_msg($target); |
if ($bombs) { |
if ($bombs) { |
if ($ENV{'form.delmsg'}) { |
if ($env{'form.delmsg'}) { |
if (&Apache::lonmsg::del_url_author_res_msg($target) eq 'ok') { |
if (&Apache::lonmsg::del_url_author_res_msg($target) eq 'ok') { |
$bombs=&mt('Messages deleted.'); |
$bombs=&mt('Messages deleted.'); |
} else { |
} else { |
Line 947 ENDEDIT
|
Line 947 ENDEDIT
|
'obsolete','obsoletereplacement'); |
'obsolete','obsoletereplacement'); |
} |
} |
foreach (@fields) { |
foreach (@fields) { |
if (defined($ENV{'form.new_'.$_})) { |
if (defined($env{'form.new_'.$_})) { |
$Apache::lonpublisher::metadatafields{$_}= |
$Apache::lonpublisher::metadatafields{$_}= |
$ENV{'form.new_'.$_}; |
$env{'form.new_'.$_}; |
} |
} |
if (! $Apache::lonpublisher::metadatafields{'copyright'}) { |
if (! $Apache::lonpublisher::metadatafields{'copyright'}) { |
$Apache::lonpublisher::metadatafields{'copyright'}= |
$Apache::lonpublisher::metadatafields{'copyright'}= |
Line 960 ENDEDIT
|
Line 960 ENDEDIT
|
$Apache::lonpublisher::metadatafields{$_}, |
$Apache::lonpublisher::metadatafields{$_}, |
'new_'.$_,'defaultmeta').'</p>'); |
'new_'.$_,'defaultmeta').'</p>'); |
} |
} |
if ($ENV{'form.store'}) { |
if ($env{'form.store'}) { |
my $mfh; |
my $mfh; |
my $formname='store'; |
my $formname='store'; |
my $file_content; |
my $file_content; |
Line 989 ENDEDIT
|
Line 989 ENDEDIT
|
if ($fn =~ /\/portfolio\//) { |
if ($fn =~ /\/portfolio\//) { |
$fn =~ /\/portfolio\/(.*)$/; |
$fn =~ /\/portfolio\/(.*)$/; |
my $new_fn = '/'.$1; |
my $new_fn = '/'.$1; |
$ENV{'form.'.$formname}=$file_content; |
$env{'form.'.$formname}=$file_content; |
$ENV{'form.'.$formname.'.filename'}=$new_fn; |
$env{'form.'.$formname.'.filename'}=$new_fn; |
&Apache::lonnet::userfileupload('uploaddoc','', |
&Apache::lonnet::userfileupload('uploaddoc','', |
'portfolio'.$ENV{'form.currentpath'}); |
'portfolio'.$env{'form.currentpath'}); |
my $status =&Apache::lonnet::userfileupload($formname,'','portfolio'); |
my $status =&Apache::lonnet::userfileupload($formname,'','portfolio'); |
if (&Apache::lonnet::userfileupload($formname,'','portfolio') eq 'error: no uploaded file') { |
if (&Apache::lonnet::userfileupload($formname,'','portfolio') eq 'error: no uploaded file') { |
$r->print('<p><font color="red">'. |
$r->print('<p><font color="red">'. |