version 1.149, 2003/12/22 22:09:06
|
version 1.151, 2003/12/26 18:25:29
|
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 |
|
$status = &Apache::lonmysql::remove_from_table |
|
('metadata','url',$metadata{'url'}); |
|
if (! defined($status)) { |
|
$error = '<font color="red">Error when removing old values from '. |
|
'metadata table in LON-CAPA database.</font>'; |
|
&Apache::lonnet::logthis($error); |
|
return ($error,undef); |
|
} |
|
# Store data in table. |
|
$status = &Apache::lonmysql::store_row('metadata',\%metadata); |
$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 '. |
Line 1144 END
|
Line 1134 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'}; |