File:  [LON-CAPA] / rat / lonwrapper.pm
Revision 1.41: download - view: text, annotated - select for diffs
Mon Nov 7 20:06:29 2011 UTC (12 years, 4 months ago) by www
Branches: MAIN
CVS tags: language_hyphenation_merge, language_hyphenation, HEAD, BZ4492-merge, BZ4492-feature_horizontal_radioresponse, BZ4492-feature_Support_horizontal_radioresponse
Trying to get rid of some of the copy/paste regular expressions

# The LearningOnline Network with CAPA
# Wrapper for external and binary files as standalone resources
#
# $Id: lonwrapper.pm,v 1.41 2011/11/07 20:06:29 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
#
# LON-CAPA is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# LON-CAPA is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with LON-CAPA; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
#
# /home/httpd/html/adm/gpl.txt
#
# http://www.lon-capa.org/
#


package Apache::lonwrapper;

use strict;
use Apache::Constants qw(:common);
use Apache::lonenc();
use Apache::lonnet;

# ================================================================ Main Handler
sub wrapper {
    my $url = shift;

    my $startpage =  Apache::loncommon::start_page('Menu',undef,
					  { 'force_register' =>1, 'bgcolor'   => '#FFFFFF',}) ;
    my $endpage =  Apache::loncommon::end_page();

    my $script = Apache::lonhtmlcommon::scripttag(<<SCRIPT );
    \$(document).ready( function() {
        \$(window).unbind('resize').resize(function(){
            var header = \$('.LC_head_subbox')[0] ?  \$('.LC_head_subbox') 
                                                  :  \$('#LC_breadcrumbs');
            var pos = header.height() + header.position().top + 5;
            \$('.LC_iframecontainer').css('top', pos);
        });
    });
    window.onload = function(){  \$(window).trigger('resize') }; 
SCRIPT

    # javascript will position the iframe if window was resized (or zoomed)
    return <<ENDFRAME;
    $startpage
    $script
    <div class="LC_iframecontainer">
        <iframe src="$url">No iframe support!</iframe>
    </div>
    $endpage
ENDFRAME
}

sub handler {
    my $r=shift;
    &Apache::loncommon::content_type($r,'text/html');
    $r->send_http_header;

    return OK if $r->header_only;

    my $url = $r->uri;
    my $is_ext;

    for ($url){
        s|^/adm/wrapper||;
        $is_ext = $_ =~ s|^/ext/|http://|;         
        s|http://https://|https://|;
        s|&colon;|:|g;              
    }

#
# Actual URL
#
    if ($url=~/$LONCAPA::assess_re/) {
#
# This is uploaded homework
#
        $env{'request.state'}='uploaded';
        &Apache::lonhomework::renderpage($r,$url);
    } else {
#
# This is not homework
#
        if ($is_ext) {
            $ENV{'QUERY_STRING'} =~ s/(^|\&)symb=[^\&]*/$1/;
            $ENV{'QUERY_STRING'} =~ s/\&$//;  
        }

        unless ($ENV{'QUERY_STRING'} eq '') {
            $url.=(($url=~/\?/)?'&':'?').$ENV{'QUERY_STRING'};
        }

        # encrypt url if not external
        &Apache::lonenc::check_encrypt(\$url) if $url !~ /^https?\:/ ;

        $r->print( wrapper($url) );

    } # not just the menu
    
    return OK;
} # handler

1;
__END__

=pod

=head1 NAME

Apache::lonwrapper - External and binary file management.

=head1 SYNOPSIS

Wrapper for external and binary files as standalone resources. Edit handler for rat maps; TeX content handler.

This is part of the LearningOnline Network with CAPA project
described at http://www.lon-capa.org.

=head1 Subroutines

=over

=item wrapper($url)

Wraps $url in an iframe and generates a page for it.
Returns markup for the entire page.

=item handler()

=back

=cut








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