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

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

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+)/});
Removed from v.1.1  
changed lines
  Added in v.1.2

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