baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
|
Alle Einträge zum Thema: | Zur Liste |
<br><b> <do action=all databack=f0f0f0 datasize=2 headback=778899 border=0 spacing=1 padding=3 gridcolor= FFFFFF dataface=verdana,arial,helvetica sort^=Von range^=0,20 pagebrowse=top buttonbrowse=top,bottom listtype=list listfields=Von,Bis,Veranstaltung,Wo?,eMail input=link>
<perl> if ($cmd eq "") { get "Bis<-1","dbname"; # dbname mit der orginaldb ersetzen while (get_next("dbname")) # hier auch { %_put=%_get; del "Id==$_id","dbname"; # und nochmal put undef,"dbname2"; # dbname2 der archivdb ersetzen } } </perl>
<perl> if ($cmd eq "") { get "Bis<-1","/cgi-bin/baseportal.pl?htx=/smarty/Termine"; # dbname mit der orginaldb ersetzen while (get_next("/cgi-bin/baseportal.pl?htx=/smarty/Termine")) # hier auch {
del "Id==$_id","/cgi-bin/baseportal.pl?htx=/smarty/Termine"; # und nochmal
put undef,"/cgi-bin/baseportal.pl?htx=/smarty/Termine_Archiv"; # dbname2 der archivdb ersetzen } } </perl> <do action=all databack=f0f0f0 datasize=2 headback=778899 border=0 spacing=1 padding=3 gridcolor=
<perl> if ($cmd eq "") { get "Bis<-1","Termine"; # dbname mit der orginaldb ersetzen while (get_next("Termine")) # hier auch {
del "Id==$_id","Termine"; # und nochmal
put undef,"Termine_Archiv"; # dbname2 der archivdb ersetzen } } </perl> <do action=all db=Termine databack=f0f0f0 datasize=2 headback=778899 border=0 spacing=1 padding=3 gridcolor= FFFFFF dataface=verdana,arial,helvetica sort^=Von range^=0,20 pagebrowse=top buttonbrowse=top,bottom listtype=list listfields=Von,Bis,Veranstaltung,Wo?,eMail input=link>
<perl>
{ get "Bis<jetzt","Termine"; # dbname mit der orginaldb ersetzen while (get_next("Termine")) # hier auch {
put ["feldname1",$feldname1,"feldname2",$feldname2,"feldname3",$feldname3,"usw",$usfort],"Termine_Archiv"; # dbname2 der archivdb ersetzen, Feldnamen auch ersetzen, für jedes in der Db vorkommende Feld } } </perl> <do action=all db=Termine databack=f0f0f0 datasize=2 headback=778899 border=0 spacing=1 padding=3 gridcolor=
<perl>
if ($cmd eq "") { get "Bis<jetzt","Termine"; # dbname mit der orginaldb ersetzen
while (get_next("Termine")) # hier auch { del "Id==$_id","Termine"; # und nochmal put ["Von",$Von,"Bis",$Bis,"Veranstaltung",$Veranstaltung,"Wo",$Wo,"Was",$Was,"eMail",$eMail,"Homepage",$Homepage,"Telefon",$Telefon],"Termine_Archiv"; # dbname2 der archivdb ersetzen, Feldnamen auch ersetzen, für jedes in der Db vorkommende Feld } }
</perl>
<perl> if ($cmd eq "") { get "Bis<jetzt","Termine"; # dbname mit der orginaldb ersetzen while (get_next("Termine")) # hier auch { %_put=%_loop; del "Id==$_id","Termine"; # und nochmal put undef,"Termine_Archiv"; # dbname2 der archivdb ersetzen } } </perl>
<do action=all db=Termine_Archiv databack=f0f0f0 datasize=2 headback=778899 border=0 spacing=1 padding=3 gridcolor= FFFFFF dataface=verdana,arial,helvetica sort^=Von range^=0,20 pagebrowse=top buttonbrowse=top,bottom listtype=list listfields=Von,Bis,Veranstaltung,Wo,eMail input=link>
<perl> if ($cmd eq "") { get "Bis<jetzt","Termine"; # dbname mit der orginaldb ersetzen while (get_next("Termine")) # hier auch { del "Id==$_id","Termine"; # und nochmal put ["Von",$Von,"Bis",$Bis,"Veranstaltung",$Veranstaltung,"Wo",$Wo,"Was",$Was,"eMail",$eMail,"Homepage",$Homepage,"Telefon",$Telefon],"Termine_Archiv"; } } </perl>
} </perl>
} %_put=""; } </perl>
<perl> if ($cmd eq "") { get "Datum<jetzt","turnierkalender"; # dbname mit der orginaldb ersetzen while (get_next("turnierkalender")) # hier auch { del "Id==$_id","turnierkalender"; # und nochmal put ["Datum",$Datum,"Turniername",$Turniername,"Spielweise",$Spielweise,"Vorgabenwirksam",$Vorgabenwirksam,"Offen",$Offen,"Handicapbegrenzung",$Handicapbegrenzung,"Gesperrt_von",$Gesperrt_von,"Gesperrt_bis",$Gesperrt_bis,"Wo_gesperrt",$Wo_geseprrt],"turnierkalender_archiv"; } } </perl> <center> <do action=all databack=FFFFFF dataalign=middle headalign=middle sort^=Datum range^=0,14 pagebrowse=yes buttonbrowse=bottom listfields=Datum,Turniername,Gesperrt_von,Gesperrt_bis input=link searchfields=Datum,Turniername,Vorgabenwirksam,Offen>
<perl> if ($cmd eq "") { get "Datum<jetzt","turnierkalender"; # dbname mit der orginaldb ersetzen while (get_next("turnierkalender")) # hier auch { del "Id==$_id","turnierkalender"; # und nochmal put undef %_put; ["Datum",$Datum,"Turniername",$Turniername,"Spielweise",$Spielweise,"Vorgabenwirksam",$Vorgabenwirksam,"Offen",$Offen,"Handicapbegrenzung",$Handicapbegrenzung,"Gesperrt_von",$Gesperrt_von,"Gesperrt_bis",$Gesperrt_bis,"Wo_gesperrt",$Wo_geseprrt],"turnierkalender_archiv"; } } </perl>
<perl> if ($cmd eq "") { get "Datum<jetzt","turnierkalender"; # dbname mit der orginaldb ersetzen while (get_next("turnierkalender")) # hier auch { del "Id==$_id","turnierkalender"; # und nochmal put ["Datum",$Datum,"Turniername",$Turniername,"Spielweise",$Spielweise,"Vorgabenwirksam",$Vorgabenwirksam,"Offen",$Offen,"Handicapbegrenzung",$Handicapbegrenzung,"Gesperrt_von",$Gesperrt_von,"Gesperrt_bis",$Gesperrt_bis,"Wo_gesperrt",$Wo_geseprrt],"turnierkalender_archiv"; undef %_put;
} </perl>
Liste der Einträge von 58800 bis 58875: | Einklappen | Zur Eingabe |
Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < | Zur Eingabe | > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge |
© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |