version 1.156, 2006/05/20 06:40:53
|
version 1.157, 2006/05/30 12:46:09
|
Line 39 use Apache::lonpublisher;
|
Line 39 use Apache::lonpublisher;
|
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonmysql; |
use Apache::lonmysql; |
use Apache::lonmsg; |
use Apache::lonmsg; |
|
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA; |
|
|
|
|
############################################################ |
############################################################ |
Line 108 sub get_dynamic_metadata_from_sql {
|
Line 110 sub get_dynamic_metadata_from_sql {
|
next if (! $result); |
next if (! $result); |
my @Data = |
my @Data = |
map { |
map { |
&Apache::lonnet::unescape($_); |
&unescape($_); |
} split(',',$result); |
} split(',',$result); |
my $url = $Data[0]; |
my $url = $Data[0]; |
for (my $i=0;$i<=$#Fields;$i++) { |
for (my $i=0;$i<=$#Fields;$i++) { |