--- loncom/interface/lonwishlistdisplay.pm	2014/02/28 19:24:03	1.6
+++ loncom/interface/lonwishlistdisplay.pm	2021/12/24 00:48:30	1.7
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to display the wishlist (handler)
 #
-# $Id: lonwishlistdisplay.pm,v 1.6 2014/02/28 19:24:03 bisitz Exp $
+# $Id: lonwishlistdisplay.pm,v 1.7 2021/12/24 00:48:30 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -64,6 +64,21 @@ sub handler {
         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') {
         # get wishlist entries from user-data db-file and build a tree out of these entries
         %TreeHash = &Apache::lonwishlist::getWishlist();