loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.135, 2005/12/08 02:17:56	version 1.136, 2005/12/09 23:49:45
Line 302 sub select_course {	Line 302 sub select_course {
$courses{$coursekey} = $value;	$courses{$coursekey} = $value;
}	}
}	}
$r->print('<h3>Course Related Meta-Data</h3><br />');	$r->print('<h3>Associate resource with a course</h3><br />');
$r->print('<form action="" method="post">');	$r->print('<form action="" method="post">');
$r->print('Select course restrictions<br />');	$r->print('Select course <br />');
$r->print('<select name="metacourse" >');	$r->print('<select name="metacourse" >');
my $meta_not_found = 1;	my $meta_not_found = 1;
foreach my $key (keys (%courses)) {	foreach my $key (keys (%courses)) {
Line 322 sub select_course {	Line 322 sub select_course {
}	}
unless ($meta_not_found) {	unless ($meta_not_found) {
$r->print('</select><br />');	$r->print('</select><br />');
$r->print('<input type="submit" value="Assign Portfolio Metadata" />');	$r->print('<input type="submit" value="Associate" />');
$r->print('</form>');	$r->print('</form>');
}	}
return 'ok';	return 'ok';
Line 1196 ENDEDIT	Line 1196 ENDEDIT
}	}
}	}
}	}
my $button_label;	$r->print($output.'<br /><input type="submit" name="store" value="'.
if ($fn =~ /\/portfolio\//) {	&mt('Store Catalog Information').'">');
$button_label = 'Store Metadata';
} else {
$button_label = 'Store Catalog Information';
}
$r->print($output.'<br /><input type="submit" name="store" value="'.
&mt($button_label).'">');
}	}
$r->print('</form>');	$r->print('</form>');
return;	return;