loncom/interface/lonwishlistdisplay.pm - diff

Return to lonwishlistdisplay.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.6, 2014/02/28 19:24:03
+version 1.7, 2021/12/24 00:48:30
  Line 64  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();