Wie definiert man defaults? (Allgemeines zu Perl)

[thread]13802[/thread]

Wie definiert man defaults?

Leser: 22

Articles: hide open all | hide show old branches

+6 replies
pktm

2009-07-29 15:39

User since
2003-08-07
2921 Artikel
BenutzerIn

Hallo!

Ich ahbe da eine (Web-)Anwendung, in der es eine Select-Box gibt. Die wird mit Werten aus einer DB gefüllt.
Wenn das FOrmular das erste Mal angezeigt wird, soll dort ein Eintrag vorselektiert werden, damit der benutzer schneller durchs FOrmular gehen kann.

Wie aber definiert man diesen default-Wert? Fügt man den Datensätzen in der DB ein Attribut hinzu, mit dem die default-Werte definiert werden? Oder schreibt man die ID des defaults in eine Konfigurationsdatei (die man pflegen kann)?

Wie macht iohr das so? Welche Vorgehensweisen gibt es?

Grüße, pktm
http://www.intergastro-service.de (mein erstes CMS :) )
- +4 replies
- renee
  
  2009-07-29 16:19
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Ich würde das in einer Konfigurationsdatei definieren.
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - +3 replies
  - pktm
    
    2009-07-29 16:31
    
    User since
    2003-08-07
    2921 Artikel
    BenutzerIn
    
    Gibt es da was pflegeleichtes? Also etwas, das man auch schreiben kann?
    Ich arbeite immer mit ConfigAuto, das ist nur readonly.
    http://www.intergastro-service.de (mein erstes CMS :) )
    - Taulmarill
      
      2009-07-29 16:37
      
      User since
      2004-02-19
      1750 Artikel
      BenutzerIn
      
      Config::YAML z.B.
      $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
    - renee
      
      2009-07-29 16:48
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Ich verwende YAML und zum lesen/schreiben YAML::Tiny. Da habe ich mir nur noch einen kleinen "Wrapper" drumgebaut, so dass ich nicht $yaml->[0]->{irgendeine}->{verschachtelte}->{struktur}; schreiben muss, sondern $config->get( 'irgendeine.verschachtelte.struktur' ) machen kann.
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
- Gast script im urlaub
  
  2009-07-30 12:30
  Ich halte Metadaten über jede Tabelle und Feld in einem Hash, der bei Anfragen immer konsultiert wird. Da ist dann auch ein'_default_' definiert, der nachgefragt wird, falls kein Wert aus der DB vorliegt.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  $Meta{'art'} = { "typ" => { '_proto_' => "enum", '_select_' => " _tabfield_ ", '_default_' => "unknown", 'set' => ['unknown','article','page','quelle','keyword'], }, };

View all threads created 2009-07-29 15:39.