version 1.6, 2014/02/28 19:24:03
|
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(); |