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

Diff for /rat/lonratmenu.pm between versions 1.2 and 1.21

version 1.2, 2005/04/07 06:56:27 version 1.21, 2016/02/05 17:46:08
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");
       my $js = join('',<$jsh>);
       my %loaditem = ('onunload' => "leave();",);
   
       my $readfile=$r->uri;
       $readfile=~s/\/loadonly\/adveditmenu$//;
   
       # Breadcrumbs
       my $brcrum = [{'href' => &Apache::loncommon::authorspace($r->uri),
                      'text' => 'Authoring Space',
                      'target' => '_top'},
                     {'href' => '',
                      'text' => 'RAT'},
                     {'href' => '',
                      'text' => 'Advanced Editor'}];
   
       my $help=&Apache::loncommon::help_open_menu(
           'Sequence_Advanced_Editor_Creation',
           'Sequence_Advanced_Editor_Creation',6,'RAT');
   
   
       # Compile available Advanced RAT functions
       my $functions = '<div class="LC_columnSection">';
   
       $functions .= $help; # FIXME: Move help to bread_crumbs_component
   
       $functions .=
          &Apache::lonhtmlcommon::start_funclist(&mt('Display Actions'))
         .&Apache::lonhtmlcommon::add_item_funclist(
              '<a href="javascript:togglemode();">'
             .&mt('Toggle display').'</a>')
         .&Apache::lonhtmlcommon::add_item_funclist(
              '<a href="javascript:if (zscale>1) { zscale--; draw();}">'
             .&mt('Zoom out').'</a>')
         .&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:open_StoredLinks_Import('."'advanced'".');">'
             .&mt('Import from Stored Links').'</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->send_http_header('text/html');
     $r->print('<html><head><title>Advanced Editor</title></head>');  
     $r->print(<$jsh>);  
     my $loaditem = 'onUnload="leave();"';  
     my $bodytag=&Apache::loncommon::bodytag(undef,undef,$loaditem,  
                                         ($env{'environment.remote'} ne 'off')).  
        &Apache::loncommon::help_open_menu('','Sequence_Advanced_Editor_Creation','Sequence_Advanced_Editor_Creation','',6,'RAT');  
     $r->print($bodytag);  
     $r->print(&print_html());  
     return OK;  
 }  
   
 sub print_html {      $r->print(
     my $pagetext = <<"END";          &Apache::loncommon::start_page(
 <table border=0><tr><td bgcolor="#aaaaaa">              'Advanced Editor',
 <table border=0><tr>              $js,
 <td bgcolor="#ffffcc"><a href="javascript:togglemode();"><font size="-2">Toggle display</font></a></td>              {'add_entries' => \%loaditem,
 <td bgcolor="#ffffcc"><a href="javascript:if (zscale>1) { zscale--; draw();}"><font size="-2">Zoom out</font></a></td>               'bread_crumbs' => $brcrum,})
 <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>         .&Apache::loncommon::head_subbox(
 <td bgcolor="#ffffcc"><a href="javascript:graphopt();draw();"><font size="-2">Straighten</font></a></td>              &Apache::loncommon::CSTR_pageheader()
 <td bgcolor="#ffffcc"><a href="javascript:revert();"><font size="-2">Revert</font></a></td>             .$functions)
 <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>         .&Apache::loncommon::end_page()
 <td bgcolor="#ffffcc"><a href="javascript:groupsearch();"><font size="-2">Search</font></a></td>      );
 <td bgcolor="#ffffcc"><a href="javascript:groupimport();"><font size="-2">Import</font></a></td>  
 <td bgcolor="#ffffcc"><a href="javascript:groupcopy();"><font size="-2">Copy</font></a></td>      return OK;
 <td bgcolor="#ffffcc"><a href="javascript:graphdef='no';save();storechange();"><font size="-2">Save map</font></a></td>  
 <td bgcolor="#ccffcc"><a href="javascript:storechange();"><font size="-2">Save map and layout</font></a></td>  
 </tr></table>  
 </td></tr></table>  
 <script>  
 main();  
 </script>  
 </body>  
 </html>  
 END  
     return $pagetext;  
 }  }
   
 1;  1;
Removed from v.1.2  
changed lines
  Added in v.1.21

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