version 1.2, 2012/07/06 22:46:06
|
version 1.3, 2012/11/29 20:37:07
|
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','url']); |
['action','symb','title','url','folderpath']); |
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 $docs_url = $env{'form.url'}; |
my $docs_url = $env{'form.url'}; |
|
my $folderpath = &unescape($env{'form.folderpath'}); |
my ($mimetype,$numpathchgs,$numrefchanges,%allfiles,%codebase,$url); |
my ($mimetype,$numpathchgs,$numrefchanges,%allfiles,%codebase,$url); |
if ($symb) { |
if ($symb) { |
(undef,undef,$url) = &Apache::lonnet::decode_symb($symb); |
(undef,undef,$url) = &Apache::lonnet::decode_symb($symb); |
Line 108 sub handler {
|
Line 109 sub handler {
|
} |
} |
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="folderpath" value="'.$env{'form.folderpath'}.'" />'."\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"; |
'<input type="hidden" name="url" value="'.$docs_url.'" />'."\n"; |
my $dir_root = '/userfiles'; |
my $dir_root = '/userfiles'; |