version 1.142, 2005/12/19 20:08:40
|
version 1.143, 2005/12/19 21:13:45
|
Line 1142 ENDEDIT
|
Line 1142 ENDEDIT
|
} else { |
} else { |
$r->print("This resource is not associated with a course.<br />"); |
$r->print("This resource is not associated with a course.<br />"); |
} |
} |
foreach my $field_name(@fields) { |
foreach my $field_name (@fields) { |
|
|
if (defined($env{'form.new_'.$field_name})) { |
if (defined($env{'form.new_'.$field_name})) { |
$Apache::lonpublisher::metadatafields{$field_name}= |
$Apache::lonpublisher::metadatafields{$field_name}= |
Line 1152 ENDEDIT
|
Line 1152 ENDEDIT
|
# handle restrictions here |
# handle restrictions here |
if (($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'} =~ m/active/) || |
if (($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'} =~ m/active/) || |
($field_name eq 'courserestricted')){ |
($field_name eq 'courserestricted')){ |
$output.=('<p>'.$lt{$field_name}.': '. |
$output.=("\n".'<p>'.$lt{$field_name}.': '. |
&prettyinput($field_name, |
&prettyinput($field_name, |
$Apache::lonpublisher::metadatafields{$field_name}, |
$Apache::lonpublisher::metadatafields{$field_name}, |
'new_'.$field_name,'defaultmeta', |
'new_'.$field_name,'defaultmeta', |
undef,undef,undef,undef, |
undef,undef,undef,undef, |
$Apache::lonpublisher::metadatafields{'courserestricted'}).'</p>'); |
$Apache::lonpublisher::metadatafields{'courserestricted'}).'</p>'."\n"); |
} |
} |
} else { |
} else { |
|
|
Line 1168 ENDEDIT
|
Line 1168 ENDEDIT
|
|
|
} |
} |
} |
} |
|
if ($env{'form.store'}) { |
$r->print($output.'<br /><input type="submit" name="store" value="'. |
my $mfh; |
&mt('Store Catalog Information').'">'); |
my $formname='store'; |
|
my $file_content; |
} |
|
$r->print('</form>'); |
|
|
|
if ($env{'form.store'}) { |
|
my $mfh; |
|
my $formname='store'; |
|
my $file_content; |
|
foreach my $meta_field (keys %env) { |
|
if (&Apache::loncommon::get_env_multiple('form.new_keywords')) { |
if (&Apache::loncommon::get_env_multiple('form.new_keywords')) { |
$Apache::lonpublisher::metadatafields{'keywords'} = |
$Apache::lonpublisher::metadatafields{'keywords'} = |
join (',', &Apache::loncommon::get_env_multiple('form.new_keywords')); |
join (',', &Apache::loncommon::get_env_multiple('form.new_keywords')); |
} |
} |
} |
|
foreach (sort keys %Apache::lonpublisher::metadatafields) { |
foreach (sort keys %Apache::lonpublisher::metadatafields) { |
next if ($_ =~ /\./); |
next if ($_ =~ /\./); |
my $unikey=$_; |
my $unikey=$_; |
$unikey=~/^([A-Za-z]+)/; |
$unikey=~/^([A-Za-z]+)/; |
my $tag=$1; |
my $tag=$1; |
$tag=~tr/A-Z/a-z/; |
$tag=~tr/A-Z/a-z/; |
$file_content.= "\n\<$tag"; |
$file_content.= "\n\<$tag"; |
foreach (split(/\,/, |
foreach (split(/\,/, |
$Apache::lonpublisher::metadatakeys{$unikey}) |
$Apache::lonpublisher::metadatakeys{$unikey}) |
) { |
) { |
my $value= |
my $value= |
$Apache::lonpublisher::metadatafields{$unikey.'.'.$_}; |
$Apache::lonpublisher::metadatafields{$unikey.'.'.$_}; |
$value=~s/\"/\'\'/g; |
$value=~s/\"/\'\'/g; |
$file_content.=' '.$_.'="'.$value.'"' ; |
$file_content.=' '.$_.'="'.$value.'"' ; |
# print $mfh ' '.$_.'="'.$value.'"'; |
# print $mfh ' '.$_.'="'.$value.'"'; |
} |
} |
$file_content.= '>'. |
$file_content.= '>'. |
&HTML::Entities::encode |
&HTML::Entities::encode |
($Apache::lonpublisher::metadatafields{$unikey}, |
($Apache::lonpublisher::metadatafields{$unikey}, |
'<>&"'). |
'<>&"'). |
'</'.$tag.'>'; |
'</'.$tag.'>'; |
} |
|
if ($fn =~ /\/portfolio\//) { |
|
$fn =~ /\/portfolio\/(.*)$/; |
|
my $new_fn = '/'.$1; |
|
$env{'form.'.$formname}=$file_content."\n"; |
|
$env{'form.'.$formname.'.filename'}=$new_fn; |
|
&Apache::lonnet::userfileupload('uploaddoc','', |
|
'portfolio'.$env{'form.currentpath'}); |
|
if (&Apache::lonnet::userfileupload($formname,'','portfolio') eq 'error: no uploaded file') { |
|
$r->print('<p><font color="red">'. |
|
&mt('Could not write metadata').', '. |
|
&mt('FAIL').'</font></p>'); |
|
} else { |
|
$r->print('<p><font color="blue">'.&mt('Wrote Metadata'). |
|
' '.&Apache::lonlocal::locallocaltime(time). |
|
'</font></p>'); |
|
} |
} |
} else { |
&Apache::lonnet::logthis(" file ".$file_content); |
if (! ($mfh=Apache::File->new('>'.$fn))) { |
if ($fn =~ m|/portfolio/|) { |
$r->print('<p><font color="red">'. |
my ($path, $new_fn) = ($fn =~ m|/(portfolio.*)/([^/]*)$|); |
&mt('Could not write metadata').', '. |
$env{'form.'.$formname}=$file_content."\n"; |
&mt('FAIL').'</font></p>'); |
$env{'form.'.$formname.'.filename'}=$new_fn; |
|
my $result =&Apache::lonnet::userfileupload($formname,'', |
|
$path); |
|
|
|
if ($result =~ /(error|notfound)/) { |
|
$r->print('<p><font color="red">'. |
|
&mt('Could not write metadata').', '. |
|
&mt('FAIL').'</font></p>'); |
|
} else { |
|
$r->print('<p><font color="blue">'.&mt('Wrote Metadata'). |
|
' '.&Apache::lonlocal::locallocaltime(time). |
|
'</font></p>'); |
|
} |
} else { |
} else { |
print $mfh $file_content; |
if (! ($mfh=Apache::File->new('>'.$fn))) { |
$r->print('<p><font color="blue">'.&mt('Wrote Metadata'). |
$r->print('<p><font color="red">'. |
' '.&Apache::lonlocal::locallocaltime(time). |
&mt('Could not write metadata').', '. |
'</font></p>'); |
&mt('FAIL').'</font></p>'); |
|
} else { |
|
print $mfh $file_content; |
|
$r->print('<p><font color="blue">'.&mt('Wrote Metadata'). |
|
' '.&Apache::lonlocal::locallocaltime(time). |
|
'</font></p>'); |
|
} |
} |
} |
} |
} |
|
|
|
$r->print($output.'<br /><input type="submit" name="store" value="'. |
|
&mt('Store Catalog Information').'">'); |
|
|
} |
} |
|
$r->print('</form>'); |
|
|
return; |
return; |
} |
} |
|
|