--- rat/lonratedt.pm 2004/11/17 19:59:29 1.62 +++ rat/lonratedt.pm 2005/03/23 22:54:18 1.64 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Edit Handler for RAT Maps # -# $Id: lonratedt.pm,v 1.62 2004/11/17 19:59:29 albertel Exp $ +# $Id: lonratedt.pm,v 1.64 2005/03/23 22:54:18 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -393,6 +393,10 @@ sub attemptread { # --------------------------------------------------------- Build up RAT screen sub ratedt { my ($r,$url)=@_; + my $frameset = ''; + if ($ENV{'environment.remote'} eq 'off') { + $frameset = ''; + } $r->print(< @@ -401,9 +405,9 @@ sub ratedt { var flag=0; - +$frameset - + @@ -1145,6 +1149,14 @@ sub viewmap { if ($adv) { $r->print('

'.&mt('Map contents are not shown in order.').'

'); } + $r->print( ''. + ''. + ''. + ''. + ''. + ''. + ''); + my @backgroundColors = ("#FFFFFF", "#F6F6F6"); foreach (&attemptread(&Apache::lonnet::filelocation('',$url))) { if (defined($_)) { $idx++; @@ -1153,15 +1165,36 @@ sub viewmap { $title=~s/\&colon\;/\:/g; $url=~s/\&colon\;/\:/g; unless ($title) { $title=(split(/\//,$url))[-1] }; - unless ($title) { $title='Empty'; } + unless ($title) { $title=''.&mt('Empty').''; } + my $resurl = &Apache::lonratsrv::qtescape($url); + my $resfilepath = $Apache::lonnet::perlvar{'lonDocRoot'}.$resurl; + my $filename; + if ($resurl =~ m#/([^/]+)$#) { + $filename = $1; + } + my $cstrurl = $resurl; + $cstrurl =~ s#^/res/[^/]+/([^/]+)/#/priv/$1/#; + my $bgcol = $idx%2; + $r->print(''."\n"); } } + $r->print('

'.&mt('Type').'	'.&mt('Title in map').'	'.&mt('Filename of resource').'	'.&mt('Link to published resource').'	'.&mt('Link to resource in Construction Space').'
'. + '	'.&Apache::lonratsrv::qtescape($title). + '	'.$filename.'	'); + if ($url) { + if (-e $resfilepath) { + $r->print(''.&mt('Resource space').''); + } else { + $r->print(&mt('unpublished')); + } + } + $r->print('	'); if ($url) { - $r->print(''); + $r->print(''. + &mt('Construction space').''); } - $r->print(&Apache::lonratsrv::qtescape($title)); - if ($url) { $r->print(''); } - $r->print(" \n"); + $r->print('

'); $r->print(''); }