--- loncom/interface/londependencies.pm 2012/04/16 19:59:12 1.1
+++ loncom/interface/londependencies.pm 2012/07/06 22:46:06 1.2
@@ -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.2 2012/07/06 22:46:06 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -94,15 +94,22 @@ sub handler {
$r->send_http_header;
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
- ['action','symb','title']);
+ ['action','symb','title','url']);
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 ($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";
my $dir_root = '/userfiles';
my ($destination) =
($url =~ m{^\Quploaded/$cdom/$cnum/\E((?:docs|supplemental)/(?:default|\d+)/\d+)/});