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

Diff for /rat/lonratmenu.pm between versions 1.1 and 1.14

version 1.1, 2004/11/17 18:39:20 version 1.14, 2009/06/09 15:01:28
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 37  sub handler { Line 39  sub handler {
     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');      $r->send_http_header('text/html');
     $r->print('<html><head><title>Advanced Editor</title></head>');      my $js = join('',<$jsh>);
     $r->print(<$jsh>);      my %loaditem = ('onunload' => "leave();",);
     my $loaditem = 'onUnload="leave();"';     my $brcrum = [{'href' => &Apache::loncommon::authorspace(),
     my $bodytag=&Apache::loncommon::bodytag(undef,undef,$loaditem,                    'text' => 'Construction Space'},
                                         ($ENV{'environment.remote'} ne 'off')).                   {'href' => '',
        &Apache::loncommon::help_open_menu('','Sequence_Advanced_Editor_Creation','Sequence_Advanced_Editor_Creation','',6,'RAT');                    'text' => 'RAT'},
     $r->print($bodytag);                   {'href' => '',
     $r->print(&print_html());                    'text' => 'Advanced Editor'}];
   
       $r->print(&Apache::loncommon::start_page('Advanced Editor',$js,
                     {'add_entries' => \%loaditem,
                      'bread_crumbs' => $brcrum,})
                .&Apache::loncommon::head_subbox(
                     &Apache::loncommon::CSTR_pageheader())
       );
       my $readfile=$r->uri;
       $readfile=~s/\/loadonly\/adveditmenu$//;
       $r->print(&print_html($readfile));
       $r->print(&Apache::loncommon::end_page());
     return OK;      return OK;
 }  }
   
 sub print_html {  sub print_html {
       my $readfile=shift;
       my $help=&Apache::loncommon::help_open_menu('Sequence_Advanced_Editor_Creation','Sequence_Advanced_Editor_Creation',6,'RAT');
   
     my $pagetext = <<"END";      my $pagetext = <<"END";
 <table border=0><tr><td bgcolor="#aaaaaa">  <table border="0"><tr><td bgcolor="#AAAAAA">
 <table border=0><tr>  <table border="0"><tr>
   <td bgcolor="#ffffcc">$help</td>
 <td bgcolor="#ffffcc"><a href="javascript:togglemode();"><font size="-2">Toggle display</font></a></td>  <td bgcolor="#ffffcc"><a href="javascript:togglemode();"><font size="-2">Toggle display</font></a></td>
 <td bgcolor="#ffffcc"><a href="javascript:if (zscale>1) { zscale--; draw();}"><font size="-2">Zoom out</font></a></td>  <td bgcolor="#ffffcc"><a href="javascript:if (zscale>1) { zscale--; draw();}"><font size="-2">Zoom out</font></a></td>
 <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:if (zscale<3) { zscale++; draw();}"><font size="-2">Zoom in</font></a></td>
Line 60  sub print_html { Line 77  sub print_html {
 <td bgcolor="#ffffcc"><a href="javascript:revert();"><font size="-2">Revert</font></a></td>  <td bgcolor="#ffffcc"><a href="javascript:revert();"><font size="-2">Revert</font></a></td>
 <td bgcolor="#ffffcc"><a href="javascript:undo();"><font size="-2">Undo</font></a></td>  <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:redo();"><font size="-2">Redo</font></a></td>
   <td bgcolor="#ffffcc"><a href="javascript:groupopen('$readfile');"><font size="-2">Recover deleted</font></a></td>
 <td bgcolor="#ffffcc"><a href="javascript:groupsearch();"><font size="-2">Search</font></a></td>  <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:groupimport();"><font size="-2">Import</font></a></td>
   <td bgcolor="#ffffcc"><a href="javascript:bookmarkopen();"><font size="-2">Import Bookmarks</font></a></td>
 <td bgcolor="#ffffcc"><a href="javascript:groupcopy();"><font size="-2">Copy</font></a></td>  <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>  <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>  <td bgcolor="#ccffcc"><a href="javascript:storechange();"><font size="-2">Save map and layout</font></a></td>
 </tr></table>  </tr></table>
 </td></tr></table>  </td></tr></table>
 <script>  <script type="text/javascript">
 main();  main();
 </script>  </script>
 </body>  
 </html>  
 END  END
     return $pagetext;      return $pagetext;
 }  }
Removed from v.1.1  
changed lines
  Added in v.1.14

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