loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.144, 2005/12/19 21:17:25	version 1.145, 2005/12/19 21:33:54
Line 300 sub portfolio_display_uri {	Line 300 sub portfolio_display_uri {
} else {	} else {
$meta_uri .= '.meta';	$meta_uri .= '.meta';
}	}
return ($res_uri,$meta_uri);
	my ($path) = ($res_uri =~ m\|(.)/[^/]$\|);

	return ($res_uri,$meta_uri,$path);
}	}

sub pre_select_course {	sub pre_select_course {
my ($r,$uri) = @_;	my ($r,$uri) = @_;
my $output;	my $output;
my $fn=&Apache::lonnet::filelocation('',$uri);	my $fn=&Apache::lonnet::filelocation('',$uri);
my ($res_uri,$meta_uri) = &portfolio_display_uri($uri);	my ($res_uri,$meta_uri,$path) = &portfolio_display_uri($uri);
%Apache::lonpublisher::metadatafields=();	%Apache::lonpublisher::metadatafields=();
%Apache::lonpublisher::metadatakeys=();	%Apache::lonpublisher::metadatakeys=();
my $result=&Apache::lonnet::getfile($fn);	my $result=&Apache::lonnet::getfile($fn);
Line 322 sub pre_select_course {	Line 325 sub pre_select_course {
$r->print($output.'<br /><input type="submit" name="store" value="'.	$r->print($output.'<br /><input type="submit" name="store" value="'.
&mt('Associate Resource With Selected Course').'">');	&mt('Associate Resource With Selected Course').'">');
$r->print('</form>');	$r->print('</form>');

	$r->print('<br /><br /><form method="POST" action="/adm/portfolio">'.
	'<input type="hidden" name="currentpath" value="'.$path.'" />'.
	'<input type="submit" name="cancel" value="'.&mt('Cancel').'">'.
	'</form>');

return;	return;
}	}
sub select_course {	sub select_course {