Annotation of loncom/html/res/adm/pages/bookmarkmenu/admbookmarks.pm, revision 1.1
1.1 ! tyszkabe 1: #!/usr/bin/perl -T
! 2: #
! 3: # This will save/get bookmarks and generate the bookmark editor
! 4: #
! 5: #
! 6: #
! 7: ################
! 8:
! 9: package Apache::admbookmarks
! 10:
! 11: use strict;
! 12: use CGI qw(:all);
! 13: use Apache::lonnet;
! 14:
! 15: # -------------------------------------------------------Get bookmarks
! 16:
! 17: sub get_bookmarks {
! 18: my %bookmarks=dump('bookmarks');
! 19: return %bookmarks;
! 20: }
! 21:
! 22: # ------------------------------------------------------Save bookmarks
! 23:
! 24: sub save_bookmarks {
! 25: my $description=shift;
! 26: # organize, split, format, and whatever goes here <------------
! 27: put('bookmarks',%bookmarks);
! 28: return;
! 29: }
! 30:
! 31: # --------------------------------------------------------Main Handler
! 32:
! 33: sub handler {
! 34: my $r=shift;
! 35: if ($bookmarks=param("bookmarks")) {
! 36: save_bookmarks($bookmarks);
! 37: }
! 38: unless ($closing_bookmarks=param("closing_bookmarks")) {
! 39: my %bookmarks=get_bookmarks();
! 40: $r->content_type('text/html');
! 41: $r->send_http_header;
! 42: $r->print(<<UPTO_BOOKMARKS);
! 43: <!--
! 44: LOTS OF HTML STUFF GOES HERE
! 45: -->
! 46: UPTO_BOOKMARKS
! 47: $r->print(map {"$_=$bookmarks{$_}\n"} sort keys %bookmarks);
! 48: $r->print(<<END_HTML);
! 49: <!--
! 50: EVEN MORE HTML STUFF GOES HERE
! 51: -->
! 52: END_HTML
! 53: }
! 54:
! 55: return OK;
! 56: }
! 57:
! 58: 1;
! 59: __END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>