version 1.1, 2012/04/16 19:59:12
|
version 1.2, 2012/07/06 22:46:06
|
Line 94 sub handler {
|
Line 94 sub handler {
|
$r->send_http_header; |
$r->send_http_header; |
|
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['action','symb','title']); |
['action','symb','title','url']); |
my $action = $env{'form.action'}; |
my $action = $env{'form.action'}; |
my $symb = $env{'form.symb'}; |
my $symb = $env{'form.symb'}; |
my $docs_title = $env{'form.title'}; |
my $docs_title = $env{'form.title'}; |
my ($mimetype,$numpathchgs,$numrefchanges,%allfiles,%codebase); |
my $docs_url = $env{'form.url'}; |
my ($map,$id,$url) = &Apache::lonnet::decode_symb($symb); |
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 $title = &mt('Manage Dependencies'); |
my $state = '<input type="hidden" name="symb" value="'.$symb.'" />'."\n". |
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 $dir_root = '/userfiles'; |
my ($destination) = |
my ($destination) = |
($url =~ m{^\Quploaded/$cdom/$cnum/\E((?:docs|supplemental)/(?:default|\d+)/\d+)/}); |
($url =~ m{^\Quploaded/$cdom/$cnum/\E((?:docs|supplemental)/(?:default|\d+)/\d+)/}); |