version 1.145, 2005/12/19 21:33:54
|
version 1.146, 2005/12/19 21:49:12
|
Line 290 sub fieldnames {
|
Line 290 sub fieldnames {
|
return &Apache::lonlocal::texthash(%fields); |
return &Apache::lonlocal::texthash(%fields); |
} |
} |
|
|
|
sub portfolio_linked_path { |
|
my ($path) = @_; |
|
my $result = &Apache::portfolio::make_anchor('portfolio','/'); |
|
my $fullpath = '/'; |
|
my (undef,@tree) = split('/',$path); |
|
foreach my $dir (@tree) { |
|
$fullpath .= $dir.'/'; |
|
$result .= '/'; |
|
$result .= &Apache::portfolio::make_anchor($dir,$fullpath); |
|
} |
|
return $result; |
|
} |
|
|
sub portfolio_display_uri { |
sub portfolio_display_uri { |
my ($uri)=@_; |
my ($uri,$as_links)=@_; |
$uri =~ s|.*/(portfolio/.*)$|$1|; |
$uri =~ s|.*/(portfolio/.*)$|$1|; |
my ($res_uri,$meta_uri) = ($uri,$uri); |
my ($res_uri,$meta_uri) = ($uri,$uri); |
|
|
Line 300 sub portfolio_display_uri {
|
Line 313 sub portfolio_display_uri {
|
} else { |
} else { |
$meta_uri .= '.meta'; |
$meta_uri .= '.meta'; |
} |
} |
|
|
my ($path) = ($res_uri =~ m|(.*)/[^/]*$|); |
my ($path) = ($res_uri =~ m|(.*)/[^/]*$|); |
|
|
|
if ($as_links) { |
|
$res_uri = &portfolio_linked_path($res_uri); |
|
$meta_uri = &portfolio_linked_path($meta_uri); |
|
} |
return ($res_uri,$meta_uri,$path); |
return ($res_uri,$meta_uri,$path); |
} |
} |
|
|
Line 337 sub select_course {
|
Line 354 sub select_course {
|
my %courses; |
my %courses; |
my $output; |
my $output; |
my $selected; |
my $selected; |
foreach my $key (keys (%env)) { |
foreach my $key (keys(%env)) { |
if ($key =~ m/\.metadata\./) { |
if ($key =~ m/\.metadata\./) { |
$key =~ m/^course\.(.+)(\.metadata.+$)/; |
$key =~ m/^course\.(.+)(\.metadata.+$)/; |
my $course = $1; |
my $course = $1; |
Line 346 sub select_course {
|
Line 363 sub select_course {
|
$courses{$coursekey} = $value; |
$courses{$coursekey} = $value; |
} |
} |
} |
} |
&Apache::lonnet::logthis('the restricted is'.$Apache::lonpublisher::metadatafields{'courserestricted'}); |
|
my $meta_not_found = 1; |
my $meta_not_found = 1; |
if ($Apache::lonpublisher::metadatafields{'courserestricted'} eq 'none') { |
if ($Apache::lonpublisher::metadatafields{'courserestricted'} eq 'none') { |
$selected = ' SELECTED '; |
$selected = ' SELECTED '; |
Line 1054 sub present_editable_metadata {
|
Line 1070 sub present_editable_metadata {
|
$disuri=~s/\.meta$//; |
$disuri=~s/\.meta$//; |
my $meta_uri = $disuri; |
my $meta_uri = $disuri; |
if ($disuri =~ m|/portfolio/|) { |
if ($disuri =~ m|/portfolio/|) { |
($disuri, $meta_uri) = &portfolio_display_uri($disuri); |
($disuri, $meta_uri) = &portfolio_display_uri($disuri,1); |
} |
} |
my $target=$uri; |
my $target=$uri; |
$target=~s/^\/\~/\/res\/$env{'request.role.domain'}\//; |
$target=~s/^\/\~/\/res\/$env{'request.role.domain'}\//; |
Line 1208 ENDEDIT
|
Line 1224 ENDEDIT
|
'<>&"'). |
'<>&"'). |
'</'.$tag.'>'; |
'</'.$tag.'>'; |
} |
} |
&Apache::lonnet::logthis(" file ".$file_content); |
|
if ($fn =~ m|/portfolio/|) { |
if ($fn =~ m|/portfolio/|) { |
my ($path, $new_fn) = ($fn =~ m|/(portfolio.*)/([^/]*)$|); |
my ($path, $new_fn) = ($fn =~ m|/(portfolio.*)/([^/]*)$|); |
$env{'form.'.$formname}=$file_content."\n"; |
$env{'form.'.$formname}=$file_content."\n"; |