[BACK]Return to lonratmenu.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Diff for /rat/lonratmenu.pm between versions 1.8 and 1.15

version 1.8, 2006/06/26 22:47:35 version 1.15, 2009/12/04 15:13:04
Line 2 Line 2
 # Build menu bar for Advanced RAT. Uses javascript code originally in  # Build menu bar for Advanced RAT. Uses javascript code originally in
 # static file: rat/client/code.html, now in  rat/client/ratcode.js    # static file: rat/client/code.html, now in  rat/client/ratcode.js  
 #  #
   # $Id$
   #
 # Copyright Michigan State University Board of Trustees  # Copyright Michigan State University Board of Trustees
 #  #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).  # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
Line 30  use strict; Line 32  use strict;
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::File;  use Apache::File;
 use Apache::loncommon;  use Apache::loncommon;
   use Apache::lonhtmlcommon;
   use Apache::lonlocal;
 use Apache::lonnet;  use Apache::lonnet;
   
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
     my $include = $Apache::lonnet::perlvar{'lonIncludes'};      my $include = $Apache::lonnet::perlvar{'lonIncludes'};
     my $jsh=Apache::File->new($include."/ratcode.js");      my $jsh=Apache::File->new($include."/ratcode.js");
     $r->send_http_header('text/html');  
     my $js = join('',<$jsh>);      my $js = join('',<$jsh>);
     my %loaditem = ('onunload' => "leave();",);      my %loaditem = ('onunload' => "leave();",);
     my $start_page =   
  &Apache::loncommon::start_page('Advanced Editor',$js,  
        {'add_entries' => \%loaditem,}).  
  &Apache::loncommon::help_open_menu('Sequence_Advanced_Editor_Creation','Sequence_Advanced_Editor_Creation',6,'RAT');  
     $r->print($start_page);  
     my $readfile=$r->uri;      my $readfile=$r->uri;
     $readfile=~s/\/loadonly\/adveditmenu$//;      $readfile=~s/\/loadonly\/adveditmenu$//;
     $r->print(&print_html($readfile));  
     $r->print(&Apache::loncommon::end_page());  
     return OK;  
 }  
   
 sub print_html {      # Breadcrumbs
     my $readfile=shift;      my $brcrum = [{'href' => &Apache::loncommon::authorspace(),
     my $pagetext = <<"END";                     'text' => 'Construction Space'},
 <table border=0><tr><td bgcolor="#aaaaaa">                    {'href' => '',
 <table border=0><tr>                     'text' => 'RAT'},
 <td bgcolor="#ffffcc"><a href="javascript:togglemode();"><font size="-2">Toggle display</font></a></td>                    {'href' => '',
 <td bgcolor="#ffffcc"><a href="javascript:if (zscale>1) { zscale--; draw();}"><font size="-2">Zoom out</font></a></td>                     'text' => 'Advanced Editor'}];
 <td bgcolor="#ffffcc"><a href="javascript:if (zscale<3) { zscale++; draw();}"><font size="-2">Zoom in</font></a></td>  
 <td bgcolor="#ffffcc"><a href="javascript:condense();draw();"><font size="-2">Condense</font></a></td>      my $help=&Apache::loncommon::help_open_menu(
 <td bgcolor="#ffffcc"><a href="javascript:graphopt();draw();"><font size="-2">Straighten</font></a></td>          'Sequence_Advanced_Editor_Creation',
 <td bgcolor="#ffffcc"><a href="javascript:revert();"><font size="-2">Revert</font></a></td>          'Sequence_Advanced_Editor_Creation',6,'RAT');
 <td bgcolor="#ffffcc"><a href="javascript:undo();"><font size="-2">Undo</font></a></td>  
 <td bgcolor="#ffffcc"><a href="javascript:redo();"><font size="-2">Redo</font></a></td>  
 <td bgcolor="#ffffcc"><a href="javascript:groupopen('$readfile');"><font size="-2">Recover deleted</font></a></td>      # Compile available Advanced RAT functions
 <td bgcolor="#ffffcc"><a href="javascript:groupsearch();"><font size="-2">Search</font></a></td>      my $functions = '<div class="LC_columnSection">';
 <td bgcolor="#ffffcc"><a href="javascript:groupimport();"><font size="-2">Import</font></a></td>  
 <td bgcolor="#ffffcc"><a href="javascript:bookmarkopen();"><font size="-2">Import Bookmarks</font></a></td>      $functions .= $help; # FIXME: Move help to bread_crumbs_component
 <td bgcolor="#ffffcc"><a href="javascript:groupcopy();"><font size="-2">Copy</font></a></td>  
 <td bgcolor="#ffffcc"><a href="javascript:graphdef='no';save();storechange();"><font size="-2">Save map</font></a></td>      $functions .=
 <td bgcolor="#ccffcc"><a href="javascript:storechange();"><font size="-2">Save map and layout</font></a></td>         &Apache::lonhtmlcommon::start_funclist(&mt('Display Actions'))
 </tr></table>        .&Apache::lonhtmlcommon::add_item_funclist(
 </td></tr></table>             '<a href="javascript:togglemode();">'
 <script type="text/javascript">            .&mt('Toggle display').'</a>')
 main();        .&Apache::lonhtmlcommon::add_item_funclist(
 </script>             '<a href="javascript:if (zscale>1) { zscale--; draw();}">'
 END            .&mt('Zoom out').'</a>')
     return $pagetext;        .&Apache::lonhtmlcommon::add_item_funclist(
              '<a href="javascript:if (zscale<3) { zscale++; draw();}">'
             .&mt('Zoom in').'</a>')
         .&Apache::lonhtmlcommon::add_item_funclist(
              '<a href="javascript:condense();draw();">'
             .&mt('Condense').'</a>')
         .&Apache::lonhtmlcommon::add_item_funclist(
              '<a href="javascript:graphopt();draw();">'
             .&mt('Straighten').'</a>')
         .&Apache::lonhtmlcommon::add_item_funclist(
              '<a href="javascript:revert();">'
             .&mt('Revert').'</a>')
         .&Apache::lonhtmlcommon::end_funclist();
   
       $functions .=
          &Apache::lonhtmlcommon::start_funclist(&mt('Version Actions'))
         .&Apache::lonhtmlcommon::add_item_funclist(
              '<a href="javascript:undo();">'
             .&mt('Undo').'</a>')
         .&Apache::lonhtmlcommon::add_item_funclist(
              '<a href="javascript:redo();">'
             .&mt('Redo').'</a>')
         .&Apache::lonhtmlcommon::add_item_funclist(
              '<a href="javascript:groupopen(\''.$readfile.'\');">'
             .&mt('Recover deleted').'</a>')
         .&Apache::lonhtmlcommon::end_funclist();
   
       $functions .=
          &Apache::lonhtmlcommon::start_funclist(&mt('Import'))
         .&Apache::lonhtmlcommon::add_item_funclist(
              '<a href="javascript:groupsearch();">'
             .&mt('Search').'</a>')
         .&Apache::lonhtmlcommon::add_item_funclist(
              '<a href="javascript:groupimport();">'
             .&mt('Import').'</a>')
         .&Apache::lonhtmlcommon::add_item_funclist(
              '<a href="javascript:bookmarkopen();">'
             .&mt('Import Bookmarks').'</a>')
         .&Apache::lonhtmlcommon::add_item_funclist(
              '<a href="javascript:groupcopy();">'
             .&mt('Copy').'</a>')
         .&Apache::lonhtmlcommon::end_funclist();
   
       $functions .=
          &Apache::lonhtmlcommon::start_funclist(&mt('Save'))
         .&Apache::lonhtmlcommon::add_item_funclist(
              '<a href="javascript:graphdef=\'no\';save();storechange();">'
             .&mt('Save map').'</a>')
         .&Apache::lonhtmlcommon::add_item_funclist(
              '<a href="javascript:storechange();">'
             .&mt('Save map and layout').'</a>')
         .&Apache::lonhtmlcommon::end_funclist();
   
       $functions .= '</div>'; # End: LC_columnSection
   
       $functions .= &Apache::lonhtmlcommon::scripttag('main();');
   
   
       # Print Advanced RAT page header
       $r->send_http_header('text/html');
   
       $r->print(
           &Apache::loncommon::start_page(
               'Advanced Editor',
               $js,
               {'add_entries' => \%loaditem,
                'bread_crumbs' => $brcrum,})
   
          .&Apache::loncommon::head_subbox(
               &Apache::loncommon::CSTR_pageheader()
              .$functions)
   
          .&Apache::loncommon::end_page()
       );
   
       return OK;
 }  }
   
 1;  1;
Removed from v.1.8  
changed lines
  Added in v.1.15

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>