rat/lonratedt.pm - diff

Return to lonratedt.pm CVS log

Up to [LON-CAPA] / rat

Diff for /rat/lonratedt.pm between versions 1.73 and 1.79

version 1.73, 2005/06/10 16:56:08	version 1.79, 2006/06/08 13:56:40
Line 172 use Apache::lonsequence;	Line 172 use Apache::lonsequence;
use Apache::loncommon;	use Apache::loncommon;
use Apache::lonlocal;	use Apache::lonlocal;
use File::Copy;	use File::Copy;
	use lib '/home/httpd/lib/perl/';
	use LONCAPA;


use vars qw(@order @resources @resparms @zombies);	use vars qw(@order @resources @resparms @zombies);

Line 405 sub attemptread {	Line 408 sub attemptread {
# --------------------------------------------------------- Build up RAT screen	# --------------------------------------------------------- Build up RAT screen
sub ratedt {	sub ratedt {
my ($r,$url)=@_;	my ($r,$url)=@_;
my $frameset = '<frameset rows="1,70,*" border="0">';	my %layout = ('border' => "0");
if ($env{'environment.remote'} eq 'off') {	if ($env{'environment.remote'} eq 'off') {
$frameset = '<frameset rows="1,250,*" border="0">';	$layout{'rows'} = "1,250,*";
	} else {
	$layout{'rows'} = "1,70,*";
}	}
$r->print(<<ENDDOCUMENT);	my $js ='
	<script type="text/javascript">
<html>
<head>
<script language="JavaScript">
var flag=0;	var flag=0;
</script>	</script>';
</head>
$frameset
<frame name=server src="$url/loadonly/ratserver" noresize noscroll>
<frame name=code src="$url/loadonly/adveditmenu">
<frame name=mapout src="/adm/rat/map.html">
</frameset>
</html>

	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(<<ENDDOCUMENT);
	$start_page
	<frame name="server" src="$url/loadonly/ratserver" noresize="noresize"
	noscroll="noscroll" />
	<frame name="code" src="$url/loadonly/adveditmenu" />
	<frame name="mapout" src="/adm/rat/map.html" />
	$end_page
ENDDOCUMENT	ENDDOCUMENT
}	}

Line 482 sub pastetarget {	Line 491 sub pastetarget {
foreach (@which) {	foreach (@which) {
if (defined($_)) {	if (defined($_)) {
my ($name,$url)=split(/\=/,$_);	my ($name,$url)=split(/\=/,$_);
$name=&Apache::lonnet::unescape($name);	$name=&unescape($name);
$url=&Apache::lonnet::unescape($url);	$url=&unescape($url);
if ($url) {	if ($url) {
my $idx=&getresidx($url);	my $idx=&getresidx($url);
$insertorder[$#insertorder+1]=$idx;	$insertorder[$#insertorder+1]=$idx;
Line 707 function srchopen(mode) {	Line 716 function srchopen(mode) {
}	}
// ----------------------------------------------------- launch indexer browser	// ----------------------------------------------------- launch indexer browser
function groupsearch() {	function groupsearch() {
srchcheck('groupsearch');	srchcheck('import');
}	}

function groupimport() {	function groupimport() {
idxcheck('groupimport');	idxcheck('import');
}	}

// ------------------------------------------------------- Do srch status check	// ------------------------------------------------------- Do srch status check
Line 865 sub smpedt {	Line 874 sub smpedt {
&Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$env{'form.importmap'}))) {	&Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$env{'form.importmap'}))) {
my ($name,$url)=split(/\:/,$_);	my ($name,$url)=split(/\:/,$_);
if ($url) {	if ($url) {
$importdetail.='&'.&Apache::lonnet::escape($name).'='.	$importdetail.='&'.&escape($name).'='.
&Apache::lonnet::escape($url);	&escape($url);
}	}
}	}

Line 912 sub smpedt {	Line 921 sub smpedt {
foreach (@targetselect) {	foreach (@targetselect) {
my ($name,$url)=split(/\:/,$resources[$order[$_-1]]);	my ($name,$url)=split(/\:/,$resources[$order[$_-1]]);
if ($url) {	if ($url) {
$importdetail.='&'.&Apache::lonnet::escape($name).'='.	$importdetail.='&'.&escape($name).'='.
&Apache::lonnet::escape($url);	&escape($url);
}	}
}	}

Line 1000 sub smpedt {	Line 1009 sub smpedt {
my ($name,$url)=split(/\=/,$_);	my ($name,$url)=split(/\=/,$_);
unless ($name) { $name=(split(/\//,$url))[-1]; }	unless ($name) { $name=(split(/\//,$url))[-1]; }
unless ($name) { $name='EMPTY'; }	unless ($name) { $name='EMPTY'; }
'<option value="'.$idx.'">'.&Apache::lonnet::unescape($name).	'<option value="'.$idx.'">'.&unescape($name).
'</option>';	'</option>';
}	}
} split(/\&/,$importdetail));	} split(/\&/,$importdetail));
Line 1013 sub smpedt {	Line 1022 sub smpedt {
my ($name,$url)=split(/\:/,$resources[$_]);	my ($name,$url)=split(/\:/,$resources[$_]);
unless ($name) { $name=(split(/\//,$url))[-1]; }	unless ($name) { $name=(split(/\//,$url))[-1]; }
unless ($name) { $name='EMPTY'; }	unless ($name) { $name='EMPTY'; }
$targetdetail.='&'.&Apache::lonnet::escape($name).'='.	$targetdetail.='&'.&escape($name).'='.
&Apache::lonnet::escape($url);	&escape($url);
$idx++;	$idx++;
$name=~s/\&colon;/\:/g;	$name=~s/\&colon;/\:/g;
'<option value="'.$idx.'">'.$name.'</option>';	'<option value="'.$idx.'">'.$name.'</option>';
Line 1022 sub smpedt {	Line 1031 sub smpedt {

# ----------------------------------------------------- Start simple RAT screen	# ----------------------------------------------------- Start simple RAT screen
my $editscript=&editscript('simple');	my $editscript=&editscript('simple');
my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef,
($env{'environment.remote'} ne 'off')).
&Apache::loncommon::help_open_menu('','Sequence_Simple_Editor_Creation','Sequence_Simple_Editor_Creation','',6,'RAT');
my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
'sa' => 'Save',	'sa' => 'Save',
'nt' => 'New Title',	'nt' => 'New Title',
Line 1044 sub smpedt {	Line 1051 sub smpedt {
'cs' => 'Cut selected',	'cs' => 'Cut selected',
'ps' => 'Copy selected',	'ps' => 'Copy selected',
'pas' => 'Paste after selected',	'pas' => 'Paste after selected',
	'reco' => 'Recover Deleted'
);	);
$r->print(<<ENDSMPHEAD);	my $js=<<ENDJS;
<html>	<script type="text/javascript">
<head>
<script>

$editscript	$editscript

Line 1091 sub smpedt {	Line 1097 sub smpedt {
}	}

</script>	</script>
</head>	ENDJS
$bodytag
	my $start_page = &Apache::loncommon::start_page(undef,$js).
	&Apache::loncommon::help_open_menu('',
	'Sequence_Simple_Editor_Creation',
	'Sequence_Simple_Editor_Creation',
	'',6,'RAT');
	my $end_page = &Apache::loncommon::end_page();

	$r->print(<<ENDSMPHEAD);
	$start_page
$buttons	$buttons
<font color=red>$errtext</font>	<font color=red>$errtext</font>
<form name=simpleedit method=post>	<form name=simpleedit method=post>
Line 1123 value="Select Map"><input type=submit na	Line 1138 value="Select Map"><input type=submit na
"javascript:impfortarget.value=1;groupsearch()" value="$lt{'se'}">	"javascript:impfortarget.value=1;groupsearch()" value="$lt{'se'}">
<input type=button onClick=	<input type=button onClick=
"javascript:impfortarget.value=1;groupimport();" value="$lt{'im'}">	"javascript:impfortarget.value=1;groupimport();" value="$lt{'im'}">
	<input type=button onClick=
	"javascript:impfortarget.value=1;javascript:groupopen('$url',1);" value="$lt{'reco'}">
$lt{'as'}	$lt{'as'}
<hr>	<hr>
<input type=submit name="moveup" value="$lt{'mu'}">	<input type=submit name="moveup" value="$lt{'mu'}">
Line 1157 $targetwindow	Line 1174 $targetwindow
<input type=hidden name=targetdetail value="$targetdetail">	<input type=hidden name=targetdetail value="$targetdetail">
<input type=hidden name=impfortarget value="0">	<input type=hidden name=impfortarget value="0">
</form>	</form>
</body></html>	$end_page
ENDSMPHEAD	ENDSMPHEAD
}	}

# ----------------------------------------------------------------- No such dir	# ----------------------------------------------------------------- No such dir
sub nodir {	sub nodir {
my ($r,$dir)=@_;	my ($r,$dir)=@_;
$dir=~s/^\/home\/\w+\/public\_html//;	$dir=~s{^/home/\w+/public_html}{};
$r->print(<<ENDNODIR);	$r->print(&Apache::loncommon::start_page(undef,undef,
<html>	{'only_body' => 1,
<body bgcolor='#FFFFFF'>	'bgcolor' => '#FFFFFF',}).
<h1>No such directory: $dir</h1>	"<h1>No such directory: $dir</h1>".
</body>	&Apache::loncommon::end_page());
</html>
ENDNODIR
}	}

# ---------------------------------------------------------------- View Handler	# ---------------------------------------------------------------- View Handler

sub viewmap {	sub viewmap {
my ($r,$url,$adv,$errtext)=@_;	my ($r,$url,$adv,$errtext)=@_;
$r->print('<html>'.	$r->print(
&Apache::loncommon::bodytag('Edit Content of a Map').	&Apache::loncommon::start_page('Edit Content of a Map').
&Apache::loncommon::help_open_menu('','','','',6,'RAT').	&Apache::loncommon::help_open_menu('','','','',6,'RAT').
&buttons($adv));	&buttons($adv));
if ($errtext) {	if ($errtext) {
Line 1232 sub viewmap {	Line 1247 sub viewmap {
}	}
}	}
$r->print('</table>');	$r->print('</table>');
$r->print('</body></html>');	$r->print(&Apache::loncommon::end_page());
}	}

# ================================================================ Main Handler	# ================================================================ Main Handler

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

Removed from v.1.73
changed lines
	Added in v.1.79