loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/londocs.pm between versions 1.104 and 1.107

version 1.104, 2004/02/11 00:10:01	version 1.107, 2004/02/19 21:51:11
Line 97 sub authorhosts {	Line 97 sub authorhosts {
} else {	} else {
($cd,$ca)=($realm=~/^\/(\w+)\/(\w+)$/);	($cd,$ca)=($realm=~/^\/(\w+)\/(\w+)$/);
}	}
if (&Apache::lonnet::homeserver($ca,$cd) eq	my $allowed=0;
$Apache::lonnet::perlvar{'lonHostID'}) {	my $myhome=&Apache::lonnet::homeserver($ca,$cd);
	my @ids=&Apache::lonnet::current_machine_ids();
	foreach my $id (@ids) { if ($id eq $myhome) { $allowed=1; } }
	if ($allowed) {
$home++;	$home++;
$outhash{'home_'.$ca.'@'.$cd}=1;	$outhash{'home_'.$ca.'@'.$cd}=1;
} else {	} else {
$outhash{'otherhome_'.$ca.'@'.$cd}=	$outhash{'otherhome_'.$ca.'@'.$cd}=$myhome;
&Apache::lonnet::homeserver($ca,$cd);
$other++;	$other++;
}	}
}	}
Line 395 sub editor {	Line 397 sub editor {
foreach (@Apache::lonratedt::order) {	foreach (@Apache::lonratedt::order) {
my ($name,$url)=split(/\:/,$Apache::lonratedt::resources[$_]);	my ($name,$url)=split(/\:/,$Apache::lonratedt::resources[$_]);
unless ($name) { $name=(split(/\//,$url))[-1]; }	unless ($name) { $name=(split(/\//,$url))[-1]; }
unless ($name) { $name='NO RESOURCE'; $url='/adm/notfound.html'; }	unless ($name) { next; }
$r->print(&entryline($idx,$name,$url,$folder,$allowed,$_));	$r->print(&entryline($idx,$name,$url,$folder,$allowed,$_));
$idx++;	$idx++;
}	}
Line 1026 function changename(folder,index,oldtitl	Line 1028 function changename(folder,index,oldtitl
}	}

function removeres(folder,index,oldtitle) {	function removeres(folder,index,oldtitle) {
if ((oldtitle=='NO RESOURCE') \|\| (confirm('Remove "'+oldtitle+'"?'))) {	if (confirm('Remove "'+oldtitle+'"?')) {
this.document.forms.renameform.cmd.value='del_'+index;	this.document.forms.renameform.cmd.value='del_'+index;
this.document.forms.renameform.folder.value=folder;	this.document.forms.renameform.folder.value=folder;
this.document.forms.renameform.submit();	this.document.forms.renameform.submit();
Line 1278 ENDFORM	Line 1280 ENDFORM
$r->print(<<ENDSUPFORM);	$r->print(<<ENDSUPFORM);
<table cellspacing=4 cellpadding=4><tr>	<table cellspacing=4 cellpadding=4><tr>
<th bgcolor="#DDDDDD">$lt{'upls'}</th>	<th bgcolor="#DDDDDD">$lt{'upls'}</th>
<th bgcolor="#DDDDDD">$lt{'impp'}</th>
<th bgcolor="#DDDDDD">$lt{'spec'}</th>	<th bgcolor="#DDDDDD">$lt{'spec'}</th>
</tr>	</tr>
<tr><td bgcolor="#DDDDDD">	<tr><td bgcolor="#DDDDDD">
Line 1297 ENDFORM	Line 1298 ENDFORM
</form>	</form>
</td>	</td>
<td bgcolor="#DDDDDD">	<td bgcolor="#DDDDDD">
<form action="/adm/coursedocs" method="post" name="simpleeditsupplement">
<input type="hidden" name="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail" value="">
<input type=button onClick=
"javascript:document.forms.simpleedit.folder.value='$folder';groupsearch()" value="$lt{'srch'}">
<input type=button onClick=
"javascript:document.forms.simpleedit.folder.value='$folder';groupimport();" value="$lt{'impo'}">$help{'Importing_LON-CAPA_Resource'}
<p>
<hr />
<input type="text" size="20" name="importmap">
<input type=button
onClick="javascript:openbrowser('simpleeditsupplement','importmap','sequence,page','')"
value="$lt{'selm'}"><input type="submit" name="loadmap" value="$lt{'load'}">$help{'Load_Map'}
</p>
</form>
</td><td bgcolor="#DDDDDD">
<form action="/adm/coursedocs" method="post" name="supnewfolder">	<form action="/adm/coursedocs" method="post" name="supnewfolder">
<input type="hidden" name="folder" value="$folder">	<input type="hidden" name="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">	<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">

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

Removed from v.1.104
changed lines
	Added in v.1.107