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

Diff for /loncom/interface/lonwishlistdisplay.pm between versions 1.4 and 1.5

version 1.4, 2012/08/03 01:26:33 version 1.5, 2014/02/16 21:50:16
Line 76  sub handler { Line 76  sub handler {
            $root = &Apache::lonwishlist::newEntry($root, $env{'form.title'}, $env{'form.path'}, $env{'form.note'});             $root = &Apache::lonwishlist::newEntry($root, $env{'form.title'}, $env{'form.path'}, $env{'form.note'});
         }          }
   
         # get unprocessed_cgi (i.e. marked entries, mode ...)           # get unprocessed_cgi (i.e. marked entries, mode ...)
         &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['action','mark','markedToMove','mode','newtitle','note','rat','setTitle','setPath']);          &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['action','mark','markedToMove','mode','newtitle','note','rat','setTitle','setPath']);
   
         # change the order of entries within a level, that means sorting the entries          # change the order of entries within a level, that means sorting the entries
         my $changeOrder = 0;          my $changeOrder = 0;
         if (defined $env{'form.sel'}) {          if (defined($env{'form.sel'})) {
             my @sel = &Apache::loncommon::get_env_multiple('form.sel');              my @sel = &Apache::loncommon::get_env_multiple('form.sel');
             my $indexNode;              my $indexNode;
             my $at;              my $at;
Line 93  sub handler { Line 93  sub handler {
             }              }
             if ($at ne '') {              if ($at ne '') {
                 $changeOrder = 1;                  $changeOrder = 1;
                 $root =  &Apache::lonwishlist::sortEntries($root, $indexNode,$at);                  $root = &Apache::lonwishlist::sortEntries($root, $indexNode,$at);
             }              }
         }          }
   
         # get all marked (checkboxes) entries          # get all marked (checkboxes) entries
         my @marked = ();          my @marked = ();
         if (defined $env{'form.mark'}) {          if (defined($env{'form.mark'})) {
             @marked = &Apache::loncommon::get_env_multiple('form.mark');              @marked = &Apache::loncommon::get_env_multiple('form.mark');
         }          }
   
         # move entries from one folder to another          # move entries from one folder to another
         if (defined $env{'form.markedToMove'}) {          if (defined($env{'form.markedToMove'})) {
            my $markedToMove = $env{'form.markedToMove'};             my $markedToMove = $env{'form.markedToMove'};
            my @ToMove = split(/\,/,$markedToMove);             my @ToMove = split(/\,/,$markedToMove);
            my $moveTo = $env{'form.mark'};             my $moveTo = $env{'form.mark'};
            if (defined $moveTo){              if (defined($moveTo)) { 
                $root =  &Apache::lonwishlist::moveEntries($root, \@ToMove,$moveTo);                 $root = &Apache::lonwishlist::moveEntries($root, \@ToMove,$moveTo);
            }             }
            $changeOrder = 1;             $changeOrder = 1;
       
         }          }
   
         # delete entries          # delete entries
         if ($env{'form.action'} eq 'delete') {          if ($env{'form.action'} eq 'delete') {
             $root = &Apache::lonwishlist::deleteEntries($root, \@marked);              $root = &Apache::lonwishlist::deleteEntries($root, \@marked);
         }          }
      
   
         # get all titles and notes and save them          # get all titles and notes and save them
         # only save, if user wants to save changes          # only save, if user wants to save changes
         # do not save, when current action is 'delete' or 'sort' or 'move'           # do not save, when current action is 'delete' or 'sort' or 'move'
         my @newTitles = ();          my @newTitles = ();
         my @newPaths = ();          my @newPaths = ();
         my @newNotes = ();          my @newNotes = ();
Line 156  sub handler { Line 154  sub handler {
         my $page;          my $page;
         if ($env{'form.mode'} eq 'edit') {          if ($env{'form.mode'} eq 'edit') {
             $page = &Apache::lonwishlist::makePage($root, "edit");              $page = &Apache::lonwishlist::makePage($root, "edit");
         }          } elsif ($env{'form.mode'} eq 'move') {
         elsif ($env{'form.mode'} eq 'move') {  
             $page = &Apache::lonwishlist::makePage($root, "move", \@marked);              $page = &Apache::lonwishlist::makePage($root, "move", \@marked);
         }          } elsif ($env{'form.mode'} eq 'import') {
         elsif ($env{'form.mode'} eq 'import') {  
             $page = &Apache::lonwishlist::makePageImport($root, $env{'form.rat'});              $page = &Apache::lonwishlist::makePageImport($root, $env{'form.rat'});
         }          } elsif ($env{'form.mode'} eq 'newLink') {
         elsif ($env{'form.mode'} eq 'newLink') {  
             $page = &Apache::lonwishlist::makePopUpNewLink($env{'form.setTitle'},$env{'form.setPath'});              $page = &Apache::lonwishlist::makePopUpNewLink($env{'form.setTitle'},$env{'form.setPath'});
         }          } elsif ($env{'form.mode'} eq 'newFolder') {
         elsif ($env{'form.mode'} eq 'newFolder') {  
             $page = &Apache::lonwishlist::makePopUpNewFolder();              $page = &Apache::lonwishlist::makePopUpNewFolder();
         }          } elsif ($env{'form.mode'} eq 'set') {
         elsif ($env{'form.mode'} eq 'set') {  
             $page = &Apache::lonwishlist::makePageSet();              $page = &Apache::lonwishlist::makePageSet();
         }          } else {
         else {  
             $page = &Apache::lonwishlist::makePage($root, "view");              $page = &Apache::lonwishlist::makePage($root, "view");
         }          }
         @marked = ();          @marked = ();
         $r->print($page);          $r->print($page);
     }      } else {
     # An error occured, print an error-page          # An error occured, print an error-page
     else {  
         my $errorPage = &Apache::lonwishlist::makeErrorPage();          my $errorPage = &Apache::lonwishlist::makeErrorPage();
         $r->print($errorPage);          $r->print($errorPage);
     }      }
Removed from v.1.4  
changed lines
  Added in v.1.5

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