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

Diff for /loncom/publisher/lonpubmenu.pm between versions 1.1 and 1.3

version 1.1, 2004/12/10 14:57:47 version 1.3, 2005/04/07 06:56:27
Line 27 Line 27
   
 package Apache::lonpubmenu;  package Apache::lonpubmenu;
 use Apache::lonlocal;  use Apache::lonlocal;
   use Apache::lonnet;
 use Apache::loncommon;  use Apache::loncommon;
   
 sub handler {  sub handler {
Line 51  sub handler { Line 52  sub handler {
                                        nseq => 'New assembled sequence',                                         nseq => 'New assembled sequence',
                                        ncrf => 'New custom rights file',                                         ncrf => 'New custom rights file',
                                        nsty => 'New style file',                                         nsty => 'New style file',
                                          nlib => 'New library file',
                                        nsub => 'New subdirectory',                                         nsub => 'New subdirectory',
                                        renm => 'Rename current file to',                                         renm => 'Rename current file to',
                                        move => 'Move current file to',                                         move => 'Move current file to',
Line 60  sub handler { Line 62  sub handler {
                                        prnt => 'Print'                                         prnt => 'Print'
                                       );                                        );
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['disp']);      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['disp']);
     my $disp = $ENV{'form.disp'};      my $disp = $env{'form.disp'};
 # set defaults for parent directory in case frameloc is unable to determine directory  # set defaults for parent directory in case frameloc is unable to determine directory
     my $defaultdir = '/priv/'.$ENV{'user.name'}.'/';       my $defaultdir = '/priv/'.$env{'user.name'}.'/'; 
     if ($ENV{'request.role'} =~ m#^ca\./[^/]+/([^/]+)#) {      if ($env{'request.role'} =~ m#^ca\./[^/]+/([^/]+)#) {
         $defaultdir = '/priv/'.$1.'/';          $defaultdir = '/priv/'.$1.'/';
     }      }
     $r->print(<<"ENDONE");      $r->print(<<"ENDONE");
Line 329  ENDFILE Line 331  ENDFILE
                             <option value="newsequencefile">$lt{'nseq'}:</option>                              <option value="newsequencefile">$lt{'nseq'}:</option>
                             <option value="newrightsfile">$lt{'ncrf'}:</option>                              <option value="newrightsfile">$lt{'ncrf'}:</option>
                             <option value="newstyfile">$lt{'nsty'}:</option>                              <option value="newstyfile">$lt{'nsty'}:</option>
                               <option value="newlibraryfile">$lt{'nlib'}:</option>
     <option value="newdir">$lt{'nsub'}:</option>      <option value="newdir">$lt{'nsub'}:</option>
 ENDOPTIONS  ENDOPTIONS
     if ($disp ne 'dir') {      if ($disp ne 'dir') {
Removed from v.1.1  
changed lines
  Added in v.1.3

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