[BACK]Return to lonmeta.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmeta.pm between versions 1.186 and 1.189

version 1.186, 2006/11/04 01:50:31 version 1.189, 2006/11/20 20:58:30
Line 724  sub prettyinput { Line 724  sub prettyinput {
 sub handler {  sub handler {
     my $r=shift;      my $r=shift;
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
          ['currentpath']);           ['currentpath','changecourse']);
     my $uri=$r->uri;      my $uri=$r->uri;
     #      #
     # Set document type      # Set document type
Line 752  sub handler { Line 752  sub handler {
             my $result=&Apache::lonnet::getfile($fn);              my $result=&Apache::lonnet::getfile($fn);
             &Apache::lonpublisher::metaeval($result);              &Apache::lonpublisher::metaeval($result);
             &Apache::lonnet::logthis("restricted is: ".$Apache::lonpublisher::metadatafields{'courserestricted'});              &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);                  &pre_select_course($r,$uri);
             } else {              } else {
                 &present_editable_metadata($r,$uri,'portfolio');                  &present_editable_metadata($r,$uri,'portfolio');
Line 1252  ENDEDIT Line 1253  ENDEDIT
     }      }
   
     if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none') {      if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none') {
  $r->print(&mt('Associated with course [_1]','<strong>'.$env{$Apache::lonpublisher::metadatafields{'courserestricted'}.".description"}.   $r->print(&mt('Associated with course [_1]',
       '</strong>').'<br />');          '<strong><a href="'.$uri.'?changecourse=true">'.
           $env{$Apache::lonpublisher::metadatafields{'courserestricted'}.
           ".description"}.
         '</a></strong>').'<br />');
     } else {      } else {
  $r->print("This resource is not associated with a course.<br />");   $r->print('<a href="'.$uri.'?changecourse=true">This resource is not associated with a course.</a><br />');
     }      }
  }   }
  if (@added_order) {   if (@added_order) {
Line 1269  ENDEDIT Line 1273  ENDEDIT
                 $lt{$field_name} = $$added_metadata_fields{$field_name};                  $lt{$field_name} = $$added_metadata_fields{$field_name};
             }              }
         }          }
           $output .= &Apache::loncommon::start_data_table();
           my $row_alt = 1;
         foreach my $field_name (@fields) {          foreach my $field_name (@fields) {
             if (defined($env{'form.new_'.$field_name})) {              if (defined($env{'form.new_'.$field_name})) {
                 $Apache::lonpublisher::metadatafields{$field_name}=                  $Apache::lonpublisher::metadatafields{$field_name}=
Line 1280  ENDEDIT Line 1286  ENDEDIT
                 if ((($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'} =~ m/active/) ||                  if ((($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'} =~ m/active/) ||
                     ($field_name eq 'courserestricted'))&&                      ($field_name eq 'courserestricted'))&&
                     (!($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'} =~ m/deleted/))){                      (!($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'} =~ m/deleted/))){
                     $output.=("\n".'<p>'.$lt{$field_name}.': '.                      
                       $output .= "\n".&Apache::loncommon::start_data_table_row();
                       $output .= ('<td><span class="LC_metadata">'.$lt{$field_name}.':</span></td><td> '.
                               &prettyinput($field_name,                                &prettyinput($field_name,
    $Apache::lonpublisher::metadatafields{$field_name},     $Apache::lonpublisher::metadatafields{$field_name},
                     'new_'.$field_name,'defaultmeta',                      'new_'.$field_name,'defaultmeta',
                     undef,undef,undef,undef,                      undef,undef,undef,undef,
                     $Apache::lonpublisher::metadatafields{'courserestricted'}).'</p>'."\n");                      $Apache::lonpublisher::metadatafields{'courserestricted'}).'</td>');
                       $output .= &Apache::loncommon::end_data_table_row();
                  }                   }
             } else {              } else {
   
                     $output.=('<p>'.$lt{$field_name}.': '.                      $output.=(&Apache::loncommon::start_data_table_row().'<td><span class="LC_metadata">'.$lt{$field_name}.':</span></td><td> '.
       &prettyinput($field_name,        &prettyinput($field_name,
    $Apache::lonpublisher::metadatafields{$field_name},     $Apache::lonpublisher::metadatafields{$field_name},
    'new_'.$field_name,'defaultmeta').'</p>');     'new_'.$field_name,'defaultmeta').'</td>'.&Apache::loncommon::end_data_table_row());
                                 
             }              }
         }          }
           $output .= &Apache::loncommon::end_data_table();
  if ($env{'form.store'}) {   if ($env{'form.store'}) {
     my $mfh;      my $mfh;
     my $formname='store';       my $formname='store'; 
Removed from v.1.186  
changed lines
  Added in v.1.189

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