--- loncom/interface/lonmeta.pm 2006/11/20 18:54:55 1.187
+++ loncom/interface/lonmeta.pm 2006/11/20 20:58:30 1.189
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Metadata display handler
#
-# $Id: lonmeta.pm,v 1.187 2006/11/20 18:54:55 banghart Exp $
+# $Id: lonmeta.pm,v 1.189 2006/11/20 20:58:30 banghart Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -724,7 +724,7 @@ sub prettyinput {
sub handler {
my $r=shift;
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
- ['currentpath']);
+ ['currentpath','changecourse']);
my $uri=$r->uri;
#
# Set document type
@@ -752,7 +752,8 @@ sub handler {
my $result=&Apache::lonnet::getfile($fn);
&Apache::lonpublisher::metaeval($result);
&Apache::lonnet::logthis("restricted is: ".$Apache::lonpublisher::metadatafields{'courserestricted'});
- if (!$Apache::lonpublisher::metadatafields{'courserestricted'}) {
+ if ((!$Apache::lonpublisher::metadatafields{'courserestricted'}) ||
+ ($env{'form.changecourse'} eq 'true')) {
&pre_select_course($r,$uri);
} else {
&present_editable_metadata($r,$uri,'portfolio');
@@ -1252,10 +1253,13 @@ ENDEDIT
}
if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none') {
- $r->print(&mt('Associated with course [_1]',''.$env{$Apache::lonpublisher::metadatafields{'courserestricted'}.".description"}.
- '').'
');
+ $r->print(&mt('Associated with course [_1]',
+ ''.
+ $env{$Apache::lonpublisher::metadatafields{'courserestricted'}.
+ ".description"}.
+ '').'
');
} else {
- $r->print("This resource is not associated with a course.
");
+ $r->print('This resource is not associated with a course.
');
}
}
if (@added_order) {
@@ -1269,11 +1273,9 @@ ENDEDIT
$lt{$field_name} = $$added_metadata_fields{$field_name};
}
}
- $output.='
'. + $output .= "\n".&Apache::loncommon::start_data_table_row(); + $output .= (' | '. &prettyinput($field_name, $Apache::lonpublisher::metadatafields{$field_name}, 'new_'.$field_name,'defaultmeta', undef,undef,undef,undef, - $Apache::lonpublisher::metadatafields{'courserestricted'}).' | ||
'. + $output.=(&Apache::loncommon::start_data_table_row().' | '. &prettyinput($field_name, $Apache::lonpublisher::metadatafields{$field_name}, - 'new_'.$field_name,'defaultmeta').' |