version 1.149, 2003/12/22 22:09:06
|
version 1.152, 2003/12/26 19:12:51
|
Line 767 Returns: (error,status). error is undef
|
Line 767 Returns: (error,status). error is undef
|
######################################### |
######################################### |
######################################### |
######################################### |
sub store_metadata { |
sub store_metadata { |
my %metadata = %{shift()}; |
my %metadata = @_; |
my $error; |
my $error; |
# Determine if the table exists |
# Determine if the table exists |
my $status = &Apache::lonmysql::check_table('metadata'); |
my $status = &Apache::lonmysql::check_table('metadata'); |
Line 784 sub store_metadata {
|
Line 784 sub store_metadata {
|
&Apache::lonnet::logthis($error); |
&Apache::lonnet::logthis($error); |
return ($error,undef); |
return ($error,undef); |
} |
} |
# Remove old value from table |
if (($metadata{'obsolete'}) || ($metadata{'copyright'} eq 'priv') || |
$status = &Apache::lonmysql::remove_from_table |
($metadata{'copyright'} eq 'custom')) { |
('metadata','url',$metadata{'url'}); |
# remove this entry |
if (! defined($status)) { |
$status=&Apache::lonmysql::remove_from_table |
$error = '<font color="red">Error when removing old values from '. |
('metadata','url',$metadata{'url'}); |
'metadata table in LON-CAPA database.</font>'; |
} else { |
&Apache::lonnet::logthis($error); |
# store new data |
return ($error,undef); |
$metadata{'creationdate'}= |
|
&Apache::lonmysql::sqltime($metadata{'creationdate'}); |
|
$metadata{'lastrevisiondate'}= |
|
&Apache::lonmysql::sqltime($metadata{'lastrevisiondate'}); |
|
$status = &Apache::lonmysql::store_row('metadata',\%metadata); |
} |
} |
# Store data in table. |
|
$status = &Apache::lonmysql::store_row('metadata',\%metadata); |
|
if (! defined($status)) { |
if (! defined($status)) { |
$error='<font color="red">Error occured storing new values in '. |
$error='<font color="red">Error occured storing new values in '. |
'metadata table in LON-CAPA database</font>'; |
'metadata table in LON-CAPA database</font>'; |
Line 1144 END
|
Line 1146 END
|
|
|
$source=~/\.(\w+)$/; |
$source=~/\.(\w+)$/; |
|
|
|
|
|
$scrout.= |
|
"\n<p><font color=\"#800000\" face=\"helvetica\"><b>". |
|
uc(&mt('Lowest Grade Level:')). |
|
"</b></font></p><br />". |
|
&Apache::loncommon::select_level_form($metadatafields{'lowestgradelevel'},'lowestgradelevel'). |
|
"\n<p><font color=\"#800000\" face=\"helvetica\"><b>". |
|
uc(&mt('Highest Grade Level:')). |
|
"</b></font></p><br />". |
|
&Apache::loncommon::select_level_form($metadatafields{'highestgradelevel'},'highestgradelevel'). |
|
&textfield('Standards','standards',$metadatafields{'standards'}); |
|
|
|
|
|
|
|
|
$scrout.=&hiddenfield('mime',$1); |
$scrout.=&hiddenfield('mime',$1); |
|
|
my $defaultlanguage=$metadatafields{'language'}; |
my $defaultlanguage=$metadatafields{'language'}; |
Line 1319 sub phasetwo {
|
Line 1336 sub phasetwo {
|
$metadatafields{'lastrevisiondate'}=$ENV{'form.lastrevisiondate'}; |
$metadatafields{'lastrevisiondate'}=$ENV{'form.lastrevisiondate'}; |
$metadatafields{'owner'}=$ENV{'form.owner'}; |
$metadatafields{'owner'}=$ENV{'form.owner'}; |
$metadatafields{'copyright'}=$ENV{'form.copyright'}; |
$metadatafields{'copyright'}=$ENV{'form.copyright'}; |
|
$metadatafields{'standards'}=$ENV{'form.standards'}; |
|
$metadatafields{'lowestgradelevel'}=$ENV{'form.lowestgradelevel'}; |
|
$metadatafields{'highestgradelevel'}=$ENV{'form.highestgradelevel'}; |
$metadatafields{'customdistributionfile'}= |
$metadatafields{'customdistributionfile'}= |
$ENV{'form.customdistributionfile'}; |
$ENV{'form.customdistributionfile'}; |
$metadatafields{'obsolete'}=$ENV{'form.obsolete'}; |
$metadatafields{'obsolete'}=$ENV{'form.obsolete'}; |
Line 1380 sub phasetwo {
|
Line 1400 sub phasetwo {
|
|
|
$metadatafields{'url'} = $distarget; |
$metadatafields{'url'} = $distarget; |
$metadatafields{'version'} = 'current'; |
$metadatafields{'version'} = 'current'; |
unless ($metadatafields{'copyright'} eq 'priv') { |
|
my ($error,$success) = &store_metadata(\%metadatafields); |
my ($error,$success) = &store_metadata(%metadatafields); |
if ($success) { |
if ($success) { |
$r->print('<p>'.&mt('Synchronized SQL metadata database').'</p>'); |
$r->print('<p>'.&mt('Synchronized SQL metadata database').'</p>'); |
print $logfile "\nSynchronized SQL metadata database"; |
print $logfile "\nSynchronized SQL metadata database"; |
} else { |
|
$r->print($error); |
|
print $logfile "\n".$error; |
|
} |
|
} else { |
} else { |
$r->print('<p>'. |
$r->print($error); |
&mt('Private Publication - did not synchronize database').'</p>'); |
print $logfile "\n".$error; |
print $logfile "\nPrivate: Did not synchronize data into ". |
|
"SQL metadata database"; |
|
} |
} |
|
|
# ----------------------------------------------------------- Copy old versions |
# ----------------------------------------------------------- Copy old versions |
|
|
if (-e $target) { |
if (-e $target) { |