[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.7

version 1.4, 2012/08/03 01:26:33 version 1.7, 2021/12/24 00:48:30
Line 64  sub handler { Line 64  sub handler {
         return HTTP_NOT_ACCEPTABLE;          return HTTP_NOT_ACCEPTABLE;
     }      }
   
       my $clientip = &Apache::lonnet::get_requestor_ip($r);
       my ($blocked,$blocktext) =
           &Apache::loncommon::blocking_status('wishlist',$clientip);
       if ($blocked) {
           &Apache::lonhtmlcommon::clear_breadcrumbs();
           &Apache::lonhtmlcommon::add_breadcrumb(
                  { href => '/adm/wishlist',
                    text => 'Stored Links'});
           my $startPage = &Apache::loncommon::start_page('Stored Links');
           my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Stored Links','Wishlist');
           my $endpage = &Apache::loncommon::end_page();
           $r->print($startPage.$breadcrumbs.$blocktext);
           return OK;
       }
   
     if (&Apache::lonwishlist::getWishlist() ne 'error') {      if (&Apache::lonwishlist::getWishlist() ne 'error') {
         # get wishlist entries from user-data db-file and build a tree out of these entries          # get wishlist entries from user-data db-file and build a tree out of these entries
         %TreeHash = &Apache::lonwishlist::getWishlist();          %TreeHash = &Apache::lonwishlist::getWishlist();
Line 76  sub handler { Line 91  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 108  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 169  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 occurred, 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.7

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