--- loncom/interface/londependencies.pm 2012/04/16 19:59:12 1.1
+++ loncom/interface/londependencies.pm 2012/11/29 20:37:07 1.3
@@ -2,7 +2,7 @@
# Handler to manage dependencies for HTML files uploaded directly
# to a course.
#
-# $Id: londependencies.pm,v 1.1 2012/04/16 19:59:12 raeburn Exp $
+# $Id: londependencies.pm,v 1.3 2012/11/29 20:37:07 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -94,15 +94,24 @@ sub handler {
$r->send_http_header;
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
- ['action','symb','title']);
+ ['action','symb','title','url','folderpath']);
my $action = $env{'form.action'};
my $symb = $env{'form.symb'};
my $docs_title = $env{'form.title'};
- my ($mimetype,$numpathchgs,$numrefchanges,%allfiles,%codebase);
- my ($map,$id,$url) = &Apache::lonnet::decode_symb($symb);
+ my $docs_url = $env{'form.url'};
+ my $folderpath = &unescape($env{'form.folderpath'});
+ my ($mimetype,$numpathchgs,$numrefchanges,%allfiles,%codebase,$url);
+ if ($symb) {
+ (undef,undef,$url) = &Apache::lonnet::decode_symb($symb);
+ } elsif (($docs_url) && ($env{'httpref.'.$docs_url} ne '')) {
+ $url = $docs_url;
+ $url =~ s{^/}{};
+ }
my $title = &mt('Manage Dependencies');
my $state = ''."\n".
- ''."\n";
+ ''."\n".
+ ''."\n".
+ ''."\n";
my $dir_root = '/userfiles';
my ($destination) =
($url =~ m{^\Quploaded/$cdom/$cnum/\E((?:docs|supplemental)/(?:default|\d+)/\d+)/});