--- loncom/interface/lonwishlistdisplay.pm 2011/01/27 14:38:44 1.1 +++ loncom/interface/lonwishlistdisplay.pm 2011/02/15 14:54:51 1.2 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to display the wishlist (handler) # -# $Id: lonwishlistdisplay.pm,v 1.1 2011/01/27 14:38:44 wenzelju Exp $ +# $Id: lonwishlistdisplay.pm,v 1.2 2011/02/15 14:54:51 wenzelju Exp $ # # Copyright Michigan State University Board of Trustees # @@ -64,7 +64,7 @@ sub handler { } # get unprocessed_cgi (i.e. marked entries, mode ...) - &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['action','mark','markedToMove','mode','newtitle','note','rat']); + &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 my $changeOrder = 0; @@ -150,6 +150,12 @@ sub handler { elsif ($env{'form.mode'} eq 'import') { $page = &Apache::lonwishlist::makePageImport($root, $env{'form.rat'}); } + elsif ($env{'form.mode'} eq 'newLink') { + $page = &Apache::lonwishlist::makePopUpNewLink($env{'form.setTitle'},$env{'form.setPath'}); + } + elsif ($env{'form.mode'} eq 'newFolder') { + $page = &Apache::lonwishlist::makePopUpNewFolder(); + } elsif ($env{'form.mode'} eq 'set') { $page = &Apache::lonwishlist::makePageSet(); }