version 1.226, 2009/03/17 20:07:45
|
version 1.227, 2009/03/21 21:37:13
|
Line 1467 sub store_metadata {
|
Line 1467 sub store_metadata {
|
$output .= $result; |
$output .= $result; |
} else { |
} else { |
if (! ($mfh=Apache::File->new('>'.$fn))) { |
if (! ($mfh=Apache::File->new('>'.$fn))) { |
$output .= '<p><font color="red">'; |
$output .= '<p class="LC_error">'; |
if ($caller eq 'transfer') { |
if ($caller eq 'transfer') { |
$output .= &mt('Could not transfer data in added fields to notes'); |
$output .= &mt('Could not transfer data in added fields to notes'); |
} else { |
} else { |
$output .= &mt('Could not write metadata'); |
$output .= &mt('Could not write metadata'); |
} |
} |
$output .= ', '.&mt('FAIL').'</font></p>'; |
$output .= ', '.&mt('FAIL').'</p>'; |
$outcome = 'fail'; |
$outcome = 'fail'; |
} else { |
} else { |
print $mfh ($file_content); |
print $mfh ($file_content); |
close($mfh); |
close($mfh); |
&update_metadata_table($uri); |
&update_metadata_table($uri); |
$output .= '<p><font color="blue">'; |
$output .= '<p class="LC_success">'; |
if ($caller eq 'transfer') { |
if ($caller eq 'transfer') { |
$output .= &mt('Transferred data in added fields to notes'); |
$output .= &mt('Transferred data in added fields to notes'); |
} else { |
} else { |
$output .= &mt('Wrote Metadata'); |
$output .= &mt('Wrote Metadata'); |
} |
} |
$output .= ' '.&Apache::lonlocal::locallocaltime(time). |
$output .= ' '.&Apache::lonlocal::locallocaltime(time). |
'</font></p>'; |
'</p>'; |
$outcome = 'ok'; |
$outcome = 'ok'; |
} |
} |
} |
} |
Line 1514 sub store_portfolio_metadata {
|
Line 1514 sub store_portfolio_metadata {
|
$env{'form.'.$formname.'.filename'}=$new_fn; |
$env{'form.'.$formname.'.filename'}=$new_fn; |
my $result =&Apache::lonnet::userfileupload($formname,'',$path); |
my $result =&Apache::lonnet::userfileupload($formname,'',$path); |
if ($result =~ /(error|notfound)/) { |
if ($result =~ /(error|notfound)/) { |
$output = '<p><font color="red">'; |
$output = '<p class="LC_error">'; |
if ($caller eq 'transfer') { |
if ($caller eq 'transfer') { |
$output .= |
$output .= |
&mt('Could not transfer data in added fields to notes'); |
&mt('Could not transfer data in added fields to notes'); |
} else { |
} else { |
$output .= &mt('Could not write metadata'); |
$output .= &mt('Could not write metadata'); |
} |
} |
$output .= ', '.&mt('FAIL').'</font></p>'; |
$output .= ', '.&mt('FAIL').'</p>'; |
$outcome = 'fail'; |
$outcome = 'fail'; |
} else { |
} else { |
&update_metadata_table($uri); |
&update_metadata_table($uri); |
$output = '<p><font color="blue">'; |
$output = '<p class="LC_success">'; |
if ($caller eq 'transfer') { |
if ($caller eq 'transfer') { |
$output .= &mt('Transferred data in added fields to notes'); |
$output .= &mt('Transferred data in added fields to notes'); |
} else { |
} else { |
$output .= &mt('Wrote Metadata'); |
$output .= &mt('Wrote Metadata'); |
} |
} |
$output .= ' '.&Apache::lonlocal::locallocaltime(time). |
$output .= ' '.&Apache::lonlocal::locallocaltime(time). |
'</font></p>'; |
'</p>'; |
$outcome = 'ok'; |
$outcome = 'ok'; |
} |
} |
return ($outcome,$output); |
return ($outcome,$output); |