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

Diff for /loncom/interface/lonmeta.pm between versions 1.254.2.1 and 1.258

version 1.254.2.1, 2024/02/28 16:10:27 version 1.258, 2025/03/18 18:57:28
Line 550  sub direct { Line 550  sub direct {
 }  }
   
 sub selectbox {  sub selectbox {
     my ($name,$value,$functionref,@idlist)=@_;      my ($name,$value,$readonly,$id,$functionref,@idlist)=@_;
     if (! defined($functionref)) {      if (! defined($functionref)) {
         $functionref=\&direct;          $functionref=\&direct;
     }      }
     my $selout='<select name="'.$name.'">';      my $disabled;
       if ($readonly) {
           $disabled = ' disabled="disabled"';
       }
       if ($id ne '') {
           $id = ' id="'.$id.'"';
       }
       my $selout='<select name="'.$name.'"'.$id.'>';
     foreach my $id (@idlist) {      foreach my $id (@idlist) {
         $selout.='<option value="'.$id.'"';          $selout.='<option value="'.$id.'"'.$disabled;
         if ($id eq $value) {          if ($id eq $value) {
     $selout.=' selected="selected">'.&{$functionref}($id).'</option>';      $selout.=' selected="selected">'.&{$functionref}($id).'</option>';
         } else {          } else {
Line 578  sub relatedfield { Line 585  sub relatedfield {
         return $relatedsep.'&nbsp;';          return $relatedsep.'&nbsp;';
     }      }
     return $relatedsep.'<input type="checkbox" name="'.$fieldname.'_related"'.      return $relatedsep.'<input type="checkbox" name="'.$fieldname.'_related"'.
  ($relatedvalue?' checked="checked"':'').' />';   ($relatedvalue?' checked="checked"':'').' id="'.$fieldname.'_related" />';
 }  }
   
 sub prettyinput {  sub prettyinput {
     my ($type,$value,$fieldname,$formname,      my ($type,$value,$readonly,$fieldname,$formname,
  $relatedsearchflag,$relatedsep,$relatedvalue,$size,$course_key)=@_;   $relatedsearchflag,$relatedsep,$relatedvalue,$size,$course_key)=@_;
     if (! defined($size)) {      if (! defined($size)) {
         $size = 80;          $size = 80;
Line 653  sub prettyinput { Line 660  sub prettyinput {
         }           } 
         if (($type eq 'lowestgradelevel') ||          if (($type eq 'lowestgradelevel') ||
     ($type eq 'highestgradelevel')) {      ($type eq 'highestgradelevel')) {
     return &Apache::loncommon::select_level_form($value,$fieldname).      return &Apache::loncommon::select_level_form($value,$fieldname,$fieldname).
             &relatedfield(0,$relatedsearchflag,$relatedsep);               &relatedfield(0,$relatedsearchflag,$relatedsep); 
         }          }
         return();           return(); 
Line 661  sub prettyinput { Line 668  sub prettyinput {
     # Language      # Language
     if ($type eq 'language') {      if ($type eq 'language') {
  return &selectbox($fieldname,   return &selectbox($fieldname,
   $value,    $value,'',$fieldname,
   \&Apache::loncommon::languagedescription,    \&Apache::loncommon::languagedescription,
   (&Apache::loncommon::languageids)).    (&Apache::loncommon::languageids)).
                               &relatedfield(0,$relatedsearchflag,$relatedsep);                                &relatedfield(0,$relatedsearchflag,$relatedsep);
Line 669  sub prettyinput { Line 676  sub prettyinput {
     # Copyright      # Copyright
     if ($type eq 'copyright') {      if ($type eq 'copyright') {
  return &selectbox($fieldname,   return &selectbox($fieldname,
   $value,    $value,$readonly,$fieldname,
   \&Apache::loncommon::copyrightdescription,    \&Apache::loncommon::copyrightdescription,
   (&Apache::loncommon::copyrightids)).    (&Apache::loncommon::copyrightids)).
                               &relatedfield(0,$relatedsearchflag,$relatedsep);                                &relatedfield(0,$relatedsearchflag,$relatedsep);
Line 677  sub prettyinput { Line 684  sub prettyinput {
     # Source Copyright      # Source Copyright
     if ($type eq 'sourceavail') {      if ($type eq 'sourceavail') {
  return &selectbox($fieldname,   return &selectbox($fieldname,
   $value,    $value,'',$fieldname,
   \&Apache::loncommon::source_copyrightdescription,    \&Apache::loncommon::source_copyrightdescription,
   (&Apache::loncommon::source_copyrightids)).    (&Apache::loncommon::source_copyrightids)).
                               &relatedfield(0,$relatedsearchflag,$relatedsep);                                &relatedfield(0,$relatedsearchflag,$relatedsep);
Line 685  sub prettyinput { Line 692  sub prettyinput {
     # Gradelevels      # Gradelevels
     if (($type eq 'lowestgradelevel') ||      if (($type eq 'lowestgradelevel') ||
  ($type eq 'highestgradelevel')) {   ($type eq 'highestgradelevel')) {
  return &Apache::loncommon::select_level_form($value,$fieldname).   return &Apache::loncommon::select_level_form($value,$fieldname,$fieldname).
             &relatedfield(0,$relatedsearchflag,$relatedsep);              &relatedfield(0,$relatedsearchflag,$relatedsep);
     }      }
     # Obsolete      # Obsolete
     if ($type eq 'obsolete') {      if ($type eq 'obsolete') {
  return '<input type="checkbox" name="'.$fieldname.'"'.   return '<input type="checkbox" name="'.$fieldname.'"'.
     ($value?' checked="checked"':'').' />'.      ($value?' checked="checked"':'').' id="'.$fieldname.'" />'.
             &relatedfield(0,$relatedsearchflag,$relatedsep);               &relatedfield(0,$relatedsearchflag,$relatedsep); 
     }      }
     # Obsolete replacement file      # Obsolete replacement file
     if ($type eq 'obsoletereplacement') {      if ($type eq 'obsoletereplacement') {
  return '<input type="text" name="'.$fieldname.   return '<input type="text" name="'.$fieldname.
     '" size="60" value="'.$value.'" /><a href="javascript:openbrowser'.      '" size="60" value="'.$value.'" id="'.$fieldname.'" /><a href="javascript:openbrowser'.
     "('".$formname."','".$fieldname."'".      "('".$formname."','".$fieldname."'".
     ",'')\">".&mt('Select').'</a>'.      ",'')\">".&mt('Select').'</a>'.
             &relatedfield(0,$relatedsearchflag,$relatedsep);               &relatedfield(0,$relatedsearchflag,$relatedsep);
     }      }
     # Customdistribution file      # Customdistribution file
     if ($type eq 'customdistributionfile') {      if ($type eq 'customdistributionfile') {
  return '<input type="text" name="'.$fieldname.          my $disabled;
     '" size="60" value="'.$value.'" /><a href="javascript:openbrowser'.          if ($readonly) {
     "('".$formname."','".$fieldname."'".              $disabled = ' disabled="disabled"';
     ",'rights')\">".&mt('Select').'</a>'.          }
             &relatedfield(0,$relatedsearchflag,$relatedsep);           my $output;
    $output = '<input type="text" name="'.$fieldname.
       '" size="60" value="'.$value.'"'.$disabled.' id="'.$fieldname.'" />';
           unless ($readonly) {
               $output .= '<a href="javascript:openbrowser'.
                  "('".$formname."','".$fieldname."'".
                  ",'rights')\">".&mt('Select').'</a>';
           }
           $output .= &relatedfield(0,$relatedsearchflag,$relatedsep);
           return $output;
     }      }
     # Source Customdistribution file      # Source Customdistribution file
     if ($type eq 'sourcerights') {      if ($type eq 'sourcerights') {
  return '<input type="text" name="'.$fieldname.   return '<input type="text" name="'.$fieldname.
     '" size="60" value="'.$value.'" /><a href="javascript:openbrowser'.      '" size="60" value="'.$value.'" id="'.$fieldname.'" /><a href="javascript:openbrowser'.
     "('".$formname."','".$fieldname."'".      "('".$formname."','".$fieldname."'".
     ",'rights')\">".&mt('Select').'</a>'.      ",'rights')\">".&mt('Select').'</a>'.
             &relatedfield(0,$relatedsearchflag,$relatedsep);               &relatedfield(0,$relatedsearchflag,$relatedsep); 
Line 737  sub prettyinput { Line 753  sub prettyinput {
     $value=~s/\"/\&quot\;/gs;      $value=~s/\"/\&quot\;/gs;
     return       return 
         '<input type="text" name="'.$fieldname.'" size="'.$size.'" '.          '<input type="text" name="'.$fieldname.'" size="'.$size.'" '.
         'value="'.$value.'" />'.          'value="'.$value.'" id="'.$fieldname.'" />'.
         &relatedfield(1,$relatedsearchflag,$relatedsep,$fieldname,          &relatedfield(1,$relatedsearchflag,$relatedsep,$fieldname,
                       $relatedvalue);                         $relatedvalue);
 }  }
   
 # Create pageheader  # Create pageheader
Line 777  sub handler { Line 793  sub handler {
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
   
     if ($env{'request.state'} eq 'construct') {      if ($env{'request.state'} eq 'construct') {
           my $text = 'Authoring Space';
           my $href = &Apache::loncommon::authorspace($uri);
           if ($env{'request.course.id'}) {
               my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
               my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
               if ($href eq "/priv/$cdom/$cnum/") {
                   $text = 'Course Authoring Space';
               }
           }
         &Apache::lonhtmlcommon::add_breadcrumb({          &Apache::lonhtmlcommon::add_breadcrumb({
             'text'  => 'Authoring Space',              'text'  => $text,
             'href'  => &Apache::loncommon::authorspace($uri),              'href'  => $href,
         });          });
     }      }
   
Line 1312  sub present_editable_metadata { Line 1337  sub present_editable_metadata {
     # Authoring Space Call      # Authoring Space Call
     # Header      # Header
     my $disuri=$uri;      my $disuri=$uri;
       my ($courseauthor,$crsaurights,$readonly);
       if ($env{'request.course.id'}) {
           my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
           my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
           if ($uri =~ m{^\Q/priv/$cdom/$cnum/\E}) {
               $courseauthor = $cnum.':'.$cdom;
               $crsaurights = "/res/$cdom/$cnum/default.rights";
               $readonly = 1;
           }
       }
     my $fn=&Apache::lonnet::filelocation('',$uri);      my $fn=&Apache::lonnet::filelocation('',$uri);
     $disuri=~s{^/\~}{/priv/};      $disuri=~s{^/\~}{/priv/};
     $disuri=~s/\.meta$//;      $disuri=~s/\.meta$//;
Line 1473  ENDEDIT Line 1508  ENDEDIT
        'lowestgradelevel','highestgradelevel','sourceavail','sourcerights',         'lowestgradelevel','highestgradelevel','sourceavail','sourcerights',
        'obsolete','obsoletereplacement');         'obsolete','obsoletereplacement');
         }          }
           if ($courseauthor) {
               $Apache::lonpublisher::metadatafields{'copyright'}='custom';
               $Apache::lonpublisher::metadatafields{'customdistributionfile'}=$crsaurights;
           }
         my (%domdefs,$got_domdefs);          my (%domdefs,$got_domdefs);
         if (! $Apache::lonpublisher::metadatafields{'copyright'}) {          if (! $Apache::lonpublisher::metadatafields{'copyright'}) {
             my $copyright = 'default';              my $copyright = 'default';
Line 1593  ENDEDIT Line 1632  ENDEDIT
                     $output .= &Apache::lonhtmlcommon::row_title($lt{$field_name})                      $output .= &Apache::lonhtmlcommon::row_title($lt{$field_name})
                               .&prettyinput($field_name,                                .&prettyinput($field_name,
    $Apache::lonpublisher::metadatafields{$field_name},     $Apache::lonpublisher::metadatafields{$field_name},
                     'new_'.$field_name,'defaultmeta',                      $readonly,'new_'.$field_name,'defaultmeta',
                     undef,undef,undef,undef,                      undef,undef,undef,undef,
                                                     $Apache::lonpublisher::metadatafields{'courserestricted'});                                                      $Apache::lonpublisher::metadatafields{'courserestricted'});
                     $output .= &Apache::lonhtmlcommon::row_closure($rowcount == $last?1:0);                      $output .= &Apache::lonhtmlcommon::row_closure($rowcount == $last?1:0);
                  }                   }
             } else {              } else {
   
                     $output .= &Apache::lonhtmlcommon::row_title($lt{$field_name})                      $output .= &Apache::lonhtmlcommon::row_title($lt{$field_name})
                               .&prettyinput($field_name,                                .&prettyinput($field_name,
    $Apache::lonpublisher::metadatafields{$field_name},     $Apache::lonpublisher::metadatafields{$field_name},
                                            'new_'.$field_name,'defaultmeta')                                             $readonly,'new_'.$field_name,'defaultmeta')
                               .&Apache::lonhtmlcommon::row_closure($rowcount == $last?1:0);                                .&Apache::lonhtmlcommon::row_closure($rowcount == $last?1:0);
                                 
             }              }
Line 1646  sub store_metadata { Line 1684  sub store_metadata {
         $Apache::lonpublisher::metadatafields{'keywords'} =          $Apache::lonpublisher::metadatafields{'keywords'} =
             join (',', &Apache::loncommon::get_env_multiple('form.new_keywords'));              join (',', &Apache::loncommon::get_env_multiple('form.new_keywords'));
             }              }
       if (($caller eq 'store') && ($env{'request.course.id'})) {
           my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
           my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
           if ($uri =~ m{^\Q/priv/$cdom/$cnum/\E}) {
               unless ($uri eq "/priv/$cdom/$cnum/default.rights.meta") {
                   $Apache::lonpublisher::metadatafields{'copyright'} = 'custom';
                   $Apache::lonpublisher::metadatafields{'customdistributionfile'} =
                       "/res/$cdom/$cnum/default.rights";
               }
           }
       }
     foreach my $field (sort(keys(%Apache::lonpublisher::metadatafields))) {      foreach my $field (sort(keys(%Apache::lonpublisher::metadatafields))) {
         next if ($field =~ /\./);          next if ($field =~ /\./);
         my $unikey=$field;          my $unikey=$field;
Removed from v.1.254.2.1  
changed lines
  Added in v.1.258

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