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

Diff for /rat/lonratmenu.pm between versions 1.11 and 1.17

version 1.11, 2009/04/23 17:31:25 version 1.17, 2010/08/24 09:11:40
Line 32  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, 'suppress_header_logos' => 1});  
     $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 $help=&Apache::loncommon::help_open_menu('Sequence_Advanced_Editor_Creation','Sequence_Advanced_Editor_Creation',6,'RAT');                     'text' => 'Construction Space'},
                     {'href' => '',
     my $pagetext = <<"END";                     'text' => 'RAT'},
 <table border="0"><tr><td bgcolor="#AAAAAA">                    {'href' => '',
 <table border="0"><tr>                     'text' => 'Advanced Editor'}];
 <td bgcolor="#ffffcc">$help</td>  
 <td bgcolor="#ffffcc"><a href="javascript:togglemode();"><font size="-2">Toggle display</font></a></td>      my $help=&Apache::loncommon::help_open_menu(
 <td bgcolor="#ffffcc"><a href="javascript:if (zscale>1) { zscale--; draw();}"><font size="-2">Zoom out</font></a></td>          'Sequence_Advanced_Editor_Creation',
 <td bgcolor="#ffffcc"><a href="javascript:if (zscale<3) { zscale++; draw();}"><font size="-2">Zoom in</font></a></td>          'Sequence_Advanced_Editor_Creation',6,'RAT');
 <td bgcolor="#ffffcc"><a href="javascript:condense();draw();"><font size="-2">Condense</font></a></td>  
 <td bgcolor="#ffffcc"><a href="javascript:graphopt();draw();"><font size="-2">Straighten</font></a></td>  
 <td bgcolor="#ffffcc"><a href="javascript:revert();"><font size="-2">Revert</font></a></td>      # Compile available Advanced RAT functions
 <td bgcolor="#ffffcc"><a href="javascript:undo();"><font size="-2">Undo</font></a></td>      my $functions = '<div class="LC_columnSection">';
 <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>      $functions .= $help; # FIXME: Move help to bread_crumbs_component
 <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>      $functions .=
 <td bgcolor="#ffffcc"><a href="javascript:bookmarkopen();"><font size="-2">Import Bookmarks</font></a></td>         &Apache::lonhtmlcommon::start_funclist(&mt('Display Actions'))
 <td bgcolor="#ffffcc"><a href="javascript:groupcopy();"><font size="-2">Copy</font></a></td>        .&Apache::lonhtmlcommon::add_item_funclist(
 <td bgcolor="#ffffcc"><a href="javascript:graphdef='no';save();storechange();"><font size="-2">Save map</font></a></td>             '<a href="javascript:togglemode();">'
 <td bgcolor="#ccffcc"><a href="javascript:storechange();"><font size="-2">Save map and layout</font></a></td>            .&mt('Toggle display').'</a>')
 </tr></table>        .&Apache::lonhtmlcommon::add_item_funclist(
 </td></tr></table>             '<a href="javascript:if (zscale>1) { zscale--; draw();}">'
 <script type="text/javascript">            .&mt('Zoom out').'</a>')
 main();        .&Apache::lonhtmlcommon::add_item_funclist(
 </script>             '<a href="javascript:if (zscale<3) { zscale++; draw();}">'
 END            .&mt('Zoom in').'</a>')
     return $pagetext;        .&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_Wishlist_Import('."'advanced'".');">'
             .&mt('Import from Wishlist').'</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.11  
changed lines
  Added in v.1.17

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