[BACK]Return to daxepage.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/daxepage.pm between versions 1.2 and 1.4

version 1.2, 2016/01/06 16:44:30 version 1.4, 2016/02/14 16:07:13
Line 35  sub handler { Line 35  sub handler {
     my $request = shift;      my $request = shift;
     my $uri = $request->uri;      my $uri = $request->uri;
     $uri =~ s/^\/daxepage//;      $uri =~ s/^\/daxepage//;
     &Apache::loncommon::no_cache($request);      &Apache::loncommon::content_type($request,'text/html');
     if ($uri !~ /\.(task|problem|exam|quiz|assess|survey|library|xml|html|htm|xhtml|xhtm)$/) {      if ($uri !~ /\.(task|problem|exam|quiz|assess|survey|library|xml|html|htm|xhtml|xhtm)$/) {
         $request->status(406);          $request->status(406);
         return OK;          return OK;
Line 47  sub handler { Line 47  sub handler {
     my $name = $uri;      my $name = $uri;
     $name =~ s/^.*\/([^\/]+)$/$1/;      $name =~ s/^.*\/([^\/]+)$/$1/;
     $result .= "  <title>LON-CAPA Daxe: $name</title>\n";      $result .= "  <title>LON-CAPA Daxe: $name</title>\n";
     $result .= '  <script src="/adm/split.js/split.min.js"></script>'."\n";  
     $result .= '  <link rel="stylesheet" href="/adm/split.js/split.css">'."\n";  
     $result .= "  <style>\n";      $result .= "  <style>\n";
     $result .= "    #daxe, #preview { border: none; }\n";      $result .= "    body { margin: 0; }\n";
       $result .= "    #daxe { position:absolute; top:0; left:0; width:100%; height:100%; border:none; }\n";
     $result .= "  </style>\n";      $result .= "  </style>\n";
     $result .= "</head>\n";      $result .= "</head>\n";
     $result .= "<body>\n";      $result .= "<body>\n";
     $result .= '  <div class="split-parent">'."\n";;  
     my $daxeurl = '/adm/daxe/daxe.html?config=config/loncapa_config.xml&amp;file=/daxeopen'.$uri.      my $daxeurl = '/adm/daxe/daxe.html?config=config/loncapa_config.xml&amp;file=/daxeopen'.$uri.
         '&amp;save=/daxesave';          '&amp;save=/daxesave';
     $result .= '    <iframe id="daxe" src="'.$daxeurl.'" class="split split-horizontal"></iframe>'."\n";      $result .= '  <iframe id="daxe" src="'.$daxeurl.'"></iframe>'."\n";
     my $previewurl = $uri.'?inhibitmenu=yes';  
     $result .= '    <iframe id="preview" src="'.$previewurl.'" class="split split-horizontal"></iframe>'."\n";  
     $result .= "  </div>\n";  
     $result .= '  <script>Split(["#daxe", "#preview"], {sizes: [75, 25], minSize: [400, 20]});</script>'."\n";  
     $result .= "</body>\n";      $result .= "</body>\n";
     $result .= "</html>\n";      $result .= "</html>\n";
     $request->print($result);      $request->print($result);
Removed from v.1.2  
changed lines
  Added in v.1.4

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