--- rat/lonratedt.pm 2012/12/16 16:02:15 1.105.2.3 +++ rat/lonratedt.pm 2016/01/15 19:13:04 1.112 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Edit Handler for RAT Maps # -# $Id: lonratedt.pm,v 1.105.2.3 2012/12/16 16:02:15 raeburn Exp $ +# $Id: lonratedt.pm,v 1.112 2016/01/15 19:13:04 damieng Exp $ # # Copyright Michigan State University Board of Trustees # @@ -43,32 +43,89 @@ use HTML::Entities(); # --------------------------------------------------------- Build up RAT screen sub ratedt { my ($r,$url)=@_; - my %layout = ('border' => "0"); - if ($env{'environment.remote'} eq 'off') { - $layout{'rows'} = "1,250,*"; - } else { - $layout{'rows'} = "1,70,*"; - } - my $js =' -'; - - my $start_page = - &Apache::loncommon::start_page('Edit Sequence',$js, - {'frameset' => 1, - 'add_entries' => \%layout}); - - my $end_page = - &Apache::loncommon::end_page({'frameset' => 1}); - $r->print(< - - -$end_page + + + + Edit Sequence + + + + + + +
+
+ + + + + ENDDOCUMENT } @@ -158,7 +215,7 @@ function idxopen(mode) { function groupopen(url,recover) { var options="scrollbars=1,resizable=1,menubar=0"; idxflag=1; -idx=open("/adm/groupsort?inhibitmenu=yes&mode=$mode&recover="+recover+"&readfile="+url,"idxout",options); + idx=open("/adm/groupsort?inhibitmenu=yes&mode=$mode&recover="+recover+"&readfile="+url,"idxout",options); idx.focus(); } @@ -233,22 +290,27 @@ sub smpedt { my ($errtext,$fatal)= &LONCAPA::map::mapread(&Apache::lonnet::filelocation('',$url),''); unless ($fatal) { - $targetmsg=''.&mt('Saved.').'
'; + $targetmsg=&Apache::lonhtmlcommon::confirm_success(&mt('Saved')); } else { - $targetmsg=''.&mt('An error occurred while saving.').'
'; + $targetmsg=&Apache::lonhtmlcommon::confirm_success( + &mt('An error occurred while saving.'),1); } } if ($env{'form.revert'}) { - $targetmsg=''.&mt('Reverted.').'
'; + $targetmsg=&Apache::lonhtmlcommon::confirm_success(&mt('Reverted')); unlink($tmpfn); my ($errtext,$fatal)= &LONCAPA::map::mapread(&Apache::lonnet::filelocation('',$url),''); } + $targetmsg = &Apache::loncommon::confirmwrapper($targetmsg) if ($targetmsg); if (-e $tmpfn) { $targetmsg= - ''.&mt('You are working with an unsaved version of your map.').'
'; + '

' + .&mt('You are working with an unsaved version of your map.') + .'

'; my ($errtext,$fatal)=&LONCAPA::map::mapread($tmpfn,''); } + $errtext = '

'.$errtext.'

' if ($errtext); # ---------------------------------------------------------- Process form input my @importselect=&Apache::loncommon::get_env_multiple('form.importsel'); @@ -491,6 +553,7 @@ sub smpedt { my $editscript=&editscript('simple'); my %lt=&Apache::lonlocal::texthash( + 'sm' => 'Select Map', 'sa' => 'Save', 'nt' => 'New Title', 'se' => 'Search', @@ -512,9 +575,7 @@ sub smpedt { 'pas' => 'Paste after selected', 'reco' => 'Recover Deleted' ); - my $js=< - + my $js=&Apache::lonhtmlcommon::scripttag(" $editscript function openview(entry) { @@ -546,13 +607,11 @@ sub smpedt { document.forms.simpleedit.submit(); } } - - -ENDJS +"); &Apache::lonhtmlcommon::clear_breadcrumbs(); &Apache::lonhtmlcommon::add_breadcrumb({ - text => 'Construction Space', + text => 'Authoring Space', href => &Apache::loncommon::authorspace($url), faq => 6, bug => 'RAT', @@ -567,15 +626,17 @@ ENDJS href => '',}); # Breadcrumbs are included by &start_page - my $start_page = &Apache::loncommon::start_page('Construction Space',$js) + my $start_page = &Apache::loncommon::start_page('Authoring Space',$js) .&Apache::loncommon::head_subbox( &Apache::loncommon::CSTR_pageheader() .&buttons(2)); my $end_page = &Apache::loncommon::end_page(); + my $filetext = &mt('File: [_1]',''.$url.''); $r->print(<$errtext +$targetmsg +$errtext
@@ -584,7 +645,7 @@ $start_page - +
$lt{'ta'}  File: $url
$filetext
@@ -593,7 +654,7 @@ $lt{'as'}
+value="$lt{'sm'}" />
@@ -613,7 +674,7 @@ $lt{'as'} -
$targetmsg +
@@ -625,17 +686,18 @@ $importwindow 		$lt{'cs'}
-

+

$lt{'ps'}
-

- + +

$lt{'pas'}
- + 		+
@@ -653,10 +715,10 @@ sub nodir { my ($path) = ($dir =~ m{^\Q$londocroot\E?(/priv/[^/]+/[^/]+/)}); $dir=~s{^\Q$londocroot/priv/\E[^/]+/[^/]+}{}; my $brcrum = [{'href' => &Apache::loncommon::authorspace($path), - 'text' => 'Construction Space'}]; + 'text' => 'Authoring Space'}]; # {'href' => '', # 'text' => 'No such directory'}]; - $r->print(&Apache::loncommon::start_page('Construction Space', + $r->print(&Apache::loncommon::start_page('Authoring Space', undef, {'bread_crumbs' => $brcrum,}) .&Apache::loncommon::head_subbox( @@ -675,7 +737,7 @@ sub viewmap { &Apache::lonhtmlcommon::clear_breadcrumbs(); &Apache::lonhtmlcommon::add_breadcrumb({ - text => 'Construction Space', + text => 'Authoring Space', href => &Apache::loncommon::authorspace($url), faq => 6, bug => 'RAT', @@ -712,7 +774,7 @@ sub viewmap { .''.&mt('Title in map').'' .''.&mt('Filename of resource').'' .''.&mt('Link to published resource').'' - .''.&mt('Link to resource in Construction Space').'' + .''.&mt('Link to resource in Authoring Space').'' .&Apache::loncommon::end_data_table_header_row() ); foreach (&LONCAPA::map::attemptread(&Apache::lonnet::filelocation('',$url))) { @@ -750,7 +812,7 @@ sub viewmap { $r->print(''); if ($url) { $r->print(''. - &mt('Construction space').''); + &mt('Authoring Space').''); } else { $r->print(' '); }