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

Diff for /loncom/interface/lonmeta.pm between versions 1.169 and 1.171

version 1.169, 2006/08/16 18:02:01 version 1.171, 2006/08/21 18:04:20
Line 719  sub prettyinput { Line 719  sub prettyinput {
 # Main Handler  # Main Handler
 sub handler {  sub handler {
     my $r=shift;      my $r=shift;
     #  
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
          ['currentpath']);           ['currentpath']);
     my $uri=$r->uri;      my $uri=$r->uri;
Line 728  sub handler { Line 727  sub handler {
     &Apache::loncommon::content_type($r,'text/html');      &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;      $r->send_http_header;
     return OK if $r->header_only;      return OK if $r->header_only;
     #  
     my ($resdomain,$resuser)=      my ($resdomain,$resuser)=
         (&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//);          (&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//);
     if ($uri=~m:/adm/bombs/(.*)$:) {      if ($uri=~m:/adm/bombs/(.*)$:) {
Line 746  sub handler { Line 744  sub handler {
         } else {          } else {
             &pre_select_course($r,$uri);              &pre_select_course($r,$uri);
         }          }
       } elsif ($uri=~m|^/editupload/[^/]+/[^/]+/groups/|) {
          $r->print(&Apache::loncommon::start_page('Edit Group Portfolio File Catalog Information',
    undef,
    {'domain' => $resdomain,}));
           &present_editable_metadata($r,$uri,'portfolio');    
     } elsif ($uri=~m|^/~|) {       } elsif ($uri=~m|^/~|) { 
         # Construction space          # Construction space
         $r->print(&Apache::loncommon::start_page('Edit Catalog nformation',          $r->print(&Apache::loncommon::start_page('Edit Catalog nformation',
Line 1288  ENDEDIT Line 1291  ENDEDIT
                 $r->print(&store_portfolio_metadata($formname,$file_content,$path,                  $r->print(&store_portfolio_metadata($formname,$file_content,$path,
                                                     $new_fn));                                                      $new_fn));
                 unless ($env{'form.associate'}) {                  unless ($env{'form.associate'}) {
                     $r->print(&Apache::portfolio::done("return",'/adm/portfolio'));                      $r->print(&Apache::portfolio::done("Return to Portfolio",'/adm/portfolio'));
                     return;                      return;
                 }                    }  
             } elsif ($fn =~  m|^$Apache::lonnet::perlvar{'lonDocRoot'}/userfiles/groups/\w+/portfolio/|) {              } elsif ($fn =~  m|^$Apache::lonnet::perlvar{'lonDocRoot'}/userfiles/groups/\w+/portfolio/|) {
                 my ($path, $new_fn) = ($fn =~ m|/(groups/\w+/portfolio.*)/([^/]*)$|);                  my ($path, $new_fn) = ($fn =~ m|/(groups/\w+/portfolio.*)/([^/]*)$|);
                 $r->print(&store_portfolio_metadata($formname,$file_content,$path,$new_fn));                  $r->print(&store_portfolio_metadata($formname,$file_content,$path,$new_fn));
                 unless ($env{'form.associate'}) {                  unless ($env{'form.associate'}) {
                     $r->print(&Apache::portfolio::done("return",'/adm/portfolio'));                      $r->print(&Apache::portfolio::done("Return to Portfolio",'/adm/portfolio'));
                     return;                      return;
                 }                    }  
     } else {      } else {
Line 1310  ENDEDIT Line 1313  ENDEDIT
       '</font></p>');        '</font></p>');
  }   }
                 unless ($env{'form.associate'}) {                  unless ($env{'form.associate'}) {
                     $r->print(&Apache::portfolio::done("return",'/adm/portfolio'));                      $r->print(&Apache::portfolio::done("Return to Portfolio",'/adm/portfolio'));
                     return;                      return;
                 }                    }  
     }      }
Removed from v.1.169  
changed lines
  Added in v.1.171

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