version 1.157, 2006/05/30 12:46:09
|
version 1.158, 2006/05/31 17:44:14
|
Line 73 sub get_dynamic_metadata_from_sql {
|
Line 73 sub get_dynamic_metadata_from_sql {
|
if (! defined($authordom) || ! defined($author)) { |
if (! defined($authordom) || ! defined($author)) { |
return (); |
return (); |
} |
} |
my @Fields = ('url','count','course','course_list', |
my $query = 'SELECT * FROM metadata WHERE url LIKE "'.$url.'%"'; |
'goto','goto_list', |
|
'comefrom','comefrom_list', |
|
'sequsage','sequsage_list', |
|
'stdno','stdno_list', |
|
'dependencies', |
|
'avetries','avetries_list', |
|
'difficulty','difficulty_list', |
|
'disc','disc_list', |
|
'clear','technical','correct', |
|
'helpful','depth'); |
|
# |
|
my $query = 'SELECT '.join(',',@Fields). |
|
' FROM metadata WHERE url LIKE "'.$url.'%"'; |
|
my $server = &Apache::lonnet::homeserver($author,$authordom); |
my $server = &Apache::lonnet::homeserver($author,$authordom); |
my $reply = &Apache::lonnet::metadata_query($query,undef,undef, |
my $reply = &Apache::lonnet::metadata_query($query,undef,undef, |
,[$server]); |
,[$server]); |
Line 108 sub get_dynamic_metadata_from_sql {
|
Line 95 sub get_dynamic_metadata_from_sql {
|
while (my $result = <$fh>) { |
while (my $result = <$fh>) { |
chomp($result); |
chomp($result); |
next if (! $result); |
next if (! $result); |
my @Data = |
my %hash=&LONCAPA::lonmetadata::metadata_col_to_hash(map { &unescape($_) } split(/\,/,$result)); |
map { |
foreach my $key (keys(%hash)) { |
&unescape($_); |
$ReturnHash{$hash{'url'}}->{$key}=$hash{$key}; |
} split(',',$result); |
|
my $url = $Data[0]; |
|
for (my $i=0;$i<=$#Fields;$i++) { |
|
$ReturnHash{$url}->{$Fields[$i]}=$Data[$i]; |
|
} |
} |
} |
} |
$finished = 1; |
$finished = 1; |