--- 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 = '<input type="hidden" name="symb" value="'.$symb.'" />'."\n".
-                '<input type="hidden" name="title" value="'.$docs_title.'" />'."\n";
+                '<input type="hidden" name="title" value="'.$docs_title.'" />'."\n".
+                '<input type="hidden" name="url" value="'.$docs_url.'" />'."\n";
     my $dir_root = '/userfiles';
     my ($destination) =
         ($url =~ m{^\Quploaded/$cdom/$cnum/\E((?:docs|supplemental)/(?:default|\d+)/\d+)/});