Return to admbookmarks.pm CVS log

Up to [LON-CAPA] / loncom / html / res / adm / pages / bookmarkmenu

Annotation of loncom/html/res/adm/pages/bookmarkmenu/admbookmarks.pm, revision 1.3

1.1       tyszkabe    1: #!/usr/bin/perl -T
                      2: #
1.2       tyszkabe    3: # This will take annotations and then plug them into a page.
1.1       tyszkabe    4: #
1.2       tyszkabe    5: # 08/25/00 Ben Tyszka
1.1       tyszkabe    6: #
                      7: #
1.2       tyszkabe    8: #
                      9: ##################
1.1       tyszkabe   10: 
1.3     ! tyszkabe   11: package Apache::bookmarks;
1.1       tyszkabe   12: 
                     13: use strict;
                     14: use CGI qw(:all);
1.2       tyszkabe   15: use Apache::Constants qw(:common);
1.1       tyszkabe   16: use Apache::lonnet;
                     17: 
1.2       tyszkabe   18: # --------------------------------------------------------------Put annotation
1.1       tyszkabe   19: 
1.2       tyszkabe   20: sub write_annotation {
1.3     ! tyszkabe   21:     my $marks=shift;
        !            22:     Apache::lonnet::put("bookmarks",('bookmarks' => $annotation));
1.2       tyszkabe   23:     return;
1.1       tyszkabe   24: }
                     25: 
1.2       tyszkabe   26: # --------------------------------------------------------------Get annotation
                     27: 
                     28: sub get_annotation {
1.3     ! tyszkabe   29:     my $bookmark=Apache::lonnet::get('bookmarks',('bookmarks));
        !            30:     return $bookmark;
1.2       tyszkabe   31: }
                     32: 
                     33: # ------------------------------------------------------------Construct editor
                     34: 
                     35: sub construct_editor {
                     36:     my $url_new=shift;
                     37:     my $annotation=shift;
                     38:     return(<<END_HTML) 
1.3     ! tyszkabe   39: <!-- HTML STUFF GOES HERE!!!!!! -->
1.2       tyszkabe   40: END_HTML
1.1       tyszkabe   41: }
                     42: 
1.2       tyszkabe   43: # ----------------------------------------------------------------Main Handler
1.1       tyszkabe   44: 
                     45: sub handler {
                     46:     my $r=shift;
1.3     ! tyszkabe   47:     my $marks;
1.2       tyszkabe   48:     $r->content_type('text/html');
                     49:     $r->send_http_header;
1.3     ! tyszkabe   50:     if ($save_mark=param("save_mark")) {
        !            51:          write_annotation($save_mark);
        !            52: 	 $marks=$save_mark
1.1       tyszkabe   53:     }
1.3     ! tyszkabe   54:     if (my $get_mark=param("get_mark")) {
        !            55:          unless ($get_mark eq $save_mark) {
        !            56:               $marks=get_annotation($url_new);
1.2       tyszkabe   57: 	 }
1.3     ! tyszkabe   58: 	 my $page = construct_editor($marks);
1.2       tyszkabe   59: 	 $r->print($page);
1.1       tyszkabe   60:     }
                     61:     return OK;
                     62: }
                     63: 
                     64: 1;
                     65: __END__