--- rat/lonsequence.pm 2006/01/05 20:57:55 1.25 +++ rat/lonsequence.pm 2006/11/02 21:15:22 1.28 @@ -2,7 +2,7 @@ # # Sequence Handler # -# $Id: lonsequence.pm,v 1.25 2006/01/05 20:57:55 albertel Exp $ +# $Id: lonsequence.pm,v 1.28 2006/11/02 21:15:22 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -26,8 +26,6 @@ # # http://www.lon-capa.org/ # -# (Handler to resolve ambiguous file locations -# package Apache::lonsequence; @@ -35,10 +33,10 @@ use strict; use Apache::lonnet; use Apache::Constants qw(:common :http REDIRECT); use GDBM_File; -use Apache::lonratedt; -use Apache::lonratsrv; -use Apache::lonpageflip; -use Apache::loncommon; +use LONCAPA::map(); +use Apache::lonratsrv(); +use Apache::lonpageflip(); +use Apache::loncommon(); use Apache::lonlocal; my %selhash; @@ -50,7 +48,7 @@ sub attemptread { my $fn=shift; &Apache::lonnet::repcopy($fn); if (-e $fn) { - return &Apache::lonratedt::attemptread($fn); + return &LONCAPA::map::attemptread($fn); } else { return (); } @@ -60,7 +58,7 @@ sub mapread { my $fn=shift; &Apache::lonnet::repcopy($fn); if (-e $fn) { - return &Apache::lonratedt::mapread($fn,''); + return &LONCAPA::map::mapread($fn,''); } else { return (); } @@ -70,9 +68,11 @@ sub mapread { sub viewmap { my ($r,$url)=@_; - $r->print(''); - if ($env{'form.forceselect'}) { $r->print(< + + my $js; + if ($env{'form.forceselect'}) { + $js = (< function select_group() { window.location="/adm/groupsort?catalogmode=groupsec&mode=rat&acts="+document.forms.fileattr.acts.value; @@ -94,7 +94,9 @@ function queue(val) { ENDSCRIPT } - $r->print(&Apache::loncommon::bodytag('Map Contents').'

'.$url.'

'); + + $r->print(&Apache::loncommon::start_page('Map Contents',$js). + '

'.$url.'

'); # ------------------ This is trying to select. Provide buttons and tie %selhash if ($env{'form.forceselect'}) { $r->print(< @@ -104,7 +106,7 @@ onClick="javascript:select_group()"> ENDSELECT my $diropendb = - "/home/httpd/perl/tmp/$env{'user.domain'}\_$env{'user.name'}_groupsec.db"; + "/home/httpd/perl/tmp/$env{'user.domain'}\_$env{'user.name'}_sel_res.db"; if (tie(%selhash,'GDBM_File',$diropendb,&GDBM_WRCREAT(),0640)) { if ($env{'form.launch'} eq '1') { &start_fresh_session(); @@ -112,7 +114,7 @@ ENDSELECT $successtied=1; # - Evaluate actions from previous page (both cumulatively and chronologically) - if ($env{'form.catalogmode'} eq 'groupimport') { + if ($env{'form.catalogmode'} eq 'import') { my $acts=$env{'form.acts'}; my @Acts=split(/b/,$acts); my %ahash; @@ -198,7 +200,7 @@ ENDCHECKBOX } } } - $r->print(''); + $r->print(&Apache::loncommon::end_page()); if ($successtied) { untie %selhash; } @@ -315,30 +317,30 @@ sub handler { my %lt =&Apache::lonlocal::texthash( 'back' => 'beginning', 'forward' => 'end', - 'emfo' => 'Empty Folder/Sequence', 'nere' => 'Next resource could not be displayed', 'goba' => 'Go Back', 'nacc' => 'Navigate Course Content', ); - my $warnmsg = 'As all folders and sequences '; + my $warnmsg = &mt('As all folders and sequences '); if ($arrow_dir eq 'forward') { $warnmsg .= &mt('following the current resource were empty').','; } elsif ($arrow_dir eq 'back') { $warnmsg .= &mt('preceding the current resource were empty').','; } $warnmsg .= &mt('you have now reached the').' '.$lt{$arrow_dir}.' '.&mt('of the course.'); - my $bodytag=&Apache::loncommon::bodytag('Empty Folder/Sequence'); + my $start_page= + &Apache::loncommon::start_page('Empty Folder/Sequence'); + my $end_page= + &Apache::loncommon::end_page(); $r->print(<$lt{'emfo'} -$bodytag +$start_page

$lt{'nere'}

$warnmsg

- - +$end_page ENDNONE } else { &viewmap($r,$requrl);