[BACK]Return to londependencies.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/londependencies.pm between versions 1.2 and 1.3

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';
Removed from v.1.2  
changed lines
  Added in v.1.3

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>